From 84ad638b32ff7c7a9717a5345737a34be22e3d9c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Oct 2018 15:15:48 -0700
Subject: [PATCH] Change printer to prefix scode types with "scode-".

---
 src/runtime/printer.scm | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

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)
-- 
2.25.1