From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Jan 1998 05:14:17 +0000 (+0000)
Subject: Fix bug: in new image design, gray map must always be a vector.
X-Git-Tag: 20090517-FFI~4885
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f4109f945c77cf8d1ba829cd76a16689955c1059;p=mit-scheme.git

Fix bug: in new image design, gray map must always be a vector.
---

diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm
index 0b88223d8..204e731d6 100644
--- a/v7/src/6001/picture.scm
+++ b/v7/src/6001/picture.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: picture.scm,v 1.26 1997/12/30 05:42:53 cph Exp $
+$Id: picture.scm,v 1.27 1998/01/23 05:14:17 cph Exp $
 
-Copyright (c) 1991-97 Massachusetts Institute of Technology
+Copyright (c) 1991-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -170,17 +170,17 @@ MIT in each case. |#
       (else (error "Unsupported graphics type:" name)))))
 
 (define n-gray-map/win32
-  (let ((map (make-string 128)))
+  (let ((map (make-vector 128)))
     (do ((i 0 (fix:+ i 1)))
 	((fix:= i 128))
-      (vector-8b-set! map i i))
+      (vector-set! map i i))
     (lambda (window) window map)))
 
 (define n-gray-map/os2
-  (let ((map (make-string 256)))
+  (let ((map (make-vector 256)))
     (do ((i 0 (fix:+ i 1)))
 	((fix:= i 256))
-      (vector-8b-set! map i i))
+      (vector-set! map i i))
     (lambda (window) window map)))
 
 (define (n-gray-map/X11 window)