compiler.cfg.builder: fix stack effect declaration

2009-07-23 21:24:15 -05:00 · 2009-07-23 21:24:15 -05:00 · 2bea107202
parent d947c61bd7
commit 2bea107202
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/cfg/builder/builder.factor
+++ b/basis/compiler/cfg/builder/builder.factor
@ -195,7 +195,7 @@ M: #terminate emit-node drop ##no-tco end-basic-block ;
        [ return>> return-size >>return ]
        [ alien-parameters parameter-sizes drop >>params ] bi ;

-: alien-node-height ( params -- n )
+: alien-node-height ( params -- )
    [ out-d>> length ] [ in-d>> length ] bi - adjust-d ;

 : emit-alien-node ( node quot -- )