From 11f27efa115b7639ce9f91c46598b67ab4bea103 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 20 Feb 2005 22:53:58 +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 cdbf62534..247253847 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -875,7 +875,12 @@
 	  ((> len 300))
 
 	(pass-if (list 'length len)
-	  (eqv? want (string->number (make-string len digit) base)))))))
+	  (eqv? want (string->number (make-string len digit) base))))))
+
+  ;; 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?