cs: fix error message from raise-argument-error

Closes https://github.com/racket/racket/issues/2400
2018-11-28 02:50:35 -05:00 · 2018-11-28 02:50:35 -05:00 · 2798608ccd
commit 2798608ccd
parent 7823b6eecf
1 changed files with 3 additions and 1 deletions
--- a/racket/src/cs/rumble/error.ss
+++ b/racket/src/cs/rumble/error.ss
@ -148,7 +148,9 @@
                   (if (and pos (pair? args))
                       (apply
                        string-append
-                        "\n  other arguments:"
+                        "\n  argument position: "
+                        (nth-str (add1 pos))
+                        "\n  other arguments...:"
                        (let loop ([pos pos] [args (cons arg args)])
                          (cond
                           [(null? args) '()]