steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs.parser: speedup parse-datum for numbers.

db4
John Benediktsson 2012-07-20 22:48:47 -07:00
parent c22893eec8
commit 4fe25c8fd2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/vocabs/parser/parser.factor
View File

@ -70,7 +70,7 @@ ERROR: no-word-in-vocab word vocab ;
words>> swap [ swap [ swap ":" glue ] dip ] curry assoc-map ; words>> swap [ swap [ swap ":" glue ] dip ] curry assoc-map ;
: (lookup) ( name assoc -- word/f ) : (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 ) : (use-words) ( assoc -- extra-words seq )
<extra-words> manifest get qualified-vocabs>> ; <extra-words> manifest get qualified-vocabs>> ;