Use faster reverse inside racket/private/list proper.

This commit is contained in:
Vincent St-Amour 2015-10-12 16:40:21 -05:00
parent c3aa266bee
commit d00401ccc1

View File

@ -1,5 +1,5 @@
(module list "pre-base.rkt" (module list "pre-base.rkt"
(require "reverse.rkt") (require (rename-in "reverse.rkt" [alt-reverse reverse]))
(provide foldl (provide foldl
foldr foldr
@ -27,7 +27,7 @@
build-string build-string
build-list build-list
(rename-out [alt-reverse reverse]) reverse
compose compose
compose1) compose1)