Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.19, 1998/05/13 16:47:23 | version 1.20, 1998/11/27 21:13:43 |
---|---|
Line 395 VARIABLE C-Pass | Line 395 VARIABLE C-Pass |
: c-does> \ end of create part | : c-does> \ end of create part |
Display? IF S" DOES> " Com# .string THEN | Display? IF S" DOES> " Com# .string THEN |
Cell+ cell+ ; | maxaligned /does-handler + ; |
: c-abort" | : c-abort" |
count 2dup + aligned -rot | count 2dup + aligned -rot |