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

Fixed typo #%intef-begin → #%intdef-begin

Browse Source
This commit is contained in:
Georges Dupéron 2017-02-03 15:34:12 +01:00
parent 21ee81c841
commit 8b2fa5e5c2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parse/private/parse.rkt
View File

@ -417,9 +417,9 @@ Conventions:
[(e0 e ...) [(e0 e ...)
;; Should we use a shadower (works on the whole file, unhygienically), ;; Should we use a shadower (works on the whole file, unhygienically),
;; or use the context of the syntax-parse identifier? ;; or use the context of the syntax-parse identifier?
(let ([the-#%intef-begin (datum->syntax #'ctx '#%intef-begin)]) (let ([the-#%intdef-begin (datum->syntax #'ctx '#%intdef-begin)])
(if (syntax-local-value the-#%intef-begin (λ () #f)) ;; Defined as a macro (if (syntax-local-value the-#%intdef-begin (λ () #f)) ;; Defined as a macro
#`(let () (#,the-#%intef-begin e0 e ...)) #`(let () (#,the-#%intdef-begin e0 e ...))
#'(let () e0 e ...)))] #'(let () e0 e ...)))]
[_ (raise-syntax-error #f "expected non-empty clause body" [_ (raise-syntax-error #f "expected non-empty clause body"
#'ctx clause)])) #'ctx clause)]))