From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Feb 2001 17:49:36 +0000 (+0000)
Subject: Fix standard prompt spacing so that it appears properly in a
X-Git-Tag: 20090517-FFI~2955
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b16c08d46f402d9740cf21609f27455dd04df415;p=mit-scheme.git

Fix standard prompt spacing so that it appears properly in a
transcript file.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index be8eebf6b..068fd90ab 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: intmod.scm,v 1.112 2001/02/27 17:47:51 cph Exp $
+;;; $Id: intmod.scm,v 1.113 2001/02/27 17:49:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -237,12 +237,8 @@ evaluated in the specified inferior REPL buffer."
   (signal-thread-event (port/thread port) #f))
 
 (define (standard-prompt-spacing port)
-  (let ((fresh-lines (port/operation port 'FRESH-LINES)))
-    (if fresh-lines
-	(fresh-lines port 2)
-	(begin
-	  (fresh-line port)
-	  (newline port))))
+  (fresh-line port)
+  (newline port)
   (enqueue-output-operation! port
     (lambda (mark transcript?)
       transcript?
@@ -866,11 +862,6 @@ If this is an error, the debugger examines the error condition."
    port
    (lambda (mark transcript?) transcript? (guarantee-newline mark) #t)))
 
-(define (operation/fresh-lines port n)
-  (enqueue-output-operation!
-   port
-   (lambda (mark transcript?) transcript? (guarantee-newlines n mark) #t)))
-
 (define (operation/beep port)
   (enqueue-output-operation!
    port
@@ -1136,7 +1127,6 @@ If this is an error, the debugger examines the error condition."
    `((WRITE-CHAR ,operation/write-char)
      (WRITE-SUBSTRING ,operation/write-substring)
      (FRESH-LINE ,operation/fresh-line)
-     (FRESH-LINES ,operation/fresh-lines)
      (BEEP ,operation/beep)
      (X-SIZE ,operation/x-size)
      (DEBUGGER-FAILURE ,operation/debugger-failure)