From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 06:11:07 +0000 (+0000)
Subject: History never sets prompt default except when explicitly instructed.
X-Git-Tag: 20090517-FFI~4672
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fc85408a2300063cf2f1acc648d5d6339d5e089;p=mit-scheme.git

History never sets prompt default except when explicitly instructed.
---

diff --git a/v7/src/edwin/compile.scm b/v7/src/edwin/compile.scm
index 34c525d94..92cadc6f6 100644
--- a/v7/src/edwin/compile.scm
+++ b/v7/src/edwin/compile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: compile.scm,v 1.8 1999/01/28 06:10:20 cph Exp $
+;;; $Id: compile.scm,v 1.9 1999/01/28 06:11:07 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -22,23 +22,16 @@
 
 (declare (usual-integrations))
 
-(define-variable compile-command
-  "Last shell command used to do a compilation; default for next compilation."
-  "make -k"
-  string?)
-
 (define-command compile
   "Compile the program including the current buffer.  Default: run `make'.
 Runs COMMAND, a shell command, in a separate process asynchronously
 with output going to the buffer *compilation*."
   (lambda ()
-    (list (prompt-for-string "Compile command"
-			     (ref-variable compile-command)
+    (list (prompt-for-string "Compile command" #f
 			     'DEFAULT-TYPE 'INSERTED-DEFAULT
 			     'HISTORY 'COMPILE
 			     'HISTORY-DEFAULT #t)))
   (lambda (command)
-    (set-variable! compile-command command)
     (run-compilation command)))
 
 (define-command grep