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

compiler.cfg: use "f [ or ] reduce" instead of "map [ ] any?"

db4
John Benediktsson 2015-07-21 09:54:44 -07:00
parent a79f745a12
commit 9ec74563ba
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/build-stack-frame/build-stack-frame.factor
View File

@ -63,7 +63,7 @@ M: insn compute-stack-frame* drop f ;
finalize-stack-frame ;
: compute-stack-frame ( cfg -- stack-frame/f )
dup cfg>insns [ compute-stack-frame* ] map [ ] any?
dup cfg>insns f [ compute-stack-frame* or ] reduce
[ <stack-frame> ] [ drop f ] if ;
: build-stack-frame ( cfg -- )

2
basis/compiler/cfg/dominance/dominance.factor
View File

@ -31,7 +31,7 @@ PRIVATE>
[ ] [ intersect ] map-reduce ;
: iterate ( rpo -- changed? )
[ [ compute-idom ] keep set-idom ] map [ ] any? ;
f [ [ compute-idom ] keep set-idom or ] reduce ;
: compute-dom-parents ( cfg -- )
H{ } clone dom-parents set