cleanup some uses of current-directory.

[factor.git] / extra / spotlight / spotlight.factor

diff --git a/extra/spotlight/spotlight.factor b/extra/spotlight/spotlight.factor
index a6a7a671affe07daf01727bd4626584720f1b8c5..b368b7ed3eb9913bd688f355cf491482478f4007 100644 (file)
--- a/extra/spotlight/spotlight.factor
+++ b/extra/spotlight/spotlight.factor
@@ -50,8 +50,7 @@ IN: spotlight
 PRIVATE>
 
 : mdfind ( query -- results )
-    current-directory get "/" or swap
-    "mdfind -onlyin %s %s" sprintf run-process-output ;
+    "mdfind -onlyin . %s" sprintf run-process-output ;
 
 : mdfind. ( query -- )
     mdfind [ dup <pathname> write-object nl ] each ;