From a8e942ef4a028a73726d9f17980a08ce9c0fc5c6 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 21 Oct 2009 15:17:06 -0400 Subject: [PATCH] Fix ADD-DEFAULTED-SUBPROBLEMS! to use the model's original rest parameter. --- src/compiler/fgopt/order.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1