From a74d1a93205f540806596aeb0eb7cfa8d3ee2dc1 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 14 Apr 2025 10:58:30 +0200
Subject: fix negative index out of bounds

---
 pez.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pez.c b/pez.c
index 4b841dd..30735a2 100644
--- a/pez.c
+++ b/pez.c
@@ -1435,7 +1435,7 @@ checkindex(PezContext *cx, int *idx, Fn *srcfn, int srcpc, const char *what, int
     }
     *idx = fixtoint(num);
     *idx = *idx < 0 ? len + *idx : *idx;
-    if (*idx >= len) {
+    if ((uint) *idx >= len) {
         return runerr(cx, srcfn, srcpc, "%s index out of range", what), 0;
     }
     return 1;
-- 
cgit v1.2.3