From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Sep 2009 07:21:53 +0000 (-0700)
Subject: When pretty-printing code, abbreviate quotations.
X-Git-Tag: 20100708-Gtk~316^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b6181573378249d4d1ce6aaae0a491f347f0f9d;p=mit-scheme.git

When pretty-printing code, abbreviate quotations.
---

diff --git a/src/runtime/pp.scm b/src/runtime/pp.scm
index 3bf83b8eb..1dc047485 100644
--- 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