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

Use foldl.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 22:25:26 +01:00
parent 6588c6576f
commit 288c3527b8
1 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
member-parser.scm
View file

@ -60,19 +60,11 @@
(kind (if (member key '(studentstart studentstop))
'student
'suspend)))
(let loop ((values value)
(mr mr))
(if (null? values)
mr
(let ((value (car values)))
(loop (cdr values)
(member-record-sub-prepend
mr
output
kind
(list marker
(string->month (car value))
(cdr value)))))))))
(foldl (lambda (mr value)
(member-record-sub-prepend
mr output kind
(list marker (string->month (car value)) (cdr value))))
mr value)))
(else
(member-record-sub-set mr output key value)))))
(info