diff options
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) |