Fixed a bug on the RP2040 and STM32L476

tabemann · Nov 12, 2024 · d55e36b · d55e36b
1 parent d912e3c
commit d55e36b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/common/forth/basic.fs b/src/common/forth/basic.fs
@@ -652,7 +652,7 @@ commit-flash
   end-block
   chip $73746D = swap $6C0001DC = and \ stm32l476
   chip $7270 = swap 2040 = and or if \ rp2040
-    rot ?dup if here swap branch-back! then
+    rot ?dup if here swap branch-back! else 0 -rot then
   then
   reserve-branch
   -rot postpone then-no-block