From 29dc5aa1ace7cd4bf2bb42a2ca190de1d7cc38ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 15 Mar 2023 11:57:18 +0100 Subject: [PATCH] Members directory reading. --- members-base.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/members-base.scm b/members-base.scm index c3484bc..08af2d8 100644 --- a/members-base.scm +++ b/members-base.scm @@ -57,9 +57,15 @@ (cons fn rs) rs))))))) + (define (files+symlinks->files-dictionary ls) + (let ((links (filter pair? ls)) + (files (filter string? ls))) + (print links) + (print files))) + (define (load-members dn) ;; get the directory contents - (print (get-files+symlinks dn)) + (files+symlinks->files-dictionary (get-files+symlinks dn)) ;; filter all ids ;; resolve links (it might be unknown!) ;; load member files