| postpone lp@ postpone c! ; |
postpone lp@ postpone c! ; |
| |
|
| : create-local ( " name" -- a-addr ) |
: create-local ( " name" -- a-addr ) |
| \ defines the local "name"; the offset of the local shall be stored in a-addr |
\ defines the local "name"; the offset of the local shall be |
| |
\ stored in a-addr |
| create |
create |
| immediate |
immediate |
| here 0 , ( place for the offset ) ; |
here 0 , ( place for the offset ) ; |
| |
|
| : -- ( addr wid 0 ... -- ) |
: -- ( addr wid 0 ... -- ) |
| } |
} |
| [char] } word drop ; |
[char] } parse 2drop ; |
| |
|
| forth definitions |
forth definitions |
| |
|
