fix bug in `sequence-lift'

svn: r18657

collects/unstable/scribblings/sequence.scrbl

@@ -28,7 +28,7 @@ Produces a sequence equivalent to @scheme[(syntax->list lst)].
 
 @defproc[(in-pairs [seq sequence?]) sequence?]{
 Produces a sequence equivalent to
- @scheme[(in-parallel (lift car seq) (lift cdr seq))].
+ @scheme[(in-parallel (sequence-lift car seq) (sequence-lift cdr seq))].
 }
 
 @defproc[(in-sequence-forever [seq sequence?] [val any/c]) sequence?]{
@@ -37,4 +37,7 @@ Produces a sequence whose values are the elements of @scheme[seq], followed by @
 
 @defproc[(sequence-lift [f procedure?] [seq sequence?]) sequence?]{
 Produces the sequence of @scheme[f] applied to each element of @scheme[seq].
+@examples[#:eval the-eval
+(for/list ([x (sequence-lift add1 (in-range 10))])
+  x)]
 }

collects/unstable/sequence.ss

@@ -37,7 +37,7 @@
   (make-do-sequence
    (lambda ()
      (let-values ([(more? gen) (sequence-generate seq)])
-       (values (lambda (e) (compose f gen))
+       (values (lambda (e) (f (gen)))
                (lambda (_) #t)
                #t
                (lambda (_) (more?))