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

Oops

db4
Slava Pestov 2008-09-12 05:36:06 -05:00
parent 40da49bef5
commit 2bf532263d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/inlining/inlining.factor
View File

@ -19,7 +19,7 @@ M: word splicing-nodes
[ [ in-d>> ] [ out-d>> ] bi ] dip #call 1array ; [ [ in-d>> ] [ out-d>> ] bi ] dip #call 1array ;
M: quotation splicing-nodes M: quotation splicing-nodes
build-sub-tree normalize analyze-recursive ; build-sub-tree analyze-recursive normalize ;
: propagate-body ( #call -- ) : propagate-body ( #call -- )
body>> (propagate) ; body>> (propagate) ;