From 55eb8f3c216044afc349598f8807be32531ee90e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 26 Aug 2017 18:55:13 -0500 Subject: [PATCH] modern: make lex-all actually lex everything --- extra/modern/modern.factor | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index d1d11fe1d5..75c03565b7 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -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 ; \ No newline at end of file +: lex-tests ( -- assoc ) all-tests-paths lex-paths ; + +: lex-all ( -- assoc ) + lex-roots lex-docs lex-tests 3append ; \ No newline at end of file