From 93ccdcae3a23098454c8b6f93a6699b70ed34623 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Mon, 13 Feb 2023 00:06:36 -0500
Subject: Remove all references to srfi 2

---
 lib/zambyte/meta/guile.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib/zambyte/meta/guile.scm')

diff --git a/lib/zambyte/meta/guile.scm b/lib/zambyte/meta/guile.scm
index 96968d6..1e41f9c 100644
--- a/lib/zambyte/meta/guile.scm
+++ b/lib/zambyte/meta/guile.scm
@@ -1,6 +1,5 @@
 (import (json)
-	(srfi 1)
-	(srfi 2))
+	(srfi 1))
 (begin
   (define json-object list)
   (define json-list vector)
@@ -18,9 +17,10 @@
   (define json->string scm->json-string)
 
   (define (json-object-ref json key)
-    (or (and-let* ((pair (assoc key json)))
-	  (cdr pair))
-	((json-key-not-found))))
+    (let ((pair (assoc key json)))
+      (if pair
+	  (cdr pair)
+	  ((json-key-not-found)))))
 
   (define json-list-ref vector-ref)
   (define json-list-length vector-length)
-- 
cgit