From 48e78ba65c51871b4e8d3572cb422dd5c097d940 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 20 Feb 2005 22:55:53 +0000
Subject: [PATCH] (string->number): Exercise polar form with invalid angle.

---
 test-suite/tests/numbers.test | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index e41de37e5..9c2588fdd 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1205,7 +1205,12 @@
 
   (pass-if-exception "exponent too big"
     exception:out-of-range
-    (string->number "12.13e141414")))
+    (string->number "12.13e141414"))
+
+  ;; in guile 1.6.7 and earlier, bad polar forms (where the conversion of
+  ;; the angle gave #f) caused a segv
+  (pass-if "1@a"
+    (eq? #f (string->number "1@a"))))
 
 ;;;
 ;;; number?