gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

-version 1.51, 2006/05/07 05:46:47
+version 1.52, 2006/12/28 14:52:20
  Line 351  previous
  ' uw@ alias w@ ( addr -- u )
  ' ul@ alias l@ ( addr -- u )
  \ ' sw@ alias <w@ ( addr -- n )
- [then]
+ [then]
+ \ safe output redirection
+ : to-outfile-id ( file-id -- )
+     to outfile-id ;
+ : >outfile ( file-id -- r:old-file-id )
+     ]] outfile-id >r try to-outfile-id [[ ; immediate compile-only
+ : outfile< ( r:old-file-id -- )
+]] literal recover endtry r> to-outfile-id throw [[
+ ; immediate compile-only
+ : to-infile-id ( file-id -- )
+     to infile-id ;
+ : >infile ( file-id -- r:old-file-id )
+     ]] infile-id >r try to-infile-id [[ ; immediate compile-only
+ : infile< ( r:old-file-id -- )
+]] literal recover endtry r> to-infile-id throw [[
+ ; immediate compile-only