aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac <arunisaac@systemreboot.net>2022-01-23 17:40:01 +0530
committerArun Isaac <arunisaac@systemreboot.net>2022-01-23 23:33:25 +0530
commit70622749208bc6b69289a33c525d896846687b63 (patch)
tree3ef274d0a582c1cab91fde87bbaf63b93cf7caa8
parentfa6fa59edff4b9f148cbed5d56a322714a99933f (diff)
downloadrun64-70622749208bc6b69289a33c525d896846687b63.tar.gz
run64-70622749208bc6b69289a33c525d896846687b63.tar.lz
run64-70622749208bc6b69289a33c525d896846687b63.zip
bin: Define assq-ref for R6RS compatibility.
* bin/run64 (assq-ref): New function.
-rwxr-xr-xbin/run643
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)
"["