Arc Forumnew | comments | leaders | submitlogin
5 points by rincewind 6001 days ago | link | parent

load would be even more useful if you were able to supply your own reader as the second argument.


4 points by almkglor 6001 days ago | link

  (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)))

-----