gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.54, 1998/05/02 21:28:41	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

Line 992 VARIABLE ^imm	Line 992 VARIABLE ^imm

\ Target Document Creation (goes to crossdoc.fd) 05jul95py	\ Target Document Creation (goes to crossdoc.fd) 05jul95py

s" doc/crossdoc.fd" r/w create-file throw value doc-file-id	s" ./doc/crossdoc.fd" r/w create-file throw value doc-file-id
\ contains the file-id of the documentation file	\ contains the file-id of the documentation file

: T-\G ( -- )	: T-\G ( -- )