vocabs.parser: speedup parse-datum for numbers.

2012-07-20 22:48:47 -07:00 · 2012-07-20 22:48:47 -07:00 · 8cf4ce1950
parent 510c0481c5
commit 8cf4ce1950
1 changed files with 1 additions and 1 deletions
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@ -70,7 +70,7 @@ ERROR: no-word-in-vocab word vocab ;
    words>> swap [ swap [ swap ":" glue ] dip ] curry assoc-map ;

 : (lookup) ( name assoc -- word/f )
-    at dup forward-reference? [ drop f ] when ;
+    at* [ dup forward-reference? [ drop f ] when ] when ;

 : (use-words) ( assoc -- extra-words seq )
    <extra-words> manifest get qualified-vocabs>> ;