11 lines
238 B
Plaintext
11 lines
238 B
Plaintext
|
|
(defn load-file [filename]
|
|
(eval (read-string (str "(do " (slurp filename) "\nnil)"))))
|
|
|
|
(defn load [filename]
|
|
(eval (read-string (str "(let* [] (do " (slurp filename) "))"))))
|
|
|
|
;; Local Variables:
|
|
;; eval: (emacs-lisp-mode)
|
|
;; End:
|