From 8c2bf3a883697870e97e1cc0cd1deff45f398895 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 26 Nov 1991 06:53:41 +0000 Subject: [PATCH] Put semicolon in front of "Automagically impurifying..." message. --- v7/src/runtime/uerror.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index 3946c1376..c3c290be4 100644 --- a/v7/src/runtime/uerror.scm +++ b/v7/src/runtime/uerror.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.29 1991/10/29 14:32:14 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.30 1991/11/26 06:53:41 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -901,9 +901,9 @@ MIT in each case. |# (let ((frame (continuation/first-subproblem continuation))) (if (apply-frame? frame) (let ((object (apply-frame/operand frame 0))) - (let ((port (nearest-cmdl/output-port))) - (newline port) - (write-string "Automagically impurifying an object..." port)) + (let ((port (nearest-cmdl/port))) + (fresh-line port) + (write-string ";Automagically impurifying an object..." port)) (impurify object) (continuation object)))))) -- 2.25.1