From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 26 Jun 2011 16:09:03 +0000 (+0000)
Subject: Use SYMBOL-NAME, not SYMBOL->STRING, in keyword.scm.
X-Git-Tag: release-9.1.0~3^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b420c03468023d61a7334469781ac5f3915772c1;p=mit-scheme.git

Use SYMBOL-NAME, not SYMBOL->STRING, in keyword.scm.
---

diff --git a/src/runtime/keyword.scm b/src/runtime/keyword.scm
index c0881db26..2759da32b 100644
--- a/src/runtime/keyword.scm
+++ b/src/runtime/keyword.scm
@@ -29,7 +29,6 @@ USA.
 
 (declare (usual-integrations))
 
-
 ;; Keywords are really interned symbols with a funny name.  We do it
 ;; this way because we need to keep eq-ness when fasdumping and
 ;; fasload them.  The self-evaluating property of keywords is handled
@@ -39,15 +38,15 @@ USA.
 (define-integrable keyword-prefix "#[keyword]")
 
 (define (string->keyword string)
-  (guarantee-string string 'string->keyword)
+  (guarantee-string string 'STRING->KEYWORD)
   (string->symbol (string-append keyword-prefix string)))
 
 (define (keyword? object)
   (and (interned-symbol? object)
-       (string-prefix? keyword-prefix (symbol->string object))))
+       (string-prefix? keyword-prefix (symbol-name object))))
 
 (define-guarantee keyword "keyword")
 
 (define (keyword->string keyword)
-  (guarantee-keyword keyword 'keyword->string)
-  (string-tail (symbol->string keyword) (string-length keyword-prefix)))
\ No newline at end of file
+  (guarantee-keyword keyword 'KEYWORD->STRING)
+  (string-tail (symbol-name keyword) (string-length keyword-prefix)))
\ No newline at end of file