From 2f44599f63c1d7a910182f86bd2b2682597dc006 Mon Sep 17 00:00:00 2001
From: Andrey Tvorozhkov <tvorog@tvorog.me>
Date: Wed, 10 Jan 2024 17:10:50 +0600
Subject: [PATCH] Fix 2drop

---
 crypto/fift/lib/Disasm.fif | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/crypto/fift/lib/Disasm.fif b/crypto/fift/lib/Disasm.fif
index 0e2faa9c..d35c9e50 100644
--- a/crypto/fift/lib/Disasm.fif
+++ b/crypto/fift/lib/Disasm.fif
@@ -13,7 +13,7 @@ variable 'disasm
          vmlib@ {
             ."// LIB: " swap X. cr ref@ <s disasm
           } {
-            2drop // Only library special cell supported
+            drop // Lib not found
          } cond
     } {
         drop // Only library special cell supported
@@ -59,7 +59,7 @@ variable @indent  @indent 0!
     drop dup count 2 = stack-disasm? and { second `LSHIFT# swap pair } if } {
   dup `RSHIFT eq? {
     drop dup count 2 = stack-disasm? and { second `RSHIFT# swap pair } if } {
-  drop 
+  drop
   } cond } cond } cond
 } : adjust-op
 
@@ -138,7 +138,7 @@ variable @contX  variable @contY  variable @cdict
   .indent type ." {" cr +indent @cdict @ @cdict null! unpair
   rot {
     swap .indent . ."=> <{" cr +indent disasm -indent .indent ."}>" cr true
-  } swap ' idictforeach ' dictforeach cond drop 
+  } swap ' idictforeach ' dictforeach cond drop
   -indent .indent ."}" cr
 } : show-const-dict-op
 
@@ -172,4 +172,4 @@ variable @contX  variable @contY  variable @cdict
 { { fetch-one-op } { swap @curop ! adjust-op show-op } while } : disasm-slice
 { { disasm-slice dup sbitrefs 1- or 0= } { ref@ <s } while flush-dict flush-cont } : disasm-chain
 { @curop @ swap disasm-chain dup sbitrefs or { .indent ."Cannot disassemble: " csr. } { drop } cond @curop ! }
-'disasm !
\ No newline at end of file
+'disasm !