FIX: call function taken from an array.

examples/array.fk

@@ -14,4 +14,7 @@
 ($ (produce)
    [2 4 6])
 
-(assert= 4 (second (produce)))
+(assert= 4 (second (produce)))
+
+($ arr [2 'bim' produce false])
+(assert= 6 (((arr 2)) 2))

src/Compiler.cpp

@@ -236,8 +236,10 @@ namespace fk
                     entry && entry->is_global() == false)
                   {
                     if (entry->node()
-                        && entry->node()->child(1)->type() != NODE_ARRAY)
+                        && entry->node()->child(1)->type() != NODE_ARRAY
+                        && entry->node()->type() != NODE_ARRAY)
                       {
+                        std::cout << "-> " << entry->node()->string() << std::endl;
                         size_t arity = entry->node()->child(0)->size();
                         if (arity != node->size() - 1)
                           {