mbutterick
/
sugar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix syntax loc

Browse Source
dev-refac-2020
Matthew Butterick 6 years ago
parent fe9f126074
commit d362cf9483
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
sugar/private/syntax-utils.rkt
Unescape Escape View File

@ -32,7 +32,7 @@
(values->list (normalize-definition stx (datum->syntax stx 'λ) #t #t))]) (values->list (normalize-definition stx (datum->syntax stx 'λ) #t #t))])
;; because the macro provides the `lambda` below, it takes the local srcloc by default ;; because the macro provides the `lambda` below, it takes the local srcloc by default
;; so `syntax/loc` applies the original srcloc (associated with args and body-exp) ;; so `syntax/loc` applies the original srcloc (associated with args and body-exp)
#`(NEW-ID CONTRACT (LAMBDA ARGS . NEW-BODY)))] #`(NEW-ID CONTRACT #,(syntax/loc #'ID-EXP (LAMBDA ARGS . NEW-BODY))))]
;; matches zero or one arguments ;; matches zero or one arguments
[_ (raise-syntax-error 'define-macro "not enough arguments")])) [_ (raise-syntax-error 'define-macro "not enough arguments")]))

Write Preview
Loading…
Cancel
Save