Fill-in remaining dokuwiki users into mbase.

src/hackerbase.scm

@@ -239,7 +239,7 @@
 
 ;; Load DokuWiki users
 (define DW (dokuwiki-load-users))
-(define-values (MB dw-other) (mbase-merge-dokuwiki MB1 DW))
+(define MB (mbase-merge-dokuwiki MB1 DW))
 
 ;; If a member is specified by either id or nick, get its record
 (define mr

src/mbase.scm

@@ -315,16 +315,18 @@
  ;; and list of remaining users.
  (define (mbase-merge-dokuwiki mb dw)
    (if (null? dw)
-       (values (mbase-update mb
+       (ldict-set
-			     (lambda (mr) #t)
+	(mbase-update mb
-			     (lambda (mr)
+		      (lambda (mr) #t)
-			       (brmember-set mr #:dokuwiki #t)))
+		      (lambda (mr)
-	       dw)
+			(brmember-set mr #:dokuwiki #t)))
+	'dokuwiki
+	'())
        (let loop ((dw dw)
 		  (mb mb)
 		  (rem '()))
 	 (if (null? dw)
-	     (values mb rem)
+	     (ldict-set mb 'dokuwiki rem)
 	     (let* ((row (car dw))
 		    (username (car row))
 		    (mr (find-member-by-nick mb username))