~ chicken-core (chicken-5) 37e921034013082d7bd3f7522927e54ccdd481dd

commit 37e921034013082d7bd3f7522927e54ccdd481dd
Author:     megane <meganeka@gmail.com>
AuthorDate: Tue Aug 20 11:18:15 2019 +0300
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Sep 15 10:44:11 2019 +0200

    * scrutinizer.scm (call-result): Remove unused 'e' , 'params' parameters
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/scrutinizer.scm b/scrutinizer.scm
index f4a0e745..aaed8498 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -302,7 +302,7 @@
 	     (c (append (or a '()) (or b '()))))
 	(and (pair? c) c)))
 
-    (define (call-result node args e loc params typeenv)
+    (define (call-result node args loc typeenv)
       (let* ((actualtypes (map walked-result args))
 	     (ptype (car actualtypes))
 	     (pptype? (procedure-type? ptype))
@@ -668,7 +668,7 @@
 			  (and pn (variable-mark pn '##compiler#enforce)))
 			 (pt (and pn (variable-mark pn '##compiler#predicate))))
 		    (let-values (((r specialized?) 
-				  (call-result n args e loc params typeenv)))
+				  (call-result n args loc typeenv)))
 		      (define (smash)
 			(when (and (not strict)
 				   (or (not pn)