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

make record-disappeared-uses call syntax-local-introduce

Browse Source 
on the identifiers passed to it
This commit is contained in:
Robby Findler 2012-08-24 09:34:41 -05:00
parent 97f47e4fbb
commit e4450e2705
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/racket/syntax.rkt
View File

@ -81,7 +81,10 @@
(define (record-disappeared-uses ids)
(let ([uses (current-recorded-disappeared-uses)])
(when uses
(current-recorded-disappeared-uses (append ids uses)))))
(current-recorded-disappeared-uses
(append
(map syntax-local-introduce ids)
uses)))))
;; == Identifier formatting ==

11
collects/scribblings/reference/syntax-util.scrbl
View File

@ -155,7 +155,8 @@ object.
Looks up @racket[id] in the syntactic environment (as
@racket[syntax-local-value]). If the lookup succeeds and returns a
value satisfying the predicate, the value is returned and @racket[id]
is recorded as a disappeared use. If the lookup fails or if the value
is recorded as a disappeared use by calling @racket[record-disappeared-uses].
If the lookup fails or if the value
does not satisfy the predicate, @racket[#f] is returned and the
identifier is not recorded as a disappeared use.
}
@ -163,9 +164,11 @@ identifier is not recorded as a disappeared use.
@defproc[(record-disappeared-uses [ids (listof identifier?)])
void?]{
Add @racket[ids] to @racket[(current-recorded-disappeared-uses)]. If
not used within the extent of a @racket[with-disappeared-uses] form or
similar, has no effect.
Add @racket[ids] to @racket[(current-recorded-disappeared-uses)] after calling
@racket[syntax-local-introduce] on each of the identifiers.
If not used within the extent of a @racket[with-disappeared-uses]
form or similar, has no effect.
}