basis: removing unnecessary method stack effects.

[factor.git] / basis / persistent / vectors / vectors.factor

diff --git a/basis/persistent/vectors/vectors.factor b/basis/persistent/vectors/vectors.factor
index 368f7d6d3beff4d7228b8c643db3347b6c42c4f6..8910e99d3c1519b3f132c4a1cf512948797b40cb 100644 (file)
--- a/basis/persistent/vectors/vectors.factor
+++ b/basis/persistent/vectors/vectors.factor
@@ -84,7 +84,7 @@ M: persistent-vector nth-unsafe
     (ppush-new-tail) do-expansion
     swap 0 1node >>tail ;
 
-M: persistent-vector ppush ( val pvec -- pvec' )
+M: persistent-vector ppush
     clone
     dup tail>> full?
     [ ppush-new-tail ] [ ppush-tail ] if
@@ -106,7 +106,7 @@ M: persistent-vector ppush ( val pvec -- pvec' )
         [ (new-nth) ] node-change-nth
     ] if ;
 
-M: persistent-vector new-nth ( obj i pvec -- pvec' )
+M: persistent-vector new-nth
     2dup count>> = [ nip ppush ] [
         clone
         2dup tail-offset >= [
@@ -159,7 +159,7 @@ M: persistent-vector new-nth ( obj i pvec -- pvec' )
 
 PRIVATE>
 
-M: persistent-vector ppop ( pvec -- pvec' )
+M: persistent-vector ppop
     dup count>> {
         { 0 [ empty-error ] }
         { 1 [ drop T{ persistent-vector } ] }