From 4fe25c8fd21497e6b8915193fe77ed247af6a99d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 20 Jul 2012 22:48:47 -0700 Subject: [PATCH] vocabs.parser: speedup parse-datum for numbers. --- core/vocabs/parser/parser.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor index 8f03af23f3..dccf1f1be6 100644 --- 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 ) manifest get qualified-vocabs>> ;