diff --git a/precompiled.bqn b/precompiled.bqn index 269b4e6e..f4798a85 100755 --- a/precompiled.bqn +++ b/precompiled.bqn @@ -11,12 +11,12 @@ tests ← •FLines path∾"/test/cases/prim.bqn" {tests↩𝕩}⍟(×≠) 2↓•args ('#'≠ ·⊑ ∾⟜"#")◶@‿{ - '%'⊸∊◶{𝕤 + (⊑'%'⊸∊)◶{𝕤 •Out 𝕩 "src/gen/interp" •FChars ⟨1,path,𝕩⟩ •Import "cc.bqn" (×⊑)◶@‿{𝕤⋄•Out "############ Failed to compile! ############" ⋄ •Out¨1↓𝕩}{env⇐<"PATH="∾envP}•SH"make"‿"f=-DPRECOMP"‿"t=precomp"‿"c" - code‿out‿err←•SH"./BQN" + code‿out‿err←•SH⟨"./BQN"⟩ •Out out - {𝕤⋄•Out"exit code "∾(⍕code) ⋄ •Out err}⍟(×code) err + {𝕤⋄•Out"exit code "∾(•Repr code) ⋄ •Out err}⍟(×code) err }‿⊢ }¨tests \ No newline at end of file diff --git a/src/builtins.h b/src/builtins.h index c8bfa196..5c43f084 100644 --- a/src/builtins.h +++ b/src/builtins.h @@ -8,7 +8,7 @@ /* sort.c*/A(gradeUp,"⍋") A(gradeDown,"⍒") \ /* everything before the definition of •Type is defined to be pure, and everything after is not */ \ /* sysfn.c*/M(type,"•Type") M(decp,"•Decompose") M(primInd,"•PrimInd") M(glyph,"•Glyph") A(fill,"•FillFn") M(sys,"•getsys") A(grLen,"•GroupLen") D(grOrd,"•GroupOrd") \ -/* sysfn.c*/M(repr,"•Repr") M(fmt,"•Fmt") A(asrt,"!") A(casrt,"!") M(out,"•Out") M(show,"•Show") A(bqn,"•BQN") M(sh,"•SH") M(fromUtf8,"•FromUTF8") \ +/* sysfn.c*/M(repr,"•Repr") M(fmt,"•Fmt") A(asrt,"!") A(casrt,"!") M(out,"•Out") M(show,"•Show") A(bqn,"•BQN") A(sh,"•SH") M(fromUtf8,"•FromUTF8") \ /* sysfn.c*/D(cmp,"•Cmp") A(hash,"•Hash") M(unixTime,"•UnixTime") M(monoTime,"•MonoTime") M(delay,"•Delay") M(makeRand,"•MakeRand") M(reBQN,"•ReBQN") M(exit,"•Exit") M(getLine,"•GetLine") \ /*internal.c*/M(itype,"•internal.Type") M(elType,"•internal.ElType") M(refc,"•internal.Refc") M(isPure,"•internal.IsPure") A(info,"•internal.Info") \ /*internal.c*/M(squeeze,"•internal.Squeeze") M(deepSqueeze,"•internal.DeepSqueeze") \ diff --git a/src/builtins/sysfn.c b/src/builtins/sysfn.c index 39684d43..2c5aca32 100644 --- a/src/builtins/sysfn.c +++ b/src/builtins/sysfn.c @@ -758,6 +758,10 @@ B sh_c1(B t, B x) { thrM("•SH: CBQN was built without "); } #endif +B sh_c2(B t, B w, B x) { + dec(w); + return sh_c1(t, x); +} B getInternalNS(void);