primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

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

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index a8b13b9a4157e1c46ebdc0a983f8999398e18551..c10ac80cd5e5d148a231e22d250dbe6abd3925ae 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -5,6 +5,10 @@ layouts make math math.private namespaces sbufs sequences
 sequences.private splitting strings strings.private ;
 IN: math.parser
 
+<PRIVATE
+PRIMITIVE: (format-float) ( n format -- byte-array )
+PRIVATE>
+
 : digit> ( ch -- n )
     {
         { [ dup CHAR: 9 <= ] [ CHAR: 0 -      dup  0 < [ drop 255 ] when ] }