From 2b3a7da9727365fa7854c645d7caeb90d0f08ecb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 Jun 2005 13:32:27 +0000
Subject: [PATCH] Use lower case for output of hexadecimal digits.

---
 v7/src/runtime/char.scm    | 14 +++++---------
 v7/src/runtime/runtime.pkg | 15 ++++++++++++++-
 2 files changed, 19 insertions(+), 10 deletions(-)

diff --git a/v7/src/runtime/char.scm b/v7/src/runtime/char.scm
index a9661aac2..245b33feb 100644
--- a/v7/src/runtime/char.scm
+++ b/v7/src/runtime/char.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: char.scm,v 14.25 2004/02/25 20:59:02 cph Exp $
+$Id: char.scm,v 14.26 2005/06/03 13:32:16 cph Exp $
 
 Copyright 1986,1987,1988,1991,1995,1997 Massachusetts Institute of Technology
-Copyright 1998,2001,2003,2004 Massachusetts Institute of Technology
+Copyright 1998,2001,2003,2004,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -47,9 +47,7 @@ USA.
 (define-integrable (%char-bits char)
   (fix:lsh (char->integer char) -21))
 
-(define-integrable (guarantee-char char procedure)
-  (if (not (char? char))
-      (error:wrong-type-argument char "character" procedure)))
+(define-guarantee char "character")
 
 (define (make-char code bits)
   (guarantee-limited-index-fixnum code char-code-limit 'MAKE-CHAR)
@@ -201,9 +199,7 @@ USA.
        (fix:<= 2 object)
        (fix:<= object 36)))
 
-(define (guarantee-radix object caller)
-  (if (not (radix? object))
-      (error:wrong-type-argument object "radix" caller)))
+(define-guarantee radix "radix")
 
 (define (digit->char digit #!optional radix)
   (guarantee-limited-index-fixnum digit
@@ -213,7 +209,7 @@ USA.
 					(guarantee-radix radix 'DIGIT->CHAR)
 					radix))
 				  'DIGIT->CHAR)
-  (string-ref "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" digit))
+  (string-ref "0123456789abcdefghijklmnopqrstuvwxyz" digit))
 
 (define (char->digit char #!optional radix)
   (guarantee-char char 'CHAR->DIGIT)
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index fe0d601fa..d82faf589 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.553 2005/06/01 05:00:07 cph Exp $
+$Id: runtime.pkg,v 14.554 2005/06/03 13:32:27 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -981,6 +981,8 @@ USA.
 	  chars->ascii
 	  code->char
 	  digit->char
+	  error:not-char
+	  error:not-radix
 	  guarantee-char
 	  guarantee-radix
 	  integer->char
@@ -2390,6 +2392,17 @@ USA.
 	  >
 	  >=
 	  atan
+	  error:not-complex
+	  error:not-exact
+	  error:not-exact-integer
+	  error:not-exact-nonnegative-integer
+	  error:not-exact-positive-integer
+	  error:not-exact-rational
+	  error:not-inexact
+	  error:not-integer
+	  error:not-number
+	  error:not-rational
+	  error:not-real
 	  exact-nonnegative-integer?
 	  exact-positive-integer?
 	  flo:significand-digits-base-10
-- 
2.25.1