From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 20 Oct 2009 19:41:52 +0000 (-0400)
Subject: Fix argument order bug in integrated parameter deletion.
X-Git-Tag: 20100708-Gtk~273^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=94a688b7ab0086b21fdc4df1f4e61d9d0a735ff5;p=mit-scheme.git

Fix argument order bug in integrated parameter 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 ()