diff --git a/lib/chibi/optional.scm b/lib/chibi/optional.scm index a6f6ac2e..ddc09969 100644 --- a/lib/chibi/optional.scm +++ b/lib/chibi/optional.scm @@ -83,7 +83,7 @@ (define (keyword-ref ls key . o) (let lp ((ls ls)) (if (and (pair? ls) (pair? (cdr ls))) - (if (eq? key (caar ls)) + (if (eq? key (car ls)) (cadr ls) (lp (cddr ls))) (and (pair? o) (car o)))))