1 files changed, 2 insertions(+), 2 deletions(-)

M cli.scm

@@ 40,8 40,8 @@
 (define output-format
   (make-parameter "s" string->symbol))
 
-(define (alist-ref* keys . args)
-  (any (lambda (key) (apply alist-ref key args)) keys))
+(define (alist-ref* keys alist #!optional (test eqv?) default)
+  (or (any (lambda (key) (alist-ref key alist test)) keys) default))
 
 (define (error-reason e)
   (and-let* ((body   (get-condition-property e 'sourcehut 'body '()))