iens

commit bcbefde80b9d5b1d0f5f98d7c3a13b6ae0b2002c
parent 672070a3e0c0c6e166921b2f4183edd63e561727
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 24 Feb 2026 22:08:32 +0000

`starts-with?` is defensively protected
Diffstat:
M
src/iens.scm
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -31,7 +31,8 @@
         sxml-serializer)
 
 (define (starts-with? maybe-prefix s)
-  (substring=? s maybe-prefix 0 0 (string-length maybe-prefix)))
+  (and (<= (string-length maybe-prefix) (string-length s))
+       (substring=? s maybe-prefix 0 0 (string-length maybe-prefix))))
 
 (define (ends-with? maybe-suffix s)
   (let ((ls  (string-length s))