bin: Define assq-ref for R6RS compatibility.

* bin/run64 (assq-ref): New function.

1 files changed, 3 insertions, 0 deletions

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)
                  "["