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