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

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 8be826494cc67c031a0925d8c13c5e7e317684f6..fec31bd4236e42d85d97275a94d71c55b4d5c147 100644 (file)
--- 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