1
0
Fork 0

Fix REPL output

This commit is contained in:
Alex Kotov 2023-05-07 21:02:56 +04:00
parent 2c20ba5127
commit b2acf41393
Signed by: kotovalexarian
GPG Key ID: 553C0EBBEB5D5F08
1 changed files with 15 additions and 3 deletions

View File

@ -89,9 +89,21 @@ void repl(struct Object *const environment)
printf("=> ");
syntax_repl(
Object_build_list(
2,
Object_new_symbol("displayln"),
Object_build_list(2, Object_new_symbol("quote"), result)
3,
Object_new_symbol("begin"),
Object_build_list(
2,
Object_new_symbol("display"),
Object_build_list(
2,
Object_new_symbol("quote"),
result
)
),
Object_build_list(
1,
Object_new_symbol("newline")
)
),
environment
);