When pretty-printing code, abbreviate quotations.

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 3bf83b8ebf8a93c78b99fdcaaa165237a3d153cb..1dc0474858ce1e15abcc1448ac9bd41f7fca26fc 100644 (file)
--- a/src/runtime/pp.scm
+++ b/src/runtime/pp.scm
@@ -217,7 +217,10 @@ USA.
   (fluid-let ((x-size (- (or *pp-forced-x-size* (output-port/x-size port)) 1))
              (output-port port)
              (*unparse-uninterned-symbols-by-name?*
-              *pp-uninterned-symbols-by-name*))
+              *pp-uninterned-symbols-by-name*)
+             (*unparse-abbreviate-quotations?*
+              (or as-code?
+                  *unparse-abbreviate-quotations?*)))
     (let* ((numerical-walk
            (if *pp-avoid-circularity?*
                numerical-walk-avoid-circularities