From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Oct 1989 07:24:51 +0000 (+0000)
Subject: In `number->string', handle a radix argument of '(heur).
X-Git-Tag: 20090517-FFI~11731
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61e78420cd6506f4eaf10a182cbc74277d5f66e2;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 54a181fb1..8be826494 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.1 1989/10/27 02:03:35 cph Exp $
+$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 $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -1569,7 +1569,9 @@ MIT in each case. |#
 (define (number->string z #!optional radix)
   (complex:->string
    z
-   (cond ((default-object? radix)	  10)
+   (cond ((or (default-object? radix)
+	      (equal? radix '(HEUR)))
+	  10)
 	 ((and (integer? radix)
 	       (exact? radix)	       (<= 2 radix 36))
 	  radix)