From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 21 Oct 2009 19:17:06 +0000 (-0400)
Subject: Fix ADD-DEFAULTED-SUBPROBLEMS! to use the model's original rest parameter.
X-Git-Tag: 20100708-Gtk~273^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a8e942ef4a028a73726d9f17980a08ce9c0fc5c6;p=mit-scheme.git

Fix ADD-DEFAULTED-SUBPROBLEMS! to use the model's original rest parameter.
---

diff --git a/src/compiler/fgopt/order.scm b/src/compiler/fgopt/order.scm
index cd5cc9f56..936503fa7 100644
--- a/src/compiler/fgopt/order.scm
+++ b/src/compiler/fgopt/order.scm
@@ -234,7 +234,7 @@ USA.
 			   (length (procedure-original-optional model)))))
 		   (if (or (< n-supplied n-required)
 			   (and (> n-supplied n-expected)
-				(not (procedure-rest model))))
+				(not (procedure-original-rest model))))
 		       (warn "wrong number of arguments"
 			     n-supplied
 			     (error-irritant/noise char:newline)