((scheme-mode
  (geiser-scheme-implementation . guile)
  (geiser-repl-per-project-p . t)
  (eval . (let ((root (locate-dominating-file buffer-file-name ".dir-locals.el")))
            (when root
              (setenv "GUILE_LOAD_PATH"
                      (concat root ":" (or (getenv "GUILE_LOAD_PATH") ""))))))))