implemented UNLOOP.

clstrfsck · Sep 26, 2010 · 47dac2d · 47dac2d
1 parent 006010e
commit 47dac2d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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 ----------------------------------------------------------------------