From 034e2358f9302983cd974746a548d10b45b46cf1 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Sun, 18 Sep 2022 19:34:11 +0100
Subject: [PATCH] Add Racket throws typemaps for char *

---
 Lib/mzscheme/typemaps.i | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Lib/mzscheme/typemaps.i b/Lib/mzscheme/typemaps.i
index 25c7b7707..6c31aea52 100644
--- a/Lib/mzscheme/typemaps.i
+++ b/Lib/mzscheme/typemaps.i
@@ -290,6 +290,10 @@ REF_MAP(float, SCHEME_REALP, scheme_real_to_double,
 REF_MAP(double, SCHEME_REALP, scheme_real_to_double,
 	   scheme_make_double, real);
 
+%typemap(throws) char * {
+  scheme_signal_error("%s: %s", FUNC_NAME, $1);
+}
+
 /* Void */
 
 %typemap(out) void "$result = scheme_void;"