fixed missing rib and added test case

azizghuloum · Nov 24, 2024 · 44fe55e · 44fe55e
1 parent 3701c08
commit 44fe55e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/src/expander.ts b/src/expander.ts
@@ -327,7 +327,7 @@ function expand_concise_body(step: {
 }): never {
   const loc = step.loc;
   const k: (gs: goodies) => never = (gs: goodies) => {
-    const new_unit = extend_unit(step.unit, step.rib_id, gs.rib);
+    const new_unit = extend_unit(gs.unit, step.rib_id, gs.rib);
     return postexpand_body({ ...gs, unit: new_unit, k: step.k });
   };
   return loc.t.type === "list" && loc.t.tag === "statement_block"

diff --git a/tests/macro-generating-macro-1.ts b/tests/macro-generating-macro-1.ts
@@ -0,0 +1,5 @@
+using_syntax_rules(
+  [capture,
+   capture(expr, id, body), 
+   using_syntax_rules([id, id, expr]).rewrite(body)],
+).rewrite((x) => capture(x, t, (x) => x + t))
diff --git a/tests/macro-generating-macro-1.ts.expanded b/tests/macro-generating-macro-1.ts.expanded
@@ -0,0 +1,3 @@
+(x_5) => (x_11) => x_11 + x_5;
+================================
+DONE