From 4c09cfe929f95f88f77d3a7cf615db28c4a9d5be Mon Sep 17 00:00:00 2001
From: TudbuT <forge-public@mail.tudbut.de>
Date: Fri, 15 Nov 2024 18:17:48 +0100
Subject: [PATCH] fix readf1

---
 spl/std.spl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/spl/std.spl b/spl/std.spl
index e418249..442ca2f 100644
--- a/spl/std.spl
+++ b/spl/std.spl
@@ -63,7 +63,7 @@ construct _str_ext {
         !!- pat this str-readf
     }
     readf1 { str | with pat this ;
-        !!- pat this:readf 0:get
+        !!- pat this:readf dup null eq not if { :0 }
     }
     uppercase { str | with this ;
         this _array :cmap<{ | with chr ;