(define (arc-eval arc form)
    (parameterize (...
                   (compile-allow-set!-undefined #t))
      (eval ... racket-namespace*)))