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

make-conf should validate it gets an alist

Browse source
This commit is contained in:
Alex Shinn 2019-01-04 01:53:49 +08:00
parent c9b4786648
commit 5f80618544
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/config.scm
View file

@ -76,13 +76,18 @@
;;> Returns true iff \var{x} is a config object. ;;> Returns true iff \var{x} is a config object.
(define-record-type Config (define-record-type Config
(make-conf alist parent source timestamp) (%make-conf alist parent source timestamp)
conf? conf?
(alist conf-alist conf-alist-set!) (alist conf-alist conf-alist-set!)
(parent conf-parent conf-parent-set!) (parent conf-parent conf-parent-set!)
(source conf-source conf-source-set!) (source conf-source conf-source-set!)
(timestamp conf-timestamp conf-timestamp-set!)) (timestamp conf-timestamp conf-timestamp-set!))
(define (make-conf alist parent source timestamp)
(if (not (alist? alist))
(error "config requires an alist" alist)
(%make-conf alist parent source timestamp)))
(define (assq-tail key alist) (define (assq-tail key alist)
(let lp ((ls alist)) (let lp ((ls alist))
(and (pair? ls) (and (pair? ls)