From 5c75120b28cd04098b13826856b2842264ee77ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 20 Jan 2017 14:01:34 +0100 Subject: [PATCH] Closes FB case 174 Fix chunk arrows in hyper-literate => use syntax-local-introduce on the value of 'disappeared-use and 'disappeared-binding --- private/common.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/private/common.rkt b/private/common.rkt index e0243078..96c9e8fa 100644 --- a/private/common.rkt +++ b/private/common.rkt @@ -70,8 +70,8 @@ ;#`(#,(datum->syntax #'body0 'begin) (let ([b-id (void)]) b-use) ... body0 body ...) (syntax-property (syntax-property #`(#,(datum->syntax #'body0 'begin) body0 body ...) - 'disappeared-binding (syntax->list #'(b-id ...))) - 'disappeared-use (syntax->list #'(b-use ...))))) + 'disappeared-binding (syntax->list (syntax-local-introduce #'(b-id ...)))) + 'disappeared-use (syntax->list (syntax-local-introduce #'(b-use ...)))))) (define-for-syntax (strip-comments body) (cond