From 962b535815bb8606d38f6ff125a35a12940f9798 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Jun 2018 22:20:08 -0700
Subject: [PATCH] No need to quote weird symbols as strings.

---
 src/runtime/scode.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/runtime/scode.scm b/src/runtime/scode.scm
index 3e1d34a07..e4a52112a 100644
--- 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)
-- 
2.25.1