basis: removing unnecessary method stack effects.

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

diff --git a/basis/regexp/nfa/nfa.factor b/basis/regexp/nfa/nfa.factor
index 5cac3c229d13bc7282aa73f40670e19c4b74cfe7..2cc276d75644511a4758678ebb741453c937fc1c 100644 (file)
--- a/basis/regexp/nfa/nfa.factor
+++ b/basis/regexp/nfa/nfa.factor
@@ -72,7 +72,7 @@ M: ^ modify-epsilon
 M: tagged-epsilon nfa-node
     clone [ modify-epsilon ] change-tag add-simple-entry ;
 
-M: concatenation nfa-node ( node -- start end )
+M: concatenation nfa-node
     [ first>> ] [ second>> ] bi
     reversed-regexp option? [ swap ] when
     [ nfa-node ] bi@
@@ -87,7 +87,7 @@ M: concatenation nfa-node ( node -- start end )
     s3 s5 epsilon-transition
     s4 s5 ;
 
-M: alternation nfa-node ( node -- start end )
+M: alternation nfa-node
     [ first>> ] [ second>> ] bi
     [ nfa-node ] bi@
     alternate-nodes ;
@@ -103,7 +103,7 @@ M: integer modify-class
         ] when
     ] when ;
 
-M: integer nfa-node ( node -- start end )
+M: integer nfa-node
     modify-class add-simple-entry ;
 
 M: primitive-class modify-class
@@ -151,7 +151,7 @@ M: range-class modify-class
 M: object nfa-node
     modify-class add-simple-entry ;
 
-M: with-options nfa-node ( node -- start end )
+M: with-options nfa-node
     dup options>> [ tree>> nfa-node ] using-options ;
 
 : construct-nfa ( ast -- nfa-table )