core: Add words/unwords/unwords-as and use them.

[factor.git] / basis / tools / ps / macosx / macosx.factor

diff --git a/basis/tools/ps/macosx/macosx.factor b/basis/tools/ps/macosx/macosx.factor
index a7e9d42387425d918072bbbfc2fca379c27e5ffd..eecb31cbdda86138dd086da6560debeb60ec1994 100644 (file)
--- a/basis/tools/ps/macosx/macosx.factor
+++ b/basis/tools/ps/macosx/macosx.factor
@@ -139,7 +139,7 @@ STRUCT: kinfo_proc
     [ kinfo_proc memory>struct ] map ;
 
 : ps-arg ( kp_proc -- arg )
-    [ p_pid>> args rest " " join ] [
+    [ p_pid>> args rest unwords ] [
         drop p_comm>> 0 over index [ head ] when* >string
     ] recover ;