From ce32c888c2ddd38eb69f9609ce736fd59b9ba282 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 25 Mar 2023 22:03:05 +0100
Subject: [PATCH] Parse credit.

---
 member-parser.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/member-parser.scm b/member-parser.scm
index ba89f9b..a602429 100644
--- a/member-parser.scm
+++ b/member-parser.scm
@@ -97,8 +97,14 @@
 				      (string-first+rest (car rec)))
 				    value)))
 	   ((credit)
-	    ;; TODO
-	    mr)
+	    (member-record-sub-set mr output key
+				   (map
+				    (lambda (rec)
+				      (let* ((fr (string-first+rest (car rec)))
+					     (amt (string->number (car fr)))
+					     (msg (cdr fr)))
+					(cons amt msg)))
+				    value)))
 	   (else
 	    (member-record-sub-set mr output key (car value))))))))