close files

2021-12-02 12:26:27 +01:00
parent f24c1eb347
commit 11606105ea
1 changed files with 4 additions and 2 deletions
--- a/day-2.scm
+++ b/day-2.scm
@@ -19,7 +19,8 @@
 	(else
 	  (display "part 1: ")
 	  (display (* x y))
-	  (newline))))))
+	  (newline)
+	  (close-port file))))))

 (let [(file (open-input-file "day-2.input"))]
  (let loop [(x 0) (y 0) (aim 0)]
@@ -38,4 +39,5 @@
 	(else
 	  (display "part 2: ")
 	  (display (* x y))
-	  (newline))))))
+	  (newline)
+	  (close-port file))))))