From 454a6fa619bec1dd449d47b6e5667b5998eb7ff4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 13 Jul 2006 15:28:39 +0000
Subject: [PATCH] fix bug in checking for #%plain-module-begin

svn: r3700
---
 src/mzscheme/src/module.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 79d506766e..677f906306 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -3453,7 +3453,7 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
 
   /* If fm isn't a single expression, it certainly needs a
      `#%module-begin': */
-  if (SCHEME_PAIRP(fm) && SCHEME_STX_NULLP(SCHEME_STX_CDR(fm))) {
+  if (SCHEME_STX_PAIRP(fm) && SCHEME_STX_NULLP(SCHEME_STX_CDR(fm))) {
     /* Perhaps expandable... */
     fm = SCHEME_STX_CAR(fm);
   } else {