From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Aug 1989 01:31:16 +0000 (+0000)
Subject: For "s" interactive command letter, allow null string to be returned.
X-Git-Tag: 20090517-FFI~11904
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f69ce1be8e0bbd4dd6bbeb5c7e3c585c1c890924;p=mit-scheme.git

For "s" interactive command letter, allow null string to be returned.
---

diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index b5156470a..f6a863e7e 100644
--- a/v7/src/edwin/comred.scm
+++ b/v7/src/edwin/comred.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comred.scm,v 1.74 1989/04/28 22:48:42 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comred.scm,v 1.75 1989/08/03 01:31:16 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -345,7 +345,8 @@
       ((#\r)
        (varies (current-region) '(CURRENT-REGION)))
       ((#\s)
-       (prompting (or (prompt-for-string prompt false) "")))      ((#\v)
+       (prompting (or (prompt-for-string prompt false 'NULL-DEFAULT) "")))
+      ((#\v)
        (prompting (variable-name (prompt-for-variable prompt))))
       ((#\x)
        (prompting (prompt-for-expression prompt false)))