version 1.13, 1996/08/26 10:07:22
|
version 1.16, 1998/05/15 21:24:39
|
Line 22
|
Line 22
|
\ If you want check values then exclude comments, |
\ If you want check values then exclude comments, |
\ but keep in mind that this can't be cross-compiled |
\ but keep in mind that this can't be cross-compiled |
|
|
INCLUDE look.fs |
\ INCLUDE look.fs |
|
|
\ Wordinfo is a tool that checks a nfa |
\ Wordinfo is a tool that checks a nfa |
\ and finds out what wordtype we have |
\ and finds out what wordtype we have |
Line 61 INCLUDE look.fs
|
Line 61 INCLUDE look.fs
|
\ the above words could be factored with create-does>, but this would |
\ the above words could be factored with create-does>, but this would |
\ probably make this file incompatible with cross. |
\ probably make this file incompatible with cross. |
|
|
|
[IFDEF] forthstart |
|
: xtprim? ( xt -- flag ) |
|
dictionary-end forthstart within ; \ !! does not work for CODE words |
|
[ELSE] |
|
: xtprim? ( xt -- flag ) |
|
dup >body swap >code-address = ; \ !! works only for indirect threaded code |
|
\ !! does not work for primitives |
|
[THEN] |
: prim? ( nfa -- flag ) |
: prim? ( nfa -- flag ) |
name>int |
name>int xtprim? ; |
forthstart u< ; |
|
|
|
\ None nestable IDs: |
\ None nestable IDs: |
|
|