diff --git a/collects/scheme/private/stxloc.ss b/collects/scheme/private/stxloc.ss index c52c3cfb9e..35ccaae5a7 100644 --- a/collects/scheme/private/stxloc.ss +++ b/collects/scheme/private/stxloc.ss @@ -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 diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index b1448278d0..951e59bbbb 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -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. diff --git a/collects/scribblings/reference/stx-patterns.scrbl b/collects/scribblings/reference/stx-patterns.scrbl index e2791a22bf..01728fdac2 100644 --- a/collects/scribblings/reference/stx-patterns.scrbl +++ b/collects/scribblings/reference/stx-patterns.scrbl @@ -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)]{