Generate total balance for member.

src/web-static.scm

@@ -26,12 +26,13 @@
 (declare (unit web-static))
 
 (module
- web-static-output
+ web-static
  (
   gen-web-static-member
   )
 
  (import scheme
+	 (chicken base)
 	 (chicken format)
 	 member-record)
 
@@ -40,8 +41,12 @@
  (define (gen-web-static-member mr)
    (let ((nick (member-nick mr))
 	 (id (member-id mr)))
-     (let ((nf (open-output-file (sprintf "~A.id" nick))))
-       (display id nf)
-       (newline nf))))
+     (with-output-to-file (sprintf "~A.id" nick)
+       (lambda ()
+	 (print id)))
+     (with-output-to-file (sprintf "~A.balance" nick)
+       (lambda ()
+	 (print (member-total-balance mr))))
+     ))
 
  )