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

Parse credit.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 22:03:05 +01:00
parent 389fd3dc1c
commit ce32c888c2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
member-parser.scm
View file

@ -97,8 +97,14 @@
(string-first+rest (car rec))) (string-first+rest (car rec)))
value))) value)))
((credit) ((credit)
;; TODO (member-record-sub-set mr output key
mr) (map
(lambda (rec)
(let* ((fr (string-first+rest (car rec)))
(amt (string->number (car fr)))
(msg (cdr fr)))
(cons amt msg)))
value)))
(else (else
(member-record-sub-set mr output key (car value)))))))) (member-record-sub-set mr output key (car value))))))))