From 2403b18e0f0435d1f2a83fdcd89d11950f251842 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Sep 2019 17:57:10 -0600
Subject: [PATCH] cs: more constant tokens

Should have been part of 12a2cd75a8.
---
 racket/src/cs/rumble/error.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss
index 1acd3b29dd..ddb8aa5e94 100644
--- a/racket/src/cs/rumble/error.ss
+++ b/racket/src/cs/rumble/error.ss
@@ -462,7 +462,7 @@
 
 ;; ----------------------------------------
 
-(define exception-handler-key (gensym "exception-handler-key"))
+(define exception-handler-key '#{exception-handler-key o9xm0uula3d2mbq9wueixh79r-0})
 
 (define (default-uncaught-exception-handler exn)
   (let ([message (if (exn? exn)
@@ -507,7 +507,7 @@
 (define-thread-local link-instantiate-continuations (make-ephemeron-eq-hashtable))
 
 ;; For `instantiate-linklet` to help report which linklet is being run:
-(define linklet-instantiate-key (gensym "linklet"))
+(define linklet-instantiate-key '#{linklet o9xm0uula3d2mbq9wueixh79r-1})
 
 ;; Convert a contination to a list of function-name and
 ;; source information. Cache the result half-way up the