cleanup some uses of current-directory.

[factor.git] / basis / io / launcher / unix / unix.factor

diff --git a/basis/io/launcher/unix/unix.factor b/basis/io/launcher/unix/unix.factor
index cccb91ab1b81fd68373fe8a1cdade6efaefd9cc9..89d161c6f88b37e59d67f617e2955034eaafd392 100644 (file)
--- a/basis/io/launcher/unix/unix.factor
+++ b/basis/io/launcher/unix/unix.factor
@@ -83,7 +83,7 @@ IN: io.launcher.unix
     [ setup-process-group ] [ 2drop 249 _exit ] recover
     [ setup-priority ] [ 2drop 250 _exit ] recover
     [ setup-redirection ] [ 2drop 251 _exit ] recover
-    [ current-directory get absolute-path cd ] [ 2drop 252 _exit ] recover
+    [ "." absolute-path cd ] [ 2drop 252 _exit ] recover
     [ setup-environment ] [ 2drop 253 _exit ] recover
     [ get-arguments exec-args-with-path ] [ 2drop 254 _exit ] recover
     255 _exit