1 files changed, 3 insertions, 2 deletions
diff --git a/csc/encoding.csc b/csc/encoding.csc
index 7da5370..f6a003d 100644
--- a/csc/encoding.csc
+++ b/csc/encoding.csc
@@ -164,8 +164,9 @@
           (arg->le-bytes w word)
           (arg->le-bytes w (list 'local ptr))
           (arg->le-bytes w offset))
-        (('exit)
-          (make-opcode w 13 #f #f))
+        (('exit code)
+          (make-opcode w 13 (is-const? code) #f)
+          (arg->le-bytes w code))
         (_ (error "invalid opcode" opcode))))