8.18
Source Syntaxπ i
( recover-source-syntax orig expanded
[ #:traverse-now?now?])
Returns a procedure that accepts a syntax object from expanded
and returns the outermost syntax object in orig that has the same
location as the given syntax object.
If no syntax object in orig has the same location as the given syntax
object, the procedure repeats with the parent of the given syntax object.
Example:
> (let* ([orig#'(λ (x[y0])(+ xy))] [recovered((recover-source-syntaxorigexpanded)expanded)])