regression tests output check & fixes

This commit is contained in:
ProgramSnail 2025-03-16 14:26:48 +03:00
parent 3dfefdb2ca
commit 905632aab6
4 changed files with 14 additions and 4 deletions

View file

@ -486,10 +486,10 @@ void run_main(Bytefile* bf, int argc, char **argv) {
s_push_i(Bsexp_tag_patt(s_pop()));
break;
case CMD_PATT_REF_TAG: // #ref
s_push_i(Bunboxed_patt(s_pop()));
s_push_i(Bboxed_patt(s_pop()));
break;
case CMD_PATT_VAL_TAG: // #val
s_push_i(Bboxed_patt(s_pop()));
s_push_i(Bunboxed_patt(s_pop()));
break;
case CMD_PATT_FUN_TAG: // #fun
s_push_i(Bclosure_tag_patt(s_pop()));

View file

@ -473,6 +473,7 @@ void run_stdlib_func(BUILTIN id, size_t args_count) {
s_push(ret);
break;
case BUILTIN_Lread:
printf(" ");
ret = (void *)Lread();
s_push(ret);
break;