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

compiler.cfg.builder: fix stack effect

db4
Slava Pestov 2009-06-30 21:07:55 -05:00
parent 612e4b99b0
commit eca718b32d
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/cfg/builder/builder.factor
View File

@ -82,7 +82,7 @@ GENERIC: emit-node ( node -- )
: recursive-height ( #recursive -- n ) : recursive-height ( #recursive -- n )
[ label>> return>> in-d>> length ] [ in-d>> length ] bi - ; [ label>> return>> in-d>> length ] [ in-d>> length ] bi - ;
: emit-recursive ( #recursive -- next ) : emit-recursive ( #recursive -- )
[ [ label>> id>> ] [ recursive-height ] bi emit-call ] [ [ label>> id>> ] [ recursive-height ] bi emit-call ]
[ [ child>> ] [ label>> word>> ] [ label>> id>> ] tri (build-cfg) ] bi ; [ [ child>> ] [ label>> word>> ] [ label>> id>> ] tri (build-cfg) ] bi ;