From e2de7da14fbc218bfb2957c9698b2c1f12cee31f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 21 Jun 1988 05:48:48 +0000 Subject: [PATCH] `format-error-message' now takes a port as a third argument. --- v7/src/runtime/debug.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm index 279e73d3d..54772b6e8 100644 --- a/v7/src/runtime/debug.scm +++ b/v7/src/runtime/debug.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.1 1988/06/13 11:43:15 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.2 1988/06/21 05:48:48 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -393,7 +393,8 @@ MIT in each case. |# (define (error-info-command) (let ((message (error-message)) - (irritants (error-irritants))) + (irritants (error-irritants)) + (port (current-output-port))) (newline) (write-string " Message: ") (write-string message) @@ -403,7 +404,7 @@ MIT in each case. |# (begin (write-string " Irritants: ") (for-each - (let ((n (- (output-port/x-size (current-output-port)) 4))) + (let ((n (- (output-port/x-size port) 4))) (lambda (irritant) (newline) (write-string " ") @@ -421,7 +422,7 @@ MIT in each case. |# (newline) (write-string " Formatted output:") (newline) - (format-error-message message irritants))) + (format-error-message message irritants port))) ;;;; Advanced hacking commands -- 2.25.1