From 1ea8b78a8bceb4f7e5eaeb3e76987072267f99bb Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 10 Feb 2019 08:54:58 +0100 Subject: sxml: Disallow *DEFAULT* as an abbreviation. * pict/sxml.scm (xml->sxml)[name->sxml]: Filter *DEFAULT*. --- pict/sxml.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3