Use faster reverse inside racket/private/list proper.

2015-10-12 16:40:21 -05:00 · 2015-10-12 16:40:21 -05:00 · d00401ccc1
commit d00401ccc1
parent c3aa266bee
1 changed files with 2 additions and 2 deletions
--- a/racket/collects/racket/private/list.rkt
+++ b/racket/collects/racket/private/list.rkt
@ -1,5 +1,5 @@
 (module list "pre-base.rkt"
-  (require "reverse.rkt")
+  (require (rename-in "reverse.rkt" [alt-reverse reverse]))

  (provide foldl
           foldr
@ -27,7 +27,7 @@
           build-string
           build-list

-           (rename-out [alt-reverse reverse])
+           reverse

           compose
           compose1)