Create basis vocab root

basis/alien/remote-control/remote-control.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien alien.c-types alien.strings parser
-threads words kernel.private kernel io.encodings.utf8 ;
+threads words kernel.private kernel io.encodings.utf8 eval ;
 IN: alien.remote-control
 
 : eval-callback ( -- callback )

basis/bootstrap/stage2.factor

@@ -44,57 +44,64 @@ SYMBOL: bootstrap-time
     "Now, you can run Factor:" print
     vm write " -i=" write "output-image" get print flush ;
 
-! We time bootstrap
-millis >r
-
-default-image-name "output-image" set-global
-
-"math compiler help io random tools ui ui.tools unicode handbook" "include" set-global
-"" "exclude" set-global
-
-parse-command-line
-
-"-no-crossref" cli-args member? [ do-crossref ] unless
-
-"io.thread" require
-
-! Set dll paths
-os wince? [ "windows.ce" require ] when
-os winnt? [ "windows.nt" require ] when
-
-"deploy-vocab" get [
-    "stage2: deployment mode" print
-] [
-    "listener" require
-    "none" require
-] if
-
 [
-    load-components
+    ! We time bootstrap
+    millis >r
 
-    run-bootstrap-init
-] with-compiler-errors
-:errors
+    default-image-name "output-image" set-global
 
-f error set-global
-f error-continuation set-global
+    "math compiler help io random tools ui ui.tools unicode handbook" "include" set-global
+    "" "exclude" set-global
+
+    parse-command-line
+
+    "-no-crossref" cli-args member? [ do-crossref ] unless
+
+    ! Set dll paths
+    os wince? [ "windows.ce" require ] when
+    os winnt? [ "windows.nt" require ] when
+
+    "deploy-vocab" get [
+        "stage2: deployment mode" print
+    ] [
+        "listener" require
+        "none" require
+    ] if
 
-"deploy-vocab" get [
-    "tools.deploy.shaker" run
-] [
     [
-        boot
-        do-init-hooks
+        load-components
+
+        run-bootstrap-init
+    ] with-compiler-errors
+    :errors
+
+    f error set-global
+    f error-continuation set-global
+
+    "deploy-vocab" get [
+        "tools.deploy.shaker" run
+    ] [
         [
-            parse-command-line
-            run-user-init
-            "run" get run
-            output-stream get [ stream-flush ] when*
-        ] [ print-error 1 exit ] recover
-    ] set-boot-quot
+            boot
+            do-init-hooks
+            [
+                parse-command-line
+                run-user-init
+                "run" get run
+                output-stream get [ stream-flush ] when*
+            ] [ print-error 1 exit ] recover
+        ] set-boot-quot
 
-    millis r> - dup bootstrap-time set-global
-    print-report
+        millis r> - dup bootstrap-time set-global
+        print-report
 
-    "output-image" get save-image-and-exit
-] if
+        "output-image" get save-image-and-exit
+    ] if
+] [
+    :c
+    dup print-error flush
+    "listener" vocab
+    [ restarts. vocab-main execute ]
+    [ die ] if*
+    1 exit
+] recover