Fix handling of trailing zeros in .

2026-03-03 13:16:58 +00:00
parent c1c1db7b51
commit 721e0f285b
1 changed files with 5 additions and 1 deletions
--- a/prelude.f
+++ b/prelude.f
@@ -100,7 +100,11 @@ CHAR . EMIT
  \ Print any trailing zeros
  BASE @ /
  DUP 0<> IF
-	BEGIN CHAR 0 EMIT BASE @ / 0= UNTIL
+    BEGIN
+      CHAR 0 EMIT
+      BASE @ /
+      DUP 0=
+    UNTIL
  THEN

  2DROP