Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

workaround for bug: http://bugs.racket-lang.org/query/?cmd=view&pr=12373

; manually handle the sharing analysis of hash tables so that it iterates over the keys too.
  • Loading branch information...
commit 1f0a2ebb5775a97e6cd946672d24d31ed1e3927d 1 parent bcdf20c
Danny Yoo authored
Showing with 14 additions and 0 deletions.
  1. +14 −0 runtime-config.rkt
View
14 runtime-config.rkt
@@ -24,6 +24,20 @@
[(equal? val set!-result) '(void)]
[(is-image? val) val]
[else (ph val basic sub)]))))
+
+ ;; Workaround for bug: http://bugs.racket-lang.org/query/?cmd=view&pr=12373
+ (current-build-share-hook
+ (let ([original-current-build-share-hook (current-build-share-hook)])
+ (lambda (v basic-share sub-share)
+ (cond
+ [(hash? v)
+ (hash-for-each v (lambda (k v)
+ (basic-share k)
+ (basic-share v)))
+ (basic-share v)]
+ [else
+ (original-current-build-share-hook v basic-share sub-share)]))))
+
(use-named/undefined-handler
(lambda (x)
#f #;(and (memq 'use-function-output-syntax options)

0 comments on commit 1f0a2eb

Please sign in to comment.
Something went wrong with that request. Please try again.