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

compiler.tree.propagation.recursive: Generalizing intervals in the propagation pass ignored types. Fixes #770.

db4
Doug Coleman 2013-01-01 18:47:23 -08:00
parent 63e55ac813
commit fe677bac2f
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/recursive/recursive.factor
View File

@ -91,7 +91,7 @@ M: #recursive propagate-around ( #recursive -- )
: generalize-return-interval ( info -- info' )
dup [ literal?>> ] [ class>> null-class? ] bi or
[ clone [-inf,inf] >>interval ] unless ;
[ clone dup class>> class-interval >>interval ] unless ;
: generalize-return ( infos -- infos' )
[ generalize-return-interval ] map ;