core: Add the shuffler words but without primitives.

[factor.git] / core / math / parser / parser.factor

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index db8b42c2e4028a3bbf29e3300115414879fea9fc..a450b2b7f014ff73c158ddb30219efc2e0af6510 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -309,7 +309,7 @@ DEFER: @neg-digit
             { [ dup "bB" member-eq? ] [ 2drop  2 ->radix require-next-digit ] }
             { [ dup "oO" member-eq? ] [ 2drop  8 ->radix require-next-digit ] }
             { [ dup "xX" member-eq? ] [ 2drop 16 ->radix require-next-digit ] }
-            [ [ drop ] 2dip swap call ]
+            [ nipd swap call ]
         } cond
     ] 2curry next-digit ; inline