src/hackerbase.scm

@@ -288,7 +288,6 @@
 
 (define* (check-mailing-list mls name #:pred? (pred? #f))
   (define ml (find-mailman-list mls name))
-  (when ml
   (let-values (((missing surplus)
 		(mailman-compare-members ml
 					 (mbase-active-emails MB
@@ -305,7 +304,7 @@
 	      (when (not (null? missing))
 		(print "  Missing: " missing))
 	      (when (not (null? surplus))
-		  (print "  Outsiders: " surplus))))))))
+		(print "  Outsiders: " surplus)))))))
 
 (define (rada-ml-pred? mr)
   (or (brmember-council? mr)

src/members-fees.scm

@@ -122,8 +122,6 @@
 
  ;; Converts the entry into the fee
  (define (member-calendar-entry->fee e)
-   (with-current-month
-    (car e)
    (if e
        (if (member 'existing (cadr e))
 	   (if (member 'suspended (cadr e))
@@ -136,7 +134,7 @@
 			   (caddr e)
 			   (lookup-member-fee 'regular))))) ; Normal
 	   0) ; Nonexistent - should not happen
-	0))) ; Nonexistent
+       0)) ; Nonexistent
 
  ;; Converts the calendar into a table where rows represent years and
  ;; contain the year in the first cell and 12 cells for months after

src/texts.scm

@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.15.1 (c) 2023 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.15 (c) 2023 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "