brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix current month and print it.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-21 20:29:28 +01:00
parent 922b178519
commit ac01370c67
3 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bbstool.scm
View file

@ -113,6 +113,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Perform requested action ;; Perform requested action
(case (-action-) (case (-action-)
((print-info) ((print-info)
(newline)
(print "Current month: " (month->string (*current-month*)))
(newline) (newline)
(if mr (if mr
(print-member-record-info mr) (print-member-record-info mr)

2
configuration.scm
View file

@ -45,7 +45,7 @@
(make-parameter (make-parameter
(let ((d (seconds->local-time (current-seconds)))) (let ((d (seconds->local-time (current-seconds))))
(list (+ 1900 (vector-ref d 5)) (list (+ 1900 (vector-ref d 5))
(vector-ref d 4))))) (+ (vector-ref d 4) 1)))))
;; Configuration of error reporting ;; Configuration of error reporting
(define *member-file-context* (make-parameter 3)) (define *member-file-context* (make-parameter 3))

2
member-record.scm
View file

@ -147,7 +147,7 @@
(define (member-existing? mr) (define (member-existing? mr)
(let ((joined (mr-ref mr 'joined))) (let ((joined (mr-ref mr 'joined)))
(and joined (and joined
(month<? joined (*current-month*))))) (month<=? joined (*current-month*)))))
;; Member formatting function for general use. ;; Member formatting function for general use.
(define (member-format fmt mr) (define (member-format fmt mr)