From: Chris Hanson Date: Mon, 18 Jan 1993 05:21:57 +0000 (+0000) Subject: When printing error messages, put some large limits on the output to X-Git-Tag: 20090517-FFI~8584 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=42bc27a72dac18a02ca29a05d2df36c767693d60;p=mit-scheme.git When printing error messages, put some large limits on the output to prevent the error message from causing secondary lossage. --- 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))