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)
     )

test/rustint/core_test.clj

@@ -623,6 +623,39 @@
   )
 )
 
+(deftest test-buscar-tipo-de-retorno-04
+  (testing "Test 04 buscar-tipo-de-retorno"
+    (is (=
+      (buscar-tipo-de-retorno [
+          nil,
+          nil,
+          nil,
+          nil,
+          [
+            nil,
+            [
+              ['io ['lib '()] 0]
+              ['Write ['lib '()] 0]
+              ['process ['lib '()] 0]
+              ['dividir ['fn ['(['x (symbol ":") 'i64] ['y (symbol ":") 'i64] ['q (symbol ":") '& 'mut 'i64] ['r (symbol ":") '& 'mut 'i64]) '()]] 2]
+              ['mostrar_salida ['fn ['(['cociente (symbol ":") 'i64] ['resto (symbol ":") 'i64]) '()]] 92]
+              ['main ['fn ['() '()]] 105]
+              ['renglon ['var-mut 'String] 0]
+              ['x ['var-inmut 'i64] 1]
+              ['y ['var-inmut 'i64] 2]
+              ['q ['var-mut 'i64] 3]
+              ['r ['var-mut 'i64] 4]
+            ]
+          ],
+          nil,
+          nil,
+          nil
+        ] 2)
+      '()
+    ))
+  )
+)
+
 (deftest test-cargar-const-en-tabla-01
   (testing "Test 01 cargar-const-en-tabla"
     (is (=