From 884570598ce9112f4a9f9748f7eec7aa072d48c8 Mon Sep 17 00:00:00 2001
From: tali <iitalics@gmail.com>
Date: Wed, 13 Dec 2023 17:24:20 -0500
Subject: [PATCH] Bop codegen "optimization" (?)

---
 lib/compile/bcc.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/compile/bcc.ml b/lib/compile/bcc.ml
index 6099ecb..b5ac55f 100644
--- a/lib/compile/bcc.ml
+++ b/lib/compile/bcc.ml
@@ -80,7 +80,7 @@ let rec compile_lambda (lam : Ir.lambda) =
              | Not -> NOT (sp, r1))
 
     | Ir.Bop (op, e1, e2) ->
-      let r1 = emit_exp_s sp e1; sp in
+      let r1 = emit_exp sp e1 in
       let r2 = emit_exp (suc sp) e2 in
       emit (match op with
              | Add -> ADD (sp, r1, r2)