basis: removing unnecessary method stack effects.

[factor.git] / basis / lists / lists.factor

diff --git a/basis/lists/lists.factor b/basis/lists/lists.factor
index 66282c58b3112481cd29d17ee471e6be78d29138..6a80d482b40d780b19654bccfcc86c2693533e32 100644 (file)
--- a/basis/lists/lists.factor
+++ b/basis/lists/lists.factor
@@ -14,9 +14,9 @@ TUPLE: cons-state { car read-only } { cdr read-only } ;
 
 C: cons cons-state
 
-M: cons-state car ( cons -- car ) car>> ;
+M: cons-state car car>> ;
 
-M: cons-state cdr ( cons -- cdr ) cdr>> ;
+M: cons-state cdr cdr>> ;
 
 SINGLETON: +nil+
 M: +nil+ nil? drop t ;