From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 27 Oct 2018 02:45:23 +0000 (+0000)
Subject: Forgot to define this.  Ummm, I guess cref accidentally made it work?
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~141
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c6ab8c6f4ab07957b4ebb8a0202fe56fd0589c8a;p=mit-scheme.git

Forgot to define this.  Ummm, I guess cref accidentally made it work?
---

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index ee2d0471f..087b593c7 100644
--- a/src/runtime/arith.scm
+++ b/src/runtime/arith.scm
@@ -93,6 +93,7 @@ USA.
 (define rec:pi/2 (flo:* 2. (flo:atan2 1. 1.)))
 (define rec:pi (flo:* 2. rec:pi/2))
 
+(define flo:radix 2)
 (define flo:epsilon)
 (define flo:log-epsilon)
 (define flo:normal-exponent-max-base-2)