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 cd5cc9f566b50a210984f49fca33981b5c4f64ea..936503fa7ec33c31bdd358090c72b6bd392e3bb2 100644 (file)
--- 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)