Parse credit.

2023-03-25 22:03:05 +01:00 · 2023-03-25 22:03:05 +01:00 · ce32c888c2
commit ce32c888c2
parent 389fd3dc1c
1 changed files with 8 additions and 2 deletions
--- 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))))))))