diff options
author | Munyoki Kilyungi | 2023-08-21 15:03:20 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-21 15:06:06 +0300 |
commit | 8e1e4cceab516afab46ccced63ca9edab663ca11 (patch) | |
tree | cad625c3ecf0a555d7b56b777cdade535cb30d07 /examples/generif.scm | |
parent | 51b3c0548c98e0bc05e11a89cbf6b75d31b9f8d5 (diff) | |
download | gn-transform-databases-8e1e4cceab516afab46ccced63ca9edab663ca11.tar.gz |
Rename dump -> transform
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/generif.scm')
-rwxr-xr-x | examples/generif.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 0b3c8e4..76f55ee 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -5,10 +5,10 @@ (srfi srfi-26) (ice-9 match) (ice-9 regex) - (dump strings) - (dump sql) - (dump triples) - (dump special-forms)) + (transform strings) + (transform sql) + (transform triples) + (transform special-forms)) @@ -64,7 +64,7 @@ 'gn:geneWikiEntry)) (set gnt:wikiEntryOfSpecies (string->binomial-name (field Species FullName))) - ;; This only dumps symbols not present in the GeneRIF_BASIC table + ;; This only transforms symbols not present in the GeneRIF_BASIC table (set gnt:symbol (let ([geneid (field GeneRIF_BASIC GeneId)]) (if (eq? geneid 0) (field GeneRIF symbol) |