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

fix getcwd

db4
Doug Coleman 2008-02-05 23:04:31 -06:00
parent f3a9e6bb0f
commit 4439e394cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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