From b370ae2742fcff5adb6f63e2178182957fdc463f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 May 1991 00:29:38 +0000
Subject: [PATCH] Change prompt-for-string (and all associated prompt
 procedures) to accept a prompt "string" that is a one-element list of
 strings.  In this case, the string that is the list's element is used
 verbatim as the prompt string, without the normal processing that appends a
 default and ": ".

---
 v7/src/edwin/prompt.scm | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index e1fdd55ba..c800025b4 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.141 1991/05/16 23:06:17 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.142 1991/05/17 00:29:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -242,12 +242,21 @@ recursive minibuffers."
 
 (define (%prompt-for-string prompt mode)
   (prompt-for-typein
-   (string-append
-    prompt
-    (if (and *default-string* (eq? *default-type* 'VISIBLE-DEFAULT))
-	(string-append " (default is: \"" *default-string* "\")")
-	"")
-    ": ")
+   (cond ((and (pair? prompt)
+	       (string? (car prompt))
+	       (null? (cdr prompt)))
+	  (car prompt))
+	 ((string? prompt)
+	  (string-append
+	   prompt
+	   (if (and *default-string* (eq? *default-type* 'VISIBLE-DEFAULT))
+	       (string-append " (default is: \"" *default-string* "\")")
+	       "")
+	   ": "))
+	 (else
+	  (error:wrong-type-argument prompt
+				     "prompt string"
+				     'PROMPT-FOR-STRING)))
    true
    (let ((thunk (typein-editor-thunk mode)))
      (if (eq? *default-type* 'INSERTED-DEFAULT)
-- 
2.25.1