From bd9733926076885e3417b74de76e4c9c7bc56254 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:28 -0800
Subject: Import Upstream version 2c7

---
 paramlst.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'paramlst.scm')

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))
-- 
cgit v1.2.3