Permalink
Browse files

Fixed samples to compile with api changes.

  • Loading branch information...
1 parent b186b32 commit 57b40e94bf2296bf821bf76ddedbd7a86bc514f4 @RayRacine committed Nov 6, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 io/iteratee/samples.rkt
View
@@ -83,13 +83,13 @@
(doubler : (Enumeratee Integer String IOResult)
(enumeratee-transform (λ: ((x : Integer)) (number->string (* x x)))))
(persist : TextFileIteratee
- (iter-textfile (string->path "/run/shm/ray.txt"))))
+ (iter-text-file (string->path "/run/shm/ray.txt"))))
(icomplete (icomplete (enumerator (doubler persist))))))
(: showit-twice2 (-> IOResult))
(define (showit-twice2)
(let ((enumerator (ann (enumerator/list '(1 2 3 4)) (Enumerator Integer (Iteratee String IOResult))))
(doubler (ann (enumeratee-transform (λ: ((x : Integer)) (number->string (* x x)))) (Enumeratee Integer String IOResult)))
- (persist (iter-textfile (string->path "/run/shm/ray.txt"))))
+ (persist (iter-text-file (string->path "/run/shm/ray.txt"))))
(icomplete (icomplete (enumerator (doubler persist))))))

0 comments on commit 57b40e9

Please sign in to comment.