From 11606105eac7ac27de622365cd48db676c820f95 Mon Sep 17 00:00:00 2001 From: MsK` Date: Thu, 2 Dec 2021 12:26:27 +0100 Subject: [PATCH] close files --- day-2.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/day-2.scm b/day-2.scm index c3c2b21..91cfea0 100644 --- 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))))))