version 1.55, 1998/05/31 19:29:22
|
version 1.56, 1998/07/05 20:49:59
|
Line 68 Warnings off
|
Line 68 Warnings off
|
\G SetValue searches in the current vocabulary |
\G SetValue searches in the current vocabulary |
save-input bl word >r restore-input throw r> count |
save-input bl word >r restore-input throw r> count |
get-current search-wordlist |
get-current search-wordlist |
IF bl word drop >body ! ELSE Value THEN ; |
IF ['] to execute ELSE Value THEN ; |
|
|
: DefaultValue ( n -- <name> ) |
: DefaultValue ( n -- <name> ) |
\G Same behaviour as "Value" if the <name> is not defined |
\G Same behaviour as "Value" if the <name> is not defined |
\G DefaultValue searches in the current vocabulary |
\G DefaultValue searches in the current vocabulary |
save-input bl word >r restore-input throw r> count |
save-input bl word >r restore-input throw r> count |
get-current search-wordlist |
get-current search-wordlist |
IF bl word drop drop drop ELSE Value THEN ; |
IF bl word drop 2drop ELSE Value THEN ; |
|
|
hex |
hex |
|
|