Changeset 36541 in project


Ignore:
Timestamp:
09/08/18 11:04:13 (2 months ago)
Author:
sjamaan
Message:

uri-generic: Fix one particular ipv6 edge case where we attempted to concatenate a flat list

File:
1 edited

Legend:

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

    r36539 r36541  
    700700                                      ((a2 rst)  (match (ls32 rst)
    701701                                                        ((a3 rst)  (list (append (concatenate a1) (list #\: #\:)
    702                                                                                  (concatenate a2) a3) rst))
     702                                                                                 a2 a3) rst))
    703703                                                        (else #f)))
    704704                                      (else #f)
Note: See TracChangeset for help on using the changeset viewer.