From 42bc27a72dac18a02ca29a05d2df36c767693d60 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 18 Jan 1993 05:21:57 +0000
Subject: [PATCH] When printing error messages, put some large limits on the
 output to prevent the error message from causing secondary lossage.

---
 v7/src/runtime/rep.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index d09edd1e9..e63502d31 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rep.scm,v 14.29 1993/01/07 21:00:23 cph Exp $
+$Id: rep.scm,v 14.30 1993/01/18 05:21:57 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -395,7 +395,11 @@ MIT in each case. |#
     (cmdl-message/append
      (cond ((not message)
 	    (if condition
-		(cmdl-message/strings (condition/report-string condition))
+		(cmdl-message/strings
+		 (fluid-let ((*unparser-list-depth-limit* 25)
+			     (*unparser-list-breadth-limit* 100)
+			     (*unparser-string-length-limit* 500))
+		   (condition/report-string condition)))
 		(cmdl-message/null)))
 	   ((string? message)
 	    (cmdl-message/strings message))
-- 
2.25.1