Use dummy-dict to create dummy local

parent 65ca076c
......@@ -194,7 +194,7 @@ cell 8 = [IF]
does> ( Compilation: -- ) ( Run-time: -- w )
postpone laddr# @ lp-offset, ;
previous definitions
locals-types:64^ dummy-64^
' dummy-dict ' dict-execute ' locals-types:64^ wrap-xt dummy-64^ 2drop
: dumin ( ud1 ud2 -- ud3 ) 2over 2over du> IF 2swap THEN 2drop ;
: dumax ( ud1 ud2 -- ud3 ) 2over 2over du< IF 2swap THEN 2drop ;
: 64!@ ( value addr -- old-value ) >r r@ 64@ 64swap r> 64! ;
......
......@@ -10,12 +10,6 @@ false [IF]
: nodebug: ['] ( Alias immediate ;
action-of .s. ' . = [IF]
:noname ( ... -- ... )
depth IF ... THEN
fdepth IF cr "F:" type f.s THEN ; is printdebugdata
[THEN]
require xtype.fs
require base64.fs
require base85.fs
......
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