From f8c9564372709e0634c9eb0c208ec9cc31a93de7 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 25 Dec 2018 01:54:02 +0100
Subject: Add if construct; fib example

---
 Sjit/Run.icl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Sjit/Run.icl')

diff --git a/Sjit/Run.icl b/Sjit/Run.icl
index b5858ec..e3e623f 100644
--- a/Sjit/Run.icl
+++ b/Sjit/Run.icl
@@ -23,6 +23,10 @@ where
 			[val:stack] -> exec (i+1) (take (n-1) stack ++ [val:drop n stack])
 		Pop n     -> exec (i+1) (drop n stack)
 		Call f    -> exec f [i+1:stack]
+		Jmp f     -> exec f stack
+		JmpTrue f -> case stack of
+			[0:stack] -> exec (i+1) stack
+			[_:stack] -> exec f stack
 		Ret -> case stack of
 			[ret:stack] -> exec ret stack
 		Halt -> case stack of
-- 
cgit v1.2.3