From 657f3690f6d4cc26c166e0bee6709cb224d902f8 Mon Sep 17 00:00:00 2001 From: erg Date: Fri, 6 Oct 2006 23:19:47 +0000 Subject: [PATCH] xml compiler error fix --- contrib/xml.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/xml.factor b/contrib/xml.factor index bf62c4f899..67fd50fc61 100644 --- a/contrib/xml.factor +++ b/contrib/xml.factor @@ -41,7 +41,7 @@ M: no-entity error. "Entity does not exist: &" write no-entity-thing write ";" print ; TUPLE: xml-string-error string ; -C: xml-string-error ( -- xml-string-error ) +C: xml-string-error ( string -- xml-string-error ) [ set-xml-string-error-string ] keep [ swap set-delegate ] keep ;