From 7d330af85ce571b9454331d3f5dbef984a17db93 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Aug 1994 18:46:36 +0000
Subject: [PATCH] Eliminate gratuitous space from command prompt.  This space
 is filled in by the PROMPT-FOR-COMMAND- procedures anyway.

---
 v7/src/edwin/intmod.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 4d279f442..ce1f9ea59 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.80 1994/04/23 04:52:27 cph Exp $
+;;;	$Id: intmod.scm,v 1.81 1994/08/15 18:46:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -933,9 +933,7 @@ If this is an error, the debugger examines the error condition."
   (if (not (and suppress-standard-prompts?
 		(or (string=? prompt user-initial-prompt)
 		    (member prompt standard-prompts))))
-      (begin
-	(write-string prompt port)
-	(write-char #\space port))))
+      (write-string prompt port)))
 
 (define suppress-standard-prompts? #t)
 (define standard-prompts
-- 
2.25.1