core/bootstrap/boot-stage1.factor

   1 ! Copyright (C) 2004, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: image
   4 USING: arrays errors generic hashtables io kernel
   5 kernel-internals math memory modules namespaces parser
   6 prettyprint sequences vectors words ;
   7
   8 "Bootstrap stage 1..." print flush
   9
  10 "resource:/core/bootstrap/primitives.factor" run-file
  11
  12 ! The [ ] make form creates a boot quotation
  13 [
  14     \ boot ,
  15
  16     "core" require
  17     "core/help" require
  18     "core/tools" require
  19     "core/compiler" require
  20     "core/documentation" require
  21     "core/io/buffer" require
  22     "core/ui" require
  23     "core/ui/tools" require
  24     "core/ui/handbook" require
  25     "core/compiler/" architecture get append require
  26     "core/handbook" require
  27
  28     [
  29         "resource:/core/bootstrap/boot-stage2.factor"
  30         run-file
  31     ] %
  32 ] [ ] make
  33
  34 vocabularies get [
  35     "!syntax" get hash>alist [
  36         first2
  37         "syntax" over set-word-vocabulary
  38         >r "!" ?head drop r> 2dup set-word-name
  39         2array
  40     ] map alist>hash "syntax" set
  41 ] bind
  42
  43 "!syntax" vocabularies get remove-hash
  44
  45 "Building generic words..." print flush
  46 all-words [ generic? ] subset [ make-generic ] each