Unpaired table as list.

src/members-print.scm

@@ -36,6 +36,7 @@
   print-members-base-stats
   print-members-ids-stats
   print-members-fees-table
+  unpaired-table
   print-unpaired-table
   )
 
@@ -390,10 +391,8 @@
        )
      ))
 
- ;; Prints all transactions which the members base considers unpaired.
+ (define (unpaired-table mb)
- (define (print-unpaired-table mb)
+   (table->list
-   (print
-    (table->string
     (cons
      (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
      (map
@@ -410,6 +409,13 @@
 	      ))
       (mbase-unpaired mb)))
     #:row0-border #t
-     #:col-border #t)))
+    #:col-border #t))
+
+ ;; Prints all transactions which the members base considers unpaired.
+ (define (print-unpaired-table mb)
+   (print
+    (string-intersperse
+     (unpaired-table mb)
+     "\n")))
 
  )