~evhan/chicken-sourcehut

37dc620efa73034094296bf2631624ec85469542 — Evan Hanson 2 years ago 4e8e956 0.3.1
Fix long option parsing
1 files changed, 2 insertions(+), 2 deletions(-)

M cli.scm
M cli.scm => cli.scm +2 -2
@@ 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 '()))