Change to make buffer names case-sensitive.

diff --git a/v7/src/edwin/bufset.scm b/v7/src/edwin/bufset.scm
index 4c79a798770165f7c56d5d0acf38eee02beb5548..99133fcf2b21ce0b7cf39cab0d7921fb32f02df9 100644 (file)
--- a/v7/src/edwin/bufset.scm
+++ b/v7/src/edwin/bufset.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufset.scm,v 1.8 1991/03/16 00:01:24 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufset.scm,v 1.9 1991/05/10 04:51:41 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -52,7 +52,7 @@
 
 (define (make-bufferset initial-buffer)
   (let ((bufferset (%make-bufferset))
-       (names (make-string-table)))
+       (names (make-string-table 16 false)))
     (string-table-put! names (buffer-name initial-buffer) initial-buffer)
     (vector-set! bufferset bufferset-index:buffer-list (list initial-buffer))
     (vector-set! bufferset bufferset-index:names names)