fix #48889, bug in capturing variable declared outside while

src/julia-syntax.scm

@@ -3718,6 +3718,7 @@ f(x) = yt(x)
 ;; Try to identify never-undef variables, and then clear the `captured` flag for single-assigned,
 ;; never-undef variables to avoid allocating unnecessary `Box`es.
 (define (lambda-optimize-vars! lam)
+ ;(prn lam)
  (assert (eq? (car lam) 'lambda))
  ;; memoize all-methods-for to avoid O(n^2) behavior
  (define allmethods-table (table))
@@ -3812,8 +3813,6 @@ f(x) = yt(x)
  (let ((prev (table.clone live))
  (decl- (table.clone decl)))
  (let ((result (eager-any visit (cdr e))))
- (if (eq? (car e) '_while)
- (kill)) ;; body might not have run
  (leave-loop! decl-)
  (if result
  #t

test/core.jl

@@ -5403,6 +5403,21 @@ function g37690()
 end
 @test g37690().x === 0
 
+# issue #48889
+function f48889()
+ let j=0, f, i
+ while j < 3
+ i = j + 1
+ if j == 0
+ f = ()->i
+ end
+ j += 1
+ end
+ f
+ end
+end
+@test f48889()() == 3
+
 function _assigns_and_captures_arg(a)
  a = a
  return ()->a