Fix argument order bug in integrated parameter deletion.

diff --git a/src/compiler/fgopt/delint.scm b/src/compiler/fgopt/delint.scm
index dc733ae27d69ad3e7631fbb3f136c7d202a8e64b..17c2bb84312a5ca3b5750e34aed52efe3fd02ff2 100644 (file)
--- 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 ()