basis: removing unnecessary method stack effects.

[factor.git] / basis / regexp / classes / classes.factor

diff --git a/basis/regexp/classes/classes.factor b/basis/regexp/classes/classes.factor
index eb57112a38631224e26a6ade166bbf8778d49d8f..c3ff7410f051e2e6d3386a5f5b73e5937212a9d1 100644 (file)
--- a/basis/regexp/classes/classes.factor
+++ b/basis/regexp/classes/classes.factor
@@ -32,53 +32,53 @@ C: <script-class> script-class
 
 GENERIC: class-member? ( obj class -- ? )
 
-M: t class-member? ( obj class -- ? ) 2drop t ; inline
+M: t class-member? 2drop t ; inline
 
-M: integer class-member? ( obj class -- ? ) = ; inline
+M: integer class-member? = ; inline
 
-M: range-class class-member? ( obj class -- ? )
+M: range-class class-member?
     [ from>> ] [ to>> ] bi between? ; inline
 
-M: letter-class class-member? ( obj class -- ? )
+M: letter-class class-member?
     drop letter? ; inline
 
-M: LETTER-class class-member? ( obj class -- ? )
+M: LETTER-class class-member?
     drop LETTER? ; inline
 
-M: Letter-class class-member? ( obj class -- ? )
+M: Letter-class class-member?
     drop Letter? ; inline
 
-M: ascii-class class-member? ( obj class -- ? )
+M: ascii-class class-member?
     drop ascii? ; inline
 
-M: digit-class class-member? ( obj class -- ? )
+M: digit-class class-member?
     drop digit? ; inline
 
 : c-identifier-char? ( ch -- ? )
     { [ alpha? ] [ CHAR: _ = ] } 1|| ;
 
-M: c-identifier-class class-member? ( obj class -- ? )
+M: c-identifier-class class-member?
     drop c-identifier-char? ; inline
 
-M: alpha-class class-member? ( obj class -- ? )
+M: alpha-class class-member?
     drop alpha? ; inline
 
 : punct? ( ch -- ? )
     "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~" member? ;
 
-M: punctuation-class class-member? ( obj class -- ? )
+M: punctuation-class class-member?
     drop punct? ; inline
 
 : java-printable? ( ch -- ? )
     { [ alpha? ] [ punct? ] } 1|| ;
 
-M: java-printable-class class-member? ( obj class -- ? )
+M: java-printable-class class-member?
     drop java-printable? ; inline
 
-M: non-newline-blank-class class-member? ( obj class -- ? )
+M: non-newline-blank-class class-member?
     drop { [ blank? ] [ CHAR: \n = not ] } 1&& ; inline
 
-M: control-character-class class-member? ( obj class -- ? )
+M: control-character-class class-member?
     drop control? ; inline
 
 : hex-digit? ( ch -- ? )
@@ -88,7 +88,7 @@ M: control-character-class class-member? ( obj class -- ? )
         [ CHAR: 0 CHAR: 9 between? ]
     } 1|| ;
 
-M: hex-digit-class class-member? ( obj class -- ? )
+M: hex-digit-class class-member?
     drop hex-digit? ; inline
 
 : java-blank? ( ch -- ? )
@@ -97,13 +97,13 @@ M: hex-digit-class class-member? ( obj class -- ? )
         CHAR: \v CHAR: \a CHAR: \r
     } member? ;
 
-M: java-blank-class class-member? ( obj class -- ? )
+M: java-blank-class class-member?
     drop java-blank? ; inline
 
-M: unmatchable-class class-member? ( obj class -- ? )
+M: unmatchable-class class-member?
     2drop f ; inline
 
-M: terminator-class class-member? ( obj class -- ? )
+M: terminator-class class-member?
     drop "\r\n\u000085\u002029\u002028" member? ; inline
 
 M: f class-member? 2drop f ; inline