xml compiler error fix

erg 2006-10-06 23:19:47 +00:00
parent f1cd752ad9
commit 657f3690f6
1 changed files with 1 additions and 1 deletions

View File

@ -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
[ <xml-error> swap set-delegate ] keep ;