From acaf653366278b7bdc84ee5fb08b20b16c203518 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 26 Nov 1991 06:32:14 +0000 Subject: [PATCH] Eliminate references to CMDL-MESSAGE/STANDARD. --- v7/src/runtime/advice.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/advice.scm b/v7/src/runtime/advice.scm index bcd3c81b5..7a5cfa26b 100644 --- a/v7/src/runtime/advice.scm +++ b/v7/src/runtime/advice.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/advice.scm,v 14.9 1991/03/01 06:45:38 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/advice.scm,v 14.10 1991/11/26 06:32:14 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -409,10 +409,11 @@ MIT in each case. |# (define (break-rep environment message . info) (breakpoint (cmdl-message/append (cmdl-message/active - (lambda (cmdl) - cmdl - (apply trace-display info))) - (cmdl-message/standard message)) + (lambda (port) + (with-output-to-port port + (lambda () + (apply trace-display info))))) + (cmdl-message/strings message)) environment)) (define (break-entry-advice procedure arguments environment) -- 2.25.1