From bc0ffa6fcb3d895d4396de9828e3989b0f2b2f7d Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 14 Aug 2024 09:48:51 +0300
Subject: Replace [] with () in let* form.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/generif.scm | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

(limited to 'examples')

diff --git a/examples/generif.scm b/examples/generif.scm
index 34562a5..8e36705 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -87,29 +87,29 @@
         'pre "_" 'post)
        #:proc (lambda (x) x))
     (set rdfs:comment
-         (let* ([generif-comment (sanitize-rdf-string (field GeneRIF comment))]
-                [create-time (field GeneRIF createtime EntryCreateTime)]
-                [pmid (field GeneRIF PubMed_ID PMID)]
-                [web-url (field GeneRIF weburl)]
-                [species (string->identifier
-                          ""
-                          (remap-species-identifiers (field Species Fullname))
-                          #:separator ""
-                          #:proc string-capitalize-first)]
-                [version-id (field GeneRIF versionId)]
-                [identifier (field GeneRIF Id)]
-                [initial (field GeneRIF initial)]
-                [reason (field GeneRIF reason)]
-                [categories
-                 (remove (lambda (x)
-                           (or (eq? x #f)
-                               (and (string? x)
-                                    (string-null? x))))
-                         (remove-duplicates
-                          (string-split-substring
-                           (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')"
-                                   GeneCategory))
-                           "$$")))])
+         (let* ((generif-comment (sanitize-rdf-string (field GeneRIF comment)))
+                (create-time (field GeneRIF createtime EntryCreateTime))
+                (pmid (field GeneRIF PubMed_ID PMID))
+                (web-url (field GeneRIF weburl))
+                (species (string->identifier
+                           ""
+                           (remap-species-identifiers (field Species Fullname))
+                           #:separator ""
+                           #:proc string-capitalize-first))
+                (version-id (field GeneRIF versionId))
+                (identifier (field GeneRIF Id))
+                (initial (field GeneRIF initial))
+                (reason (field GeneRIF reason))
+                (categories
+                  (remove (lambda (x)
+                            (or (eq? x #f)
+                                (and (string? x)
+                                     (string-null? x))))
+                          (remove-duplicates
+                           (string-split-substring
+                            (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')"
+                                    GeneCategory))
+                            "$$")))))
            (string->symbol
             (string-append
              "[ "
-- 
cgit v1.2.3