Fixing everything for mandatory stack effects

[factor.git] / extra / state-parser / state-parser.factor

diff --git a/extra/state-parser/state-parser.factor b/extra/state-parser/state-parser.factor
index b41d7f5023865356dca6406d6c0bafae6eb1bb87..af005b4abe43c9cd20b4e372a22f074b78c83fbf 100644 (file)
--- a/extra/state-parser/state-parser.factor
+++ b/extra/state-parser/state-parser.factor
@@ -48,7 +48,7 @@ M: expected summary ( obj -- str )
     ] with-string-writer ;\r
 \r
 TUPLE: unexpected-end < parsing-error ;\r
-: unexpected-end \ unexpected-end parsing-error throw ;\r
+: unexpected-end ( -- * ) \ unexpected-end parsing-error throw ;\r
 M: unexpected-end summary ( obj -- str )\r
     [\r
         call-next-method write\r
@@ -56,7 +56,7 @@ M: unexpected-end summary ( obj -- str )
     ] with-string-writer ;\r
 \r
 TUPLE: missing-close < parsing-error ;\r
-: missing-close \ missing-close parsing-error throw ;\r
+: missing-close ( -- * ) \ missing-close parsing-error throw ;\r
 M: missing-close summary ( obj -- str )\r
     [\r
         call-next-method write\r
@@ -111,7 +111,7 @@ SYMBOL: prolog-data
     [ dup get-char = ] take-until nip ;\r
 \r
 TUPLE: not-enough-characters < parsing-error ;\r
-: not-enough-characters\r
+: not-enough-characters ( -- * )\r
     \ not-enough-characters parsing-error throw ;\r
 M: not-enough-characters summary ( obj -- str )\r
     [\r