Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 21:59:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

when extracting optional parameter names, offset cadr by 1

Browse source
This commit is contained in:
Alex Shinn 2015-07-04 23:17:15 +09:00
parent 2a203e9ff5
commit b93aa9cad9
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/doc.scm
View file

@ -513,10 +513,14 @@ div#footer {padding-bottom: 50px}
((v ('if ('and ('pair? (? o?)) ('pair? ('cdr (? o?)))) ((v ('if ('and ('pair? (? o?)) ('pair? ('cdr (? o?))))
('cadr (? o?)) ('cadr (? o?))
default)) default))
(lp (cdr ls) (cons (cons v (if ordered? j i)) vars) j)) (lp (cdr ls)
(cons (cons v (+ 1 (if ordered? j i))) vars)
j))
((v ('and ('pair? (? o?)) ('pair? ('cdr (? o?))) ((v ('and ('pair? (? o?)) ('pair? ('cdr (? o?)))
('cadr (? o?)))) ('cadr (? o?))))
(lp (cdr ls) (cons (cons v (if ordered? j i)) vars) j)) (lp (cdr ls)
(cons (cons v (+ 1 (if ordered? j i))) vars)
j))
(else (else
(lp (cdr ls) vars j)))) (lp (cdr ls) vars j))))
(else (else