remove >r r>

[factor.git] / basis / nmake / nmake.factor

diff --git a/basis/nmake/nmake.factor b/basis/nmake/nmake.factor
index 80c3ce3411cdac137b4a2b67e95e429d640b1382..61a0950ce4a5d8523df2cd9d35de6ed8fa7419d4 100644 (file)
--- a/basis/nmake/nmake.factor
+++ b/basis/nmake/nmake.factor
@@ -10,7 +10,7 @@ SYMBOL: building-seq
 
 : n, ( obj n -- ) get-building-seq push ;
 : n% ( seq n -- ) get-building-seq push-all ;
-: n# ( num n -- ) >r number>string r> n% ;
+: n# ( num n -- ) [ number>string ] dip n% ;
 
 : 0, ( obj -- ) 0 n, ;
 : 0% ( seq -- ) 0 n% ;