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

16
member-parser.scm
View file

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