(load "foo.arc" your-macro-expander-here)
-----
(def load-my-reader (file read) (push current-load-file* load-file-stack*) (= current-load-file* file) (after (w/infile f file (whilet e (read f) (eval (hook e)))) (do (= current-load-file* (pop load-file-stack*)) nil)))