From 4ed2d0bec23498c70d41c26a1bd76182f65a0b4a Mon Sep 17 00:00:00 2001 From: dzaima Date: Sun, 3 Apr 2022 17:38:06 +0300 Subject: [PATCH] sysfn cleanup --- src/builtins/sysfn.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/builtins/sysfn.c b/src/builtins/sysfn.c index 20320cc8..c02c8adf 100644 --- a/src/builtins/sysfn.c +++ b/src/builtins/sysfn.c @@ -221,7 +221,7 @@ B casrt_c1(B t, B x) { } B sys_c1(B t, B x); -B out_c1(B t, B x) { +B out_c1(B t, B x) { if (isArr(x) && rnk(x)>1) thrF("•Out: Argument cannot have rank %i", rnk(x)); printRaw(x); putchar('\n'); return x; @@ -239,7 +239,7 @@ B show_c1(B t, B x) { static B vfyStr(B x, char* name, char* arg) { if (isAtm(x) || rnk(x)!=1) thrF("%U: %U must be a character vector", name, arg); - if (a(x)->type!=t_c32arr && a(x)->type!=t_c32slice) { + if (!elChr(TI(x,elType))) { usz ia = a(x)->ia; SGetU(x) for (usz i = 0; i < ia; i++) if (!isC32(GetU(x,i))) thrF("%U: %U must be a character vector", name, arg);