Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.37, 2001/04/08 13:48:12 | version 1.38, 2002/01/04 20:31:54 |
---|---|
Line 271 VARIABLE C-Pass | Line 271 VARIABLE C-Pass |
THEN ; | THEN ; |
: c-call | : c-call |
Display? IF dup @ body> .word bl cemit THEN cell+ ; | Display? IF ." call " dup @ body> .word bl cemit THEN cell+ ; |
: .name-without ( addr -- addr ) | : .name-without ( addr -- addr ) |
\ prints a name without () e.g. (+LOOP) or (s") | \ prints a name without () e.g. (+LOOP) or (s") |