From 5bddb64554a5cea06639e05cd509b0840630bb36 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 14 Mar 2011 17:48:10 -0400
Subject: [PATCH] traced bug in lexical scope; need to mask out the prefix

---
 test-compiler.rkt | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test-compiler.rkt b/test-compiler.rkt
index e8eeeb9..2a4b5be 100644
--- a/test-compiler.rkt
+++ b/test-compiler.rkt
@@ -484,6 +484,16 @@
                    (sum-integers 1 10)))
       (list 3025 55))
 
+
+;; Lexical scope bug: make sure that parameters shadow toplevels.
+(test '(begin
+         (define x 42)
+         (define (f x)
+           (+ x 1))
+         (f 16))
+      17)
+
+
 (test '(let () 5) 5)
 
 (test '(let* ([x 3]