cl-ast: Add inline closure expressions

compiler/cl-repl/examples/to_c.rs

@@ -428,6 +428,7 @@ pub mod clangify {
     impl CLangify for ExprKind {
         fn print(&self, y: &mut CLangifier) {
             match self {
+                ExprKind::Closure(k) => todo!("Downgrade {k}"),
                 ExprKind::Quote(k) => k.print(y),
                 ExprKind::Let(k) => k.print(y),
                 ExprKind::Match(k) => k.print(y),

compiler/cl-repl/examples/yaml.rs

@@ -370,6 +370,7 @@ pub mod yamlify {
     impl Yamlify for ExprKind {
         fn yaml(&self, y: &mut Yamler) {
             match self {
+                ExprKind::Closure(k) => k.yaml(y),
                 ExprKind::Quote(k) => k.yaml(y),
                 ExprKind::Let(k) => k.yaml(y),
                 ExprKind::Match(k) => k.yaml(y),
@@ -401,6 +402,12 @@ pub mod yamlify {
             }
         }
     }
+    impl Yamlify for Closure {
+        fn yaml(&self, y: &mut Yamler) {
+            let Self { arg, body } = self;
+            y.key("Closure").pair("arg", arg).pair("body", body);
+        }
+    }
     impl Yamlify for Quote {
         fn yaml(&self, y: &mut Yamler) {
             y.key("Quote").value(self);