s/;;@PRELUDE@/(define-module (sdom core) \
  #:use-module (ice-9 regex) \
  #:use-module (srfi srfi-1) \
  #:use-module (srfi srfi-11) \
  #:use-module (srfi srfi-13) \
  #:use-module (sxml ssax) \
  #:export     (sdom:sxml->sdom \
		sdom:xml->sdom \
		sdom:set-dom-property! \
		sdom:get-dom-property \
		sdom:node? \
		sdom:node-type \
 \
		sdom:node-type-element \
		sdom:node-type-attr \
		sdom:node-type-text \
		sdom:node-type-cdata-section \
		sdom:node-type-entity-reference \
		sdom:node-type-entity \
		sdom:node-type-processing-instruction \
		sdom:node-type-comment \
		sdom:node-type-document \
		sdom:node-type-document-type \
		sdom:node-type-document-fragment \
		sdom:node-type-notation \
 \
		sdom:exception-code-index-size-err \
		sdom:exception-code-domstring-size-err \
		sdom:exception-code-hierarchy-request-err \
		sdom:exception-code-wrong-document-err \
		sdom:exception-code-invalid-character-err \
		sdom:exception-code-no-data-allowed-err \
		sdom:exception-code-no-modification-allowed-err \
		sdom:exception-code-not-found-err \
		sdom:exception-code-not-supported-err \
		sdom:exception-code-inuse-attribute-err \
		sdom:exception-code-invalid-state-err \
		sdom:exception-code-syntax-err \
		sdom:exception-code-invalid-modification-err \
		sdom:exception-code-namespace-err \
		sdom:exception-code-invalid-access-err \
		sdom:exception-code-validation-err \
		sdom:exception-code-type-mismatch-err \
 \
		sdom:error-severity-warning \
		sdom:error-severity-error \
		sdom:error-severity-fatal-error \
 \
		sdom:document-position-disconnected \
		sdom:document-position-contained-by \
		sdom:document-position-contains \
		sdom:document-position-following \
		sdom:document-position-preceding \
		sdom:document-position-implementation-specific \
 \
		sdom:user-data-event-node-cloned \
		sdom:user-data-event-node-imported \
		sdom:user-data-event-node-deleted \
		sdom:user-data-event-node-renamed \
		sdom:user-data-event-node-adopted \
 \
		sdom:register-feature! \
		sdom:has-feature? \
 \
		sdom:config-parameter-names \
		sdom:add-dom-config-parameter! \
		sdom:get-dom-config-parameter \
		sdom:set-dom-config-parameter! \
		sdom:can-set-dom-config-parameter? \
		sdom:signal-error \
 \
		sdom:insert-before! \
		sdom:insert-after! \
		sdom:remove-child! \
		sdom:replace-child! \
		sdom:replace-whole-text! \
		sdom:append-child! \
		sdom:clone-node \
		sdom:normalize! \
		sdom:normalize-document! \
		sdom:adopt-node! \
		sdom:import-node \
		sdom:rename-node! \
 \
		sdom:same-node? \
		sdom:equal-node? \
		sdom:has-child-nodes? \
		sdom:supported? \
 \
		sdom:default-namespace? \
		sdom:lookup-prefix \
		sdom:lookup-namespace-uri \
 \
		sdom:set-user-data! \
		sdom:get-user-data \
 \
		sdom:create-node \
		sdom:create-document \
		sdom:create-document-type \
 \
		sdom:get-elements-by-tag-name \
		sdom:get-element-by-id \
		sdom:set-id-attribute! \
		sdom:set-id-attribute-node! \
		sdom:get-attribute-node \
		sdom:set-attribute-node! \
		sdom:remove-attribute-node! \
		sdom:get-attribute \
		sdom:set-attribute! \
		sdom:remove-attribute! \
 \
		sdom:compare-document-position \
 \
		sdom:dispatch-event))\
 \
(define fold\
  (lambda (_kons_38 _knil_39 _lis1_40)\
    ((letrec ((_lp_41 (lambda (_lis_42 _ans_43)\
                        (if (null? _lis_42)\
			    _ans_43\
			    (_lp_41 (cdr _lis_42)\
				    (_kons_38 (car _lis_42) _ans_43))))))\
       _lp_41)\
     _lis1_40\
     _knil_39)))\
 \
(define get-proc (lambda (mod sym) (module-ref (resolve-module mod) sym)))\
(define (make-equal-hash-table) (make-hash-table 16))\
(define (eq-hash-code x) (hashq x most-positive-fixnum))\
(define (sdom:catch pred thunk handler)\
        (catch pred thunk (lambda (key . args) (handler (cons key args)))))\
(define regex-match?\
  (lambda (pattern str)\
    (let ((match (string-match pattern str)))\
      (and match (equal? (match:substring match) str)))))/