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

Improve srcloc of error messages on λ

Browse Source
This commit is contained in:
Georges Dupéron 2017-05-20 02:57:48 +02:00
parent baf7434c7f
commit 7e3fa40496
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
private/pure-function.rkt
View File

@ -392,8 +392,8 @@
(:def . {~var || (name+args+body #'name/τ)})) (:def . {~var || (name+args+body #'name/τ)}))
(self . {~and :name+args+body {~not ((:colon . _) . _)}})} (self . {~and :name+args+body {~not ((:colon . _) . _)}})}
#:with lam (if (free-identifier=? (datum->syntax #'self 'λ) #'te:λ) #: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) #:with pure/? (if (eq? stateful/stateless-sym 'stateful)
#'pure/stateful #'pure/stateful
#'pure/stateless) #'pure/stateless)
@ -408,7 +408,7 @@
(quasisyntax/top-loc this-syntax (quasisyntax/top-loc this-syntax
(begin (begin
#,@(when-attr CT #'{(CT name-impl . self-τ)}) #,@(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-syntax name (make-no-set!-transformer #'name-impl))
(define name-impl (define name-impl
(declared-wrapper (declared-wrapper