comprehensive testing for regression analysis

internal/bootstrap.cm

@@ -171,13 +171,34 @@ function load_module(name, env) {
 streamline_mod = load_module("streamline", boot_env)
 use_cache['streamline'] = streamline_mod
 
+// Lazy-loaded verify_ir module (loaded on first use via use_fn)
+var _verify_ir_mod = null
+
 // Run AST through mcode pipeline → register VM
 function run_ast(name, ast, env) {
   var compiled = mcode_mod(ast)
+  if (os._verify_ir) {
+    if (_verify_ir_mod == null) {
+      _verify_ir_mod = use_fn('verify_ir')
+    }
+    compiled._verify = true
+    compiled._verify_mod = _verify_ir_mod
+  }
   var optimized = streamline_mod(compiled)
+  // Clean up verify properties before JSON encoding
+  if (optimized._verify) {
+    delete optimized._verify
+    delete optimized._verify_mod
+  }
   return mach_eval_mcode(name, json.encode(optimized), env)
 }
 
+// Run AST through mcode pipeline WITHOUT optimization → register VM
+function run_ast_noopt(name, ast, env) {
+  var compiled = mcode_mod(ast)
+  return mach_eval_mcode(name, json.encode(compiled), env)
+}
+
 // use() with ƿit pipeline for .cm modules
 function use_fn(path) {
   var file_path = null
@@ -277,13 +298,13 @@ if (args != null) {
     os: os, actorsym: actorsym,
     init: {program: program, arg: user_args},
     core_path: core_path, shop_path: shop_path, json: json,
-    analyze: analyze, run_ast_fn: run_ast
+    analyze: analyze, run_ast_fn: run_ast, run_ast_noopt_fn: run_ast_noopt
   })
 } else {
   // Actor spawn mode — load engine.cm with full actor env
   load_engine({
     os: os, actorsym: actorsym, init: init,
     core_path: core_path, shop_path: shop_path, json: json, nota: nota, wota: wota,
-    analyze: analyze, run_ast_fn: run_ast
+    analyze: analyze, run_ast_fn: run_ast, run_ast_noopt_fn: run_ast_noopt
   })
 }