diff options
| -rw-r--r-- | pict/sxml.scm | 4 |
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) |