From 838a58ee8439edfeaaa372315692824f92547fa6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Jan 2015 21:29:23 -0700 Subject: [PATCH] decompile: adjust for change use toplevel map in `lam` --- compiler-lib/compiler/decompile.rkt | 20 ++++++++++++++------ compiler-lib/info.rkt | 2 +- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/compiler-lib/compiler/decompile.rkt b/compiler-lib/compiler/decompile.rkt index 470979bf45..e4f22e5954 100644 --- a/compiler-lib/compiler/decompile.rkt +++ b/compiler-lib/compiler/decompile.rkt @@ -478,12 +478,20 @@ '() (list (for/list ([pos (in-set tl-map)]) - (list-ref/protect (glob-desc-vars globs) - (if (or (pos . < . (glob-desc-num-tls globs)) - (zero? (glob-desc-num-stxs globs))) - pos - (+ pos (glob-desc-num-stxs globs) 1)) - 'lam))))))) + (define tl-pos + (cond + [(or (pos . < . (glob-desc-num-tls globs)) + (zero? (glob-desc-num-stxs globs))) + pos] + [(= pos (glob-desc-num-tls globs)) + 'stx] + [else + (+ pos (glob-desc-num-stxs globs))])) + (if (eq? tl-pos 'stx) + '#%syntax + (list-ref/protect (glob-desc-vars globs) + tl-pos + 'lam)))))))) ,(decompile-expr body globs (append captures (append vars rest-vars)) diff --git a/compiler-lib/info.rkt b/compiler-lib/info.rkt index 255031b0cc..e25b0a4856 100644 --- a/compiler-lib/info.rkt +++ b/compiler-lib/info.rkt @@ -2,7 +2,7 @@ (define collection 'multi) -(define deps '("base" +(define deps '(["base" #:version "6.1.1.8"] "scheme-lib" "rackunit-lib" "zo-lib"))