Patch for ‘vector-fold’

[Timothy Sample]

I found a typo in ‘vector-fold’:

>From 487393ced4c6cad6b497f4d77eeb91fe2ebbc0aa Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Tue, 23 Jan 2024 13:48:26 -0600
Subject: [PATCH] mes: srfi-43: Fix 'vector-fold'.

* mes/module/srfi/srfi-43.scm (vector-fold): Change '=>' to '>='.
---
 mes/module/srfi/srfi-43.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mes/module/srfi/srfi-43.scm b/mes/module/srfi/srfi-43.scm
index ff028c6d5..03da33aee 100644
--- a/mes/module/srfi/srfi-43.scm
+++ b/mes/module/srfi/srfi-43.scm
@@ -28,7 +28,7 @@
 
 (define (vector-fold kons knil vec)
   (let loop ((k 0) (acc knil))
-    (if (=> k (vector-length vec)) acc
+    (if (>= k (vector-length vec)) acc
         (loop (+ k 1) (kons k acc (vector-ref vec k))))))
 
 (define (vector-copy! target tstart source sstart send)
-- 
2.41.0