Implement goroutine special form

jfhamlin · jfhamlin · commit d9091795c249 · 2025-09-01T12:21:46.000-07:00
Signed-off-by: James Hamlin &lt;jfhamlin@gmail.com&gt;
diff --git a/pkg/runtime/codegen.go b/pkg/runtime/codegen.go
@@ -987,8 +987,7 @@ func (g *Generator) generateASTNode(node *ast.Node) (res string) {
 		fmt.Println("LetFn not yet implemented; returning nil")
 		return "nil"
 	case ast.OpGo:
-		fmt.Println("Go not yet implemented; returning nil")
-		return "nil"
+		return g.generateGo(node)
 	case ast.OpSetBang:
 		return g.generateSetBang(node)
 	case ast.OpCase:
@@ -1074,6 +1073,26 @@ func (g *Generator) generateDef(node *ast.Node) string {
 	return vrVar
 }
 
+func (g *Generator) generateGo(node *ast.Node) string {
+	goNode := node.Sub.(*ast.GoNode)
+
+	invokeNode := goNode.Invoke.Sub.(*ast.InvokeNode)
+	fn := invokeNode.Fn
+	args := invokeNode.Args
+
+	// Generate the function expression
+	fnExpr := g.generateASTNode(fn)
+
+	// Generate the arguments
+	var argExprs []string
+	for _, arg := range args {
+		argExprs = append(argExprs, g.generateASTNode(arg))
+	}
+
+	g.writef("go lang.Apply(%s, []any{%s})\n", fnExpr, strings.Join(argExprs, ", "))
+	return "nil" // starting a goroutine returns nil
+}
+
 // generateVarDeref generates code for a Var dereference
 func (g *Generator) generateVarDeref(node *ast.Node) string {
 	varNode := node.Sub.(*ast.VarNode)
diff --git a/pkg/runtime/testdata/codegen/test/core/load.go.out b/pkg/runtime/testdata/codegen/test/core/load.go.out
@@ -268,6 +268,7 @@ func LoadNS() {
 	sym_codegen_DOT_test_DOT_def_DASH_simple := lang.NewSymbol("codegen.test.def-simple")
 	sym_codegen_DOT_test_DOT_fn_DASH_closure := lang.NewSymbol("codegen.test.fn-closure")
 	sym_codegen_DOT_test_DOT_fn_DASH_recur := lang.NewSymbol("codegen.test.fn-recur")
+	sym_codegen_DOT_test_DOT_goroutine := lang.NewSymbol("codegen.test.goroutine")
 	sym_codegen_DOT_test_DOT_loop_DASH_simple := lang.NewSymbol("codegen.test.loop-simple")
 	sym_codegen_DOT_test_DOT_maybe_DASH_class := lang.NewSymbol("codegen.test.maybe-class")
 	sym_codegen_DOT_test_DOT_multifn := lang.NewSymbol("codegen.test.multifn")
@@ -1273,7 +1274,6 @@ func LoadNS() {
 	sym_with_DASH_bindings := lang.NewSymbol("with-bindings")
 	sym_with_DASH_bindings_STAR_ := lang.NewSymbol("with-bindings*")
 	sym_with_DASH_in_DASH_str := lang.NewSymbol("with-in-str")
-	sym_with_DASH_init := lang.NewSymbol("with-init")
 	sym_with_DASH_loading_DASH_context := lang.NewSymbol("with-loading-context")
 	sym_with_DASH_local_DASH_vars := lang.NewSymbol("with-local-vars")
 	sym_with_DASH_meta := lang.NewSymbol("with-meta")
@@ -2791,8 +2791,6 @@ func LoadNS() {
 	var_glojure_DOT_core_with_DASH_bindings_STAR_ := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_bindings_STAR_)
 	// var glojure.core/with-in-str
 	var_glojure_DOT_core_with_DASH_in_DASH_str := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_in_DASH_str)
-	// var glojure.core/with-init
-	var_glojure_DOT_core_with_DASH_init := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_init)
 	// var glojure.core/with-loading-context
 	var_glojure_DOT_core_with_DASH_loading_DASH_context := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_loading_DASH_context)
 	// var glojure.core/with-local-vars
@@ -3103,27 +3101,30 @@ func LoadNS() {
 	}
 	// *1
 	{
-		tmp0 := sym__STAR_1.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym__STAR_1.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6268), kw_column, int(6), kw_end_DASH_line, int(6271), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core__STAR_1 = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core__STAR_1.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
+		var_glojure_DOT_core__STAR_1.SetDynamic()
 	}
 	// *2
 	{
-		tmp0 := sym__STAR_2.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym__STAR_2.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6273), kw_column, int(6), kw_end_DASH_line, int(6276), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core__STAR_2 = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core__STAR_2.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
+		var_glojure_DOT_core__STAR_2.SetDynamic()
 	}
 	// *3
 	{
-		tmp0 := sym__STAR_3.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym__STAR_3.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6278), kw_column, int(6), kw_end_DASH_line, int(6281), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core__STAR_3 = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core__STAR_3.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
+		var_glojure_DOT_core__STAR_3.SetDynamic()
 	}
 	// *agent*
 	{
@@ -3193,11 +3194,12 @@ func LoadNS() {
 	}
 	// *e
 	{
-		tmp0 := sym__STAR_e.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym__STAR_e.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6283), kw_column, int(6), kw_end_DASH_line, int(6286), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core__STAR_e = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core__STAR_e.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
+		var_glojure_DOT_core__STAR_e.SetDynamic()
 	}
 	// *err*
 	{
@@ -3226,7 +3228,7 @@ func LoadNS() {
 	// *loaded-libs*
 	{
 		tmp0 := sym__STAR_loaded_DASH_libs_STAR_.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(5817), kw_column, int(10), kw_end_DASH_line, int(5820), kw_end_DASH_column, int(15), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
-		tmp1 := lang.NewRef(lang.CreatePersistentTreeSet(lang.NewSliceSeq([]any{sym_glojure_DOT_core_DOT_protocols, sym_glojure_DOT_string, sym_glojure_DOT_go_DOT_io, sym_codegen_DOT_test_DOT_case_DASH_switch, sym_codegen_DOT_test_DOT_const_DASH_keyword, sym_codegen_DOT_test_DOT_const_DASH_number, sym_codegen_DOT_test_DOT_const_DASH_string, sym_codegen_DOT_test_DOT_def_DASH_simple, sym_codegen_DOT_test_DOT_fn_DASH_closure, sym_codegen_DOT_test_DOT_fn_DASH_recur, sym_codegen_DOT_test_DOT_loop_DASH_simple, sym_codegen_DOT_test_DOT_maybe_DASH_class, sym_codegen_DOT_test_DOT_multifn, sym_codegen_DOT_test_DOT_ns_DASH_skip, sym_codegen_DOT_test_DOT_quote_DASH_simple, sym_codegen_DOT_test_DOT_ref, sym_codegen_DOT_test_DOT_set_DASH_bang, sym_codegen_DOT_test_DOT_the_DASH_var, sym_codegen_DOT_test_DOT_throw_DASH_simple, sym_codegen_DOT_test_DOT_try_DASH_advanced, sym_codegen_DOT_test_DOT_try_DASH_basic, sym_codegen_DOT_test_DOT_values, sym_codegen_DOT_test_DOT_with_DASH_meta})))
+		tmp1 := lang.NewRef(lang.CreatePersistentTreeSet(lang.NewSliceSeq([]any{sym_glojure_DOT_core_DOT_protocols, sym_glojure_DOT_string, sym_glojure_DOT_go_DOT_io, sym_codegen_DOT_test_DOT_case_DASH_switch, sym_codegen_DOT_test_DOT_const_DASH_keyword, sym_codegen_DOT_test_DOT_const_DASH_number, sym_codegen_DOT_test_DOT_const_DASH_string, sym_codegen_DOT_test_DOT_def_DASH_simple, sym_codegen_DOT_test_DOT_fn_DASH_closure, sym_codegen_DOT_test_DOT_fn_DASH_recur, sym_codegen_DOT_test_DOT_goroutine, sym_codegen_DOT_test_DOT_loop_DASH_simple, sym_codegen_DOT_test_DOT_maybe_DASH_class, sym_codegen_DOT_test_DOT_multifn, sym_codegen_DOT_test_DOT_ns_DASH_skip, sym_codegen_DOT_test_DOT_quote_DASH_simple, sym_codegen_DOT_test_DOT_ref, sym_codegen_DOT_test_DOT_set_DASH_bang, sym_codegen_DOT_test_DOT_the_DASH_var, sym_codegen_DOT_test_DOT_throw_DASH_simple, sym_codegen_DOT_test_DOT_try_DASH_advanced, sym_codegen_DOT_test_DOT_try_DASH_basic, sym_codegen_DOT_test_DOT_values, sym_codegen_DOT_test_DOT_with_DASH_meta})))
 		var_glojure_DOT_core__STAR_loaded_DASH_libs_STAR_ = ns.InternWithValue(tmp0, tmp1, true)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core__STAR_loaded_DASH_libs_STAR_.SetMeta(tmp0.Meta().(lang.IPersistentMap))
@@ -4530,7 +4532,7 @@ func LoadNS() {
 	}
 	// gen-class
 	{
-		tmp0 := sym_gen_DASH_class.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym_gen_DASH_class.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(5732), kw_column, int(10), kw_end_DASH_line, int(5732), kw_end_DASH_column, int(18), kw_declared, true, kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core_gen_DASH_class = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core_gen_DASH_class.SetMeta(tmp0.Meta().(lang.IPersistentMap))
@@ -7618,15 +7620,15 @@ func LoadNS() {
 	}
 	// unquote
 	{
-		tmp0 := sym_unquote.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym_unquote.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(11), kw_column, int(6), kw_end_DASH_line, int(11), kw_end_DASH_column, int(12), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core_unquote = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core_unquote.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
 	}
 	// unquote-splicing
 	{
-		tmp0 := sym_unquote_DASH_splicing.WithMeta(lang.NewMap()).(*lang.Symbol)
+		tmp0 := sym_unquote_DASH_splicing.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(12), kw_column, int(6), kw_end_DASH_line, int(12), kw_end_DASH_column, int(21), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
 		var_glojure_DOT_core_unquote_DASH_splicing = ns.Intern(tmp0)
 		if tmp0.Meta() != nil {
 			var_glojure_DOT_core_unquote_DASH_splicing.SetMeta(tmp0.Meta().(lang.IPersistentMap))
@@ -8056,14 +8058,6 @@ func LoadNS() {
 			var_glojure_DOT_core_when_DASH_not.SetMeta(tmp0.Meta().(lang.IPersistentMap))
 		}
 	}
-	// with-init
-	{
-		tmp0 := sym_with_DASH_init.WithMeta(lang.NewMap(kw_file, "codegen/test/def_simple.glj", kw_line, int(7), kw_column, int(8), kw_end_DASH_line, int(7), kw_end_DASH_column, int(16), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)
-		var_glojure_DOT_core_with_DASH_init = ns.InternWithValue(tmp0, int64(42), true)
-		if tmp0.Meta() != nil {
-			var_glojure_DOT_core_with_DASH_init.SetMeta(tmp0.Meta().(lang.IPersistentMap))
-		}
-	}
 	// with-meta
 	{
 		tmp0 := sym_with_DASH_meta.WithMeta(lang.NewMap(kw_arglists, lang.NewList(lang.NewVector(sym_obj, sym_m)), kw_doc, "Returns an object of the same type and value as obj, with\n    map m as its metadata.", kw_static, true, kw_file, "glojure/core.glj", kw_added, "1.0", kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core), kw_end_DASH_column, int(10), kw_column, int(2), kw_line, int(211), kw_end_DASH_line, int(216))).(*lang.Symbol)
diff --git a/pkg/runtime/testdata/codegen/test/goroutine.glj b/pkg/runtime/testdata/codegen/test/goroutine.glj
@@ -0,0 +1,15 @@
+(ns codegen.test.goroutine)
+
+(defn send-on-chan [ch val]
+  (let [chVal (reflect.ValueOf ch)
+        valVal (reflect.ValueOf val)]
+    (.Send chVal valVal)))
+
+(defn ^{:expected-output 42} -main []
+  (let [ch (go/make (go/chan-of go/int64))
+        chVal (reflect.ValueOf ch)]
+    (go/go (send-on-chan ch 42))
+    (let [[recvResult ok] (.Recv chVal)]
+      (if (not ok)
+        (throw (fmt.Errorf "Channel closed")))
+      (.Interface recvResult))))
diff --git a/pkg/runtime/testdata/codegen/test/goroutine/load.go.out b/pkg/runtime/testdata/codegen/test/goroutine/load.go.out
@@ -0,0 +1,180 @@
+// Code generated by glojure codegen. DO NOT EDIT.
+
+package goroutine
+
+import (
+	fmt "fmt"
+	lang "github.com/glojurelang/glojure/pkg/lang"
+	runtime "github.com/glojurelang/glojure/pkg/runtime"
+	reflect "reflect"
+)
+
+func init() {
+	runtime.RegisterNSLoader("codegen/test/goroutine", LoadNS)
+}
+
+func checkDerefVar(v *lang.Var) any {
+	if v.IsMacro() {
+		panic(lang.NewIllegalArgumentError(fmt.Sprintf("can't take value of macro: %v", v)))
+	}
+	return v.Get()
+}
+
+func checkArity(args []any, expected int) {
+	if len(args) != expected {
+		panic(lang.NewIllegalArgumentError("wrong number of arguments (" + fmt.Sprint(len(args)) + ")"))
+	}
+}
+
+func checkArityGTE(args []any, min int) {
+	if len(args) < min {
+		panic(lang.NewIllegalArgumentError("wrong number of arguments (" + fmt.Sprint(len(args)) + ")"))
+	}
+}
+
+// LoadNS initializes the namespace "codegen.test.goroutine"
+func LoadNS() {
+	sym__DASH_main := lang.NewSymbol("-main")
+	sym_ch := lang.NewSymbol("ch")
+	sym_codegen_DOT_test_DOT_goroutine := lang.NewSymbol("codegen.test.goroutine")
+	sym_glojure_DOT_core := lang.NewSymbol("glojure.core")
+	sym_not := lang.NewSymbol("not")
+	sym_nth := lang.NewSymbol("nth")
+	sym_send_DASH_on_DASH_chan := lang.NewSymbol("send-on-chan")
+	sym_val := lang.NewSymbol("val")
+	kw_arglists := lang.NewKeyword("arglists")
+	kw_column := lang.NewKeyword("column")
+	kw_end_DASH_column := lang.NewKeyword("end-column")
+	kw_end_DASH_line := lang.NewKeyword("end-line")
+	kw_expected_DASH_output := lang.NewKeyword("expected-output")
+	kw_file := lang.NewKeyword("file")
+	kw_line := lang.NewKeyword("line")
+	kw_ns := lang.NewKeyword("ns")
+	kw_rettag := lang.NewKeyword("rettag")
+	// var codegen.test.goroutine/-main
+	var_codegen_DOT_test_DOT_goroutine__DASH_main := lang.InternVarName(sym_codegen_DOT_test_DOT_goroutine, sym__DASH_main)
+	// var codegen.test.goroutine/send-on-chan
+	var_codegen_DOT_test_DOT_goroutine_send_DASH_on_DASH_chan := lang.InternVarName(sym_codegen_DOT_test_DOT_goroutine, sym_send_DASH_on_DASH_chan)
+	// var glojure.core/not
+	var_glojure_DOT_core_not := lang.InternVarName(sym_glojure_DOT_core, sym_not)
+	// var glojure.core/nth
+	var_glojure_DOT_core_nth := lang.InternVarName(sym_glojure_DOT_core, sym_nth)
+	// reference fmt to avoid unused import error
+	_ = fmt.Printf
+	// reference reflect to avoid unused import error
+	_ = reflect.TypeOf
+	ns := lang.FindOrCreateNamespace(sym_codegen_DOT_test_DOT_goroutine)
+	_ = ns
+	// send-on-chan
+	{
+		tmp0 := sym_send_DASH_on_DASH_chan.WithMeta(lang.NewMap(kw_file, "codegen/test/goroutine.glj", kw_line, int(3), kw_column, int(7), kw_end_DASH_line, int(3), kw_end_DASH_column, int(18), kw_arglists, lang.NewList(lang.NewVector(sym_ch, sym_val)), kw_ns, lang.FindOrCreateNamespace(sym_codegen_DOT_test_DOT_goroutine))).(*lang.Symbol)
+		var tmp1 lang.FnFunc
+		tmp1 = lang.NewFnFunc(func(args ...any) any {
+			checkArity(args, 2)
+			v2 := args[0]
+			_ = v2
+			v3 := args[1]
+			_ = v3
+			var tmp4 any
+			{ // let
+				// let binding "chVal"
+				tmp5 := lang.Apply(reflect.ValueOf, []any{v2})
+				var v6 any = tmp5
+				_ = v6
+				// let binding "valVal"
+				tmp7 := lang.Apply(reflect.ValueOf, []any{v3})
+				var v8 any = tmp7
+				_ = v8
+				tmp9, _ := lang.FieldOrMethod(v6, "Send")
+				if reflect.TypeOf(tmp9).Kind() != reflect.Func {
+					panic(lang.NewIllegalArgumentError(fmt.Sprintf("Send is not a function")))
+				}
+				tmp10 := lang.Apply(tmp9, []any{v8})
+				tmp4 = tmp10
+			} // end let
+			return tmp4
+		})
+		tmp1 = tmp1.WithMeta(lang.NewMap(kw_rettag, nil)).(lang.FnFunc)
+		var_codegen_DOT_test_DOT_goroutine_send_DASH_on_DASH_chan = ns.InternWithValue(tmp0, tmp1, true)
+		if tmp0.Meta() != nil {
+			var_codegen_DOT_test_DOT_goroutine_send_DASH_on_DASH_chan.SetMeta(tmp0.Meta().(lang.IPersistentMap))
+		}
+	}
+	// -main
+	{
+		tmp0 := sym__DASH_main.WithMeta(lang.NewMap(kw_expected_DASH_output, int64(42), kw_file, "codegen/test/goroutine.glj", kw_line, int(8), kw_column, int(7), kw_end_DASH_line, int(8), kw_end_DASH_column, int(34), kw_arglists, lang.NewList(lang.NewVector()), kw_ns, lang.FindOrCreateNamespace(sym_codegen_DOT_test_DOT_goroutine))).(*lang.Symbol)
+		var tmp1 lang.FnFunc
+		tmp1 = lang.NewFnFunc(func(args ...any) any {
+			checkArity(args, 0)
+			var tmp2 any
+			{ // let
+				// let binding "ch"
+				tmp3 := lang.Apply(lang.Builtins["chan-of"], []any{lang.Builtins["int64"]})
+				tmp4 := lang.Apply(lang.Builtins["make"], []any{tmp3})
+				var v5 any = tmp4
+				_ = v5
+				// let binding "chVal"
+				tmp6 := lang.Apply(reflect.ValueOf, []any{v5})
+				var v7 any = tmp6
+				_ = v7
+				tmp8 := checkDerefVar(var_codegen_DOT_test_DOT_goroutine_send_DASH_on_DASH_chan)
+				go lang.Apply(tmp8, []any{v5, int64(42)})
+				var tmp9 any
+				{ // let
+					// let binding "vec__368"
+					tmp10, ok := lang.FieldOrMethod(v7, "Recv")
+					if !ok {
+						panic(lang.NewIllegalArgumentError(fmt.Sprintf("no such field or method on %T: %s", v7, "Recv")))
+					}
+					var tmp11 any
+					switch reflect.TypeOf(tmp10).Kind() {
+					case reflect.Func:
+						tmp11 = lang.Apply(tmp10, nil)
+					default:
+						tmp11 = tmp10
+					}
+					var v12 any = tmp11
+					_ = v12
+					// let binding "recvResult"
+					tmp13 := checkDerefVar(var_glojure_DOT_core_nth)
+					tmp14 := lang.Apply(tmp13, []any{v12, int64(0), nil})
+					var v15 any = tmp14
+					_ = v15
+					// let binding "ok"
+					tmp16 := checkDerefVar(var_glojure_DOT_core_nth)
+					tmp17 := lang.Apply(tmp16, []any{v12, int64(1), nil})
+					var v18 any = tmp17
+					_ = v18
+					var tmp19 any
+					tmp20 := checkDerefVar(var_glojure_DOT_core_not)
+					tmp21 := lang.Apply(tmp20, []any{v18})
+					if lang.IsTruthy(tmp21) {
+						tmp22 := lang.Apply(fmt.Errorf, []any{"Channel closed"})
+						panic(tmp22)
+					} else {
+					}
+					_ = tmp19
+					tmp23, ok := lang.FieldOrMethod(v15, "Interface")
+					if !ok {
+						panic(lang.NewIllegalArgumentError(fmt.Sprintf("no such field or method on %T: %s", v15, "Interface")))
+					}
+					var tmp24 any
+					switch reflect.TypeOf(tmp23).Kind() {
+					case reflect.Func:
+						tmp24 = lang.Apply(tmp23, nil)
+					default:
+						tmp24 = tmp23
+					}
+					tmp9 = tmp24
+				} // end let
+				tmp2 = tmp9
+			} // end let
+			return tmp2
+		})
+		tmp1 = tmp1.WithMeta(lang.NewMap(kw_rettag, nil)).(lang.FnFunc)
+		var_codegen_DOT_test_DOT_goroutine__DASH_main = ns.InternWithValue(tmp0, tmp1, true)
+		if tmp0.Meta() != nil {
+			var_codegen_DOT_test_DOT_goroutine__DASH_main.SetMeta(tmp0.Meta().(lang.IPersistentMap))
+		}
+	}
+}

Original file line number	Diff line number	Diff line change
`@@ -268,6 +268,7 @@ func LoadNS() {`
`268`	`268`	`sym_codegen_DOT_test_DOT_def_DASH_simple := lang.NewSymbol("codegen.test.def-simple")`
`269`	`269`	`sym_codegen_DOT_test_DOT_fn_DASH_closure := lang.NewSymbol("codegen.test.fn-closure")`
`270`	`270`	`sym_codegen_DOT_test_DOT_fn_DASH_recur := lang.NewSymbol("codegen.test.fn-recur")`
	`271`	`+ sym_codegen_DOT_test_DOT_goroutine := lang.NewSymbol("codegen.test.goroutine")`
`271`	`272`	`sym_codegen_DOT_test_DOT_loop_DASH_simple := lang.NewSymbol("codegen.test.loop-simple")`
`272`	`273`	`sym_codegen_DOT_test_DOT_maybe_DASH_class := lang.NewSymbol("codegen.test.maybe-class")`
`273`	`274`	`sym_codegen_DOT_test_DOT_multifn := lang.NewSymbol("codegen.test.multifn")`
`@@ -1273,7 +1274,6 @@ func LoadNS() {`
`1273`	`1274`	`sym_with_DASH_bindings := lang.NewSymbol("with-bindings")`
`1274`	`1275`	`sym_with_DASH_bindings_STAR_ := lang.NewSymbol("with-bindings*")`
`1275`	`1276`	`sym_with_DASH_in_DASH_str := lang.NewSymbol("with-in-str")`
`1276`		`- sym_with_DASH_init := lang.NewSymbol("with-init")`
`1277`	`1277`	`sym_with_DASH_loading_DASH_context := lang.NewSymbol("with-loading-context")`
`1278`	`1278`	`sym_with_DASH_local_DASH_vars := lang.NewSymbol("with-local-vars")`
`1279`	`1279`	`sym_with_DASH_meta := lang.NewSymbol("with-meta")`
`@@ -2791,8 +2791,6 @@ func LoadNS() {`
`2791`	`2791`	`var_glojure_DOT_core_with_DASH_bindings_STAR_ := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_bindings_STAR_)`
`2792`	`2792`	`// var glojure.core/with-in-str`
`2793`	`2793`	`var_glojure_DOT_core_with_DASH_in_DASH_str := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_in_DASH_str)`
`2794`		`- // var glojure.core/with-init`
`2795`		`- var_glojure_DOT_core_with_DASH_init := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_init)`
`2796`	`2794`	`// var glojure.core/with-loading-context`
`2797`	`2795`	`var_glojure_DOT_core_with_DASH_loading_DASH_context := lang.InternVarName(sym_glojure_DOT_core, sym_with_DASH_loading_DASH_context)`
`2798`	`2796`	`// var glojure.core/with-local-vars`
`@@ -3103,27 +3101,30 @@ func LoadNS() {`
`3103`	`3101`	`}`
`3104`	`3102`	`// *1`
`3105`	`3103`	`{`
`3106`		`- tmp0 := sym__STAR_1.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`3104`	`+ tmp0 := sym__STAR_1.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6268), kw_column, int(6), kw_end_DASH_line, int(6271), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`3107`	`3105`	`var_glojure_DOT_core__STAR_1 = ns.Intern(tmp0)`
`3108`	`3106`	`if tmp0.Meta() != nil {`
`3109`	`3107`	`var_glojure_DOT_core__STAR_1.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`3110`	`3108`	`}`
	`3109`	`+ var_glojure_DOT_core__STAR_1.SetDynamic()`
`3111`	`3110`	`}`
`3112`	`3111`	`// *2`
`3113`	`3112`	`{`
`3114`		`- tmp0 := sym__STAR_2.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`3113`	`+ tmp0 := sym__STAR_2.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6273), kw_column, int(6), kw_end_DASH_line, int(6276), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`3115`	`3114`	`var_glojure_DOT_core__STAR_2 = ns.Intern(tmp0)`
`3116`	`3115`	`if tmp0.Meta() != nil {`
`3117`	`3116`	`var_glojure_DOT_core__STAR_2.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`3118`	`3117`	`}`
	`3118`	`+ var_glojure_DOT_core__STAR_2.SetDynamic()`
`3119`	`3119`	`}`
`3120`	`3120`	`// *3`
`3121`	`3121`	`{`
`3122`		`- tmp0 := sym__STAR_3.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`3122`	`+ tmp0 := sym__STAR_3.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6278), kw_column, int(6), kw_end_DASH_line, int(6281), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`3123`	`3123`	`var_glojure_DOT_core__STAR_3 = ns.Intern(tmp0)`
`3124`	`3124`	`if tmp0.Meta() != nil {`
`3125`	`3125`	`var_glojure_DOT_core__STAR_3.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`3126`	`3126`	`}`
	`3127`	`+ var_glojure_DOT_core__STAR_3.SetDynamic()`
`3127`	`3128`	`}`
`3128`	`3129`	`// agent`
`3129`	`3130`	`{`
`@@ -3193,11 +3194,12 @@ func LoadNS() {`
`3193`	`3194`	`}`
`3194`	`3195`	`// *e`
`3195`	`3196`	`{`
`3196`		`- tmp0 := sym__STAR_e.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`3197`	`+ tmp0 := sym__STAR_e.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(6283), kw_column, int(6), kw_end_DASH_line, int(6286), kw_end_DASH_column, int(3), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`3197`	`3198`	`var_glojure_DOT_core__STAR_e = ns.Intern(tmp0)`
`3198`	`3199`	`if tmp0.Meta() != nil {`
`3199`	`3200`	`var_glojure_DOT_core__STAR_e.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`3200`	`3201`	`}`
	`3202`	`+ var_glojure_DOT_core__STAR_e.SetDynamic()`
`3201`	`3203`	`}`
`3202`	`3204`	`// err`
`3203`	`3205`	`{`
`@@ -3226,7 +3228,7 @@ func LoadNS() {`
`3226`	`3228`	`// loaded-libs`
`3227`	`3229`	`{`
`3228`	`3230`	`tmp0 := sym__STAR_loaded_DASH_libs_STAR_.WithMeta(lang.NewMap(kw_dynamic, true, kw_file, "glojure/core.glj", kw_line, int(5817), kw_column, int(10), kw_end_DASH_line, int(5820), kw_end_DASH_column, int(15), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`3229`		- tmp1 := lang.NewRef(lang.CreatePersistentTreeSet(lang.NewSliceSeq([]any{sym_glojure_DOT_core_DOT_protocols, sym_glojure_DOT_string, sym_glojure_DOT_go_DOT_io, sym_codegen_DOT_test_DOT_case_DASH_switch, sym_codegen_DOT_test_DOT_const_DASH_keyword, sym_codegen_DOT_test_DOT_const_DASH_number, sym_codegen_DOT_test_DOT_const_DASH_string, sym_codegen_DOT_test_DOT_def_DASH_simple, sym_codegen_DOT_test_DOT_fn_DASH_closure, sym_codegen_DOT_test_DOT_fn_DASH_recur, sym_codegen_DOT_test_DOT_loop_DASH_simple, sym_codegen_DOT_test_DOT_maybe_DASH_class, sym_codegen_DOT_test_DOT_multifn, sym_codegen_DOT_test_DOT_ns_DASH_skip, sym_codegen_DOT_test_DOT_quote_DASH_simple, sym_codegen_DOT_test_DOT_ref, sym_codegen_DOT_test_DOT_set_DASH_bang, sym_codegen_DOT_test_DOT_the_DASH_var, sym_codegen_DOT_test_DOT_throw_DASH_simple, sym_codegen_DOT_test_DOT_try_DASH_advanced, sym_codegen_DOT_test_DOT_try_DASH_basic, sym_codegen_DOT_test_DOT_values, sym_codegen_DOT_test_DOT_with_DASH_meta})))
	`3231`	+ tmp1 := lang.NewRef(lang.CreatePersistentTreeSet(lang.NewSliceSeq([]any{sym_glojure_DOT_core_DOT_protocols, sym_glojure_DOT_string, sym_glojure_DOT_go_DOT_io, sym_codegen_DOT_test_DOT_case_DASH_switch, sym_codegen_DOT_test_DOT_const_DASH_keyword, sym_codegen_DOT_test_DOT_const_DASH_number, sym_codegen_DOT_test_DOT_const_DASH_string, sym_codegen_DOT_test_DOT_def_DASH_simple, sym_codegen_DOT_test_DOT_fn_DASH_closure, sym_codegen_DOT_test_DOT_fn_DASH_recur, sym_codegen_DOT_test_DOT_goroutine, sym_codegen_DOT_test_DOT_loop_DASH_simple, sym_codegen_DOT_test_DOT_maybe_DASH_class, sym_codegen_DOT_test_DOT_multifn, sym_codegen_DOT_test_DOT_ns_DASH_skip, sym_codegen_DOT_test_DOT_quote_DASH_simple, sym_codegen_DOT_test_DOT_ref, sym_codegen_DOT_test_DOT_set_DASH_bang, sym_codegen_DOT_test_DOT_the_DASH_var, sym_codegen_DOT_test_DOT_throw_DASH_simple, sym_codegen_DOT_test_DOT_try_DASH_advanced, sym_codegen_DOT_test_DOT_try_DASH_basic, sym_codegen_DOT_test_DOT_values, sym_codegen_DOT_test_DOT_with_DASH_meta})))
`3230`	`3232`	`var_glojure_DOT_core__STAR_loaded_DASH_libs_STAR_ = ns.InternWithValue(tmp0, tmp1, true)`
`3231`	`3233`	`if tmp0.Meta() != nil {`
`3232`	`3234`	`var_glojure_DOT_core__STAR_loaded_DASH_libs_STAR_.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`@@ -4530,7 +4532,7 @@ func LoadNS() {`
`4530`	`4532`	`}`
`4531`	`4533`	`// gen-class`
`4532`	`4534`	`{`
`4533`		`- tmp0 := sym_gen_DASH_class.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`4535`	`+ tmp0 := sym_gen_DASH_class.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(5732), kw_column, int(10), kw_end_DASH_line, int(5732), kw_end_DASH_column, int(18), kw_declared, true, kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`4534`	`4536`	`var_glojure_DOT_core_gen_DASH_class = ns.Intern(tmp0)`
`4535`	`4537`	`if tmp0.Meta() != nil {`
`4536`	`4538`	`var_glojure_DOT_core_gen_DASH_class.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`@@ -7618,15 +7620,15 @@ func LoadNS() {`
`7618`	`7620`	`}`
`7619`	`7621`	`// unquote`
`7620`	`7622`	`{`
`7621`		`- tmp0 := sym_unquote.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`7623`	`+ tmp0 := sym_unquote.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(11), kw_column, int(6), kw_end_DASH_line, int(11), kw_end_DASH_column, int(12), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`7622`	`7624`	`var_glojure_DOT_core_unquote = ns.Intern(tmp0)`
`7623`	`7625`	`if tmp0.Meta() != nil {`
`7624`	`7626`	`var_glojure_DOT_core_unquote.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`7625`	`7627`	`}`
`7626`	`7628`	`}`
`7627`	`7629`	`// unquote-splicing`
`7628`	`7630`	`{`
`7629`		`- tmp0 := sym_unquote_DASH_splicing.WithMeta(lang.NewMap()).(*lang.Symbol)`
	`7631`	`+ tmp0 := sym_unquote_DASH_splicing.WithMeta(lang.NewMap(kw_file, "glojure/core.glj", kw_line, int(12), kw_column, int(6), kw_end_DASH_line, int(12), kw_end_DASH_column, int(21), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`7630`	`7632`	`var_glojure_DOT_core_unquote_DASH_splicing = ns.Intern(tmp0)`
`7631`	`7633`	`if tmp0.Meta() != nil {`
`7632`	`7634`	`var_glojure_DOT_core_unquote_DASH_splicing.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`@@ -8056,14 +8058,6 @@ func LoadNS() {`
`8056`	`8058`	`var_glojure_DOT_core_when_DASH_not.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`8057`	`8059`	`}`
`8058`	`8060`	`}`
`8059`		`- // with-init`
`8060`		`- {`
`8061`		`- tmp0 := sym_with_DASH_init.WithMeta(lang.NewMap(kw_file, "codegen/test/def_simple.glj", kw_line, int(7), kw_column, int(8), kw_end_DASH_line, int(7), kw_end_DASH_column, int(16), kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core))).(*lang.Symbol)`
`8062`		`- var_glojure_DOT_core_with_DASH_init = ns.InternWithValue(tmp0, int64(42), true)`
`8063`		`- if tmp0.Meta() != nil {`
`8064`		`- var_glojure_DOT_core_with_DASH_init.SetMeta(tmp0.Meta().(lang.IPersistentMap))`
`8065`		`- }`
`8066`		`- }`
`8067`	`8061`	`// with-meta`
`8068`	`8062`	`{`
`8069`	`8063`	`tmp0 := sym_with_DASH_meta.WithMeta(lang.NewMap(kw_arglists, lang.NewList(lang.NewVector(sym_obj, sym_m)), kw_doc, "Returns an object of the same type and value as obj, with\n map m as its metadata.", kw_static, true, kw_file, "glojure/core.glj", kw_added, "1.0", kw_ns, lang.FindOrCreateNamespace(sym_glojure_DOT_core), kw_end_DASH_column, int(10), kw_column, int(2), kw_line, int(211), kw_end_DASH_line, int(216))).(*lang.Symbol)`