From: Chris Hanson Date: Sat, 15 Apr 1989 18:06:55 +0000 (+0000) Subject: Rewrite all case-sensitive symbol operations to be case-insensitive. X-Git-Tag: 20090517-FFI~12179 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4e860829b14ecb175eb1394c45fc58ed3377704f;p=mit-scheme.git Rewrite all case-sensitive symbol operations to be case-insensitive. --- diff --git a/v7/src/compiler/back/lapgn3.scm b/v7/src/compiler/back/lapgn3.scm index b1f8acbbd..deb7fbd70 100644 --- a/v7/src/compiler/back/lapgn3.scm +++ b/v7/src/compiler/back/lapgn3.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.2 1988/03/14 20:45:17 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.3 1989/04/15 18:04:19 cph Rel $ -Copyright (c) 1987 Massachusetts Institute of Technology +Copyright (c) 1987, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -46,8 +46,7 @@ MIT in each case. |# (define (allocate-constant-label) (let ((label - (string->symbol - (string-append "CONSTANT-" (number->string *next-constant*))))) + (intern (string-append "constant-" (number->string *next-constant*))))) (set! *next-constant* (1+ *next-constant*)) label)) diff --git a/v7/src/compiler/back/syntax.scm b/v7/src/compiler/back/syntax.scm index 8c764e0bd..4583ad646 100644 --- a/v7/src/compiler/back/syntax.scm +++ b/v7/src/compiler/back/syntax.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/syntax.scm,v 1.22 1988/08/31 06:43:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/syntax.scm,v 1.23 1989/04/15 18:04:59 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -185,10 +185,10 @@ MIT in each case. |# ;;;; Coercion Machinery (define (make-coercion-name coercion-type size) - (string->symbol - (string-append "COERCE-" + (intern + (string-append "coerce-" (number->string size) - "-BIT-" + "-bit-" (symbol->string coercion-type)))) (define coercion-property-tag diff --git a/v7/src/compiler/base/debug.scm b/v7/src/compiler/base/debug.scm index 4d3c9948b..ab9b3347c 100644 --- a/v7/src/compiler/base/debug.scm +++ b/v7/src/compiler/base/debug.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/debug.scm,v 4.8 1988/12/12 21:51:25 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/debug.scm,v 4.9 1989/04/15 18:05:13 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -52,8 +52,7 @@ MIT in each case. |# (define (debug/find-continuation number) (let ((label - (string->symbol (string-append "CONTINUATION-" - (number->string number 10))))) + (intern (string-append "continuation-" (number->string number))))) (let loop ((procedures *procedures*)) (and (not (null? procedures)) (if (and (procedure-continuation? (car procedures)) diff --git a/v7/src/compiler/base/lvalue.scm b/v7/src/compiler/base/lvalue.scm index 9a1cb6fa8..f85e6ca31 100644 --- a/v7/src/compiler/base/lvalue.scm +++ b/v7/src/compiler/base/lvalue.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/lvalue.scm,v 4.12 1988/12/15 17:23:26 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/lvalue.scm,v 4.13 1989/04/15 18:05:27 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -109,11 +109,7 @@ MIT in each case. |# (let-syntax ((define-named-variable (macro (name) - (let ((symbol - (string->symbol - (string-append "#[" - (string-downcase (symbol->string name)) - "]")))) + (let ((symbol (intern (string-append "#[" (symbol->string name) "]")))) `(BEGIN (DEFINE-INTEGRABLE (,(symbol-append 'MAKE- name '-VARIABLE) BLOCK) (MAKE-VARIABLE BLOCK ',symbol)) diff --git a/v7/src/compiler/base/pmlook.scm b/v7/src/compiler/base/pmlook.scm index 6cb981f20..f074eb2b5 100644 --- a/v7/src/compiler/base/pmlook.scm +++ b/v7/src/compiler/base/pmlook.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/pmlook.scm,v 1.6 1988/06/14 08:32:58 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/pmlook.scm,v 1.7 1989/04/15 18:06:14 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -37,7 +37,7 @@ MIT in each case. |# (declare (usual-integrations)) (define pattern-variable-tag - (make-named-tag "Pattern Variable")) + (intern "#[(compiler pattern-matcher/lookup)pattern-variable]")) ;;; PATTERN-LOOKUP returns either false or a pair whose car is the ;;; item matched and whose cdr is the list of variable values. Use diff --git a/v7/src/compiler/base/scode.scm b/v7/src/compiler/base/scode.scm index de0d30dce..8a9ce7247 100644 --- a/v7/src/compiler/base/scode.scm +++ b/v7/src/compiler/base/scode.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/scode.scm,v 4.5 1988/08/11 02:15:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/scode.scm,v 4.6 1989/04/15 18:06:27 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -81,7 +81,8 @@ MIT in each case. |# (define-integrable (scode/quotation-components quot recvr) (recvr (scode/quotation-expression quot))) -(define comment-tag:directive (make-named-tag "Expression Directive")) +(define comment-tag:directive + (intern "#[(compiler)comment-tag:directive")) (define (scode/make-directive directive code) (scode/make-comment (list comment-tag:directive directive) diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm index c8c8ec138..7ec9eec12 100644 --- a/v7/src/compiler/base/utils.scm +++ b/v7/src/compiler/base/utils.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.10 1988/12/19 20:21:51 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.11 1989/04/15 18:05:57 cph Exp $ -Copyright (c) 1987, 1988 Massachusetts Institute of Technology +Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -235,7 +235,7 @@ MIT in each case. |# "Compiled error procedure") (define lambda-tag:delay - (make-named-tag "DELAY-LAMBDA")) + (intern "#[delay-lambda]")) (define (non-pointer-object? object) ;; Any reason not to use `object/non-pointer?' here? -- cph diff --git a/v7/src/compiler/fggen/canon.scm b/v7/src/compiler/fggen/canon.scm index f5b92799b..bc09511d6 100644 --- a/v7/src/compiler/fggen/canon.scm +++ b/v7/src/compiler/fggen/canon.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/canon.scm,v 1.3 1988/11/01 04:49:45 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/canon.scm,v 1.4 1989/04/15 18:05:43 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -172,7 +172,7 @@ ARBITRARY: The expression may be executed more than once. It ;;;; Caching first class environments (define environment-variable - (make-named-tag "ENVIRONMENT")) + (intern "#[environment]")) (define (scode/comment-directive? text . kinds) (and (pair? text) diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040 index 0bfe7c4a5..3503bc9b5 100644 --- a/v7/src/compiler/machines/bobcat/make.scm-68040 +++ b/v7/src/compiler/machines/bobcat/make.scm-68040 @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.39 1989/03/15 04:42:06 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.40 1989/04/15 18:06:55 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -41,4 +41,4 @@ MIT in each case. |# ((package/reference (find-package name) 'INITIALIZE-PACKAGE!))) '((COMPILER MACROS) (COMPILER DECLARATIONS))) -(add-system! (make-system "Liar" 4 39 '())) \ No newline at end of file +(add-system! (make-system "Liar" 4 40 '())) \ No newline at end of file diff --git a/v7/src/compiler/rtlbase/rtlcfg.scm b/v7/src/compiler/rtlbase/rtlcfg.scm index fdfc5aea7..af08776a8 100644 --- a/v7/src/compiler/rtlbase/rtlcfg.scm +++ b/v7/src/compiler/rtlbase/rtlcfg.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.6 1988/11/07 13:56:13 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.7 1989/04/15 18:06:41 cph Rel $ -Copyright (c) 1987, 1988 Massachusetts Institute of Technology +Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -185,5 +185,5 @@ MIT in each case. |# (define-integrable (pnode/preferred-branch pnode) (cfg-node-get pnode cfg/prefer-branch/tag)) -(define-integrable cfg/prefer-branch/tag - (string->symbol "#[(compiler)cfg/prefer-branch]")) \ No newline at end of file +(define cfg/prefer-branch/tag + (intern "#[(compiler)cfg/prefer-branch]")) \ No newline at end of file diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm index 513f0b870..0728040db 100644 --- a/v7/src/compiler/rtlgen/rtlgen.scm +++ b/v7/src/compiler/rtlgen/rtlgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.16 1989/01/21 09:16:27 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.17 1989/04/15 18:04:34 cph Exp $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -322,8 +322,8 @@ MIT in each case. |# (cfg-node-remove! bblock potential-control-merge-marker)) (rgraph-bblocks rgraph))) -(define-integrable potential-control-merge-marker - (string->symbol "#[(compiler rtl-generator)potential-control-merge]")) +(define potential-control-merge-marker + (intern "#[(compiler rtl-generator)potential-control-merge]")) (define (rgraph/compress! rgraph) (with-new-node-marks