Removed replace-top-loc which was unused, moved it to 76788aba64/stx/fold.rkt

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))