From 8b6181573378249d4d1ce6aaae0a491f347f0f9d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 24 Sep 2009 00:21:53 -0700 Subject: [PATCH] When pretty-printing code, abbreviate quotations. --- src/runtime/pp.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.25.1