&erl-load-backend looks for beam files in the wrong place

When I use "make install" to install Distel, the relative locations of
the beam files and the Emacs lisp files are inconsistent with the
expectations of &erl-load-backend.  After doing "make install" the
files are laid out as follows under the installation root:

.
./share
./share/distel
./share/distel/ebin
./share/distel/ebin/distel.beam
./share/distel/ebin/distel_ie.beam
./share/distel/ebin/fdoc.beam
./share/distel/src
./share/distel/src/distel.erl
./share/distel/src/distel_ie.beam
./share/distel/src/distel_ie.erl
./share/distel/src/fdoc.erl
./share/emacs
./share/emacs/site-lisp
./share/emacs/site-lisp/distel
./share/emacs/site-lisp/distel/derl.el
./share/emacs/site-lisp/distel/distel-ie.el
./share/emacs/site-lisp/distel/distel.el
./share/emacs/site-lisp/distel/edb.el
./share/emacs/site-lisp/distel/epmd.el
./share/emacs/site-lisp/distel/erl-example.el
./share/emacs/site-lisp/distel/erl-service.el
./share/emacs/site-lisp/distel/erl-test.el
./share/emacs/site-lisp/distel/erl.el
./share/emacs/site-lisp/distel/erlext.el
./share/emacs/site-lisp/distel/erlext.elc
./share/emacs/site-lisp/distel/net-fsm.el
./share/emacs/site-lisp/distel/patmatch.el


But &erl-load-backend is looking in ../ebin relative to the directory
containing distel.el (or erl-service.el, which is the same directory).

The attached trivial patch makes it look in the right place.

I'm guessing most people do not use the "make install" target to
install Distel.


Graham

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

_______________________________________________
Distel-hackers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/distel-hackers

Index: erl-service.el
===================================================================
--- erl-service.el	(revision 8)
+++ erl-service.el	(working copy)
@@ -146,7 +146,7 @@
 (defun &erl-load-backend (node)
   (let* ((elisp-directory
 	  (file-name-directory (or (locate-library "distel") load-file-name)))
-	 (ebin-directory (concat elisp-directory "/../ebin"))
+	 (ebin-directory (concat elisp-directory "/../../../distel/ebin"))
 	 (modules '()))
     (dolist (file (directory-files ebin-directory))
       (when (string-match "^\\(.*\\)\\.beam$" file)