fixing stupid bug in propagation

2009-07-16 00:43:54 -05:00 · 2009-07-16 00:43:54 -05:00 · 062e33f8fb
parent 64fce5a6dc
commit 062e33f8fb
1 changed files with 2 additions and 6 deletions
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@ -61,20 +61,16 @@ IN: compiler.tree.propagation.transforms
    } case
 ] "custom-inlining" set-word-prop

-: prepare-partial-eval ( #call n -- value-infos ? )
-
 ERROR: bad-partial-eval quot word ;

 : check-effect ( quot word -- )
    2dup [ infer ] [ stack-effect ] bi* effect<=
    [ 2drop ] [ bad-partial-eval ] if ;

-: values ( #call n -- infos )
-    [ in-d>> ] dip tail* [ value-info ] map ;
-
 :: define-partial-eval ( word quot n -- )
    word [
-        n values
+        in-d>> n tail*
+        [ value-info ] map
        dup [ literal?>> ] all? [
            [ literal>> ] map
            n firstn