Use dip instead of swap swap for making file streams

db4
Doug Coleman 2011-10-26 11:47:41 -07:00
parent 140b372218
commit 1882e3de3e
1 changed files with 3 additions and 3 deletions

View File

@ -12,13 +12,13 @@ HOOK: (file-writer) io-backend ( path -- stream )
HOOK: (file-appender) io-backend ( path -- stream )
: <file-reader> ( path encoding -- stream )
swap normalize-path (file-reader) swap <decoder> ;
[ normalize-path (file-reader) ] dip <decoder> ;
: <file-writer> ( path encoding -- stream )
swap normalize-path (file-writer) swap <encoder> ;
[ normalize-path (file-writer) ] dip <encoder> ;
: <file-appender> ( path encoding -- stream )
swap normalize-path (file-appender) swap <encoder> ;
[ normalize-path (file-appender) ] dip <encoder> ;
: file-lines ( path encoding -- seq )
<file-reader> stream-lines ;