aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/generif.scm10
1 files changed, 0 insertions, 10 deletions
diff --git a/examples/generif.scm b/examples/generif.scm
index 76751a9..691dc34 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -16,16 +16,6 @@
-(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]))
-
(define (fix-email-id email)
(string-delete #\space email))