Don't write a message when the working directory of the inferior REPL

is changed; this now happens at odd times and the messages are at best
distracting.

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 151f72b329ecb6380184cf19d15d9bb47632b755..4df2d5bb0e21c93e1e4ac78f1fe5c5c368c8838f 100644 (file)
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: intmod.scm,v 1.59 1993/08/02 03:06:34 cph Exp $
+;;;    $Id: intmod.scm,v 1.60 1993/08/04 20:21:00 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -870,7 +870,8 @@ If this is an error, the debugger examines the error condition."
       (if (not transcript?)
          (begin
            (set-buffer-default-directory! (mark-buffer mark) directory)
-           (message (->namestring directory))))
+           ;;(message (->namestring directory))
+           ))
       #t)))
 
 (define (operation/set-default-environment port environment)