version 1.37, 1996/07/16 20:57:07
|
version 1.38, 1996/08/21 14:58:38
|
Line 278 Variable last-ghost
|
Line 278 Variable last-ghost
|
|
|
: gfind ( string -- ghost true/1 / string false ) |
: gfind ( string -- ghost true/1 / string false ) |
\ searches for string in word-list ghosts |
\ searches for string in word-list ghosts |
\ !! wouldn't it be simpler to just use search-wordlist ? ae |
|
dup count [ ' ghosts >body ] ALiteral search-wordlist |
dup count [ ' ghosts >body ] ALiteral search-wordlist |
dup IF >r >body nip r> THEN ; |
dup IF >r >body nip r> THEN ; |
|
|
VARIABLE Already |
VARIABLE Already |
|
|
Line 708 by Defer :dodefer resolve
|
Line 707 by Defer :dodefer resolve
|
|
|
Build: ( inter comp -- ) swap T immediate A, A, H ; |
Build: ( inter comp -- ) swap T immediate A, A, H ; |
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO |
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO |
Builder special: |
Builder interpret/compile: |
|
|
\ Sturctures 23feb95py |
\ Sturctures 23feb95py |
|
|