basis: removing unnecessary method stack effects.

[factor.git] / basis / math / bitwise / bitwise.factor

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index dac15f6172353c9f1a4ed273706507077660e20d..526df5578bbeed720f6e882c5792c5a9cde893ab 100644 (file)
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -58,10 +58,10 @@ ERROR: bit-range-error x high low ;
 
 GENERIC: (bitfield-quot) ( spec -- quot )
 
-M: integer (bitfield-quot) ( spec -- quot )
+M: integer (bitfield-quot)
     '[ _ shift ] ;
 
-M: pair (bitfield-quot) ( spec -- quot )
+M: pair (bitfield-quot)
     first2-unsafe over word? [
         '[ _ execute _ shift ]
     ] [