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

fix getcwd

db4
Doug Coleman 2008-02-05 23:14:10 -06:00
parent 4439e394cc
commit 537d945660
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/unix/files/files.factor
View File

@ -6,8 +6,8 @@ alien ;
IN: io.unix.files IN: io.unix.files
M: unix-io cwd M: unix-io cwd
MAXPATHLEN dup <byte-array> swap getcwd MAXPATHLEN dup <byte-array> swap
[ alien>char-string ] [ (io-error) ] if* ; getcwd [ (io-error) ] unless* ;
M: unix-io cd M: unix-io cd
chdir io-error ; chdir io-error ;