rewritten read-lines with recursion

day01-easy/main.scm

@@ -4,11 +4,9 @@
 (use-modules (ice-9 rdelim))
 
 (define (read-lines)
-  (let loop ((line (read-line)))
+  ((lambda (line)
-    (if
+    (if (eof-object? line) '() (cons line (read-lines))))
-      (eof-object? line)
+  (read-line)))
-      '()
-      (cons line (loop (read-line))))))
 
 (define (id value) value)