diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:53:37 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:54:19 +0100 |
commit | aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6 (patch) | |
tree | 8de14e74bd2677404721b6cc56fbe25b91aadde2 /test.scm | |
parent | Clean up srfi-19 util. (diff) | |
download | calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.gz calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.xz |
Fix error when looking at cloned events.
Diffstat (limited to 'test.scm')
-rwxr-xr-x | test.scm | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -22,6 +22,8 @@ (assert (equal? (children ev) (children ev-copy))) +(define strm (recur-event ev)) + (stream-for-each (lambda (ev) (format #t "~a -- ~a~%" @@ -29,8 +31,11 @@ (time->string (attr ev "DTEND") "~1 ~3"))) (stream-take 10 (recur-event ev))) -(define stream-cadr (compose stream-car stream-cdr)) - (newline) -(display (time->string (attr ev "DTSTART") "~1 ~3")) (newline) -(display (time->string (attr (stream-cadr (recur-event ev)) "DTSTART") "~1 ~3")) (newline) + +(for-each + (lambda (ev) + (format #t "~a -- ~a~%" + (time->string (attr ev "DTSTART") "~1 ~3") + (time->string (attr ev "DTEND") "~1 ~3"))) + (stream->list (stream-take 20 (recur-event ev)))) |