Bootstrap fixes

TODO.txt

@@ -1,14 +1,14 @@
 + 0.87:
 
-- ui operations: restarts are broken
 - command buttons: indicate shortcuts
-- http://paste.lisp.org/display/30426
-- error popups obscure input area, and show redundant info (parse-error error.)
-- also error popups should protect against error. throwing an exception
+- error popups obscure input area
+- ui operations: restarts are broken
 - operations which call parse are being run in the wrong namespace
+- callback scheduling issue
 
 + 0.88:
 
+- lisppaste gui
 - browser: tile titles should respond to right-clicks and/or have a
   menu popup button
 - growable data heap
@@ -23,11 +23,9 @@
 - models: don't do redundant work
 - top level window positioning on ms windows
 - crashes:
-  - callback scheduling issue
   - httpd crash
   - fep when closing window
 - these things are "Too Slow":
-  - all-words
   - make-image
   - workspace-window
   - apropos

core/collections/namespaces.factor

@@ -56,8 +56,6 @@ SYMBOL: building
 
 : % ( seq -- ) building get swap nappend ;
 
-: # ( n -- ) number>string % ;
-
 : init-namespaces ( -- ) global 1array set-namestack ;
 
 IN: sequences

core/collections/namespaces.facts

@@ -112,10 +112,6 @@ HELP: %
 { $values { "seq" "a sequence" } }
 { $description "Appends a sequence to the end of the sequence being constructed by " { $link make } "." } ;
 
-HELP: #
-{ $values { "n" "a real number" } }
-{ $description "Appends the string representation of a real number to the end of the sequence being constructed by " { $link make } "." } ;
-
 HELP: init-namespaces
 { $description "Resets the name stack to its initial state, holding a single copy of the global namespace. This word is called during startup and is rarely useful, except in certain situations such as the example below." }
 { $examples

core/math/parse-numbers.factor

@@ -83,3 +83,7 @@ M: float >base
 : >bin ( num -- string ) 2 >base ;
 : >oct ( num -- string ) 8 >base ;
 : >hex ( num -- string ) 16 >base ;
+
+IN: namespaces
+
+: # ( n -- ) number>string % ;

core/math/parse-numbers.facts

@@ -1,4 +1,4 @@
-USING: help math math-internals prettyprint ;
+USING: help math math-internals prettyprint namespaces ;
 
 HELP: base>
 { $values { "str" "a string" } { "radix" "an integer between 2 and 36" } { "n/f" "a real number or " { $link f } } }
@@ -68,3 +68,7 @@ $terpri
 HELP: float>string ( n -- str )
 { $values { "n" "a real number" } { "str" "a string" } }
 { $description "Primitive for getting a string representation of a float. User code should call " { $link number>string } " instead, since it is polymorphic and can handle other types of numbers." } ;
+
+HELP: #
+{ $values { "n" "a real number" } }
+{ $description "Appends the string representation of a real number to the end of the sequence being constructed by " { $link make } "." } ;