Skip to content

Instantly share code, notes, and snippets.

@LeifAndersen
Created January 29, 2018 21:58
Show Gist options
  • Save LeifAndersen/01bed2a4b6fd933a94286abce2b6d941 to your computer and use it in GitHub Desktop.
Save LeifAndersen/01bed2a4b6fd933a94286abce2b6d941 to your computer and use it in GitHub Desktop.
#lang racket/load
(define bar-mod
'(module bar racket
(begin-for-syntax
(with-handlers ([exn:fail? (lambda (e) #f)])
(set-box!
(dynamic-require ''foo 'da-box)
42)))))
(define da-global-box (box '()))
(define (da-box)
da-global-box)
(define foo-mod
#`(module foo racket
(provide da-box)
(define da-box ((syntax-e #'#,da-box)))))
(eval foo-mod)
(eval bar-mod)
(displayln da-global-box)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment