Fix bootstrap problem

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index a2f69a6ca441e2d7a6eb5819096c6a1f89253375..822fc60ed1e5982a542a43066bcdbd5fa75bd401 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -3,7 +3,6 @@
 - live search: timer delay would be nice
 - help responder has no way to access { "foo" "bar" }
 - httpd search tools
-- polish OS X menu bar code
 
 + ui:
 

diff --git a/library/modules.facts b/library/modules.facts
index 8ccbfab4a8feab7f9db8aaee8c638621ff0f7b17..98acd0ba238e7c7e946cb4f4e4227966e8a632b7 100644 (file)
--- a/library/modules.facts
+++ b/library/modules.facts
@@ -31,12 +31,6 @@ $terpri
 "If this module is already listed in the " { $link modules } " hashtable, this word does nothing. Otherwise, it calls " { $link load-module } "." }
 { $notes "Module definitions should use the " { $link POSTPONE: REQUIRES: } " parsing word instead. In the listener, the " { $link require } " word might be more useful since it recompiles new words after loading the module." } ;
 
-HELP: run-files
-{ $values { "seq" "a sequence of strings" } }
-{ $description "Load a collection of source files."
-$terpri
-"If bootstrapping, this word appends the top-level forms to the currently constructing quotation instead." } ;
-
 HELP: provide
 { $values { "name" "a string" } { "files" "a sequence of strings" } { "tests" "a sequence of strings" } }
 { $description "Registers a module definition and loads its source files. Usually instead of calling this word, module definitions use the parsing word " { $link POSTPONE: PROVIDE: } " instead." } ;

diff --git a/library/syntax/parse-stream.factor b/library/syntax/parse-stream.factor
index 4cc00f900351f907146357b9079ec1f0047f09dd..159e24b7fafc86b9bdf56a52fb78259234b5f18b 100644 (file)
--- a/library/syntax/parse-stream.factor
+++ b/library/syntax/parse-stream.factor
@@ -82,15 +82,15 @@ SYMBOL: parse-hook
 \r
 : run-file ( file -- ) parse-file call ;\r
 \r
+: no-parse-hook ( quot -- )\r
+    [ parse-hook off call ] with-scope ; inline\r
+\r
 : run-files ( seq -- )\r
     [\r
         bootstrapping? get\r
         [ parse-file % ] [ run-file ] ? each\r
     ] no-parse-hook ;\r
 \r
-: no-parse-hook ( quot -- )\r
-    [ parse-hook off call ] with-scope ; inline\r
-\r
 : ?run-file ( file -- )\r
     dup exists? [ [ [ run-file ] keep ] try ] when drop ;\r
 \r

diff --git a/library/syntax/parse-stream.facts b/library/syntax/parse-stream.facts
index 95928e47eed2756ff9b57715ad9d2c6e8eda2a8e..cd18273a0d72eb640c7019a3d6aef991166bb2a4 100644 (file)
--- a/library/syntax/parse-stream.facts
+++ b/library/syntax/parse-stream.facts
@@ -30,6 +30,12 @@ HELP: no-parse-hook
 { $values { "quot" "a quotation" } }
 { $description "Runs the quotation in a new dynamic scope where " { $link parse-hook } " is set to " { $link f } ". This disables the default behavior of recompiling changed definitions after a source file is loaded." } ;
 
+HELP: run-files
+{ $values { "seq" "a sequence of strings" } }
+{ $description "Load a collection of source files."
+$terpri
+"If bootstrapping, this word appends the top-level forms to the currently constructing quotation instead." } ;
+
 HELP: parse-stream
 { $values { "stream" "an input stream" } { "name" "a file name for error reporting" } { "quot" "a new quotation" } }
 { $description "Parses Factor source code read from the stream. The initial vocabulary search path is used." }

diff --git a/library/ui/tools/listener.factor b/library/ui/tools/listener.factor
index f35189d5d7c980e699075377d1e86e8525647cf5..e9124c74fe5c730443a0b523876e373e92f59ca0 100644 (file)
--- a/library/ui/tools/listener.factor
+++ b/library/ui/tools/listener.factor
@@ -89,7 +89,7 @@ M: listener-gadget tool-help
     dup empty? [
         drop
     ] [
-        [ run-files ] curry call-listener
+        [ run-files recompile ] curry call-listener
     ] if ;
 
 : listener-eof ( listener -- )