--- gforth/stuff.fs	2006/05/07 05:46:47	1.51
+++ gforth/stuff.fs	2006/12/28 14:52:20	1.52
@@ -351,4 +351,26 @@ previous
 ' uw@ alias w@ ( addr -- u )
 ' ul@ alias l@ ( addr -- u )
 \ ' sw@ alias <w@ ( addr -- n )
-[then]
\ No newline at end of file
+[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 -- )
+    0 ]] 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 -- )
+    0 ]] literal recover endtry r> to-infile-id throw [[
+; immediate compile-only