diff options
Diffstat (limited to 'transform/strings.scm')
| -rw-r--r-- | transform/strings.scm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/transform/strings.scm b/transform/strings.scm index 7545f62..7d9bc82 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -11,7 +11,6 @@ delete-substrings replace-substrings remove-duplicates - remap-species-identifiers str sanitize-rdf-string snake->lower-camel lower-case-and-replace-spaces @@ -120,14 +119,3 @@ association list mapping substrings to their replacements." ((null? lst) (reverse result)) ((memq (car lst) result) (loop (cdr lst) result)) (else (loop (cdr lst) (cons (car lst) result)))))) - - -(define (remap-species-identifiers str) - "This procedure remaps identifiers to standard binominal. Obviously this should - be sorted by correcting the database!" - (match str - ["Fly (Drosophila melanogaster dm6)" "Drosophila melanogaster"] - ["Oryzias latipes (Japanese medaka)" "Oryzias latipes"] - ["Macaca mulatta" "Macaca nemestrina"] - ["Bat (Glossophaga soricina)" "Glossophaga soricina"] - [str str])) |