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

Finish the migration.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-09 20:39:59 +02:00
parent ced789ca06
commit 0d649c2fd0
4 changed files with 70 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cards.scm
View file

@ -36,7 +36,7 @@
(chicken sort)
(chicken format)
(chicken irregex)
dictionary
util-dict-list
members-base
member-record)
@ -46,12 +46,12 @@
mb
(lambda (mr)
(and (member-active? mr)
(dict-has-key? (dict-ref mr 'info) type)
(not (null? (dict-ref (dict-ref mr 'info) type)))))))
(ldict-contains? (ldict-ref mr 'info) type)
(not (null? (ldict-ref (ldict-ref mr 'info) type)))))))
(recs (map (lambda (mr)
(let ((mi (dict-ref mr 'info)))
(cons (dict-ref mi 'nick)
(dict-ref mi type))))
(let ((mi (ldict-ref mr 'info)))
(cons (ldict-ref mi 'nick)
(ldict-ref mi type))))
rmb))
(srecs (sort recs
(lambda (a b)