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)) (kind (if (member key '(studentstart studentstop))
'student 'student
'suspend))) 'suspend)))
(let loop ((values value) (foldl (lambda (mr value)
(mr mr)) (member-record-sub-prepend
(if (null? values) mr output kind
mr (list marker (string->month (car value)) (cdr value))))
(let ((value (car values))) mr value)))
(loop (cdr values)
(member-record-sub-prepend
mr
output
kind
(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