From 5f80618544a7fccc1186b23832e76ff666a49522 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 4 Jan 2019 01:53:49 +0800 Subject: [PATCH] make-conf should validate it gets an alist --- lib/chibi/config.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/chibi/config.scm b/lib/chibi/config.scm index 278b9fa9..0afafcfc 100644 --- a/lib/chibi/config.scm +++ b/lib/chibi/config.scm @@ -76,13 +76,18 @@ ;;> Returns true iff \var{x} is a config object. (define-record-type Config - (make-conf alist parent source timestamp) + (%make-conf alist parent source timestamp) conf? (alist conf-alist conf-alist-set!) (parent conf-parent conf-parent-set!) (source conf-source conf-source-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) (let lp ((ls alist)) (and (pair? ls)