cs: more constant tokens

Should have been part of 12a2cd75a8.
This commit is contained in:
Matthew Flatt 2019-09-08 17:57:10 -06:00
parent 415f030212
commit 2403b18e0f

View File

@ -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