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

mason.test: change mason to load roots in order. 

This will allow us to know when core depends on basis, or basis on
extra, because they should get load errors.
master
John Benediktsson 2020-04-03 09:44:45 -07:00
parent 2c378da929
commit 2c014197c7
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/mason/test/test.factor
View File

@ -3,7 +3,7 @@
USING: accessors assocs benchmark bootstrap.stage2 calendar USING: accessors assocs benchmark bootstrap.stage2 calendar
command-line compiler.errors continuations debugger fry generic command-line compiler.errors continuations debugger fry generic
help.html help.lint io io.directories io.encodings.utf8 io.files help.html help.lint io io.directories io.encodings.utf8 io.files
io.styles kernel locals mason.common memory namespaces io.styles kernel locals mason.common math memory namespaces
parser.notes sequences sets sorting source-files.errors system parser.notes sequences sets sorting source-files.errors system
threads tools.errors tools.test tools.time vocabs threads tools.errors tools.test tools.time vocabs
vocabs.hierarchy.private vocabs.loader vocabs.refresh words ; vocabs.hierarchy.private vocabs.loader vocabs.refresh words ;
@ -34,8 +34,11 @@ IN: mason.test
vocabs-to-load require-all-no-restarts ; vocabs-to-load require-all-no-restarts ;
: load-no-restarts ( prefix -- failures ) : load-no-restarts ( prefix -- failures )
[ vocab-roots get ] dip [ vocab-roots get dup ] dip '[
'[ _ load-from-root-no-restarts ] map concat ; _ swap 1 + head vocab-roots [
_ load-from-root-no-restarts
] with-variable
] map-index concat ;
: do-load ( -- ) : do-load ( -- )
"" load-no-restarts "" load-no-restarts