*

1 files changed, 8 insertions, 0 deletions

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)
     }