From fee19dacb8143641ad5e98b8605ff9f280c9ed72 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Jan 2019 15:26:43 -0700
Subject: [PATCH] include provided-argument count in arity error

original commit: 56b25afdccfb4156f6dff55e2a17f2fc3b51c254
---
 s/7.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/s/7.ss b/s/7.ss
index c012aed2a6..5015def347 100644
--- a/s/7.ss
+++ b/s/7.ss
@@ -1146,7 +1146,7 @@
       [(ERROR_CALL_NONPROCEDURE) (cnt nonprocedure arg1?)
        ($oops #f "attempt to apply non-procedure ~s" nonprocedure)]
       [(ERROR_CALL_ARGUMENT_COUNT) (cnt procedure arg1?)
-       ($oops #f "incorrect number of arguments to ~s" procedure)]
+       ($oops #f "incorrect number of arguments ~s to ~s" cnt procedure)]
       [(ERROR_RESET) (who msg . args)
        ($oops who "~?.  Some debugging context lost" msg args)]
       [(ERROR_NONCONTINUABLE_INTERRUPT) args