No need to quote weird symbols as strings.

diff --git a/src/runtime/scode.scm b/src/runtime/scode.scm
index 3e1d34a0722fdc484bc3a825fa6a31e4f2fd46f8..e4a52112ad342446b7c130995bfd8b90f617657e 100644 (file)
--- a/src/runtime/scode.scm
+++ b/src/runtime/scode.scm
@@ -154,8 +154,8 @@ USA.
              (eq? (car text) declaration-tag)))))
 (register-predicate! scode-declaration? 'scode-declaration '<= scode-comment?)
 
-(define declaration-tag
-  ((ucode-primitive string->symbol) "#[declaration]"))
+(define-integrable declaration-tag
+  '|#[declaration]|)
 
 (define (scode-declaration-text declaration)
   (guarantee scode-declaration? declaration 'scode-declaration-text)