Changeset 12004 in project

Timestamp:

09/25/08 22:38:13 (12 years ago)

Author:

sjamaan

Message:

Merge in new uri-generic changes

Location:

release/4/uri-generic/trunk

Files:

• . (modified) (1 prop)
• uri-generic.scm (modified) (1 diff)

release/4/uri-generic/trunk/uri-generic.scm

@@ -729 +729 @@
          (else c)))
 
-(define (hex-digit-char->integer c)
-  (case c
-         ((#\1)  1)
-         ((#\2)  2)
-         ((#\3)  3)
-         ((#\4)  4)
-         ((#\5)  5)
-         ((#\6)  6)
-         ((#\7)  7)
-         ((#\8)  8)
-         ((#\9)  9)
-         ((#\A)  10)
-         ((#\B)  11)
-         ((#\C)  12)
-         ((#\D)  13)
-         ((#\E)  14)
-         ((#\F)  15)
-         (else  (error 'hex-digit-char->integer "invalid hex char " c))))
-
 (define (octet-decode h1 h2)
-  (+ (* 16 (hex-digit-char->integer h1)) (hex-digit-char->integer h2)))
+  (string->number (list->string (list h1 h2)) 16))
 
 (define (uri-decode-string str)