From 7f5993dc2c4d074fb273673a7ad5fe6151dc7acb Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 23 Mar 2024 15:51:44 -0500
Subject: Improve repl

---
 repl.lua | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/repl.lua b/repl.lua
index 34e4c94..b198880 100644
--- a/repl.lua
+++ b/repl.lua
@@ -4,6 +4,16 @@ local repl = {}
 local eval = require("eval").eval
 local read = require("read").read
 
+local function schemeprint (x)
+	if x == true then
+		print("#t")
+	elseif x == false then
+		print("#f")
+	else
+		print(x)
+	end
+end
+
 function repl.repl (prompt)
 	if not prompt then prompt = "lam> " end
 	io.input():setvbuf("line")
@@ -11,9 +21,10 @@ function repl.repl (prompt)
 		io.write(prompt)
 		io.output():flush()
 		local input = io.read()
-		if input == nil then break end
-		local value = eval(read(input))
-		if value then print(value) end
+		if input ~= "" then
+			local value = eval(read(input))
+			if value ~= nil then schemeprint(value) end
+		end
 	until false
 end
 
-- 
cgit 1.4.1-21-gabe81