basis: removing unnecessary method stack effects.

[factor.git] / basis / unix / signals / signals.factor

diff --git a/basis/unix/signals/signals.factor b/basis/unix/signals/signals.factor
index 25abdfba0797f5affa59b2df6807e11e65029665..9f972d0e29dd65d6877ffe6fef72cb1d45bd5095 100644 (file)
--- a/basis/unix/signals/signals.factor
+++ b/basis/unix/signals/signals.factor
@@ -20,7 +20,7 @@ GENERIC: signal-name ( obj -- str/f )
 
 M: signal signal-name n>> signal-name ;
 
-M: integer signal-name ( n -- str/f ) 1 - signal-names ?nth ;
+M: integer signal-name 1 - signal-names ?nth ;
 
 : signal-name. ( n -- )
     signal-name [ " (" ")" surround write ] when* ;