~ chicken-core (chicken-5) 3d4228b97a5759e1dc55780999c68e56ec2fbd00

commit 3d4228b97a5759e1dc55780999c68e56ec2fbd00
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Apr 3 17:12:28 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Apr 3 17:28:56 2016 +1200

    Add a simple test case for invalid string->number bases

diff --git a/tests/numbers-string-conversion-tests.scm b/tests/numbers-string-conversion-tests.scm
index 3c647710..5c20453f 100644
--- a/tests/numbers-string-conversion-tests.scm
+++ b/tests/numbers-string-conversion-tests.scm
@@ -500,3 +500,10 @@
    ("#b10+11i" (make-rectangular 2 3) "2.0+3.0i" "2.+3.i")))
 
  )
+
+;; #1272 - Bases not in [2,36] throw errors.
+(let ((check-base (lambda (b)
+                    (string->number "123" b)
+                    (error "No error on invalid base" b))))
+  (condition-case (check-base 1)  ((exn type) 'ok))
+  (condition-case (check-base 37) ((exn type) 'ok)))