Changeset 34889 in project for release/4/csv-xml/trunk/csv-out.impl


Ignore:
Timestamp:
11/12/17 00:08:23 (4 years ago)
Author:
Kon Lovett
Message:

fix quoting when sep char , fix quoting when # or ???

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/csv-xml/trunk/csv-out.impl

    r34886 r34889  
    154154            always-quote?
    155155            (quote-doubling? str)
     156            (and separator-char (string-index str separator-char))
    156157            (and quote-controls? (string-index str char-set:iso-control))) )
    157158        ;
     
    174175            (csv-line-object->string (number->string obj)) )
    175176          (else
    176             (->string obj) ) ) )
     177            (csv-line-object->string (->string obj)) ) ) )
    177178      ;
    178179      (lambda (obj)
Note: See TracChangeset for help on using the changeset viewer.