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

change loop return value, check errors

master
Martin Dørum 3 лет назад
Родитель
Сommit
73b77185b1
1 измененных файлов: 6 добавлений и 2 удалений
  1. 6
    2
      lib/vm/builtins.c

+ 6
- 2
lib/vm/builtins.c Просмотреть файл

@@ -299,7 +299,11 @@ struct loop_context {

static l2_word loop_callback(struct l2_vm *vm, l2_word retval, l2_word cont) {
struct l2_vm_value *val = &vm->values[retval];
if (l2_value_get_type(val) == L2_VAL_TYPE_ATOM && val->atom == vm->values[vm->kstop].atom) {
if (l2_value_get_type(val) == L2_VAL_TYPE_ERROR) {
return retval;
} else if (
l2_value_get_type(val) == L2_VAL_TYPE_ATOM &&
val->atom == vm->values[vm->kstop].atom) {
return vm->knone;
} else {
return cont;
@@ -353,7 +357,7 @@ static l2_word while_callback(struct l2_vm *vm, l2_word retval, l2_word cont_id)
cont->extra.cont_call = ctx->body;
return cont_id;
} else {
return retval;
return vm->knone;
}
} else {
if (l2_value_get_type(ret) == L2_VAL_TYPE_ERROR) {

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