;; place in ac.scm
(xdef 'seval (lambda (x) (eval (ac-denil x))))

;; place in arc.arc
(mac scheme-eval body `(seval (quote ,@body)))
(set $ scheme-eval)