From 31ccba642d5a498274fecde92156ac1162bd1c17 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 5 Apr 2024 13:37:23 -0500 Subject: Add display and newline --- core.lua | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/core.lua b/core.lua index 9563904..f6d4e08 100644 --- a/core.lua +++ b/core.lua @@ -32,6 +32,17 @@ m.env = { -- all functions here take R, which is the list of arguments return r[1] == r[2][1] end, -- equal? can be done in-library + ------- i/o + display = + function (r) + assert_arity(r, 1, 1) + io.write(tostring(r[1])) + end, + newline = + function (r) + assert_arity(r, 0, 0) + io.write("\n") + end, ------- numbers -- todo: assert all of these are numbers ["number?"] = -- cgit 1.4.1-21-gabe81