From 13e715ef44f1482245312fb80e5740a6f3d7d324 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 8 May 2011 16:57:56 -0600 Subject: [PATCH] fix decompiler's listing of captured top- and module-level variables original commit: db75dddf874d080eeaf69fcfb59fa1c0345eae7c --- collects/compiler/decompile.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt index 1e84e2cad0..f358015621 100644 --- a/collects/compiler/decompile.rkt +++ b/collects/compiler/decompile.rkt @@ -328,7 +328,8 @@ (list (for/list ([pos (in-set tl-map)]) (list-ref/protect (glob-desc-vars globs) - (if (pos . < . (glob-desc-num-tls globs)) + (if (or (pos . < . (glob-desc-num-tls globs)) + (zero? (glob-desc-num-stxs globs))) pos (+ pos (glob-desc-num-stxs globs) 1)) 'lam)))))))