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 b1f8acbbd0d77411b6d356cde29c18a65d7c7400..deb7fbd70d05ed0272f2d6d44aa3fef7738eaecd 100644 (file)
--- 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 8c764e0bd7f4209b07f08cede1649af85316240e..4583ad646802295df6821f07a1c07649e58399c1 100644 (file)
--- 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 4d3c9948b0ea358659077637cd7db7a04dcc4338..ab9b3347c767084cf3b6a1eab8f950da891bea9d 100644 (file)
--- 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 9a1cb6fa865545d19bd87c145bbd9f02cf3f8b42..f85e6ca3156b4040b388fb16eb2b2b92a1bcf8ed 100644 (file)
--- 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 6cb981f20f7dd7444239b593cc4429e8b98a2fdd..f074eb2b5211f0ca3e0f0b16bef9105e222d7b54 100644 (file)
--- 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))
 \f
 (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 de0d30dceb680426a112c3438650bd98d1763a1e..8a9ce7247ba76ef3c48bf49beed7cfdba5c93d11 100644 (file)
--- 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 c8c8ec1387827b30043b564ffe4b19b2acdcdb32..7ec9eec1206bd1922ad12e74782484870376cee9 100644 (file)
--- 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 f5b92799be3c25a6d59b855e7f3524f432f74484..bc09511d6b35953ac4e016f36de81edac137d928 100644 (file)
--- 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 0bfe7c4a54f01575bd0a3b87d1518d3b9b4f0492..3503bc9b5b0b44bbc2fa6d9308af3527507e2867 100644 (file)
--- 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 fdfc5aea731f2afa7609a27f2f15bbd27c62b819..af08776a85f260a9f060c15434d268acecd3b05c 100644 (file)
--- 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 513f0b870b8984148a55430c2970b2f9b0f63f5c..0728040db4345deba2bdc35967b691b8d41c6c3e 100644 (file)
--- 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]"))
 \f
 (define (rgraph/compress! rgraph)
   (with-new-node-marks