From 71735923d4d05291145583ae6d5985a7ff5c74a0 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Mon, 28 Nov 2022 10:39:47 -0300 Subject: [PATCH] fix code --- src/rustint/core.clj | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 1a507ce..2db0c24 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2140,7 +2140,15 @@ ; ^^^^^^^^^^^^ ^ ^^^^^^^^^^^^^^^^^^^^^^^ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn inicializar-contexto-local [amb] - amb + (cond + (not= (get amb 3) :sin-errores) amb + :else (let [ + ctx (get amb 4), + ] + (assoc-in amb [4 0 (count (get ctx 0))] (count (get ctx 1))) + ) + ) + ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;