Return to toolsext.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.23, 2007/12/31 19:02:25 | version 1.24, 2009/12/27 01:00:53 |
---|---|
Line 165 interpret/compile: [I] ( -- n ) \ gforth | Line 165 interpret/compile: [I] ( -- n ) \ gforth |
0= IF postpone [ELSE] true rdrop 1 countif +! THEN ; | 0= IF postpone [ELSE] true rdrop 1 countif +! THEN ; |
immediate | immediate |
\ Warnings on | |
\ Warnings on |