suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Closes FB case 174 Fix chunk arrows in hyper-literate => use syntax-local-introduce on the value of 'disappeared-use and 'disappeared-binding

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-20 14:01:34 +01:00
parent 835e565e0e
commit 5c75120b28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
private/common.rkt
View File

@ -70,8 +70,8 @@
;#`(#,(datum->syntax #'body0 'begin) (let ([b-id (void)]) b-use) ... body0 body ...) ;#`(#,(datum->syntax #'body0 'begin) (let ([b-id (void)]) b-use) ... body0 body ...)
(syntax-property (syntax-property
(syntax-property #`(#,(datum->syntax #'body0 'begin) body0 body ...) (syntax-property #`(#,(datum->syntax #'body0 'begin) body0 body ...)
'disappeared-binding (syntax->list #'(b-id ...))) 'disappeared-binding (syntax->list (syntax-local-introduce #'(b-id ...))))
'disappeared-use (syntax->list #'(b-use ...))))) 'disappeared-use (syntax->list (syntax-local-introduce #'(b-use ...))))))
(define-for-syntax (strip-comments body) (define-for-syntax (strip-comments body)
(cond (cond