Loading ans.fs +7 −0 Original line number Diff line number Diff line Loading @@ -24,3 +24,10 @@ User span \needs environment? include environ.fs \needs locals| include locals.fs : synonym ( newname oldname -- ) lastcfa push Header -2 allot last @ dup c@ $20 and 0= IF 0 A, $20 flag! THEN bl word find dup 0> IF immediate THEN 1 and 0= IF restrict THEN swap (name> ! reveal ; forth.fb (267 KiB) File changed.Preview size limit exceeded, changes collapsed. View original file View changed file forthker-linux.fi +12 B (59.7 KiB) File changed.No diff preview for this file type. View original file View changed file Loading
ans.fs +7 −0 Original line number Diff line number Diff line Loading @@ -24,3 +24,10 @@ User span \needs environment? include environ.fs \needs locals| include locals.fs : synonym ( newname oldname -- ) lastcfa push Header -2 allot last @ dup c@ $20 and 0= IF 0 A, $20 flag! THEN bl word find dup 0> IF immediate THEN 1 and 0= IF restrict THEN swap (name> ! reveal ;
forth.fb (267 KiB) File changed.Preview size limit exceeded, changes collapsed. View original file View changed file
forthker-linux.fi +12 B (59.7 KiB) File changed.No diff preview for this file type. View original file View changed file
