From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Oct 2018 22:15:48 +0000 (-0700)
Subject: Change printer to prefix scode types with "scode-".
X-Git-Tag: mit-scheme-pucked-9.2.19~2^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=84ad638b32ff7c7a9717a5345737a34be22e3d9c;p=mit-scheme.git

Change printer to prefix scode types with "scode-".
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index f2f5f8fc0..798198203 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -463,17 +463,30 @@ USA.
         type-name)))
 
 (define renamed-user-object-types
-  '((negative-fixnum . number)
-    (positive-fixnum . number)
+  '((access . scode-access)
+    (assignment . scode-assignment)
     (bignum . number)
-    (flonum . number)
+    (combination . scode-combination)
+    (comment . scode-comment)
     (complex . number)
-    (interned-symbol . symbol)
-    (uninterned-symbol . symbol)
+    (conditional . scode-conditional)
+    (definition . scode-definition)
+    (delay . scode-delay)
+    (disjunction . scode-disjunction)
+    (extended-lambda . scode-lambda)
     (extended-procedure . procedure)
+    (flonum . number)
+    (interned-symbol . symbol)
+    (lambda . scode-lambda)
+    (lexpr . scode-lambda)
+    (negative-fixnum . number)
+    (positive-fixnum . number)
     (primitive . primitive-procedure)
-    (lexpr . lambda)
-    (extended-lambda . lambda)))
+    (quotation . scode-quotation)
+    (sequence . scode-sequence)
+    (the-environment . scode-the-environment)
+    (uninterned-symbol . symbol)
+    (variable . scode-variable)))
 
 (define (print-false object context)
   (if (eq? object #f)