From 35d375807bd84f9c7ca82e28042d20ded7b65498 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 7 Aug 2022 15:55:13 -0700
Subject: Add int<? and eq?.

---
 lib/csc/encoding.csc | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib')

diff --git a/lib/csc/encoding.csc b/lib/csc/encoding.csc
index 9afa40f..83258c8 100644
--- a/lib/csc/encoding.csc
+++ b/lib/csc/encoding.csc
@@ -175,6 +175,11 @@
           (make-opcode w 15 (is-const? x) #f)
           (arg->le-bytes w dest)
           (arg->le-bytes w x))
+        (('int<? dest x y)
+          (make-opcode w 16 (is-const? x) (is-const? y))
+          (arg->le-bytes w dest)
+          (arg->le-bytes w x)
+          (arg->le-bytes w y))
         (_ (error "invalid opcode" opcode))))
 
 
-- 
cgit v1.3.1