Eliminate prefix spacing for READ input-port operation on interaction

buffer.

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 962c36ec7d27c682ad97bfb3d66befaffb30f422..0bbdde9a49bdd69b27355f08f898222657f0f3d5 100644 (file)
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: intmod.scm,v 1.82 1994/08/15 20:12:06 cph Exp $
+;;;    $Id: intmod.scm,v 1.83 1994/08/15 20:21:23 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -807,7 +807,6 @@ If this is an error, the debugger examines the error condition."
 
 (define (operation/read port parser-table)
   parser-table
-  (standard-prompt-spacing port)
   (read-expression port (nearest-cmdl/level)))
 
 (define read-expression
@@ -914,7 +913,7 @@ If this is an error, the debugger examines the error condition."
              (thunk)
              (remove-select-buffer-hook buffer hook))))
        (add-select-buffer-hook buffer hook))))
-\f
+
 (define (operation/prompt-for-command-expression port prompt level)
   (parse-command-prompt port prompt)
   (read-expression port level))