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

disarm and rearm syntax in syntax-srcloc-lens

Browse Source 
fixes part of
https://github.com/jackfirth/lens/issues/287
see also
https://github.com/racket/racket/pull/1448
This commit is contained in:
AlexKnauth 2016-09-09 20:25:53 -04:00
parent 04667e02ac
commit c7b5783088
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lens-data/lens/private/syntax/srcloc.rkt
View File

@ -39,10 +39,13 @@ module+ test
;; syntax-set-source-location : Syntax Source-Location -> Syntax ;; syntax-set-source-location : Syntax Source-Location -> Syntax
(define (syntax-set-source-location stx src) (define (syntax-set-source-location stx src)
(datum->syntax stx (define stx* (syntax-disarm stx #f))
(syntax-e stx) (syntax-rearm
(source-location->list src) (datum->syntax stx*
stx)) (syntax-e stx*)
(source-location->list src)
stx*)
stx))
(define syntax-srcloc-lens (define syntax-srcloc-lens
(make-lens (make-lens