From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Feb 1999 04:05:22 +0000 (+0000)
Subject: Minor tweaks so that transcript of REPL buffer is recorded properly.
X-Git-Tag: 20090517-FFI~4616
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29b8802e5f0566cbb7086573a6812827b77b4eff;p=mit-scheme.git

Minor tweaks so that transcript of REPL buffer is recorded properly.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index b04c4b4ae..35b61099b 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: intmod.scm,v 1.96 1999/02/16 20:12:20 cph Exp $
+;;; $Id: intmod.scm,v 1.97 1999/02/18 04:05:22 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -116,7 +116,6 @@ REPL uses current evaluation environment."
 (define cmdl-message/init-inferior
   (cmdl-message/active
    (lambda (port)
-     port
      (set-working-directory-pathname!
       (buffer-default-directory (port/buffer port))))))
 
@@ -179,11 +178,11 @@ REPL uses current evaluation environment."
   (signal-thread-event (port/thread port) false))
 
 (define (standard-prompt-spacing port)
+  (fresh-line port)
+  (newline port)
   (enqueue-output-operation! port
     (lambda (mark transcript?)
       transcript?
-      (if (not (group-start? mark))
-	  (guarantee-newlines 2 mark))
       (undo-boundary! mark)
       #t)))