steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix with-streams: if the first dispose throws an error, the second dispose never gets called

release
Doug Coleman 2010-09-12 00:22:02 -05:00
parent e5b30b7518
commit fb9f1de3e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/io.factor
View File

@ -80,7 +80,7 @@ SYMBOL: error-stream
: with-streams ( input output quot -- ) : with-streams ( input output quot -- )
[ [ with-streams* ] 3curry ] [ [ with-streams* ] 3curry ]
[ [ drop dispose dispose ] 3curry ] 3bi [ [ [ drop [ &dispose drop ] bi@ ] 3curry ] with-destructors ] 3bi
[ ] cleanup ; inline [ ] cleanup ; inline
: print ( str -- ) output-stream get stream-print ; : print ( str -- ) output-stream get stream-print ;