From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 9 Jul 1988 02:24:02 +0000 (+0000)
Subject: Change default radix of `string->number' to decimal.
X-Git-Tag: 20090517-FFI~12676
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3d19d3270e09e111f7b0c7895854d7ffdba63c20;p=mit-scheme.git

Change default radix of `string->number' to decimal.
---

diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index a0faa3f29..5d6ca569b 100644
--- a/v7/src/runtime/numpar.scm
+++ b/v7/src/runtime/numpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 14.1 1988/06/13 11:48:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 14.2 1988/07/09 02:24:02 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -52,7 +52,7 @@ MIT in each case. |#
 	 ((eq? exactness 'I) ->inexact)
 	 (else (error "Illegal exactness argument" exactness)))
    (fluid-let ((*radix*
-		(cond ((default-object? radix) *parser-radix*)
+		(cond ((default-object? radix) 10)
 		      ((memv radix '(2 8 10 16)) radix)
 		      ((eq? radix 'B) 2)
 		      ((eq? radix 'O) 8)