causa-arcana-misc
/
lesson-lisp
1
0
Fork 0
Code

fix syntax "if"

This commit is contained in:
Alex Kotov 2023-05-07 21:06:37 +04:00
parent b2acf41393
commit baf566703e
Signed by: kotovalexarian
GPG Key ID: 553C0EBBEB5D5F08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/syntax.c
View File

@ -89,7 +89,7 @@ struct Object *syntax_if(
struct Object *const environment
) {
assert(Object_is_pair(args));
struct Object *const cond = args->pair.car;
struct Object *const cond_expr = args->pair.car;
struct Object *const then_else_list = args->pair.cdr;
assert(then_else_list);
assert(Object_is_pair(then_else_list));
@ -100,7 +100,7 @@ struct Object *syntax_if(
struct Object *const else_branch = else_list->pair.car;
assert(OBJECT_IS_NULL(else_list->pair.cdr));
if (Object_is_false(cond)) {
if (Object_is_false(eval(cond_expr, environment))) {
return eval(else_branch, environment);
} else {
return eval(then_branch, environment);