From 2051bdfc6a5f6a31bdd88c49a64bfec8e20a8f2b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 12 Oct 2018 11:40:38 -0600 Subject: [PATCH] schemify: don't incorrectly inline a recursive function --- racket/src/schemify/infer-known.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/schemify/infer-known.rkt b/racket/src/schemify/infer-known.rkt index 715d67d19b..0f86347468 100644 --- a/racket/src/schemify/infer-known.rkt +++ b/racket/src/schemify/infer-known.rkt @@ -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)]