Fix close, should return the empty list

tizoc · Jul 2, 2023 · 4d8d71e · 4d8d71e
1 parent caed982
commit 4d8d71e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/primitives.scm b/src/primitives.scm
@@ -133,8 +133,8 @@
 
 (define (kl:close stream)
   (cond
-   ((input-port? stream) (close-input-port stream))
-   ((output-port? stream) (close-output-port stream))
+   ((input-port? stream) (close-input-port stream) '())
+   ((output-port? stream) (close-output-port stream) '())
    (else (raise-error 'close "invalid stream" stream))))
 
 (define (kl:write-byte byte o)