[PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'.

[宋文武]

* gnu/packages/emacs.scm (geiser)[arguments]: Symlink Guile modules
  to the right 'guilesitedir' in the 'post-install' phase.
---
 gnu/packages/emacs.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 2502f29..337d00d 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -196,10 +196,17 @@ editor (without an X toolkit)" )
      '(#:phases (alist-cons-after
                  'install 'post-install
                  (lambda* (#:key outputs #:allow-other-keys)
-                   (symlink "geiser-install.el"
-                            (string-append (assoc-ref outputs "out")
-                                           "/share/emacs/site-lisp/"
-                                           "geiser-autoloads.el")))
+                   (let* ((out (assoc-ref outputs "out"))
+                          (guilesitedir (string-append
+                                         out "/share/guile/site/2.0")))
+                     (symlink "geiser-install.el"
+                              (string-append out
+                                             "/share/emacs/site-lisp/"
+                                             "geiser-autoloads.el"))
+                     ;; Symlink Guile modules to the right 'guilesitedir'.
+                     (mkdir-p guilesitedir)
+                     (symlink (string-append out "/share/geiser/guile/geiser")
+                              (string-append guilesitedir "/geiser"))))
                  %standard-phases)))
     (inputs `(("guile" ,guile-2.0)
               ("emacs" ,emacs-no-x)))
-- 
2.2.1