From a7af12880e92d382653bb4231a05fbf4da3a804a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 2 Nov 2019 20:08:24 +0100 Subject: Add slightly silly parse-tree. --- src/main.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/main.scm') diff --git a/src/main.scm b/src/main.scm index efc4e897..408b9de0 100755 --- a/src/main.scm +++ b/src/main.scm @@ -15,7 +15,7 @@ (format (current-error-port) "Parsing ~s~%" (cadr args)) - (let ((cal (read-vcalendar (cadr args)))) + (let ((cal (read-tree (cadr args)))) (format #t "cal = ~a~%" cal) (format (current-error-port) "~a events~%" (length cal))) -- cgit v1.2.3