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

compiler.tree.propagation.info: redoing a3be724f5a (#1513)

char-rename
Björn Lindqvist 2016-10-31 07:29:00 +01:00
parent 93661e9ea6
commit 65f1fbe90a
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/compiler/tree/propagation/info/info.factor
View File

@ -118,12 +118,7 @@ UNION: fixed-length array byte-array string ;
} ?at drop ;
: wrap-interval ( interval class -- interval' )
{
{ [ over empty-interval eq? ] [ drop ] }
{ [ over full-interval eq? ] [ nip class-interval ] }
{ [ 2dup class-interval interval-subset? not ] [ nip class-interval ] }
[ drop ]
} cond ;
class-interval 2dup interval-subset? [ drop ] [ nip ] if ;
: init-interval ( info -- info )
dup [ interval>> full-interval or ] [ class>> ] bi wrap-interval >>interval