From c81e764186a73b67538a3a4bd227475b546a699e Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 16 Aug 2024 11:38:53 +0300 Subject: Delete un-used functions during generif transform. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/examples/generif.scm b/examples/generif.scm index ea095f4..d214cd1 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -16,22 +16,6 @@ -(define (fix-email-id email) - (string-delete #\space email)) - -(define (investigator-attributes->id first-name last-name email) - ;; There is just one record corresponding to "Evan Williams" which - ;; does not have an email ID. To accommodate that record, we - ;; construct the investigator ID from not just the email ID, but - ;; also the first and the last names. It would be preferable to just - ;; find Evan Williams' email ID and insert it into the database. - (string->identifier "investigator" - (string-join - (list first-name last-name (fix-email-id email)) - "_"))) - - - (define-transformer genewiki-symbols (tables (GeneRIF_BASIC) "GROUP BY BINARY symbol") -- cgit v1.2.3