(use files)

(define-syntax impload
  (ir-macro-transformer
   (lambda (expr inject compare)
     (let ((file-path (cadr expr)))
       `(begin
          (import ,(string->symbol (pathname-file file-path)))
          (load ,file-path))))))

(impload "src/mod.scm")