From 258681c8c46797f2b27fb5b9cd890f6c513d0e65 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 16 Jul 1988 21:51:09 +0000 Subject: [PATCH] Procedure `condition/message' flushed. Use `condition/report-string' in stead. --- v7/src/compiler/base/toplev.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm index 48ee66ba7..edab28b66 100644 --- a/v7/src/compiler/base/toplev.scm +++ b/v7/src/compiler/base/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.7 1988/06/14 08:33:51 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.8 1988/07/16 21:51:09 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -197,9 +197,7 @@ MIT in each case. |# (define (compiler:batch-error-handler condition) (and (condition/error? condition) - (begin (apply warn - (condition/message condition) - (condition/irritants condition)) + (begin (warn (condition/report-string condition)) (compiler:abort false)))) (define (compiler:abort value) -- 2.25.1