From 7bf379a44e75a210c7049e5759a372ec9b157b94 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 13 Dec 2023 17:49:46 +0200 Subject: [PATCH] check that -o output is a list --- src/main.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/main.c b/src/main.c index e3348172..fa687e97 100644 --- a/src/main.c +++ b/src/main.c @@ -981,6 +981,7 @@ int main(int argc, char* argv[]) { } case 'o': { repl_init(); REQARG(o); B r = gsc_exec_inplace(utf8Decode0(argv[i++]), "(-o)", emptySVec()); + if (isAtm(r) || RNK(r)!=1) thrM("(-o): Value to print must be a string"); printsB(r); dec(r); printf("\n"); break;