summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pict/sxml.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/pict/sxml.scm b/pict/sxml.scm
index 99628bd..0ec8695 100644
--- a/pict/sxml.scm
+++ b/pict/sxml.scm
@@ -81,7 +81,9 @@ port."
(and (eq? uri prefix) abbrev)))
namespaces)
first)))
- (symbol-append abbrev (string->symbol ":") local-part)))
+ (match abbrev
+ ('*DEFAULT* local-part)
+ (_ (symbol-append abbrev (string->symbol ":") local-part)))))
(_ name)))
(define (doctype-continuation seed)