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

Add missing source locations.

Browse Source 
Closes #428.
This commit is contained in:
Vincent St-Amour 2016-09-28 13:27:12 -05:00
parent bbb62da731
commit 2fc83b2868
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
typed-racket-lib/typed-racket/base-env/prims-contract.rkt
View File

@ -294,11 +294,12 @@
;; We want the value bound to name to have a nice object name. Using the built in mechanism
;; of define has better performance than procedure-rename.
#,(ignore
#'(define name
(let ([pred (make-predicate ty)])
(lambda (x) (pred x)))))
(syntax/loc stx
(define name
(let ([pred (make-predicate ty)])
(lambda (x) (pred x))))))
;; not a require, this is just the unchecked declaration syntax
#,(internal #'(require/typed-internal name (Any -> Boolean : ty))))]))
#,(internal (syntax/loc stx (require/typed-internal name (Any -> Boolean : ty)))))]))
(define (make-predicate stx)

2
typed-racket-lib/typed-racket/base-env/prims-struct.rkt
View File

@ -217,7 +217,7 @@
[(_ :type-alias-full)
#`(begin
#,(if (not (attribute omit))
(ignore #'(define-syntax tname type-name-error))
(ignore (syntax/loc stx (define-syntax tname type-name-error)))
#'(begin))
#,(internal (syntax/loc stx
(define-type-alias-internal tname type poly-vars))))]))