From 380bb350ca1283e1d48ef382d3e3a3cfb0e673ca Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 26 Apr 2013 16:23:32 -0700
Subject: [PATCH] tools.ps.macosx: use trim-head-slice, simpler.

---
 basis/tools/ps/macosx/macosx.factor | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/basis/tools/ps/macosx/macosx.factor b/basis/tools/ps/macosx/macosx.factor
index d9db8e9b4f..a61d73837e 100644
--- a/basis/tools/ps/macosx/macosx.factor
+++ b/basis/tools/ps/macosx/macosx.factor
@@ -122,14 +122,10 @@ STRUCT: kinfo_proc
     { e_login char[12] }
     { e_spare int32_t[4] } ;
 
-: split1-skip-slice ( seq quot: ( elt -- ? ) -- before-slice after-slice )
-    [ find drop dup ]
-    [ [ not ] compose find-from drop over or ]
-    [ drop snip-slice ] 2tri ; inline
-
 : head-split-skip ( seq n quot: ( elt -- ? ) -- pieces )
     [ dup 0 >= ] swap '[
-        [ _ split1-skip-slice ] [ 1 - rot ] bi*
+        [ _ [ trim-head-slice ] [ split1-when-slice ] bi ]
+        [ 1 - rot ] bi*
     ] produce 2nip ; inline
 
 : args ( pid -- args )