From 570833a97f731da31eb0d8d3ec7b20c23b472ec5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Mar 2003 04:39:06 +0000 Subject: [PATCH] Add --suppress-noise command-line option. --- v7/src/microcode/term.c | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/term.c b/v7/src/microcode/term.c index 001e74c87..886da7896 100644 --- a/v7/src/microcode/term.c +++ b/v7/src/microcode/term.c @@ -1,8 +1,9 @@ /* -*-C-*- -$Id: term.c,v 1.18 2003/02/14 18:28:24 cph Exp $ +$Id: term.c,v 1.19 2003/03/20 04:39:06 cph Exp $ -Copyright (c) 1990-2000, 2002 Massachusetts Institute of Technology +Copyright 1990,1991,1993,1994,1995,1996 Massachusetts Institute of Technology +Copyright 2000,2002,2003 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -29,6 +30,7 @@ USA. #include "osfs.h" #include "osfile.h" #include "edwin.h" +#include "option.h" extern long death_blow; extern char * Term_Messages []; @@ -112,8 +114,11 @@ DEFUN (termination_prefix, (code), int code) message should be considered normal output. */ if (code == TERM_HALT) { - outf_console ("\n%s.\n", (Term_Messages [code])); - outf_flush_console (); + if (!option_suppress_noise) + { + outf_console ("\n%s.\n", (Term_Messages [code])); + outf_flush_console (); + } } else { -- 2.25.1