latest

TODO.FACTOR.txt

@@ -1,5 +1,7 @@
 + 0.80:
 
+- need something like uncons but for arbitrary sequences
+
 word help sections:
 - synopsis
 - inputs and outputs
@@ -88,7 +90,7 @@ parsing word sections:
 - first-class methods:
   - methods outliner
   - annotations for methods
-  - docstrings, and originating source file for methods
+  - originating source file for methods
 - reader syntax for byte arrays, displaced aliens
 - out of memory error when printing global namespace
 - merge timers with sleeping tasks

library/bootstrap/boot-stage2.factor

@@ -12,17 +12,16 @@ sequences sequences-internals words ;
 
 cpu "x86" = [
     "/library/compiler/x86/load.factor"
-    "/library/alien/primitive-types.factor"
 ] pull-in
 
 cpu "ppc" = [
     "/library/compiler/ppc/load.factor"
-    "/library/alien/primitive-types.factor"
 ] pull-in
 
 "Loading more library code..." print
 
 t [
+    "/library/alien/primitive-types.factor"
     "/library/alien/malloc.factor"
     "/library/io/buffer.factor"
 
@@ -36,9 +35,15 @@ t [
 ! Handle -libraries:... overrides
 parse-command-line
 
-: compile? "compile" get supported-cpu? and ;
+"compile" get supported-cpu? and [
+    unix? [
+        "/library/unix/load.factor"
+    ] pull-in
+    
+    os "win32" = [
+        "/library/win32/load.factor"
+    ] pull-in
 
-compile? [
     "Compiling base..." print
 
     {
@@ -47,28 +52,15 @@ compile? [
         = string>number number>string scan
         kill-set kill-node (generate)
     } [ compile ] each
-] when
 
-compile? [
-    unix? [
-        "/library/unix/load.factor"
-    ] pull-in
-    
-    os "win32" = [
-        "/library/win32/load.factor"
-    ] pull-in
-] when
-
-"Building cross-reference database..." print
-recrossref
-
-compile? [
     "Compiling system..." print
     compile-all
+    
     terpri
     "Unless you're working on the compiler, ignore the errors above." print
     "Not every word compiles, by design." print
     terpri
+    
     "Initializing native I/O..." print
     init-io
 ] when
@@ -80,6 +72,9 @@ compile? [
     0 exit
 ] set-boot
 
+"Building cross-reference database..." print
+recrossref
+
 all-words [ compiled? ] subset length
 number>string write " compiled words" print
 
@@ -99,4 +94,3 @@ number>string write " ms" print
 0 exit
 
 FORGET: pull-in
-FORGET: compile?