summaryrefslogtreecommitdiffstats
path: root/paramlst.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
commitbd9733926076885e3417b74de76e4c9c7bc56254 (patch)
tree2c99dced547d48407ad44cb0e45e31bb4d02ce43 /paramlst.scm
parentfa3f23105ddcf07c5900de47f19af43d1db1b597 (diff)
downloadslib-bd9733926076885e3417b74de76e4c9c7bc56254.tar.gz
slib-bd9733926076885e3417b74de76e4c9c7bc56254.zip
Import Upstream version 2c7upstream/2c7
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))