kernel: add transmute and some use cases

[factor.git] / basis / unix / linux / proc / proc.factor

diff --git a/basis/unix/linux/proc/proc.factor b/basis/unix/linux/proc/proc.factor
index dc7512d9f63655d49042216778beea6497e55674..ff0282b0790c9db5554112e17ea80257e0cef0f5 100644 (file)
--- a/basis/unix/linux/proc/proc.factor
+++ b/basis/unix/linux/proc/proc.factor
@@ -336,5 +336,5 @@ TUPLE: pid-stat pid filename state parent-pid group-id session-id terminal#
     proc-first-line
     split-words harvest
     pid-stat "slots" word-prop length "0" pad-tail
-    [ dup string>number [ nip ] when* ] map
+    [ [ string>number ] transmute ] map
     [ pid-stat boa ] input<sequence ;