CHAR: notation for literal chars, native parser work

[factor.git] / library / platform / native / stream.factor

diff --git a/library/platform/native/stream.factor b/library/platform/native/stream.factor
index c94bd2c8d11d33a7a84f8c51e5381d37045ce23a..364ccc1744a608bd303d64e96ebf792f396ad731 100644 (file)
--- a/library/platform/native/stream.factor
+++ b/library/platform/native/stream.factor
@@ -1,4 +1,4 @@
-!:folding=indent:collapseFolds=1:
+! :folding=indent:collapseFolds=1:
 
 ! $Id$
 !
@@ -53,5 +53,11 @@ USE: namespaces
 : <file-stream> ( path mode -- stream )
     open-file dup <native-stream> ;
 
+: <filebr> ( path -- stream )
+    "r" <file-stream> ;
+
+: <filebw> ( path -- stream )
+    "w" <file-stream> ;
+
 : init-stdio ( -- )
     stdin stdout <native-stream> "stdio" set ;