Просмотр исходного кода

preven slime from exiting on repl error

master
FelixBrendel 6 лет назад
Родитель
Сommit
7559646ada
1 измененных файлов: 12 добавлений и 4 удалений
  1. +12
    -4
      src/eval.cpp

+ 12
- 4
src/eval.cpp Просмотреть файл

@@ -584,13 +584,21 @@ namespace Slime {
Lisp_Object* parsed, * evaluated;
while (true) {
delete_error();
if (Globals::error) {
log_error();
delete_error();
}
fputs("> ", stdout);
line = read_expression();
try_void parsed = Parser::parse_single_expression(line);
parsed = Parser::parse_single_expression(line);
if (Globals::error) {
continue;
}
free(line);
try_void evaluated = eval_expr(parsed);
// try_void evaluated = eval_expr(parsed);
evaluated = eval_expr(parsed);
if (Globals::error) {
continue;
}
if (evaluated && evaluated != Memory::nil) {
print(evaluated);
}


Загрузка…
Отмена
Сохранить