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

for symbols.

diff --git a/v7/src/compiler/rtlbase/rtlobj.scm b/v7/src/compiler/rtlbase/rtlobj.scm
index 2c8bc1851e801f4ba54ff21c614f11211d7caf5d..534be4b44d301c30d00a13bfa2654db1c32ae105 100644 (file)
--- a/v7/src/compiler/rtlbase/rtlobj.scm
+++ b/v7/src/compiler/rtlbase/rtlobj.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlobj.scm,v 4.5 1988/12/23 06:23:16 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlobj.scm,v 4.6 1989/08/10 11:39:55 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
@@ -41,7 +41,7 @@ MIT in each case. |#
                   (constructor make-rtl-expr
                                (rgraph label entry-edge debugging-info))
                   (print-procedure
-                   (standard-unparser "RTL-EXPR"
+                   (standard-unparser (symbol->string 'RTL-EXPR)
                      (lambda (state expression)
                        (unparse-object state (rtl-expr/label expression))))))
   (rgraph false read-only true)
@@ -59,7 +59,7 @@ MIT in each case. |#
                                        n-optional rest? closure? type
                                        debugging-info))
                   (print-procedure
-                   (standard-unparser "RTL-PROCEDURE"
+                   (standard-unparser (symbol->string 'RTL-PROCEDURE)
                      (lambda (state procedure)
                        (unparse-object state
                                        (rtl-procedure/label procedure))))))
@@ -90,7 +90,8 @@ MIT in each case. |#
                                        next-continuation-offset
                                        debugging-info))
                   (print-procedure
-                   (standard-unparser "RTL-CONTINUATION"                     (lambda (state continuation)
+                   (standard-unparser (symbol->string 'RTL-CONTINUATION)
+                     (lambda (state continuation)
                        (unparse-object
                         state
                         (rtl-continuation/label continuation))))))

diff --git a/v7/src/compiler/rtlopt/rcseht.scm b/v7/src/compiler/rtlopt/rcseht.scm
index 64b99e92e14a435a697545587d1d0ef528f09c56..5a20ad00a1ae51dc1e520f7afd8de3ef803e186c 100644 (file)
--- a/v7/src/compiler/rtlopt/rcseht.scm
+++ b/v7/src/compiler/rtlopt/rcseht.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseht.scm,v 4.7 1988/12/16 13:17:18 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseht.scm,v 4.8 1989/08/10 11:39:43 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
@@ -54,7 +54,9 @@ MIT in each case. |#
 (define-structure (element
                   (constructor %make-element)
                   (constructor make-element (expression))
-                  (print-procedure (standard-unparser "ELEMENT" false)))  (expression false read-only true)
+                  (print-procedure
+                   (standard-unparser (symbol->string 'ELEMENT) false)))
+  (expression false read-only true)
   (cost false)
   (in-memory? false)
   (next-hash false)

diff --git a/v7/src/compiler/rtlopt/rcserq.scm b/v7/src/compiler/rtlopt/rcserq.scm
index cc17b4272eb1db4ec1fe5a5a18e00a3269b0dffd..61d114a244d220d1580d39237cacfb3c268e847c 100644 (file)
--- a/v7/src/compiler/rtlopt/rcserq.scm
+++ b/v7/src/compiler/rtlopt/rcserq.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcserq.scm,v 4.4 1988/12/16 13:18:45 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcserq.scm,v 4.5 1989/08/10 11:39:35 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
@@ -39,7 +39,9 @@ MIT in each case. |#
 \f
 (define-structure (quantity
                   (copier quantity-copy)
-                  (print-procedure (standard-unparser "QUANTITY" false)))  (number false read-only true)
+                  (print-procedure
+                   (standard-unparser (symbol->string 'QUANTITY) false)))
+  (number false read-only true)
   (first-register false)
   (last-register false))