v0.23: closure source form is printed

kimtg · kimtg · commit 3b660b10c412 · 2023-08-08T22:22:38.000+09:00
diff --git a/arc.cpp b/arc.cpp
@@ -1834,7 +1834,8 @@ A symbol can be coerced to a string.
 		}
 		case T_CLOSURE:
 		{
-			s = "#<closure>";
+			atom a2  = make_cons(sym_fn, make_cons(a.as<struct closure>().args, a.as<struct closure>().body));
+			s = "#<closure>" + to_string(a2, 1);
 			break;
 		}
 		case T_MACRO:
diff --git a/arc.h b/arc.h
@@ -34,7 +34,7 @@
 #endif
 
 namespace arc {
-	constexpr auto VERSION = "0.22";
+	constexpr auto VERSION = "0.23";
 
 	enum type {
 		T_NIL,

Original file line number	Diff line number	Diff line change
`@@ -1834,7 +1834,8 @@ A symbol can be coerced to a string.`
`1834`	`1834`	`}`
`1835`	`1835`	`case T_CLOSURE:`
`1836`	`1836`	`{`
`1837`		`- s = "#<closure>";`
	`1837`	`+ atom a2 = make_cons(sym_fn, make_cons(a.as<struct closure>().args, a.as<struct closure>().body));`
	`1838`	`+ s = "#<closure>" + to_string(a2, 1);`
`1838`	`1839`	`break;`
`1839`	`1840`	`}`
`1840`	`1841`	`case T_MACRO:`