fix

qic.c

@@ -4118,7 +4118,7 @@ void compile_func(buffer_t *gbuf, buffer_t *buf, list_t *ctx, table_t *ltab,
     return;
   }
 
-  EMIT("qi_set(state, false, \"%s\", ", node->t->text);
+  EMIT("qi_decl(state, \"%s\", ", node->t->text);
   buffer_appendb(buf, tbuf);
   EMIT(");");
 }
@@ -4214,8 +4214,6 @@ 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");