gistfile1.txt

#lang racket
(provide (for-syntax x))

(begin-for-syntax
  (define x 1)
  (set! x 2))

(define-syntax (foo stx)
  (syntax-case stx ()
    [(_foo)
     (set! x 3)
     #'(begin-for-syntax 
         (set! x 5))]))

(foo)