From d95a376b8143b1d5944ec82f6b07acf1a3a0c0a0 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 09:42:25 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 1186caf..5df416a 100644 --- a/src/rustint/core.clj +++ b/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) )