basis: removing unnecessary method stack effects.

[factor.git] / basis / compiler / cfg / builder / alien / params / params.factor

diff --git a/basis/compiler/cfg/builder/alien/params/params.factor b/basis/compiler/cfg/builder/alien/params/params.factor
index 0713115d09954a9643e9748b0f707abf50658674..609c7309bc38e7ba4ab57b0b09b73796aa893b16 100644 (file)
--- a/basis/compiler/cfg/builder/alien/params/params.factor
+++ b/basis/compiler/cfg/builder/alien/params/params.factor
@@ -8,11 +8,11 @@ SYMBOL: stack-params
 
 GENERIC: alloc-stack-param ( rep -- n )
 
-M: object alloc-stack-param ( rep -- n )
+M: object alloc-stack-param
     stack-params get
     [ rep-size cell align stack-params +@ ] dip ;
 
-M: float-rep alloc-stack-param ( rep -- n )
+M: float-rep alloc-stack-param
     stack-params get swap rep-size
     [ cell align stack-params +@ ] keep
     float-right-align-on-stack? [ + ] [ drop ] if ;