From 8fafbcde65fcc88c3d2a8fc67355ec02fbab859f Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 9 Sep 2024 06:24:12 +0300 Subject: [PATCH] fix toConstant was broken in fork_uc1 before too --- src/builtins.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins.h b/src/builtins.h index b379e741..d2066bf3 100644 --- a/src/builtins.h +++ b/src/builtins.h @@ -107,7 +107,7 @@ static bool toConstant(B x, B* out) { // doesn't consume x; if possible, writes if (TY(x) == t_md1D) { Md1D* d = c(Md1D,x); Md1* m1 = d->m1; - if (PTY(m1)==t_md1BI && m1->flags==n_const) { *out = inc(d->f); return true; } + if (PTY(m1)==t_md1BI && m1->flags-1 == n_const) { *out = inc(d->f); return true; } } return false; }