bf: file input

2024-12-20 02:28:06 -05:00 · 2024-12-20 02:28:06 -05:00 · 1410aa68c8
commit 1410aa68c8
parent c9226c4052
1 changed files with 4 additions and 1 deletions
--- a/bf.lisp
+++ b/bf.lisp
@ -87,4 +87,7 @@
        t))))

 (defun main ()
-  (funcall (comp)))
+  (funcall
+   (aif (second *posix-argv*)
+        (with-input-from-file (f it) (comp f))
+        (comp))))