src/rustint/core.clj

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

test/rustint/core_test.clj

@@ -623,40 +623,7 @@
   )
 )
 
-(deftest test-buscar-tipo-de-retorno-04
+ (deftest test-cargar-const-en-tabla-01
-  (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 (=
           (cargar-const-en-tabla [