basis: removing unnecessary method stack effects.

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

diff --git a/basis/compiler/cfg/builder/alien/alien.factor b/basis/compiler/cfg/builder/alien/alien.factor
index 06b18597c826cf601f5290b510ebbb610c1bd7fb..d32cf013ac9762a44d90a8330ce17ddb47e716d2 100644 (file)
--- a/basis/compiler/cfg/builder/alien/alien.factor
+++ b/basis/compiler/cfg/builder/alien/alien.factor
@@ -95,7 +95,7 @@ IN: compiler.cfg.builder.alien
         [ stack-params get [ caller-stack-cleanup ] keep ]
     } cleave ;
 
-M: #alien-invoke emit-node ( block node -- block' )
+M: #alien-invoke emit-node
     params>>
     [
         [ params>alien-insn-params ]
@@ -104,7 +104,7 @@ M: #alien-invoke emit-node ( block node -- block' )
     ]
     [ caller-return ] bi ;
 
-M: #alien-indirect emit-node ( block node -- block' )
+M: #alien-indirect emit-node
     params>>
     [
         [ ds-pop ^^unbox-any-c-ptr ] dip
@@ -113,7 +113,7 @@ M: #alien-indirect emit-node ( block node -- block' )
     ]
     [ caller-return ] bi ;
 
-M: #alien-assembly emit-node ( block node -- block' )
+M: #alien-assembly emit-node
     params>>
     [
         [ params>alien-insn-params ]
@@ -167,7 +167,7 @@ M: #alien-assembly emit-node ( block node -- block' )
 : emit-callback-outputs ( block params -- )
     [ emit-callback-return ] keep callback-stack-cleanup ;
 
-M: #alien-callback emit-node ( block node -- block' )
+M: #alien-callback emit-node
     dup params>> xt>> dup
     [
         t cfg get frame-pointer?<<