Fixing everything for mandatory stack effects

[factor.git] / extra / xml / errors / errors.factor

diff --git a/extra/xml/errors/errors.factor b/extra/xml/errors/errors.factor
index 53f2046a544c77019cbc2c03ad56078e417ac3dc..58c27cabe7cdf088c88327ae147412e8bed08b27 100644 (file)
--- a/extra/xml/errors/errors.factor
+++ b/extra/xml/errors/errors.factor
@@ -40,7 +40,7 @@ M: xml-string-error summary ( obj -- str )
     ] with-string-writer ;
 
 TUPLE: mismatched < parsing-error open close ;
-: <mismatched>
+: <mismatched> ( open close -- error )
     \ mismatched parsing-error swap >>close swap >>open ;
 M: mismatched summary ( obj -- str )
     [
@@ -111,7 +111,7 @@ M: extra-attrs summary ( obj -- str )
     ] with-string-writer ;
 
 TUPLE: bad-version < parsing-error num ;
-: <bad-version>
+: <bad-version> ( num -- error )
     \ bad-version parsing-error swap >>num ;
 M: bad-version summary ( obj -- str )
     [