From 70622749208bc6b69289a33c525d896846687b63 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 23 Jan 2022 17:40:01 +0530
Subject: bin: Define assq-ref for R6RS compatibility.

* bin/run64 (assq-ref): New function.
---
 bin/run64 | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'bin')

diff --git a/bin/run64 b/bin/run64
index 8091fe1..5334084 100755
--- a/bin/run64
+++ b/bin/run64
@@ -22,6 +22,9 @@
         (srfi srfi-1)
         (srfi srfi-64))
 
+(define (assq-ref alist key)
+  (cdr (assq key alist)))
+
 (define (color code str)
   (string-append (string #\esc)
                  "["
-- 
cgit v1.2.3