basis: removing unnecessary method stack effects.

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

diff --git a/basis/math/hashcodes/hashcodes.factor b/basis/math/hashcodes/hashcodes.factor
index 9fd454e51e8554cdb7687de6fc3855b8af65ea42..e0cb48bab18de1e7f85967f658cff2ecde0e8989 100644 (file)
--- a/basis/math/hashcodes/hashcodes.factor
+++ b/basis/math/hashcodes/hashcodes.factor
@@ -37,13 +37,13 @@ M: integer number-hashcode 1 hash-fraction ;
 
 M: ratio number-hashcode >fraction hash-fraction ;
 
-M: float number-hashcode ( x -- h )
+M: float number-hashcode
     {
         { [ dup fp-nan? ] [ drop 0 ] }
         { [ dup fp-infinity? ] [ 0 > 314159 -314159 ? ] }
         [ double>ratio number-hashcode ]
     } cond ;
 
-M: complex number-hashcode ( x -- h )
+M: complex number-hashcode
     >rect [ number-hashcode ] bi@ 1000003 * +
     cell-bits on-bits bitand dup -1 = [ drop -2 ] when ;