From 1410aa68c85e29994f8a2071b85d8e66552611f5 Mon Sep 17 00:00:00 2001
From: mehbark <terezi@pyrope.net>
Date: Fri, 20 Dec 2024 02:28:06 -0500
Subject: [PATCH] bf: file input

---
 bf.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bf.lisp b/bf.lisp
index 3b6c678..b5e899b 100644
--- 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))))