CORE-2433 map-any

reach-sh · Dec 21, 2022 · 287df51 · 287df51
1 parent ee217a7
commit 287df51
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/hs/src/Reach/Connector/ALGO.hs b/hs/src/Reach/Connector/ALGO.hs
@@ -1112,7 +1112,7 @@ cMapDel = libCall LF_mapDel $ do
   op "box_del"
   -- [ mbr, existed ]
   after <- freshLabel "boxDel"
-  code "bnz" [ after ]
+  code "bz" [ after ]
   -- [ mbr ]
   mbrSub
   op "retsub"

diff --git a/js/stdlib/ts/ALGO.ts b/js/stdlib/ts/ALGO.ts
@@ -2019,6 +2019,7 @@ const connectAccount = async (networkAccount: NetworkAccount): Promise<Account>
             }
           }
 
+          debug(dhead, { mbrDelta });
           if ( ! isHalt && ! mbrDelta.eq(0) ) {
             if ( mbrDelta.lt(0) ) {
               // The delta is negative, so we let the contract pay the deployer