adjust syntax/loc and some docs

svn: r13899
This commit is contained in:
Matthew Flatt 2009-03-02 22:24:25 +00:00
parent d7c9b2b771
commit ff0b532864
3 changed files with 5 additions and 3 deletions

View File

@ -21,7 +21,8 @@
(syntax (syntax-case** _ #f stxe kl free-identifier=? clause ...))])))
(-define (relocate loc stx)
(if (syntax-source loc)
(if (or (syntax-source loc)
(syntax-position loc))
(datum->syntax stx
(syntax-e stx)
loc

View File

@ -423,7 +423,7 @@ absolute path; it is an absolute path when adding the
platform-specific shared-library extension --- as produced by
@scheme[(system-type 'so-suffix)] --- and then searching in the
PLT-specific shared-object library directories (as determined by
@scheme[find-dll-dirs]) locates the path. In this way, shared-object
@scheme[get-lib-search-dirs]) locates the path. In this way, shared-object
libraries that are installed specifically for PLT Scheme get carried
along in distributions.

View File

@ -348,7 +348,8 @@ for use only with a @scheme[quasisyntax] template.}
Like @scheme[syntax], except that the immediate resulting syntax
object takes its source-location information from the result of
@scheme[stx-expr] (which must produce a syntax object), unless the
@scheme[template] is just a pattern variable.}
@scheme[template] is just a pattern variable or both the source and
position of @scheme[stx-expr] are @scheme[#f].}
@defform[(quasisyntax/loc stx-expr template)]{