haxala1r/olisp
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects 1 Releases Wiki Activity

syntactic_ast: fix issue in cond parsing

Browse Source
This commit is contained in:
Emin Arslan
2026-01-07 18:17:24 +03:00
parent 0d731f29b3
commit e25b6b0b10
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/compiler/syntactic_ast.ml
View File

@@ -187,7 +187,7 @@ and parse_clauses cons =
Result.map_l parse_one l Result.map_l parse_one l
and builtin_cond cons = and builtin_cond cons =
let* clauses = sexpr_cadr cons in let* clauses = sexpr_cdr cons in
let* clauses = parse_clauses clauses in let* clauses = parse_clauses clauses in
exp (Cond clauses) exp (Cond clauses)
@@ -264,7 +264,7 @@ and print_clause x =
let (CondClause (test, expr)) = x in let (CondClause (test, expr)) = x in
pf "(%s %s)" (print_expr test) (print_expr expr) pf "(%s %s)" (print_expr test) (print_expr expr)
and print_clauses l = and print_clauses l =
("(" ^ (String.concat "\n" (map print_clause l)) ^ ")") (String.concat "\n" (map print_clause l))
and print_def = function and print_def = function
| Define (s, expr) -> | Define (s, expr) ->
pf "(define %s pf "(define %s