From 721e0f285bee83dc6fe1fb326feff7c1e8287b84 Mon Sep 17 00:00:00 2001 From: Camden Dixie O'Brien Date: Tue, 3 Mar 2026 13:16:58 +0000 Subject: [PATCH] Fix handling of trailing zeros in . --- prelude.f | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/prelude.f b/prelude.f index f69a269..7a711e3 100644 --- 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