From e397ad0cbb13369541bb9a6dc2747861a7780010 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Jun 2020 19:03:24 -0600 Subject: [PATCH] schemify: fix loop detection in nested `lambda` forms --- racket/src/schemify/lift.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/schemify/lift.rkt b/racket/src/schemify/lift.rkt index 92bc96e24c..3646787eae 100644 --- a/racket/src/schemify/lift.rkt +++ b/racket/src/schemify/lift.rkt @@ -439,10 +439,10 @@ [`(let . ,_) (find-let-loops v lifts loop-if-tail loops)] [`(lambda ,args . ,body) - (find-loops body lifts #hasheq() loops)] + (find-seq-loops body lifts #hasheq() loops)] [`(case-lambda [,argss . ,bodys] ...) (for/fold ([loops loops]) ([body (in-list bodys)]) - (find-loops body lifts #hasheq() loops))] + (find-seq-loops body lifts #hasheq() loops))] [`(begin . ,vs) (find-seq-loops vs lifts loop-if-tail loops)] [`(begin0 ,v . ,vs)