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

fix with-directory. i thought i did this already..

db4
Doug Coleman 2008-02-29 23:17:15 -06:00
parent 2dffb31e53
commit 4994a0e435
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/files/files-tests.factor
View File

@ -121,3 +121,5 @@ USING: tools.test io.files io threads kernel continuations ;
[ ] [ "copy-destination" temp-file delete-tree ] unit-test [ ] [ "copy-destination" temp-file delete-tree ] unit-test
[ ] [ "copy-tree-test" temp-file delete-tree ] unit-test [ ] [ "copy-tree-test" temp-file delete-tree ] unit-test
[ t ] [ cwd "misc" resource-path [ ] with-directory cwd = ] unit-test

4
core/io/files/files.factor
View File

@ -84,7 +84,7 @@ HOOK: cd io-backend ( path -- )
HOOK: cwd io-backend ( -- path ) HOOK: cwd io-backend ( -- path )
: with-directory ( path quot -- ) : with-directory ( path quot -- )
swap cd cwd [ cd ] curry [ ] cleanup ; inline cwd [ cd ] curry rot cd [ ] cleanup ; inline
! Creating directories ! Creating directories
HOOK: make-directory io-backend ( path -- ) HOOK: make-directory io-backend ( path -- )
@ -223,4 +223,4 @@ HOOK: <file-appender> io-backend ( path -- stream )
{ [ winnt? ] [ "USERPROFILE" os-env ] } { [ winnt? ] [ "USERPROFILE" os-env ] }
{ [ wince? ] [ "" resource-path ] } { [ wince? ] [ "" resource-path ] }
{ [ unix? ] [ "HOME" os-env ] } { [ unix? ] [ "HOME" os-env ] }
} cond ; } cond ;