X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/ce8b584c2d92cd2fd15c9727461cf2f7a719db12..02573e4c7a10dee980618c93f4902887b225433c:/pre-inst-guile.in

diff --git a/pre-inst-guile.in b/pre-inst-guile.in
index 206eab174..c1f5ef1be 100644
--- a/pre-inst-guile.in
+++ b/pre-inst-guile.in
@@ -19,6 +19,13 @@
 #   to the Free Software Foundation, Inc., 59 Temple Place, Suite
 #   330, Boston, MA 02111-1307 USA
 
+# NOTE: at some point we might consider invoking this under
+# pre-inst-guile-env.  If this will work, then most of the code below
+# can be removed.
+
+# NOTE: If you update this file, please update pre-inst-guile-env.in
+# as well, if appropriate.
+
 # Commentary:
 
 # Usage: pre-inst-guile [ARGS]
@@ -51,14 +58,19 @@ top_builddir="@top_builddir_absolute@"
 }
 
 # handle GUILE_LOAD_PATH (no clobber)
-if [ x"$GUILE_LOAD_PATH" = x ] ; then
-    GUILE_LOAD_PATH="${top_srcdir}"
+if [ x"$GUILE_LOAD_PATH" = x ]
+then
+    GUILE_LOAD_PATH="${top_srcdir}/guile-readline:${top_srcdir}"
 else
+  for d in "${top_srcdir}" "${top_srcdir}/guile-readline"
+  do
     # This hair prevents double inclusion.
     # The ":" prevents prefix aliasing.
-    case x"$GUILE_LOAD_PATH" in x*${top_srcdir}:*) ;;
-      *) GUILE_LOAD_PATH="${top_srcdir}:$GUILE_LOAD_PATH" ;;
+    case x"$GUILE_LOAD_PATH" in
+      x*${d}:*) ;;
+      *) GUILE_LOAD_PATH="${d}:$GUILE_LOAD_PATH" ;;
     esac
+  done
 fi
 export GUILE_LOAD_PATH