From a099e187673cf04240884376b7e3b60229fefa93 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 19 Mar 2021 15:11:23 -0600
Subject: [PATCH] sync generated files

---
 racket/src/bc/src/startup.inc         |  2 +-
 racket/src/cs/schemified/expander.scm | 12 +++++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/racket/src/bc/src/startup.inc b/racket/src/bc/src/startup.inc
index 1b6ea52dc6..34c58ce95a 100644
--- a/racket/src/bc/src/startup.inc
+++ b/racket/src/bc/src/startup.inc
@@ -75,7 +75,7 @@ static const char *startup_source =
 "  (lambda (a_0 b_0) (begin (if (list? a_0) (append a_0 b_0) (raise-argument-error 'unquote-splicing \"list?\" a_0)))))"
 "(define-values"
 "(bad-list$1)"
-"  (lambda (who_0 orig-l_0) (begin 'bad-list (raise-mismatch-error who_0 \"not a proper list: \" orig-l_0))))"
+"  (lambda (who_0 orig-l_0) (begin 'bad-list (raise-arguments-error who_0 \"not a proper list\" \"in\" orig-l_0))))"
 "(define-values"
 "(member)"
 "(letrec-values(((member_0)"
diff --git a/racket/src/cs/schemified/expander.scm b/racket/src/cs/schemified/expander.scm
index f0955f711d..65972dc7e7 100644
--- a/racket/src/cs/schemified/expander.scm
+++ b/racket/src/cs/schemified/expander.scm
@@ -471,7 +471,7 @@
   (|#%name|
    bad-list
    (lambda (who_0 orig-l_0)
-     (begin (raise-mismatch-error who_0 "not a proper list: " orig-l_0)))))
+     (begin (raise-arguments-error who_0 "not a proper list" "in" orig-l_0)))))
 (define member
   (letrec*
    ((member_0
@@ -489,9 +489,10 @@
                     #f
                     (if (not (pair? ls_0))
                       (begin-unsafe
-                       (raise-mismatch-error
+                       (raise-arguments-error
                         'member
-                        "not a proper list: "
+                        "not a proper list"
+                        "in"
                         orig-l_0))
                       (if (|#%app| eql?_0 v_0 (car ls_0))
                         ls_0
@@ -501,9 +502,10 @@
                             (if (let ((or-part_0 (not (pair? ls_1))))
                                   (if or-part_0 or-part_0 (eq? ls_1 turtle_0)))
                               (begin-unsafe
-                               (raise-mismatch-error
+                               (raise-arguments-error
                                 'member
-                                "not a proper list: "
+                                "not a proper list"
+                                "in"
                                 orig-l_0))
                               (if (|#%app| eql?_0 v_0 (car ls_1))
                                 ls_1