avoid putting tail marks on when we know they are already there

2016-01-18 10:05:23 -06:00 · 2016-01-18 10:05:23 -06:00 · 66d6de6394
commit 66d6de6394
parent 0104e753e7
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/contract/private/arrow-higher-order.rkt
+++ b/racket/collects/racket/contract/private/arrow-higher-order.rkt
@ -288,7 +288,7 @@
                                       #,the-call/no-tail-mark))
                                 (cond
                                   [(null? (syntax-e stuff)) ;; surely there must a better way
-                                    the-call]
+                                    the-call/no-tail-mark]
                                   [else
                                    (wrap-call-with-values-and-range-checking
                                     the-call