diff --git a/basis/compiler/cfg/builder/alien/alien.factor b/basis/compiler/cfg/builder/alien/alien.factor index d3bcbd3..6c7a20e 100644 --- a/basis/compiler/cfg/builder/alien/alien.factor +++ b/basis/compiler/cfg/builder/alien/alien.factor @@ -72,7 +72,7 @@ M:: struct-c-type unbox-parameter ( src c-type -- ) [ [ alloc-stack-param ] keep \ ##store-stack-param new-insn ] [ [ next-reg-param ] keep \ ##store-reg-param new-insn ] if - ] map [ ##store-stack-param? ] partition [ % ] bi@ ; + ] map reverse % ; : objects>registers ( params -- stack-size ) [ abi>> ] [ parameters>> ] [ return>> ] tri