From 58e09f4a58c5ba5485e1bb1c720a700a10c8c6bc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 26 Aug 2017 01:05:57 -0500 Subject: [PATCH] modern: Add some words to lex every root. --- extra/modern/modern.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 5a45bb03b0..5bba003088 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -288,5 +288,11 @@ ERROR: mismatched-terminator n string slice ; : path>literals ( path -- sequence ) utf8 file-contents string>literals ; -: lex-core ( -- assoc ) - core-bootstrap-vocabs [ [ vocab>literals ] [ nip ] recover ] map-zip ; +: lex-vocabs ( vocabs -- assoc ) + [ [ vocab>literals ] [ nip ] recover ] map-zip ; + +: failing-vocabs ( 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 ;