Changeset 11614 in project for release/3/uri-generic/trunk


Ignore:
Timestamp:
08/13/08 03:47:52 (13 years ago)
Author:
Ivan Raikov
Message:

Optional compatibility with utf8.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/uri-generic/trunk/uri-generic.scm

    r11562 r11614  
    4343(require-extension srfi-1)
    4444(require-extension srfi-4)
    45 (require-extension srfi-13)
    46 (require-extension srfi-14)
    4745
    4846(define-extension uri-generic)
    4947
    5048(declare
    51  (usual-integrations)
     49 (not usual-integrations)
    5250 (fixnum)
    5351 (inline)
     
    6159         uri-normalize-case uri-normalize-path-segments))
    6260
     61(cond-expand
     62   (utf8-strings (use utf8-srfi-13 utf8-srfi-14))
     63   (else (use srfi-13 srfi-14)))
    6364
    6465(define-record URI      scheme authority path query fragment)
Note: See TracChangeset for help on using the changeset viewer.