fix code

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