commit 8b2fa5e5c211dc33ff77fc3355fbf0561bc9e6aa parent 21ee81c8419b988c609edd0a8c9cebac4303980f Author: Georges Dupéron <georges.duperon@gmail.com> Date: Fri, 3 Feb 2017 15:34:12 +0100 Fixed typo #%intef-begin → #%intdef-begin Diffstat:
| M | parse/private/parse.rkt | | | 6 | +++--- |
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/parse/private/parse.rkt b/parse/private/parse.rkt @@ -417,9 +417,9 @@ Conventions: [(e0 e ...) ;; Should we use a shadower (works on the whole file, unhygienically), ;; or use the context of the syntax-parse identifier? - (let ([the-#%intef-begin (datum->syntax #'ctx '#%intef-begin)]) - (if (syntax-local-value the-#%intef-begin (λ () #f)) ;; Defined as a macro - #`(let () (#,the-#%intef-begin e0 e ...)) + (let ([the-#%intdef-begin (datum->syntax #'ctx '#%intdef-begin)]) + (if (syntax-local-value the-#%intdef-begin (λ () #f)) ;; Defined as a macro + #`(let () (#,the-#%intdef-begin e0 e ...)) #'(let () e0 e ...)))] [_ (raise-syntax-error #f "expected non-empty clause body" #'ctx clause)]))