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

Fix set-current-directory

db4
Slava Pestov 2008-04-04 22:22:38 -05:00
parent 315b467748
commit 4139f0e804
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -205,12 +205,11 @@ SYMBOL: current-directory
M: object normalize-path ( path -- path' ) M: object normalize-path ( path -- path' )
(normalize-path) ; (normalize-path) ;
: with-directory ( path quot -- )
>r (normalize-path) r>
current-directory swap with-variable ; inline
: set-current-directory ( path -- ) : set-current-directory ( path -- )
normalize-path current-directory set ; (normalize-path) current-directory set ;
: with-directory ( path quot -- )
>r (normalize-path) current-directory r> with-variable ; inline
! Creating directories ! Creating directories
HOOK: make-directory io-backend ( path -- ) HOOK: make-directory io-backend ( path -- )