Fixed >scaled in example.

[forth.jl.git] / src / lib.4th

diff --git a/src/lib.4th b/src/lib.4th
index efadf95..ea4e7de 100644 (file)
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -116,6 +116,8 @@
 
 : I RSP@ 3 - @ ;
 
+: J RSP@ 6 - @ ;
+
 : ?LEAVE IMMEDIATE
         ' 0BRANCH , 13 ,
         ' R> , ' RDROP , ' RDROP ,
@@ -321,4 +323,4 @@
         SWAP DROP
 ;
 
-
+include ../examples/mandelbrot.4th