From 4cbf7b13ac1585be35f1d20afa12749515ba97b5 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 25 Jun 1993 23:14:58 +0000 Subject: [PATCH] Finish fixing the problem. --- v7/src/runtime/packag.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm index 83054ed95..737e5ee38 100644 --- a/v7/src/runtime/packag.scm +++ b/v7/src/runtime/packag.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: packag.scm,v 14.15 1993/06/25 23:11:03 gjr Exp $ +$Id: packag.scm,v 14.16 1993/06/25 23:14:58 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -191,7 +191,8 @@ MIT in each case. |# #\- #\_)))) (value (prim name))) - (if load/suppress-loading-message? + (if (or (not value) + load/suppress-loading-message?) value (let ((port (nearest-cmdl/port))) (fresh-line port) -- 2.25.1