From 4c4df6613e2f96e384615ec1c1bcc0df53fa5bc8 Mon Sep 17 00:00:00 2001 From: Kimplul Date: Fri, 31 Jan 2025 18:47:46 +0200 Subject: allow defines in curly braces --- src/lyn.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/lyn.c b/src/lyn.c index b74e19f..2eb8169 100644 --- a/src/lyn.c +++ b/src/lyn.c @@ -13,7 +13,7 @@ static int eval_group(struct lyn *lyn, struct lyn_value value) { - fprintf(lyn->output, "(begin"); + fprintf(lyn->output, "((lambda () (begin"); lyn->depth++; foreach_vec(gi, value.args) { @@ -24,7 +24,7 @@ static int eval_group(struct lyn *lyn, struct lyn_value value) fprintf(lyn->output, ")"); } - fprintf(lyn->output, "\n%*s)", 2 * lyn->depth, " "); + fprintf(lyn->output, "\n%*s)))", 2 * lyn->depth, " "); lyn->depth--; return 0; -- cgit v1.2.3