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

schemify: don't incorrectly inline a recursive function

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-12 11:40:38 -06:00
parent 9310b1e14c
commit 2051bdfc6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/schemify/infer-known.rkt
View File

@ -94,7 +94,7 @@
(extract-lambda* body))]
[`(letrec-values ([(,id) ,rhs]) ,body)
(if (wrap-eq? id body)
(extract-lambda rhs)
(extract-lambda* rhs)
(extract-lambda* body))]
[`(let-values ,_ ,body) (extract-lambda* body)]
[`(letrec-values ,_ ,body) (extract-lambda* body)]