suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

decompile: adjust for change use toplevel map in lam

Browse Source
This commit is contained in:
Matthew Flatt 2015-01-19 21:29:23 -07:00
parent fe132b0cb6
commit 838a58ee84
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler-lib/compiler/decompile.rkt
View File

@ -478,12 +478,20 @@
'() '()
(list (list
(for/list ([pos (in-set tl-map)]) (for/list ([pos (in-set tl-map)])
(list-ref/protect (glob-desc-vars globs) (define tl-pos
(if (or (pos . < . (glob-desc-num-tls globs)) (cond
[(or (pos . < . (glob-desc-num-tls globs))
(zero? (glob-desc-num-stxs globs))) (zero? (glob-desc-num-stxs globs)))
pos pos]
(+ pos (glob-desc-num-stxs globs) 1)) [(= pos (glob-desc-num-tls globs))
'lam))))))) '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 ,(decompile-expr body globs
(append captures (append captures
(append vars rest-vars)) (append vars rest-vars))

2
compiler-lib/info.rkt
View File

@ -2,7 +2,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '("base" (define deps '(["base" #:version "6.1.1.8"]
"scheme-lib" "scheme-lib"
"rackunit-lib" "rackunit-lib"
"zo-lib")) "zo-lib"))