:art: Improve gack not printing error

diff --git a/src/parse/scan1.c b/src/parse/scan1.c
index d64c1f66d191826b931443fe78293a5c2b287935..4f5faf19ed8a91c3c192bd1c3e455865ab49f350 100644 (file)
--- a/src/parse/scan1.c
+++ b/src/parse/scan1.c
@@ -684,8 +684,12 @@ ANN static m_bool _scan1_func_def(const Env env, const Func_Def fdef) {
   --env->scope->depth;
   env->func = former;
   if (global) env_pop(env, scope);
-  if (fdef->base->xid == insert_symbol("@gack") && !fake.weight)
-    ERR_B(fdef->base->pos, "`@gack` operator not printing anything");
+  if (fdef->base->xid == insert_symbol("@gack") && !fake.weight) {
+    gwerr_basic(_("`@gack` operator does not print anything"), NULL,
+      _("use `<<<` `>>>` in the function"), env->name, fdef->base->pos, 0);
+    env->context->error = true;
+    return GW_ERROR;
+  }
   return ret;
 }