Changeset 12004 in project


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk

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

    r12001 r12004  
    729729         (else c)))
    730730
    731 (define (hex-digit-char->integer c)
    732   (case c
    733          ((#\1)  1)
    734          ((#\2)  2)
    735          ((#\3)  3)
    736          ((#\4)  4)
    737          ((#\5)  5)
    738          ((#\6)  6)
    739          ((#\7)  7)
    740          ((#\8)  8)
    741          ((#\9)  9)
    742          ((#\A)  10)
    743          ((#\B)  11)
    744          ((#\C)  12)
    745          ((#\D)  13)
    746          ((#\E)  14)
    747          ((#\F)  15)
    748          (else  (error 'hex-digit-char->integer "invalid hex char " c))))
    749 
    750731(define (octet-decode h1 h2)
    751   (+ (* 16 (hex-digit-char->integer h1)) (hex-digit-char->integer h2)))
     732  (string->number (list->string (list h1 h2)) 16))
    752733
    753734(define (uri-decode-string str)
Note: See TracChangeset for help on using the changeset viewer.