From 6e03ff210eb871c8bb5d13e8441f08664c124f63 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 29 Jul 2003 03:45:02 +0000 Subject: [PATCH] Change SYMBOL-APPEND so that it can be used on non-canonical symbols. --- v7/src/runtime/symbol.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/symbol.scm b/v7/src/runtime/symbol.scm index 0ab499144..0a71306be 100644 --- a/v7/src/runtime/symbol.scm +++ b/v7/src/runtime/symbol.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: symbol.scm,v 1.10 2003/03/08 02:25:19 cph Exp $ +$Id: symbol.scm,v 1.11 2003/07/29 03:45:02 cph Exp $ Copyright 1992,1993,2001,2003 Massachusetts Institute of Technology @@ -82,9 +82,8 @@ USA. (string-copy (symbol-name symbol))) (define (symbol-append . symbols) - (let ((string (apply string-append (map symbol-name symbols)))) - (string-downcase! string) - ((ucode-primitive string->symbol) string))) + ((ucode-primitive string->symbol) + (apply string-append (map symbol-name symbols)))) (define-integrable (symbol-hash symbol) (string-hash (symbol-name symbol))) -- 2.25.1