From 82d2eb5b1abb17d8200d2c01f21677368e3fa735 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 13 Aug 2022 19:00:59 -0400 Subject: [PATCH] =?UTF-8?q?Fix=20monadic=20=E2=8C=8A`=20initial=20element?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 3b6bc7b9..d10ff34e 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -176,9 +176,9 @@ B scan_c1(Md1D* d, B x) { B f = d->f; if (xe==el_i32) { i32* xp=i32any_ptr(x); i32* rp; B r=m_i32arrv(&rp, ia); i32 c=0; for (usz i=0; ic)c=xp[i]; rp[i]=c; } decG(x); return r; }