diff options
Diffstat (limited to '')
-rw-r--r-- | module/sxml/namespace.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/sxml/namespace.scm b/module/sxml/namespace.scm index 57250b93..19211227 100644 --- a/module/sxml/namespace.scm +++ b/module/sxml/namespace.scm @@ -34,8 +34,9 @@ (define (nssymb key) (define namespace (if (list? namespace-map) - (or (assoc-ref namespace-map key) - (error "No mapping for namespace" key)) + (cond ((assoc key namespace-map) + => cdr) + (else key)) namespace-map)) (cond |