diff options
Diffstat (limited to '')
-rw-r--r-- | module/sxml/namespaced/util.scm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/module/sxml/namespaced/util.scm b/module/sxml/namespaced/util.scm index 6f93e362..e05f2fa1 100644 --- a/module/sxml/namespaced/util.scm +++ b/module/sxml/namespaced/util.scm @@ -5,7 +5,6 @@ :export (xml-element-hash-key find-element element-matches? - on-root-element root-element )) @@ -30,16 +29,10 @@ (xml-element-hash-key (car tree))))) -(define (on-root-element proc tree) +(define (root-element tree) (cond ((and (eq? '*TOP* (car tree)) (pi-element? (cadr tree))) - (cons* (car tree) (cadr tree) - (proc (caddr tree)))) + (caddr tree)) ((eq? '*TOP* (car tree)) - (cons (car tree) - (proc (cadr tree)))) - (else (proc (car tree))))) - -(define (root-element tree) - (call/ec (lambda (return) - (on-root-element return tree)))) + (cadr tree)) + (else tree))) |