>From 63928527233c344e18ff1a704afef6ba4db73ec6 Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Mon, 3 Jul 2017 10:30:41 +0200
Subject: [PATCH 2/2] Remove unused parameter

---
 scrutinizer.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 13dc3650..262511b5 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -352,7 +352,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 e loc typeenv)
       (define (pname)
 	(sprintf "~ain procedure call to `~s', "
 		 (node-source-prefix node)
@@ -746,7 +746,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 e loc typeenv)))
 		      (define (smash)
 			(when (and (not strict)
 				   (or (not pn)
-- 
2.11.0