version 1.4, 1994/09/12 19:00:37
|
version 1.5, 1994/11/29 16:22:47
|
Line 457 DEFER dosee
|
Line 457 DEFER dosee
|
here @ look 0= ABORT" SEE: No valid xt in defered word" |
here @ look 0= ABORT" SEE: No valid xt in defered word" |
here @ look drop dosee cr |
here @ look drop dosee cr |
." ' " .name r> ." IS " .name cr ; |
." ' " .name r> ." IS " .name cr ; |
: dodoe ." Create " .name cr |
: dodoe ." Create " dup .name cr |
S" DOES> " Com# .string XPos @ Level ! |
S" DOES> " Com# .string XPos @ Level ! name> |
here @ dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN |
>does-code dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN |
ScanMode c-pass ! dup makepass |
ScanMode c-pass ! dup makepass |
DisplayMode c-pass ! makepass ; |
DisplayMode c-pass ! makepass ; |
: doali here @ .name ." Alias " .name cr |
: doali here @ .name ." Alias " .name cr |