moved get-lines to common.scm

10-syntax-scoring/code.scm

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

common.scm

@@ -1,5 +1,12 @@
 (import (srfi :43)) ; vector extensions
 
+; 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)))))
+
 ; returns a list of numbers parsed from the first line of the file,
 ; separated by commas
 (define (read-comma-separated-numbers file)