From: Jérémie Astor <astor.jeremie@wanadoo.fr>
Date: Sun, 17 May 2020 14:23:49 +0000 (+0200)
Subject: :bug: t_gack needs gack
X-Git-Tag: nightly~1541
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=748410bde36e3ee405ef3a7b3253b0d6ea1c6f34;p=gwion.git

:bug: t_gack needs gack
---

diff --git a/src/lib/engine.c b/src/lib/engine.c
index 3407d96f..35d3b454 100644
--- a/src/lib/engine.c
+++ b/src/lib/engine.c
@@ -27,6 +27,10 @@ static GACK(gack_function) {
   INTERP_PRINTF("%s", t->name)
 }
 
+static GACK(gack_gack) {
+  INTERP_PRINTF("%s", *(m_str*)VALUE)
+}
+
 static GACK(gack_fptr) {
   const VM_Code code = *(VM_Code*)VALUE;
   if(code)
@@ -87,6 +91,7 @@ ANN static m_bool import_core_libs(const Gwi gwi) {
   GWI_BB(gwi_gack(gwi, t_void, gack_void))
   GWI_BB(gwi_set_global_type(gwi, t_void, et_void))
   const Type t_gack = gwi_mk_type(gwi, "@Gack", SZ_INT, NULL);
+  GWI_BB(gwi_gack(gwi, t_gack, gack_gack))
   GWI_BB(gwi_set_global_type(gwi, t_gack, et_gack))
   const Type t_int = gwi_mk_type(gwi, "int", SZ_INT, NULL);
   GWI_BB(gwi_gack(gwi, t_int, gack_int))