version 1.13, 1995/02/22 18:40:19
|
version 1.15, 1995/10/16 18:33:12
|
Line 90 variable effect-out-end ( pointer )
|
Line 90 variable effect-out-end ( pointer )
|
2variable effect-in-size |
2variable effect-in-size |
2variable effect-out-size |
2variable effect-out-size |
|
|
variable primitive-number -9 primitive-number ! |
variable primitive-number -10 primitive-number ! |
|
|
\ for several reasons stack items of a word are stored in a wordlist |
\ for several reasons stack items of a word are stored in a wordlist |
\ since neither forget nor marker are implemented yet, we make a new |
\ since neither forget nor marker are implemented yet, we make a new |
Line 557 set-current
|
Line 557 set-current
|
get-current documentation set-current |
get-current documentation set-current |
forth-name 2@ nextname create |
forth-name 2@ nextname create |
forth-name 2@ 2, |
forth-name 2@ 2, |
stack-string 2@ 2, |
stack-string 2@ condition-stack-effect 2, |
wordset 2@ 2, |
wordset 2@ 2, |
c-name 2@ 2, |
c-name 2@ condition-pronounciation 2, |
doc 2@ 2, |
doc 2@ 2, |
set-current ; |
set-current ; |
[THEN] |
[THEN] |