Fixing bug in keyword-ref.

This commit is contained in:
Alex Shinn 2014-10-08 22:57:45 +09:00
parent 1d7866d468
commit 843943719a

View file

@ -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)))))