From f4109f945c77cf8d1ba829cd76a16689955c1059 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 23 Jan 1998 05:14:17 +0000 Subject: [PATCH] Fix bug: in new image design, gray map must always be a vector. --- v7/src/6001/picture.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 2.25.1