From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Oct 1989 07:25:24 +0000 (+0000)
Subject: In `number->string', handle a radix argument of '(heur).
X-Git-Tag: 20090517-FFI~11730
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92370d8b205b69b2fcb1570e94c921899dafd3f0;p=mit-scheme.git

In `number->string', handle a radix argument of '(heur).
---

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 8be826494..fec31bd42 100644
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.2 1989/10/27 07:24:51 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.3 1989/10/27 07:25:24 cph Exp $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -1572,8 +1572,8 @@ MIT in each case. |#
    (cond ((or (default-object? radix)
 	      (equal? radix '(HEUR)))
 	  10)
-	 ((and (integer? radix)
-	       (exact? radix)	       (<= 2 radix 36))
+	 ((and (exact-integer? radix)
+	       (<= 2 radix 36))
 	  radix)
 	 (else
 	  (bad-range 'NUMBER->STRING radix)))))
\ No newline at end of file