From 4590c51d326094076f8ee205fccf97cdf995e774 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 14 Dec 2020 19:02:34 -0700
Subject: [PATCH] cs: declare a no-return call

---
 racket/src/cs/rumble/error.ss | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss
index 9c01a665e4..c0de47d92d 100644
--- a/racket/src/cs/rumble/error.ss
+++ b/racket/src/cs/rumble/error.ss
@@ -429,22 +429,24 @@
     (current-continuation-marks))))
 
 (define (raise-binding-result-arity-error expected-args args)
-  (apply raise-result-arity-error #f
-         (if (integer? expected-args)
-             expected-args
-             (length expected-args))
-         "\n  in: local-binding form"
-         args))
+  (|#%app/no-return| #%apply
+   raise-result-arity-error #f
+   (if (integer? expected-args)
+       expected-args
+       (length expected-args))
+   "\n  in: local-binding form"
+   args))
 
 (define (raise-definition-result-arity-error expected-args args)
-  (apply raise-result-arity-error 'define-values
-         (length expected-args)
-         (if (null? expected-args)
-             ""
-             (string-append "\n  in: definition of "
-                            (symbol->string (car expected-args))
-                            " ..."))
-         args))
+  (|#%app/no-return| #%apply
+   raise-result-arity-error 'define-values
+   (length expected-args)
+   (if (null? expected-args)
+       ""
+       (string-append "\n  in: definition of "
+                      (symbol->string (car expected-args))
+                      " ..."))
+   args))
 
 (define raise-unsupported-error
   (case-lambda