Changeset 30838 in project


Ignore:
Timestamp:
05/10/14 17:59:12 (6 years ago)
Author:
sjamaan
Message:

uri-generic: Fix record type printer

File:
1 edited

Legend:

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

    r30643 r30838  
    9999(cond-expand
    100100 (chicken
    101   (define-record-printer (URI x out)
     101  (define-record-printer (<URI> x out)
    102102    (fprintf out "#(URI scheme=~S authority=~A path=~S query=~S fragment=~S)"
    103103             (URI-scheme x)
     
    107107             (URI-fragment x)))
    108108 
    109   (define-record-printer (URIAuth x out)
     109  (define-record-printer (<URIAuth> x out)
    110110    (fprintf out "#(URIAuth host=~S port=~A)"
    111111             (URIAuth-host x)
Note: See TracChangeset for help on using the changeset viewer.