From 94a688b7ab0086b21fdc4df1f4e61d9d0a735ff5 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 20 Oct 2009 15:41:52 -0400
Subject: [PATCH] Fix argument order bug in integrated parameter deletion.

---
 src/compiler/fgopt/delint.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/fgopt/delint.scm b/src/compiler/fgopt/delint.scm
index dc733ae27..17c2bb843 100644
--- a/src/compiler/fgopt/delint.scm
+++ b/src/compiler/fgopt/delint.scm
@@ -57,7 +57,7 @@ USA.
     (let ((rest (procedure-rest procedure)))
       (if (and rest (variable-unused? rest))
 	  (begin
-	    (set! deletions (eq-set-adjoin deletions rest))
+	    (set! deletions (eq-set-adjoin rest deletions))
 	    (set-procedure-rest! procedure false))))
     (with-values
 	(lambda ()
-- 
2.25.1