From 9e149cb6e6f1bf002fb1abc2b79c77afc3d1d36c Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 10 Jun 2024 16:31:02 -0600 Subject: AoC 2023.1 p1+2 --- not-quite-lisp/main.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'not-quite-lisp') diff --git a/not-quite-lisp/main.scm b/not-quite-lisp/main.scm index 2d54c54..0dd7f95 100644 --- a/not-quite-lisp/main.scm +++ b/not-quite-lisp/main.scm @@ -12,9 +12,6 @@ (loop (string-append result line "\n")))))) (define (main args) - (let ((result - (if (null? (cdr args)) - (nql (stdin-to-str) #t) - (nql (stdin-to-str) #f)))) - (display result)) + (display (nql (stdin-to-str) + (null? (cdr args)))) (newline)) -- cgit v1.2.3