steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixing stupid bug in propagation

db4
Daniel Ehrenberg 2009-07-16 00:43:54 -05:00
parent 64fce5a6dc
commit 062e33f8fb
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -61,20 +61,16 @@ IN: compiler.tree.propagation.transforms
} case } case
] "custom-inlining" set-word-prop ] "custom-inlining" set-word-prop
: prepare-partial-eval ( #call n -- value-infos ? )
ERROR: bad-partial-eval quot word ; ERROR: bad-partial-eval quot word ;
: check-effect ( quot word -- ) : check-effect ( quot word -- )
2dup [ infer ] [ stack-effect ] bi* effect<= 2dup [ infer ] [ stack-effect ] bi* effect<=
[ 2drop ] [ bad-partial-eval ] if ; [ 2drop ] [ bad-partial-eval ] if ;
: values ( #call n -- infos )
[ in-d>> ] dip tail* [ value-info ] map ;
:: define-partial-eval ( word quot n -- ) :: define-partial-eval ( word quot n -- )
word [ word [
n values in-d>> n tail*
[ value-info ] map
dup [ literal?>> ] all? [ dup [ literal?>> ] all? [
[ literal>> ] map [ literal>> ] map
n firstn n firstn