From 422cc26054ae7d11ae99a06cb0a1a3c45081295e Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 26 Jan 2023 02:42:25 +0200 Subject: [PATCH] =?UTF-8?q?dyadic=20=E2=80=A2CompObj=20to=20replace=20comp?= =?UTF-8?q?iler?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins.h | 2 +- src/load.c | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/builtins.h b/src/builtins.h index a85244cf..e2c55cd4 100644 --- a/src/builtins.h +++ b/src/builtins.h @@ -8,7 +8,7 @@ /* sfns.c*/A(shifta,"«") A(take,"↑") A(drop,"↓") A(group,"⊔") A(reverse,"⌽") A(transp,"⍉") \ /* sort.c*/A(gradeUp,"⍋") A(gradeDown,"⍒") \ /* everything before the definition of •Type is defined to be pure, and everything after is not */ \ -/* sysfn.c*/A(invalidFn, "(invalid fn)") A(grLen,"•GroupLen") D(grOrd,"•GroupOrd") M(compObj, "•CompObj") A(fill,"•FillFn") M(sys,"•getsys") M(primInd,"•PrimInd") M(glyph,"•Glyph") \ +/* sysfn.c*/A(invalidFn, "(invalid fn)") A(grLen,"•GroupLen") D(grOrd,"•GroupOrd") A(compObj, "•CompObj") A(fill,"•FillFn") M(sys,"•getsys") M(primInd,"•PrimInd") M(glyph,"•Glyph") \ /* sysfn.c*/M(type,"•Type") M(decp,"•Decompose") M(repr,"•Repr") M(parseFloat,"•ParseFloat") M(fmt,"•Fmt") A(asrt,"!") A(casrt,"!") M(out,"•Out") M(show,"•Show") A(bqn,"•BQN") \ /* sysfn.c*/A(sh,"•SH") M(fromUtf8,"•FromUTF8") M(toUtf8,"•ToUTF8") M(currentError,"•CurrentError") D(cmp,"•Cmp") A(hash,"•Hash") M(unixTime,"•UnixTime")\ /* sysfn.c*/M(monoTime,"•MonoTime") M(delay,"•Delay") M(makeRand,"•MakeRand") M(reBQN,"•ReBQN") M(exit,"•Exit") M(getLine,"•GetLine") \ diff --git a/src/load.c b/src/load.c index b8ca1a22..ac11c106 100644 --- a/src/load.c +++ b/src/load.c @@ -153,6 +153,10 @@ B compObj_c1(B t, B x) { ptr_dec(block); return res; } +B compObj_c2(B t, B w, B x) { + load_comp = x; gc_add(x); + return w; +} #if FORMATTER B load_fmt, load_repr;