suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix up error message

Browse Source
This commit is contained in:
David Vanderson 2013-09-09 17:32:42 -04:00 committed by Ryan Culpepper
parent f098afa671
commit fb66c419de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/file/sha1.rkt
View File

@ -313,7 +313,7 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(define (hex-string->bytes s)
(unless (and (string? s) (regexp-match? #px"^([[:xdigit:]]{2})*$" s))
(raise-argument-error 'hex-string->bytes
"string containing an even number of hexadecimal digits" s))
"(and/c string? #px\"^([[:xdigit:]]{2})*$\")" s))
(define (hex-char->int c)
(cond ((char<=? #\0 c #\9) (- (char->integer c) (char->integer #\0)))