;;;; 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 "\
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 ]
(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))