Commit 040176bc authored by Bernd Paysan's avatar Bernd Paysan

Fixed [i] problem and dfixed Plugin in cross to be used with IS

parent a9918070
......@@ -691,6 +691,9 @@ Variable comp-state
['] pi-undefined , \ action
['] pi-undefined , \ target plugin action
8765 , \ plugin magic
[IFDEF] value!
['] value! !to
[THEN]
DOES> perform ;
Plugin DummyPlugin
......
......@@ -147,7 +147,7 @@ User (i)
: [I] ( -- n ) \ gforth bracket-i
(i) @ ;
compile> (i) @ postpone Literal ;
compile> drop (i) @ postpone Literal ;
: [BEGIN] ( -- ) \ gforth bracket-begin
>in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ; immediate
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment