use regular old append when possible

2019-06-05 12:43:22 -05:00 · 2019-06-05 12:43:22 -05:00 · a51231ffa2
commit a51231ffa2
parent c8e9083f0e
1 changed files with 1 additions and 4 deletions
--- a/racket/collects/racket/contract/private/collapsible-common.rkt
+++ b/racket/collects/racket/contract/private/collapsible-common.rkt
@ -219,10 +219,7 @@
 (define (fast-append l1 l2)
  (if (null? l2)
    l1
-    (let fast-append ((l1 l1))
-      (if (null? l1)
-        l2
-        (cons (car l1) (fast-append (cdr l1)))))))
+    (append l1 l2)))

 ;; Assuming that merging is symmetric, ie old-can-merge? iff new-can-merge?
 ;; This is true of the current c-c implementation, but if it ever changes