From 2bea1072025902d557023584189a40c2ec6549c4 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 23 Jul 2009 21:24:15 -0500 Subject: [PATCH] compiler.cfg.builder: fix stack effect declaration --- basis/compiler/cfg/builder/builder.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/cfg/builder/builder.factor b/basis/compiler/cfg/builder/builder.factor index 7a877ad49f..4ae5cfcc57 100755 --- 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 -- )