diff options
Diffstat (limited to 'paramlst.scm')
| -rw-r--r-- | paramlst.scm | 7 |
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)) |