From e3da1079344611a75ac09db0abe1ad927ee2508e Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 24 Jul 2006 05:22:11 +0000
Subject: [PATCH] Runtime cleanup

---
 vm/run.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/vm/run.c b/vm/run.c
index 6ff8cdb800..8365502dd1 100644
--- a/vm/run.c
+++ b/vm/run.c
@@ -136,8 +136,7 @@ void primitive_call(void)
 void primitive_ifte(void)
 {
 	ds -= CELLS * 3;
-	CELL cond = get(ds + CELLS);
-	call(cond == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
+	call(get(ds + CELLS) == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
 }
 
 void primitive_dispatch(void)
@@ -181,7 +180,9 @@ void primitive_os_env(void)
 
 void primitive_eq(void)
 {
-	box_boolean(dpop() == dpop());
+	CELL lhs = dpop();
+	CELL rhs = dpeek();
+	drepl((lhs == rhs) ? T : F);
 }
 
 void primitive_millis(void)