Ignore:
Timestamp:
09/11/16 19:03:36 (2 years ago)
Author:
sjamaan
Message:

Fix abnf alternative by adding the SRFI-14 workaround so it passes tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/alternatives/uri-generic.abnf.scm

    r33641 r33645  
    293293;;
    294294
     295;; The SRFI-14 library uses Latin1, and its definition of "letter"
     296;; includes accented letters with high bit. This wreaks havoc with
     297;; UTF-8 URIs.  Besides, the RFC only discusses ASCII letters anyway.
     298(define char-set:ascii-letter
     299  (string->char-set
     300   "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
     301
     302(define char-set:ascii-letter+digit
     303  (char-set-union char-set:ascii-letter char-set:digit))
     304
    295305(define char-set:uri-unreserved
    296   (char-set-union char-set:letter+digit (string->char-set "-_.~")))
     306  (char-set-union char-set:ascii-letter+digit (string->char-set "-_.~")))
    297307
    298308(define unreserved (set (char-set->list char-set:uri-unreserved)))
Note: See TracChangeset for help on using the changeset viewer.