From 288c3527b8939cf42e33384ff6da8b2ffa9c76bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 25 Mar 2023 22:25:26 +0100 Subject: [PATCH] Use foldl. --- member-parser.scm | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/member-parser.scm b/member-parser.scm index a602429..96ffd1c 100644 --- a/member-parser.scm +++ b/member-parser.scm @@ -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