| 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 |
