brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement dict-map.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-16 10:22:50 +01:00
parent 6e614feab3
commit 33f02bd329
3 changed files with 31 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
members-base.scm
View file

@ -41,7 +41,8 @@
(chicken irregex)
testing
utils
dictionary)
dictionary
member-file)
;; Gets all files and symbolic links from given directory. The
;; symbolic links are represented by cons cells with car being the
@ -135,7 +136,12 @@
;; member-file module returns. The id key contains whatever is the
;; first 4-digit symbol in (cons fname aliases) list.
(define (members-base-load-member mdir fname aliases)
#f)
(let* ((mr0 (make-dict))
(mr-fn (dict-set mr0 'file-name fname))
(mr-sl (dict-set mr-fn 'symlinks aliases)))
(dict-set mr-sl 'info
(load-member-file
(make-pathname mdir fname)))))
(define (load-members dn)
;; get the directory contents