From 387612edb759b3096bd22dd3394245eebee27dd0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 26 Oct 2006 05:04:47 +0000
Subject: [PATCH] fix memq on not-yet-validated style list

svn: r4684
---
 collects/mred/private/mrcanvas.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/mrcanvas.ss b/collects/mred/private/mrcanvas.ss
index c86399c404..dac05aa384 100644
--- a/collects/mred/private/mrcanvas.ss
+++ b/collects/mred/private/mrcanvas.ss
@@ -85,8 +85,8 @@
 		  [(parent [style null] [paint-callback default-paint-cb] [label #f] [gl-config #f])
 		   canvas%-keywords]
       (private-field [paint-cb paint-callback]
-		     [has-x? (memq 'hscroll style)]
-		     [has-y? (memq 'vscroll style)])
+		     [has-x? (and (list? style) (memq 'hscroll style))]
+		     [has-y? (and (list? style) (memq 'vscroll style))])
       (inherit get-client-size get-dc set-label)
       (rename [super-on-paint on-paint])
       (sequence