From 47dac2df2f3892c05c097b7f63386bd6a57170d4 Mon Sep 17 00:00:00 2001
From: Cheng-Chang Wu <chengchangwu@yahoo.com>
Date: Sun, 26 Sep 2010 17:51:22 +0800
Subject: [PATCH] implemented UNLOOP.

---
 jonesforth.S | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/jonesforth.S b/jonesforth.S
index a833e14..d70e9ed 100644
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -2311,6 +2311,10 @@ interpret_is_lit:
 	lodsl
 	NEXT
 
+	defcode "UNLOOP", 6,,UNLOOP
+	lea 8(%ebp),%ebp
+	NEXT
+
 /*
 	ODDS AND ENDS ----------------------------------------------------------------------