Fixed sequence/c to work with multiple-element sequences.

2011-08-25 15:54:21 -04:00 · 2011-08-25 15:54:21 -04:00 · fe3d4c9fe6
commit fe3d4c9fe6
parent 871ea6dc76
1 changed files with 2 additions and 2 deletions
--- a/collects/unstable/contract.rkt
+++ b/collects/unstable/contract.rkt
@ -225,8 +225,8 @@
                 (lambda (idx) idx)
                 #f
                 (lambda (idx) (more?))
-                 (lambda (elem) #t)
-                 (lambda (idx elem) #t)))))))
+                 (lambda elems #t)
+                 (lambda (idx . elems) #t)))))))
     sequence?)))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;