Changeset 13086 in project


Ignore:
Timestamp:
01/25/09 21:28:29 (11 years ago)
Author:
sjamaan
Message:

add port to record-printer

File:
1 edited

Legend:

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

    r13085 r13086  
    7373
    7474(define-record-printer (URI-common x out)
    75   (fprintf out "#(URI-common scheme=~S host=~S path=~S query=~S fragment=~S"
     75  (fprintf out "#(URI-common scheme=~S port=~S host=~S path=~S query=~S fragment=~S"
    7676           (generic:uri-scheme (URI-common-generic x))
     77           (generic:uri-port (URI-common-generic x))
    7778           (URI-common-host x)
    7879           (URI-common-path x)
Note: See TracChangeset for help on using the changeset viewer.