From b420c03468023d61a7334469781ac5f3915772c1 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 26 Jun 2011 16:09:03 +0000 Subject: [PATCH] Use SYMBOL-NAME, not SYMBOL->STRING, in keyword.scm. --- src/runtime/keyword.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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 -- 2.25.1