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 |