From e25b6b0b1025ad4a5e0e0dca740969f1d706839a Mon Sep 17 00:00:00 2001 From: Emin Arslan Date: Wed, 7 Jan 2026 18:17:24 +0300 Subject: [PATCH] syntactic_ast: fix issue in cond parsing --- lib/compiler/syntactic_ast.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/compiler/syntactic_ast.ml b/lib/compiler/syntactic_ast.ml index e6c0e2d..bdec99b 100644 --- a/lib/compiler/syntactic_ast.ml +++ b/lib/compiler/syntactic_ast.ml @@ -187,7 +187,7 @@ and parse_clauses cons = Result.map_l parse_one l and builtin_cond cons = - let* clauses = sexpr_cadr cons in + let* clauses = sexpr_cdr cons in let* clauses = parse_clauses clauses in exp (Cond clauses) @@ -264,7 +264,7 @@ and print_clause x = let (CondClause (test, expr)) = x in pf "(%s %s)" (print_expr test) (print_expr expr) and print_clauses l = - ("(" ^ (String.concat "\n" (map print_clause l)) ^ ")") + (String.concat "\n" (map print_clause l)) and print_def = function | Define (s, expr) -> pf "(define %s