From 0592e727a73ec46c12bf359b7fc6d764b2fde217 Mon Sep 17 00:00:00 2001
From: devans <devans>
Date: Sun, 14 Jun 2009 17:16:45 +0000
Subject: [PATCH] 	* guile.scm: Add "." to %load-path if >= guile version
 1.8.

---
 cgen/ChangeLog | 4 +++-
 cgen/guile.scm | 8 ++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 24dc117124..2ffbdc3e68 100644
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,4 +1,6 @@
-2009-06-11  Doug Evans  <dje@sebabeach.org>
+2009-06-14  Doug Evans  <dje@sebabeach.org>
+
+	* guile.scm: Add "." to %load-path if >= guile version 1.8.
 
 	* attr.scm: Removing trailing whitespace.
 	* cgen-intrinsics.scm: Ditto.
diff --git a/cgen/guile.scm b/cgen/guile.scm
index 5ea6e53a22..68b9fc5036 100644
--- a/cgen/guile.scm
+++ b/cgen/guile.scm
@@ -64,6 +64,14 @@
        objs)
   (newline (current-error-port)))
 
+;; Guile 1.8 no longer has "." in %load-path so relative path loads
+;; no longer work.
+
+(if (or (> *guile-major-version* 1)
+	(>= *guile-minor-version* 8))
+    (set! %load-path (append %load-path (list ".")))
+)
+
 
 ;;; Enabling and disabling debugging features of the host Scheme.
 
-- 
2.11.0