From 294f0e84c8b022fdecc733c9c1724e70f4c4d542 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 2 May 1997 05:46:25 +0000
Subject: [PATCH] Fix stupid typo in previous change.

---
 v7/src/runtime/numpar.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index 691a64827..3052c4782 100644
--- a/v7/src/runtime/numpar.scm
+++ b/v7/src/runtime/numpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: numpar.scm,v 14.11 1997/04/28 05:32:15 cph Exp $
+$Id: numpar.scm,v 14.12 1997/05/02 05:46:25 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -51,7 +51,7 @@ MIT in each case. |#
   (if (not (or (eq? #f default-radix) (eq? 2 default-radix)
 	       (eq? 8 default-radix) (eq? 10 default-radix)
 	       (eq? 16 default-radix)))
-      (error:bad-range-argument radix name))
+      (error:bad-range-argument default-radix name))
   (let loop ((start start) (exactness #f) (radix #f))
     (and (fix:< start end)
 	 (if (char=? #\# (string-ref string start))
-- 
2.25.1