From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Jun 2018 05:20:08 +0000 (-0700)
Subject: No need to quote weird symbols as strings.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=962b535815bb8606d38f6ff125a35a12940f9798;p=mit-scheme.git

No need to quote weird symbols as strings.
---

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)