gentoo-overlay/dev-scheme/guile-www/files/guile-www-2.30-alive.test.patch

From f41bf9380f7b08f5e8c07c9c58d66cd5da7bc356 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 28 Apr 2011 05:13:52 +0000
Subject: [v] Make alive.test avoid (mis-)loading the .scm files, if possible.

Reported by Bernardo Ezequiel Contreras:
<https://savannah.nongnu.org/bugs/?33175>

* source/alive.test: If guile has ‘%load-extensions’, create a
preload file that removes ".scm" from it; use that file for
all invocations; and delete it when done.  If in debug mode,
display ponderings, as well as ‘guile --version’ output.
---
diff --git a/source/ChangeLog b/source/ChangeLog
index 2b5bd1b..2de79f4 100644
--- a/source/ChangeLog
+++ b/source/ChangeLog
@@ -1,3 +1,15 @@
+2011-04-28  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+	[v] Make alive.test avoid (mis-)loading the .scm files, if possible.
+
+	Reported by Bernardo Ezequiel Contreras:
+	<https://savannah.nongnu.org/bugs/?33175>
+
+	* alive.test: If guile has ‘%load-extensions’, create a
+	preload file that removes ".scm" from it; use that file for
+	all invocations; and delete it when done.  If in debug mode,
+	display ponderings, as well as ‘guile --version’ output.
+
 2011-01-24  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
 	Release: 2.29
diff --git a/source/alive.test b/source/alive.test
index 3521fcc..76e91c8 100755
--- a/source/alive.test
+++ b/source/alive.test
@@ -35,6 +35,25 @@ decho ()
     if $debug ; then echo "$1" ; fi
 }
 
+decho 'guile:'
+if $debug ; then ${GUILE-guile} --version ; fi
+
+if $guile -c '%load-extensions' >/dev/null 2>&1 ; then
+    preload=alive.preload
+    echo '(set! %load-extensions (delete ".scm" %load-extensions))' > $preload
+    if $debug ; then
+        decho 'preload:'
+        cat $preload
+        decho 'before:'
+        $guile -c '(begin (write %load-extensions) (newline))'
+    fi
+    guile="$guile -l $preload"
+    if $debug ; then
+        decho 'after:'
+        $guile -c '(begin (write %load-extensions) (newline))'
+    fi
+fi
+
 decho 'indivdually:'
 { while read m ;
     do
@@ -48,4 +67,8 @@ all="`cat $all`"
 decho "$guile -c '(use-modules $all)'"
 $guile -c "(use-modules $all)"
 
+if [ "$preload" ] ; then rm $preload ; fi
+
+exit 0
+
 # alive.test ends here
--
cgit v0.9.0.2