From f1707906d4616555eda464efee5c548b191bb93f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 9 May 2023 23:01:43 +0200 Subject: [PATCH] More porting. --- src/cal-period.scm | 4 ++-- src/hackerbase.scm | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/cal-period.scm b/src/cal-period.scm index 552d984..d51e745 100644 --- a/src/cal-period.scm +++ b/src/cal-period.scm @@ -71,8 +71,8 @@ (define *current-month* (make-parameter (let ((d (seconds->local-time (current-seconds)))) - (list (+ 1900 (vector-ref d 5)) - (+ (vector-ref d 4) 1))))) + (make-cal-month (+ 1900 (vector-ref d 5)) + (+ (vector-ref d 4) 1))))) ;; Creates a new period value with optional since and before ;; comments. diff --git a/src/hackerbase.scm b/src/hackerbase.scm index bf1a151..b22bf21 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -41,6 +41,7 @@ logging progress cal-period + cal-month util-git util-dict-list) @@ -236,7 +237,7 @@ (case (-action-) ((print-info) (newline) - (print "Current month: " (month->string (*current-month*))) + (print "Current month: " (cal-month->string (*current-month*))) (newline) (if mr (print-member-table mr)