add hexdigit

dido · Dec 5, 2014 · 9f7f29b · 9f7f29b
1 parent 23d4cc5
commit 9f7f29b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/arc/bootstrap.arc b/arc/bootstrap.arc
@@ -90,3 +90,6 @@
 ;; Uses Racket's string->number
 (def string->num (s (o radix 10))
   ($ (let ((n (string->number s radix))) (if n n 'nil))))
+
+;; Strange that this was omitted
+(def hexdigit (c) (or (digit c) (<= #\a c #\f) (<= #\A c #\F)))