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

modern: make lex-all actually lex everything

modern-harvey2
Doug Coleman 2017-08-26 18:55:13 -05:00
parent baa6af4831
commit 55eb8f3c21
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/modern/modern.factor
View File

@ -309,12 +309,15 @@ ERROR: mismatched-terminator n string slice ;
: lex-vocabs ( vocabs -- assoc )
[ [ vocab>literals ] [ nip ] recover ] map-zip ;
: failing-vocabs ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
: failed-lexing ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
: lex-core ( -- assoc ) core-bootstrap-vocabs lex-vocabs ;
: lex-basis ( -- assoc ) basis-vocabs lex-vocabs ;
: lex-extra ( -- assoc ) extra-vocabs lex-vocabs ;
: lex-all ( -- assoc ) lex-core lex-basis lex-extra 3append ;
: lex-roots ( -- assoc ) lex-core lex-basis lex-extra 3append ;
: lex-docs ( -- assoc ) all-docs-paths lex-paths ;
: lex-tests ( -- assoc ) all-tests-paths lex-paths ;
: lex-tests ( -- assoc ) all-tests-paths lex-paths ;
: lex-all ( -- assoc )
lex-roots lex-docs lex-tests 3append ;