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

View File

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