suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

found a workaround by using an artificial set-bang

Browse Source
This commit is contained in:
Danny Yoo 2012-01-18 18:12:25 -05:00
parent 6323fcee46
commit 6b8bcdaf76
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lang/js/js.rkt
View File

@ -28,7 +28,8 @@
[impl
(map (compose resolve-implementation-path syntax-e)
(syntax->list #'(javascript-module-name ...)))]
[(internal-name ...) (generate-temporaries #'(provided-name ...))])
[(internal-name ...) (generate-temporaries #'(provided-name ...))]
[(set-internal-name! ...) (generate-temporaries #'(provided-name ...))])
(syntax/loc stx
(begin
@ -47,7 +48,13 @@
))
(require racket-module-name)
(define internal-name provided-name) ...
(begin
(define internal-name provided-name)
;; Discouraging constant folding via set! to address issue 74
;; https://github.com/dyoo/whalesong/issues/74
(define (set-internal-name! x)
(set! internal-name x)))
...
(provide (rename-out [internal-name provided-name] ...)))))]))