Re: SEGV in guile_error

--===============0237848194920609066==
Content-Type: multipart/signed; boundary="==-=-=";
	micalg=pgp-sha1; protocol="application/pgp-signature"

--==-=-=
Content-Type: multipart/mixed; boundary="=-=-="

--=-=-=
Content-Type: text/plain

() Thien-Thi Nguyen <[email protected]>
() Sun, 24 Feb 2013 18:10:11 +0100

   [test case]

Here's something i cooked up:

--=-=-=
Content-Type: text/x-diff
Content-Disposition: inline; filename=t006.diff

 test/t006 |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/test/t006 b/test/t006
index 26109d3..35d477b 100644
--- a/test/t006
+++ b/test/t006
@@ -551,6 +551,17 @@
        (pass-if "Invalid boolean"
          (not (serveez-exceptions 'foo))))))

+(!! 'freaky
+    '(;; Load the test suite module.
+      (use-modules (test-suite))
+
+      (begin
+        (close-port (current-load-port))
+        (error "die"))
+
+      (pass-if "still going"
+        #t)))
+
 (exit #t)

 ;;; Local variables:

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable


Unfortunately, under Guile 1.8.7, it doesn't segfault, but instead shows
"undefined:0:0" (w/o the change to use =E2=80=98SCM_OPINPORTP=E2=80=99).  L=
ikewise, w/
the patch applied.

=2D-=20
Thien-Thi Nguyen ..................................... GPG key: 4C807502
.                  NB: ttn at glug dot org is not me                   .
.                 (and has not been since 2007 or so)                  .
.                        ACCEPT NO SUBSTITUTES                         .
........... please send technical questions to mailing lists ...........

--=-=-=--

--==-=-=
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)

iEYEARECAAYFAlEscH8ACgkQZwMiJEyAdQK/PgCg09z7u8bHt5nYyKB3Y7ZdANEF
JvYAoMxVJ57B9pleLm33WSIzFKCI8PCA
=ghf3
-----END PGP SIGNATURE-----
--==-=-=--


--===============0237848194920609066==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
bug-serveez mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-serveez

--===============0237848194920609066==--