1#lang racket/base
2(require "config.rkt")
3
4(provide wrap)
5
6(define (wrap s-exp in config rep)
7  (define wrap (read-config-wrap config))
8  (if wrap
9      (wrap s-exp (port+config->srcloc in config) rep)
10      s-exp))
11