Compiler fixes

TODO.FACTOR.txt

@@ -12,7 +12,6 @@
 - roundoff is still not quite right with tracks
 - fix top level window positioning
 - fix contribs: boids, automata
-- graphical module manager tool
 - see if alien calls can be made faster
 - sometimes darcs get fails with the httpd
 - gdb triggers 'mutliple i/o ops on port' error
@@ -52,6 +51,7 @@
 
 + ui:
 
+- graphical module manager tool
 - figure out what goes in the .app and what doesn't
 - should be possible to drop an image file on the .app to run it
 - the UI listener has a shitty design. perhaps it should not call out
@@ -98,6 +98,8 @@
 
 + compiler/ffi:
 
+- compiler tests are not as reliable now because of try-compile usage
+  - we can just do [ t ] [ \ foo compiled? ] unit-test
 - [ [ dup call ] dup call ] infer hangs
 - callstack overflow when compiling mutually recursive inline words
 - test what is done in the case of an invalid declaration on an inline
@@ -119,8 +121,6 @@
 
 + misc:
 
-- compiler tests are not as reliable now because of try-compile usage
-  - we can just do [ t ] [ \ foo compiled? ] unit-test
 - growable data heap
 - incremental GC
 - UDP

library/compiler/compiler.factor

@@ -5,10 +5,17 @@ USING: errors generic hashtables inference io kernel math
 namespaces optimizer parser prettyprint sequences test threads
 words ;
 
+: word-dataflow ( word -- dataflow )
+    [
+        dup dup add-recursive-state
+        dup specialized-def (dataflow)
+        swap current-effect check-effect
+    ] with-infer ;
+
 : (compile) ( word -- )
     dup compiling? not over compound? and [
         "Compiling " write dup . flush
-        dup specialized-def dataflow optimize generate
+        dup word-dataflow optimize generate
     ] [
         drop
     ] if ;

library/compiler/inference/words.factor

@@ -158,7 +158,7 @@ M: symbol apply-object apply-literal ;
     #! Handle a recursive call, by either applying a previously
     #! inferred base case, or raising an error. If the recursive
     #! call is to a local block, emit a label call node.
-    dup "infer-effect" word-prop [ ] [ declared-effect ] if ;
+    dup "infer-effect" word-prop [ ] [ declared-effect ] ?if ;
 
 M: compound apply-object
     #! Apply the word's stack effect to the inferencer state.

library/test/compiler/optimizer.factor

@@ -135,7 +135,7 @@ USE: optimizer
     [ class-compare ] sort min-class
 ] unit-test
 
-GENERIC: xyz
+GENERIC: xyz ( obj -- obj )
 M: array xyz xyz ;
 
 [ ] [ \ xyz compile ] unit-test
@@ -220,7 +220,7 @@ TUPLE: pred-test ;
 [ 0 ] [ 10 double-label-2 ] unit-test
 
 ! regression
-GENERIC: void-generic
+GENERIC: void-generic ( obj -- * )
 : breakage "hi" void-generic ;
 [ ] [ \ breakage compile ] unit-test
 [ breakage ] unit-test-fails