fix(flow): reuse ordered return analysis for loop exits

Replace the old missing-return special cases with the same ordered block
walker used for inferred returns. This avoids false MissingReturn
diagnostics for functions that return from truthy while/repeat loops,
keeps break and repeat-until flow consistent across inference and
diagnostics, and adds regressions for closure returns, diagnostics, and
module exports.

Author: lewis6991

crates/emmylua_code_analysis/src/compilation/analyzer/lua/closure.rs

@@ -14,7 +14,7 @@ use crate::{
     infer_expr,
 };
 
-use super::{LuaAnalyzer, LuaReturnPoint, func_body::analyze_func_body_returns};
+use super::{LuaAnalyzer, LuaReturnPoint, func_body::analyze_func_body_returns_with};
 
 pub fn analyze_closure(analyzer: &mut LuaAnalyzer, closure: LuaClosureExpr) -> Option<()> {
     let signature_id = LuaSignatureId::from_closure(analyzer.file_id, &closure);
@@ -136,7 +136,12 @@ fn analyze_return(
         }
     };
 
-    let return_points = analyze_func_body_returns(block);
+    let return_points = analyze_func_body_returns_with(block, |condition_expr| {
+        analyzer
+            .infer_expr(&condition_expr)
+            .map(|condition_type| condition_type.is_always_truthy())
+            .unwrap_or(false)
+    });
     let returns = match analyze_return_point(
         analyzer.db,
         analyzer
@@ -189,7 +194,12 @@ fn analyze_lambda_returns(
         .get_args()
         .position(|arg| arg.get_position() == pos)?;
     let block = closure.get_block()?;
-    let return_points = analyze_func_body_returns(block);
+    let return_points = analyze_func_body_returns_with(block, |condition_expr| {
+        analyzer
+            .infer_expr(&condition_expr)
+            .map(|condition_type| condition_type.is_always_truthy())
+            .unwrap_or(false)
+    });
     let unresolved = UnResolveClosureReturn {
         file_id: analyzer.file_id,
         signature_id: *signature_id,