Date 如何在Scheme/DrRacket中获取R5Rs中的系统日期

在DrRacket IDE中，当语言设置为“诈骗”时，我能够通过以下方式获取系统日期：

(define currentMonth 0)
(let ((date (seconds->date (current-seconds))))
  (set! currentMonth (date-month date))
  )

现在，我需要在R5R中执行同样的操作，但不确定如何执行。我可以在这方面寻求你的建议/帮助吗

---

谢谢大家!

R5R中没有日期时间支持。PLTRacket的R5RS实现中应提供程序

current seconds

、

seconds->date

和

date month

作为扩展