Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 15:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in keyword-ref.

Browse source
This commit is contained in:
Alex Shinn 2014-10-08 22:57:45 +09:00
parent 1d7866d468
commit 843943719a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/optional.scm
View file

@ -83,7 +83,7 @@
(define (keyword-ref ls key . o) (define (keyword-ref ls key . o)
(let lp ((ls ls)) (let lp ((ls ls))
(if (and (pair? ls) (pair? (cdr ls))) (if (and (pair? ls) (pair? (cdr ls)))
(if (eq? key (caar ls)) (if (eq? key (car ls))
(cadr ls) (cadr ls)
(lp (cddr ls))) (lp (cddr ls)))
(and (pair? o) (car o))))) (and (pair? o) (car o)))))