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

Student and suspend markers parsing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 19:03:23 +01:00
parent 92b8ff0c78
commit d4a253d298
2 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
member-parser.scm
View file

@ -52,10 +52,22 @@
((studentstart studentstop suspendstart suspendstop)
(let ((marker (if (member key '(studentstart suspendstart))
'start
'stop)))
mr))
'stop))
(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 (car value) (cdr value)))))))))
(else
mr))))
(member-record-sub-set mr output key value)))))
(info
,(lambda (mr output key value)
mr))))