diff options
| -rwxr-xr-x | examples/dump-species-metadata.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index a7e242a..d761439 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -114,7 +114,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. "" (regexp-substitute/global #f "[^A-Za-z0-9:]" - (field ("CAST(CONVERT(BINARY CONVERT(Strain.Name USING latin1) USING utf8) AS VARCHAR(15000))" StrainName)) + (field Strain Name) 'pre "_" 'post) #:separator "" #:proc string-capitalize-first) |