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

stage1: load some vocabs that are required but not used.

locals-and-roots
Doug Coleman 2016-05-15 18:51:08 -07:00
parent 130154007b
commit 0845c1debf
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
core/bootstrap/stage1.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs continuations debugger destructors generic USING: assocs hash-sets hashtables hashtables.identity
hash-sets hashtables init io io.files kernel kernel.private hashtables.wrapped init io io.files kernel kernel.private make
make math memory namespaces parser parser.notes prettyprint memory namespaces parser parser.notes sequences system vocabs
sequences splitting system vectors vocabs vocabs.loader words ; vocabs.loader ;
QUALIFIED: bootstrap.image.private QUALIFIED: bootstrap.image.private
IN: bootstrap.stage1 IN: bootstrap.stage1
@ -20,6 +20,8 @@ load-help? off
[ [
! Rehash hashtables first, since bootstrap.image creates ! Rehash hashtables first, since bootstrap.image creates
! them using the host image's hashing algorithms. ! them using the host image's hashing algorithms.
[ identity-hashtable? ] instances [ hashtables:rehash ] each
[ wrapped-hashtable? ] instances [ hashtables:rehash ] each
[ hashtable? ] instances [ hashtables:rehash ] each [ hashtable? ] instances [ hashtables:rehash ] each
[ hash-set? ] instances [ hash-sets:rehash ] each [ hash-set? ] instances [ hash-sets:rehash ] each
boot boot
@ -37,6 +39,13 @@ load-help? off
"syntax" require "syntax" require
"bootstrap.layouts" require "bootstrap.layouts" require
! need this
"locals.macros" require
"locals.fry" require
"alien.libraries" require
"alien.c-types" require
"delegate" require
[ [
f parser-quiet? set-global f parser-quiet? set-global