www

commit 7e3fa40496f076f951f9c90f69cbe8cdfddd413c
parent baf7434c7f8978a651fe75d4bd0c2302d63ac847
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Sat, 20 May 2017 02:57:48 +0200

Improve srcloc of error messages on λ

Diffstat:
M
private/pure-function.rkt
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git 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