From 8b2fa5e5c211dc33ff77fc3355fbf0561bc9e6aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 3 Feb 2017 15:34:12 +0100 Subject: [PATCH] =?UTF-8?q?Fixed=20typo=20#%intef-begin=20=E2=86=92=20#%in?= =?UTF-8?q?tdef-begin?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- parse/private/parse.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/parse/private/parse.rkt b/parse/private/parse.rkt index 41acc3f..266d2bb 100644 --- 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)]))