From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Aug 2005 02:14:48 +0000 (+0000)
Subject: Fix fencepost error in handling of port width.
X-Git-Tag: 20090517-FFI~1234
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67cd71bac4c8dbffcd9611f7cc03dbd6b4252e8b;p=mit-scheme.git

Fix fencepost error in handling of port width.
---

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index b56d35a7a..9368d88d1 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pp.scm,v 14.47 2005/03/30 03:50:48 cph Exp $
+$Id: pp.scm,v 14.48 2005/08/04 02:14:48 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1995,1996,1999 Massachusetts Institute of Technology
@@ -216,7 +216,7 @@ USA.
 	0)))
 
 (define (pp-top-level expression port as-code? indentation list-depth)
-  (fluid-let ((x-size (or *pp-forced-x-size* (output-port/x-size port)))
+  (fluid-let ((x-size (- (or *pp-forced-x-size* (output-port/x-size port)) 1))
 	      (output-port port))
     (let* ((numerical-walk
 	    (if *pp-avoid-circularity?*