Eliminate unused binding.

diff --git a/src/xml/xml-struct.scm b/src/xml/xml-struct.scm
index d93b95d4a7e63369030cff44d990d284380f05bd..01db3a638f07de8b74274ae39baf317eb41236dc 100644 (file)
--- a/src/xml/xml-struct.scm
+++ b/src/xml/xml-struct.scm
@@ -44,7 +44,6 @@ USA.
                 (%constructor (symbol '%MAKE- root))
                 (constructor (symbol 'MAKE- root))
                 (predicate (symbol root '?))
-                (error:not (symbol 'ERROR:NOT- root))
                 (slot-vars
                  (map (lambda (slot)
                         (close-syntax (car slot) environment))