From e468d1f6a549362444fc891adee79c8ceaae0669 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 28 Apr 2013 08:44:26 -0600
Subject: [PATCH] minor code improvement

---
 src/racket/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c
index 6076103d68..0eadce761f 100644
--- a/src/racket/src/eval.c
+++ b/src/racket/src/eval.c
@@ -3390,7 +3390,7 @@ scheme_do_eval(Scheme_Object *obj, int num_rands, Scheme_Object **rands,
 
 	  arg = app->rand2;
 
-	  switch ((SCHEME_APPN_FLAGS(app) >> 6) & 0x7) {
+	  switch ((flags >> 6) & 0x7) {
 	  case SCHEME_EVAL_CONSTANT:
 	    break;
 	  case SCHEME_EVAL_GLOBAL: