Pass on to cards.scm.

bbstool.scm

@@ -85,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-tstyle (style) "Use given table style: debug, ascii, unicode"
 	  (*table-border-style* (string->symbol style)))
  (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
-	    (-action- 'export-cards)
+	    (-action- 'gencards)
 	    (-fname- (list file:cards file:desfires)))
  )
 
@@ -154,4 +154,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (newline)
    (print "New member id: " (gen-member-id MB))
    (newline))
+  ((gencards)
+   (apply cards-export MB (-fname-)))
   )

cards.scm

@@ -33,7 +33,11 @@
 
  (import scheme)
 
- (define (cards-export mb cardsfn desfirefn)
+ (define (cards-export/type mb type fname)
    #f)
 
+ (define (cards-export mb cardsfn desfirefn)
+   (cards-export/type mb 'cards cardsfn)
+   (cards-export/type mb 'desfire desfirefn))
+
  )