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

schemify: fix loop detection in nested lambda forms

Browse Source
This commit is contained in:
Matthew Flatt 2020-06-13 19:03:24 -06:00
parent 265c9eaa57
commit e397ad0cbb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/schemify/lift.rkt
View File

@ -439,10 +439,10 @@
[`(let . ,_) [`(let . ,_)
(find-let-loops v lifts loop-if-tail loops)] (find-let-loops v lifts loop-if-tail loops)]
[`(lambda ,args . ,body) [`(lambda ,args . ,body)
(find-loops body lifts #hasheq() loops)] (find-seq-loops body lifts #hasheq() loops)]
[`(case-lambda [,argss . ,bodys] ...) [`(case-lambda [,argss . ,bodys] ...)
(for/fold ([loops loops]) ([body (in-list bodys)]) (for/fold ([loops loops]) ([body (in-list bodys)])
(find-loops body lifts #hasheq() loops))] (find-seq-loops body lifts #hasheq() loops))]
[`(begin . ,vs) [`(begin . ,vs)
(find-seq-loops vs lifts loop-if-tail loops)] (find-seq-loops vs lifts loop-if-tail loops)]
[`(begin0 ,v . ,vs) [`(begin0 ,v . ,vs)