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

More porting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-09 23:01:43 +02:00
parent d1cbfffc8f
commit f1707906d4
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cal-period.scm
View file

@ -71,8 +71,8 @@
(define *current-month* (define *current-month*
(make-parameter (make-parameter
(let ((d (seconds->local-time (current-seconds)))) (let ((d (seconds->local-time (current-seconds))))
(list (+ 1900 (vector-ref d 5)) (make-cal-month (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1))))) (+ (vector-ref d 4) 1)))))
;; Creates a new period value with optional since and before ;; Creates a new period value with optional since and before
;; comments. ;; comments.

3
src/hackerbase.scm
View file

@ -41,6 +41,7 @@
logging logging
progress progress
cal-period cal-period
cal-month
util-git util-git
util-dict-list) util-dict-list)
@ -236,7 +237,7 @@
(case (-action-) (case (-action-)
((print-info) ((print-info)
(newline) (newline)
(print "Current month: " (month->string (*current-month*))) (print "Current month: " (cal-month->string (*current-month*)))
(newline) (newline)
(if mr (if mr
(print-member-table mr) (print-member-table mr)