fix code

src/rustint/core.clj

@@ -2448,12 +2448,13 @@
 ; nil
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defn get_addr_map [addrs]
-  (apply merge (map #(hash-map (get %1 2) (get-in %1 [1 1 1]) ) addrs))
+  (apply merge (map #(hash-map (get %1 2) (last (get-in %1 [1 1])) ) addrs))
 )
 
 (defn buscar-tipo-de-retorno [amb addr]
   (let [addrs (second (contexto amb)),
-        addr_map (get_addr_map addrs)
+        filt_addrs (filter #(= (get-in %1 [1 0]) 'fn) addrs),
+        addr_map (get_addr_map filt_addrs)
       ]
       (get addr_map addr)
     )