From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 May 2001 18:10:21 +0000 (+0000)
Subject: In PROMPT-FOR-STRING-TABLE-NAME, verifier must no assume that
X-Git-Tag: 20090517-FFI~2834
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=995e2221ec15507b44ec7a2a240b6a58ddd27a82;p=mit-scheme.git

In PROMPT-FOR-STRING-TABLE-NAME, verifier must no assume that
STRING-TABLE-GET will return false value only when key isn't in table.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 7a6e9f617..1f4db8961 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.194 2001/05/08 21:08:36 cph Exp $
+;;; $Id: prompt.scm,v 1.195 2001/05/09 18:10:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -271,7 +271,9 @@
 	 (lambda (string)
 	   (string-table-completions string-table string))
 	 (lambda (string)
-	   (string-table-get string-table string))
+	   (let ((default (list 'DEFAULT)))
+	     (not (eq? (string-table-get string-table string default)
+		       default))))
 	 'CASE-INSENSITIVE-COMPLETION? (string-table-ci? string-table)
 	 options))