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

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

@ -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))

2
compiler-lib/info.rkt
View File

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