From 54ba0cc5e8ed477a0d98f6a35cad74115814e257 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 24 Nov 2023 14:42:32 +0300
Subject: Move remap-species-identifier to strings.scm.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/genotype.scm | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'examples/genotype.scm')

diff --git a/examples/genotype.scm b/examples/genotype.scm
index da8e3b1..a5e30f9 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -15,16 +15,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-transformer genotypes
   (tables (Geno
            (left-join Species "USING (SpeciesId)")))
-- 
cgit v1.2.3