From aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 8 Mar 2019 13:53:37 +0100 Subject: Fix error when looking at cloned events. --- test.scm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'test.scm') diff --git a/test.scm b/test.scm index 536944b2..eaf5e311 100755 --- a/test.scm +++ b/test.scm @@ -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)))) -- cgit v1.2.3