From 02b534d57131b99e22e24011dd2dbefa4e960242 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 19 Dec 2019 08:29:52 -0700
Subject: [PATCH] update source "foreign.rktc"

Copies change in 91fa5b6490 to original source.
---
 racket/src/foreign/foreign.rktc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/foreign/foreign.rktc b/racket/src/foreign/foreign.rktc
index ecff75532c..d9c6879564 100755
--- a/racket/src/foreign/foreign.rktc
+++ b/racket/src/foreign/foreign.rktc
@@ -3536,7 +3536,7 @@ static Scheme_Object *ffi_callback_or_curry(const char *who, int curry, int argc
     }
   }
   cl_cif_args->data = callback_data;
-  if (ffi_prep_closure(cl, cif, do_callback, (void*)(cl_cif_args->data))
+  if (ffi_prep_closure_loc(cl, cif, do_callback, (void*)(cl_cif_args->data), cl)
       != FFI_OK)
     scheme_signal_error
       ("internal error: ffi_prep_closure did not return FFI_OK");