Eliminate incorrect case sensitivity in completion.

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 74f024865c1d51b55b8e64a3881cac2eb53632d2..e1fdd55ba8ff6fd2ca4dd5de0d92f36439a6a8b1 100644 (file)
--- 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.140 1991/05/02 01:14:05 cph Exp $
+;;;    $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 $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -512,7 +512,7 @@ a repetition of this command will exit."
         (lambda (new-string)
           (let ((end (string-length new-string)))
             (let ((index
-                   (and (string-prefix? string new-string)
+                   (and (string-prefix-ci? string new-string)
                         (substring-find-next-char-not-of-syntax
                          new-string
                          (string-length string)
@@ -538,7 +538,8 @@ a repetition of this command will exit."
                                (list-transform-positive completions
                                  (let ((prefix (string-append string suffix)))
                                    (lambda (completion)
-                                     (string-prefix? prefix completion))))))
+                                     (string-prefix-ci? prefix
+                                                        completion))))))
                           (cond ((null? completions)
                                  (if-not-found))
                                 ((null? (cdr completions))

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 1fbab6d24d825ca87c0a9838f0046ca9db7d28b9..fd9c7fb9baab656e05a44ec73f8155945392fe5e 100644 (file)
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.24 1991/05/10 04:59:10 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.25 1991/05/16 23:06:00 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -71,8 +71,7 @@
     (if (null? strings)
        (substring string 0 index)
        (let ((string* (car strings)))
-         (let ((index*
-                (string-match-forward string string*)))
+         (let ((index* (string-match-forward-ci string string*)))
            (if (< index* index)
                (loop (cdr strings) string* index*)
                (loop (cdr strings) string index)))))))