Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.71, 2010/05/01 21:29:08 | version 1.72, 2010/05/02 16:58:02 |
---|---|
Line 315 VARIABLE C-Pass | Line 315 VARIABLE C-Pass |
S" DOES> " Com# .string 4 cells + EXIT endif | S" DOES> " Com# .string 4 cells + EXIT endif |
[IFDEF] !;abi-code | [IFDEF] !;abi-code |
over 2 cells + @ ['] !;abi-code >body = if drop | over 2 cells + @ ['] !;abi-code >body = if drop |
S" DOES> " Com# .string 4 cells + EXIT endif | S" ;abi-code " Com# .string 4 cells + EXIT endif |
[THEN] | [THEN] |
endif | endif |
endif | endif |