aboutsummaryrefslogtreecommitdiffstats
path: root/paramlst.scm
diff options
context:
space:
mode:
Diffstat (limited to 'paramlst.scm')
-rw-r--r--paramlst.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/paramlst.scm b/paramlst.scm
index b4af55a..32fb158 100644
--- a/paramlst.scm
+++ b/paramlst.scm
@@ -55,8 +55,11 @@
(and (every (lambda (check parameter)
(every
(lambda (p)
- (not (and check (not (check p)))))
- ;;(slib:error (car parameter) "parameter is wrong type: " p)
+ (let ((good? (not (and check (not (check p))))))
+ (if (not good?)
+ (slib:warn
+ (car parameter) 'parameter? p))
+ good?))
(cdr parameter)))
checks parameter-list)
parameter-list))