2 files changed, 3 insertions(+), 2 deletions(-)

M advent01.scm
M advent04.scm

@@ 20,7 20,7 @@
    (string->paragraphs (string-trim-both (read-text filename)))))
 
 (define (string->paragraphs str)
-  (let ((paragraph-break (string-contains str "\n\n")))
+  (let ([paragraph-break (string-contains str "\n\n")])
     (if paragraph-break
         (cons
          (string-take str paragraph-break)

@@ 8,7 8,8 @@
              ((f) #:select (read-lines)))
 
 (define (parse-line line)
-  (map (λ (range) (map string->number (string-split range #\-)))(string-split line #\,)))
+  (map (λ (range) (map string->number (string-split range #\-)))
+       (string-split line #\,)))
 
 (define (contains? line)
   (let ([selections (parse-line line)])