Conversation

srfi-19 で深夜0時からの経過秒数を得る方法をずっと探してた。
Chicken Scheme の srfi-19 限定だけど make-duration を使うのが一番マシそう。

(let ((d (current-date)))
(make-duration #:hours (date-hour d) #:minutes (date-minute d) #:seconds (date-second d)))