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

modern: Add some words to lex every root.

modern-harvey2
Doug Coleman 2017-08-26 01:05:57 -05:00
parent 137384cdea
commit 58e09f4a58
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/modern/modern.factor
View File

@ -288,5 +288,11 @@ ERROR: mismatched-terminator n string slice ;
: path>literals ( path -- sequence ) : path>literals ( path -- sequence )
utf8 file-contents string>literals ; utf8 file-contents string>literals ;
: lex-core ( -- assoc ) : lex-vocabs ( vocabs -- assoc )
core-bootstrap-vocabs [ [ vocab>literals ] [ nip ] recover ] map-zip ; [ [ 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 ;