From 7e3fa40496f076f951f9c90f69cbe8cdfddd413c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sat, 20 May 2017 02:57:48 +0200
Subject: [PATCH] =?UTF-8?q?Improve=20srcloc=20of=20error=20messages=20on?=
=?UTF-8?q?=20=CE=BB?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
private/pure-function.rkt | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/private/pure-function.rkt b/private/pure-function.rkt
index e8877c0..baee07d 100644
--- a/private/pure-function.rkt
+++ b/private/pure-function.rkt
@@ -392,8 +392,8 @@
(:def . {~var || (name+args+body #'name/τ)}))
(self . {~and :name+args+body {~not ((:colon . _) . _)}})}
#:with lam (if (free-identifier=? (datum->syntax #'self 'λ) #'te:λ)
- #'te:λ
- #'λ)
+ (datum->syntax #'here 'te:λ #'name)
+ (datum->syntax #'here 'λ #'name))
#:with pure/? (if (eq? stateful/stateless-sym 'stateful)
#'pure/stateful
#'pure/stateless)
@@ -408,7 +408,7 @@
(quasisyntax/top-loc this-syntax
(begin
#,@(when-attr CT #'{(CT name-impl . self-τ)})
- ;#,@(when-attr whole-τ #'{whole-τ})
+ ;#,@(when-attr whole-τ #'{whole-τ}) ;; not needed.
(define-syntax name (make-no-set!-transformer #'name-impl))
(define name-impl
(declared-wrapper