0. #lang racket
1.  
2. (require syntax/srcloc (for-syntax syntax/parse))
3.  
4. (define-struct cfg (srcloc expr) #:transparent)
5.  
6. (define-syntax (config stx)
7.   (syntax-parse stx
8.     [(_ e:expr)
9.      #'(cfg-with-srclocs (quasiquote e) #'e)]))
10.  
11. (define (cfg-with-srclocs expr stx)
12.   (if (list? expr)
13.       (let* [(stx-list (syntax-e stx))
14.              (config-list (map cfg-with-srclocs expr stx-list))]
15.         (cfg (build-source-location stx) config-list))
16.       (cfg (build-source-location stx) expr)))
17.  
18. (define x 5)
19. (pretty-print (cfg (foo bar (baz (quux (zot ,(+ x 5)))))))

=>

eval:5:0: unquote: not in quasiquote

in: (unquote (+ x 5))