From 8a7f3947bd5b9a0e875fca9c4c6e30ed81628994 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 6 Oct 2007 15:42:39 +0000
Subject: [PATCH] check set-alpha argument between 0 and 1

svn: r7442
---
 src/mred/wxs/wxs_dc.cxx | 2 +-
 src/mred/wxs/wxs_dc.xc  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mred/wxs/wxs_dc.cxx b/src/mred/wxs/wxs_dc.cxx
index a9644710c3..6841af456c 100644
--- a/src/mred/wxs/wxs_dc.cxx
+++ b/src/mred/wxs/wxs_dc.cxx
@@ -1167,7 +1167,7 @@ static Scheme_Object *os_wxDCSetAlpha(int n,  Scheme_Object *p[])
   VAR_STACK_PUSH(0, p);
 
   
-  x0 = WITH_VAR_STACK(objscheme_unbundle_double(p[POFFSET+0], "set-alpha in dc<%>"));
+  x0 = WITH_VAR_STACK(objscheme_unbundle_double_in(p[POFFSET+0], 0, 1, "set-alpha in dc<%>"));
 
   
   WITH_VAR_STACK(((wxDC *)((Scheme_Class_Object *)p[0])->primdata)->SetAlpha(x0));
diff --git a/src/mred/wxs/wxs_dc.xc b/src/mred/wxs/wxs_dc.xc
index 42d03f004a..633481f4dc 100644
--- a/src/mred/wxs/wxs_dc.xc
+++ b/src/mred/wxs/wxs_dc.xc
@@ -720,7 +720,7 @@ START_XFORM_SKIP;
 
 @ "glyph-exists?" : bool GlyphAvailable(mzchar,wxFont^=NULL) : : /CheckOk[METHODNAME("dc<%>","glyph-exists?")]
 
-@ "set-alpha" : void SetAlpha(double);
+@ "set-alpha" : void SetAlpha(rdouble[0|1]);
 @ "get-alpha" : double GetAlpha();
 
 @END