# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1605338535 18000
#      Sat Nov 14 02:22:15 2020 -0500
# Node ID fecd46fdeaa9ac30665d1b9265ae0b4795e739ea
# Parent  6b94dffbadba044873a37ffc0f95e66b57ae8d2e
only have capital letters in hex-lookup-table, and make hex-digit-to-number upcase its argument

diff --git a/zmusic-test.el b/zmusic-test.el
--- a/zmusic-test.el
+++ b/zmusic-test.el
@@ -74,7 +74,13 @@
                                     data)
                    (zmusic//data-subchunk data)))))
 
-
+(ert-deftest hex-digit-to-number ()
+  (seq-doseq (digit (number-sequence ?0 ?9))
+    (should (equal (- digit ?0)
+                   (hex-digit-to-number digit))))
+  (seq-doseq (digit (number-sequence ?A ?F))
+    (should (equal (+ 10 (- digit ?A))
+                   (hex-digit-to-number digit)))))
 
 
 (provide 'zmusic-test)
diff --git a/zmusic.el b/zmusic.el
--- a/zmusic.el
+++ b/zmusic.el
@@ -35,7 +35,7 @@
 ;;can specify hex numbers with #x123456789abcdef0, So #x10 is 16
 
 (defconst hex-lookup-table
-  (let ((table (make-hash-table :size 22)))
+  (let ((table (make-hash-table :size 16)))
     (puthash ?0 0 table)
     (puthash ?1 1 table)
     (puthash ?2 2 table)
@@ -47,17 +47,11 @@
     (puthash ?8 8 table)
     (puthash ?9 9 table)
     (puthash ?A 10 table)
-    (puthash ?a 10 table)
     (puthash ?B 11 table)
-    (puthash ?b 11 table)
     (puthash ?C 12 table)
-    (puthash ?c 12 table)
     (puthash ?D 13 table)
-    (puthash ?d 13 table)
     (puthash ?E 14 table)
-    (puthash ?e 14 table)
     (puthash ?F 15 table)
-    (puthash ?f 15 table)
     table)
   "A map of hex characters to the integer value.")
 
@@ -84,7 +78,7 @@
 
 (defun hex-digit-to-number (val)
   "Convert VAL from a hex digit (as a character or integer) to a number."
-  (gethash val hex-lookup-table 0))
+  (gethash (upcase val) hex-lookup-table 0))
 
 (defun hex-digits-to-byte (digit1 digit2)
   "Convert the hex DIGIT1 and DIGIT2 to a single byte value."