From 06f941636a99904671c89916e17f28de4b2cd07e Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 18 Nov 2023 11:33:24 +0100
Subject: Reorganize DB handler and fetch first dataset

---
 gn/data/strains.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'gn/data/strains.scm')

diff --git a/gn/data/strains.scm b/gn/data/strains.scm
index b3e6744..241ecda 100644
--- a/gn/data/strains.scm
+++ b/gn/data/strains.scm
@@ -17,9 +17,10 @@
             ))
 
 (define* (strain-id-names inbred-set #:key (map? #f))
-  "Return assoc list of tuples of strain id+names, e.g.
-
+  "Return assoc list of tuples of strain id+names:
    ((4 . BXD1) (5 . BXD2) (6 . BXD5) (7 . BXD6)...
+
+map? will say whether the strains/individuals are used for mapping.
 "
   (call-with-db
    (lambda (db)
-- 
cgit v1.2.3