From 6e90ee191d7d5832062ec04016e1bd2980946b3f Mon Sep 17 00:00:00 2001 From: Siddhartha Date: Fri, 12 Apr 2024 16:27:04 -0700 Subject: [PATCH] Address error encountered in sandboxed evaluator Eta-expand `dynamic-require` to fix #45. --- macro-debugger/macro-debugger/emit.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/macro-debugger/macro-debugger/emit.rkt b/macro-debugger/macro-debugger/emit.rkt index 0d32718..3b90416 100644 --- a/macro-debugger/macro-debugger/emit.rkt +++ b/macro-debugger/macro-debugger/emit.rkt @@ -2,7 +2,8 @@ (require racket/contract/base) (define syntax-local-expand-observer - (dynamic-require ''#%expobs 'syntax-local-expand-observer)) + (lambda () + ((dynamic-require ''#%expobs 'syntax-local-expand-observer)))) (define (emit-remark #:unmark? [unmark? (syntax-transforming?)] . args) (let ([observe (syntax-local-expand-observer)])