moved get-lines to common.scm

10-syntax-scoring/code.scm

@@ -1,9 +1,4 @@
-; get list of lines from a file
-(define (get-lines file)
-  (let loop [(lines '())]
-    (if (eof-object? (peek-char file))
-      lines
-      (loop (cons (get-line file) lines)))))
+(load "../common.scm")
 
 ; check if character can close chunk
 (define (closing? c)