From efb0d935172555e623a88e147f387a6e9a4a5bf6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Mon, 5 Sep 2016 15:49:10 +0200 Subject: [PATCH] Removed replace-top-loc which was unused, moved it to https://github.com/jsmaniac/phc-toolkit/blob/76788aba6499684fae33abfd4fb83da480eb26b3/stx/fold.rkt --- lang/reader.rkt | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/lang/reader.rkt b/lang/reader.rkt index 1a18748..947d6c9 100644 --- a/lang/reader.rkt +++ b/lang/reader.rkt @@ -10,40 +10,6 @@ (only-in syntax/module-reader make-meta-reader) syntax/strip-context) -;; Replaces the syntax/loc for the top of the syntax object, until -;; a part which doesn't belong to old-source is reached. -;; e.g. (with-syntax ([d user-provided-syntax]) -;; (replace-top-loc -;; #'(a b (c d e)) -;; (syntax-source #'here) -;; new-loc)) -;; will produce a syntax object #'(a b (c (x (y) z) e)) -;; where a, b, c, z, e and their surrounding forms have their srcloc set to -;; new-loc, but (x (y) z) will be left intact, if the user-provided-syntax -;; appears in another file. -(define (replace-top-loc stx old-source new-loc) - (let process ([stx stx]) - (cond - [(syntax? stx) - (if (equal? (syntax-source stx) old-source) - (datum->syntax stx (process (syntax-e stx)) new-loc stx) - stx - ;; Use the following expression to replace the loc throughout stx - ;; instead of stopping the depth-first-search when the syntax-source - ;; is not old-source anymore - #;(datum->syntax stx (process (syntax-e stx)) stx stx))] - [(pair? stx) - (cons (process (car stx)) - (process (cdr stx)))] - [(vector? stx) - (list->vector (process (vector->list stx)))] - [(prefab-struct-key stx) - => (λ (key) - (make-prefab-struct key - (process (struct->vector stx))))] - [else - stx]))) - (define ((wrap-reader reader) chr in src line col pos) (define/with-syntax orig-mod (reader chr (narrow-until-prompt in) src line col pos))