From c33abea4005922736c1d9a8b4891b3acc79288b3 Mon Sep 17 00:00:00 2001 From: elioat Date: Sun, 19 Jan 2025 15:08:04 -0500 Subject: * --- awk/scheme/scheme/bin/compiler.awk | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/awk/scheme/scheme/bin/compiler.awk b/awk/scheme/scheme/bin/compiler.awk index b1a2a10..d4d0ff0 100755 --- a/awk/scheme/scheme/bin/compiler.awk +++ b/awk/scheme/scheme/bin/compiler.awk @@ -214,6 +214,14 @@ function compile_primitive_call(op, args, arg_array, nargs, i) { if (nargs != 1) error("cdr requires 1 argument") print "CDR" } + else if (op == "<") { + if (nargs != 2) error("< requires 2 arguments") + print "LT" + } + else if (op == "=") { + if (nargs != 2) error("= requires 2 arguments") + print "EQ" + } else { error("Unknown operator: " op) } -- cgit 1.4.1-2-gfad0