about summary refs log tree commit diff
path: root/examples
diff options
context:
space:
mode:
authorMunyoki Kilyungi2025-12-23 12:07:10 +0300
committerMunyoki Kilyungi2026-01-13 12:02:49 +0300
commit5f3ea3c988d8051d3ae3d969ac960037687903d0 (patch)
tree50f62bef4146a3d0e91044fb76ebac0d9863c415 /examples
parent1ca7e679b834ccaf53a3243d0e1c2f3f9e8d56d8 (diff)
downloadgn-transform-databases-5f3ea3c988d8051d3ae3d969ac960037687903d0.tar.gz
Move remap-species-identifiers to (transform triples).
* examples/classification.scm (remap-species-identifiers): Move
this...
* transform/triples.scm: ... here.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/classification.scm10
1 files changed, 0 insertions, 10 deletions
diff --git a/examples/classification.scm b/examples/classification.scm
index 8951c85..3e13a92 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -13,16 +13,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]))
-
 ;; Classification Scheme
 (define-transformer classification-scheme-species
   (tables (Species))