From: Andy Wingo <wingo@wingomac.bcn.oblong.net>
Date: Mon, 20 Apr 2009 15:23:40 +0000 (+0200)
Subject: fix build errors on fresh checkout
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/2b4b555b8fd10d369dbb2ee1f90d9e6035a5cd9e

fix build errors on fresh checkout

* meta/guile-tools: We can't use srfi-1, because on a fresh checkout
  the srfi-1 shlib isn't built yet. Bummer.

* meta/uninstalled-env.in: Fix up the DYLD lines for BSDen.

* module/scripts/snart-guile-m4-docs.scm: Fix expected arguments.
---

diff --git a/meta/guile-tools b/meta/guile-tools
index 6df88effa..c30f02655 100755
--- a/meta/guile-tools
+++ b/meta/guile-tools
@@ -22,8 +22,15 @@ exec guile $GUILE_FLAGS -e '(@@ (guile-tools) main)' -s "$0" "$@"
 ;;;; License along with this library; if not, write to the Free Software
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
-(define-module (guile-tools)
-  #:use-module (srfi srfi-1))
+(define-module (guile-tools))
+
+;; We can't import srfi-1, unfortunately, as we are used early in the
+;; boot process, before the srfi-1 shlib is built.
+
+(define (fold kons seed seq)
+  (if (null? seq)
+      seed
+      (fold kons (kons (car seq) seed) (cdr seq))))
 
 (define (help)
   (display "\
diff --git a/meta/uninstalled-env.in b/meta/uninstalled-env.in
index 02c0e315e..56bbc307f 100644
--- a/meta/uninstalled-env.in
+++ b/meta/uninstalled-env.in
@@ -80,7 +80,7 @@ for dir in $subdirs_with_ltlibs ; do
 done
 LTDL_LIBRARY_PATH="${ltdl_prefix}$LTDL_LIBRARY_PATH"
 export LTDL_LIBRARY_PATH
-DYLD_LIBRARY_PATH="${dyld_prefix}${top_builddir}/libguile/.libs:$DYLD_LIBRARY_PATH"
+DYLD_LIBRARY_PATH="${dyld_prefix}$DYLD_LIBRARY_PATH"
 export DYLD_LIBRARY_PATH
 
 if [ x"$PKG_CONFIG_PATH" = x ]
diff --git a/module/scripts/snarf-guile-m4-docs.scm b/module/scripts/snarf-guile-m4-docs.scm
index 11fb82b3d..614fc0fe5 100644
--- a/module/scripts/snarf-guile-m4-docs.scm
+++ b/module/scripts/snarf-guile-m4-docs.scm
@@ -63,7 +63,7 @@
                       (else (car line)))
                     acc)))))
 
-(define (snarf-guile-m4-docs . args)
+(define (snarf-guile-m4-docs args)
   (let* ((p (open-file (car args) "r"))
          (next (lambda () (read-line p))))
     (let loop ((line (next)) (acc #f))