Change unparsers so that type names are printed in the standard case

for symbols.

diff --git a/v7/src/compiler/base/blocks.scm b/v7/src/compiler/base/blocks.scm
index 13065a2cb46e17f8a732a659e3fd1ea3c70a8e43..0a9167ee89c6b74f735594d0c3e7563f6131d33b 100644 (file)
--- a/v7/src/compiler/base/blocks.scm
+++ b/v7/src/compiler/base/blocks.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/blocks.scm,v 4.10 1989/04/21 16:58:46 markf Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/blocks.scm,v 4.11 1989/08/10 11:05:07 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
@@ -110,7 +110,8 @@ from the continuation, and then "glued" into place afterwards.
 (define-vector-tag-unparser block-tag
   (lambda (state block)
     ((standard-unparser
-      "BLOCK"      (lambda (state block)
+      (symbol->string 'BLOCK)
+      (lambda (state block)
        (unparse-object state
                        (enumeration/index->name block-types
                                                 (block-type block)))

diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm
index db9fbdaaefecbc90942083a7144371dfdc6a1aac..5491f7c740fcf7e3078e09f8e53289b288dd7038 100644 (file)
--- a/v7/src/compiler/base/ctypes.scm
+++ b/v7/src/compiler/base/ctypes.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.12 1989/05/08 22:20:17 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.13 1989/08/10 11:05:10 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -71,13 +71,14 @@ MIT in each case. |#
   (lambda (state application)
     ((case (application-type application)
        ((COMBINATION)
-       (standard-unparser "COMBINATION" false))
+       (standard-unparser (symbol->string 'COMBINATION) false))
        ((RETURN)
-       (standard-unparser "RETURN"
+       (standard-unparser (symbol->string 'RETURN)
          (lambda (state return)
            (unparse-object state (return/operand return)))))
        (else
-       (standard-unparser "APPLICATION"          (lambda (state application)
+       (standard-unparser (symbol->string 'APPLICATION)
+         (lambda (state application)
            (unparse-object state (application-type application))))))
      state application)))
 

diff --git a/v7/src/compiler/base/enumer.scm b/v7/src/compiler/base/enumer.scm
index 624239d4eb1c99ab1f1189ae40f07a7920f1c42c..339e29131a5540a899a800cef2b7e9646d80dc5b 100644 (file)
--- a/v7/src/compiler/base/enumer.scm
+++ b/v7/src/compiler/base/enumer.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/enumer.scm,v 4.2 1988/06/14 08:32:00 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/enumer.scm,v 4.3 1989/08/10 11: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
@@ -46,7 +46,8 @@ MIT in each case. |#
 (define-structure (enumerand
                   (conc-name enumerand/)
                   (print-procedure
-                   (standard-unparser "ENUMERAND"                    (lambda (state enumerand)
+                   (standard-unparser (symbol->string 'ENUMERAND)
+                     (lambda (state enumerand)
                        (unparse-object state (enumerand/name enumerand))))))
   (enumeration false read-only true)
   (name false read-only true)

diff --git a/v7/src/compiler/base/lvalue.scm b/v7/src/compiler/base/lvalue.scm
index 668c24f81bbd02ba4960687f98dfd82b0c6fc879..a3ee4887100eebf0f74f14d8988ddd50d4ce6b7a 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.14 1989/04/21 17:04:12 markf Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/lvalue.scm,v 4.15 1989/08/10 11:05:16 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
@@ -104,7 +104,8 @@ MIT in each case. |#
       (variable-normal-offset variable)))
 
 (define-vector-tag-unparser variable-tag
-  (standard-unparser "VARIABLE"    (lambda (state variable)
+  (standard-unparser (symbol->string 'VARIABLE)
+    (lambda (state variable)
       (unparse-object state (variable-name variable)))))
 
 (define-integrable (lvalue/variable? lvalue)

diff --git a/v7/src/compiler/base/object.scm b/v7/src/compiler/base/object.scm
index 45802b101f791070bc4e7505ee7af491414c8222..cfe3356527871094943c4843772efe2b239704f0 100644 (file)
--- a/v7/src/compiler/base/object.scm
+++ b/v7/src/compiler/base/object.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.6 1988/12/16 13:24:22 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/object.scm,v 4.7 1989/08/10 11:05:19 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
@@ -146,7 +146,8 @@ MIT in each case. |#
         (error "Not a tagged vector" object))))
 
 (define (standard-unparser name unparser)
-  (let ((name (string-append "LIAR " name)))    (if unparser
+  (let ((name (string-append (symbol->string 'LIAR) ":" name)))
+    (if unparser
        (unparser/standard-method name unparser)
        (unparser/standard-method name))))
 

diff --git a/v7/src/compiler/base/proced.scm b/v7/src/compiler/base/proced.scm
index 1a86822727526bcf1d73cf017105252d3682c960..4b27ca9f569e67e882109aada31e95fc90293170 100644 (file)
--- a/v7/src/compiler/base/proced.scm
+++ b/v7/src/compiler/base/proced.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/proced.scm,v 4.13 1989/05/08 22:20:50 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/proced.scm,v 4.14 1989/08/10 11:05:23 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -100,7 +100,7 @@ MIT in each case. |#
            (enumeration/index->name continuation-types
                                     (procedure-type procedure))))
        (if (eq? type 'PROCEDURE)
-          (standard-unparser "PROCEDURE"
+          (standard-unparser (symbol->string 'PROCEDURE)
             (lambda (state procedure)
               (unparse-label state (procedure-label procedure))))
           (standard-unparser (symbol->string (procedure-label procedure))

diff --git a/v7/src/compiler/base/rvalue.scm b/v7/src/compiler/base/rvalue.scm
index a1ca4088a33345e4fe58e6b9a8d5851a73569423..c06a3af7b3504e43dfb9b8f13f8680f6e783cdae 100644 (file)
--- a/v7/src/compiler/base/rvalue.scm
+++ b/v7/src/compiler/base/rvalue.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 4.5 1988/12/16 13:36:35 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/rvalue.scm,v 4.6 1989/08/10 11:05:26 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
@@ -103,7 +103,7 @@ MIT in each case. |#
          constant))))
 
 (define-vector-tag-unparser constant-tag
-  (standard-unparser "CONSTANT"
+  (standard-unparser (symbol->string 'CONSTANT)
     (lambda (state constant)
       (unparse-object state (constant-value constant)))))
 
@@ -121,7 +121,7 @@ MIT in each case. |#
   (make-rvalue reference-tag block lvalue safe?))
 
 (define-vector-tag-unparser reference-tag
-  (standard-unparser "REFERENCE"
+  (standard-unparser (symbol->string 'REFERENCE)
     (lambda (state reference)
       (unparse-object state (variable-name (reference-lvalue reference))))))
 
@@ -157,7 +157,8 @@ MIT in each case. |#
   (make-rvalue unassigned-test-tag block lvalue))
 
 (define-vector-tag-unparser unassigned-test-tag
-  (standard-unparser "UNASSIGNED-TEST"    (lambda (state unassigned-test)
+  (standard-unparser (symbol->string 'UNASSIGNED-TEST)
+    (lambda (state unassigned-test)
       (unparse-object state (unassigned-test-lvalue unassigned-test)))))
 
 (define-integrable (rvalue/unassigned-test? rvalue)

diff --git a/v7/src/compiler/base/subprb.scm b/v7/src/compiler/base/subprb.scm
index 9c0f3a524591490bc7d4188876237552cf0e6b35..ef9331fe5f63b69373ac9220c88659b668f32684 100644 (file)
--- a/v7/src/compiler/base/subprb.scm
+++ b/v7/src/compiler/base/subprb.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/subprb.scm,v 4.6 1989/01/06 20:50:41 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/subprb.scm,v 4.7 1989/08/10 11:05:29 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
@@ -122,7 +122,8 @@ known that the continuation need not be used.
                   (constructor virtual-continuation/%make)
                   (conc-name virtual-continuation/)
                   (print-procedure
-                   (standard-unparser "VIRTUAL-CONTINUATION"                 (lambda (state continuation)
+                   (standard-unparser (symbol->string 'VIRTUAL-CONTINUATION)
+                     (lambda (state continuation)
                        (let ((type (virtual-continuation/type continuation)))
                          (if type
                              (unparse-object