fix

qic.c

@@ -4214,6 +4214,8 @@ void compile_block(buffer_t *gbuf, buffer_t *buf, list_t *ctx, table_t *ltab,
     }
     else if (node->tag == N_FUNCDEF)
     {
+      EMIT("qi_decl(state, \"%s\", state->nil);\n", node->t->text);
+      
       compile_func(gbuf, buf, ctx, ltab, lstk, sstk, lbl, node, NULL);
 
       EMIT("\n");