From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 Aug 1989 11:39:55 +0000 (+0000)
Subject: Change unparsers so that type names are printed in the standard case
X-Git-Tag: 20090517-FFI~11852
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a18ab1074e07c54bf83b382ef1a88cccfb92a5f5;p=mit-scheme.git

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 2c8bc1851..534be4b44 100644
--- 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 64b99e92e..5a20ad00a 100644
--- 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 cc17b4272..61d114a24 100644
--- 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. |#
 
 (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))