From 2550770ecb17600bf4dc3ccde630bb49b1c00fb6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 15 Feb 1991 20:34:34 +0000 Subject: [PATCH] Changes for new error system in runtime 14.106. --- v7/src/compiler/base/toplev.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm index aea45f1bd..a9e07a318 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.31 1991/02/15 18:15:01 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.32 1991/02/15 20:34:34 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -144,7 +144,9 @@ MIT in each case. |# (compile-bin-file input output)))))) (define (compiler:batch-error-handler condition) - (warn (condition/report-string condition)) + (let ((port (nearest-cmdl/output-port))) + (newline port) + (write-condition-report condition port)) (compiler:abort false)) (define (compiler:abort value) -- 2.25.1