diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
commit | bd9733926076885e3417b74de76e4c9c7bc56254 (patch) | |
tree | 2c99dced547d48407ad44cb0e45e31bb4d02ce43 /paramlst.scm | |
parent | fa3f23105ddcf07c5900de47f19af43d1db1b597 (diff) | |
download | slib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip |
Import Upstream version 2c7upstream/2c7
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)) |