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

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index f2f5f8fc0120bc29d33423cd868c24b9ada806e4..7981982032f75f0c2edfbcfb0a2a6e9440ef3b01 100644 (file)
--- 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)