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

Using detectable optional args.

Browse source
This commit is contained in:
Alex Shinn 2013-08-04 17:01:51 +09:00
parent e136aa78e2
commit 1e59b80a53
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/chibi/config.scm
View file

@ -252,9 +252,10 @@
;;> Extends the config with anadditional alist.
(define (conf-extend config alist . o)
(if (pair? alist)
(make-conf alist config (and (pair? o) (car o)) (current-second))
config))
(let ((source (and (pair? o) (car o))))
(if (pair? alist)
(make-conf alist config source (current-second))
config)))
;;> Joins two configs.
@ -450,9 +451,7 @@
(else (conf-verify-match (cadr def) cell warn)))))))
(define (conf-verify spec config . o)
(let ((warn (if (pair? o)
(lambda args (apply (car o) args) #f)
conf-default-warn)))
(let ((warn (if (pair? o) (car o) conf-default-warn)))
(let lp ((config config))
(cond
(config