gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.53, 2006/12/31 13:39:14	version 1.54, 2007/02/18 18:30:51
Line 362 previous	Line 362 previous
]] outfile-id >r try to-outfile-id [[ ; immediate compile-only	]] outfile-id >r try to-outfile-id [[ ; immediate compile-only

: outfile< ( r:old-file-id -- )	: outfile< ( r:old-file-id -- )
0 ]] literal recover endtry r> to-outfile-id throw [[	0 ]] literal restore r@ to-outfile-id endtry rdrop throw [[
; immediate compile-only	; immediate compile-only

: to-infile-id ( file-id -- )	: to-infile-id ( file-id -- )
Line 372 previous	Line 372 previous
]] infile-id >r try to-infile-id [[ ; immediate compile-only	]] infile-id >r try to-infile-id [[ ; immediate compile-only

: infile< ( r:old-file-id -- )	: infile< ( r:old-file-id -- )
0 ]] literal recover endtry r> to-infile-id throw [[	0 ]] literal restore r@ to-infile-id endtry rdrop throw [[
; immediate compile-only	; immediate compile-only