From 7cab364c73fd5d91c43a1c07de1e6f72b033c986 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 4 Jul 2023 19:33:54 +0200
Subject: [PATCH] Use duck for util-time as test-bed for new in-source
 documentation tool.

---
 src/Makefile      |  2 +-
 src/util-time.scm | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Makefile b/src/Makefile
index 8568f2c..5d4a6f1 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -261,7 +261,7 @@ UTIL-SET-LIST-SOURCES=util-set-list.scm testing.import.scm	\
 util-set-list.o: util-set-list.import.scm
 util-set-list.import.scm: $(UTIL-SET-LIST-SOURCES)
 
-UTIL-TIME-SOURCES=util-time.scm
+UTIL-TIME-SOURCES=util-time.scm duck.import.scm
 
 util-time.o: util-time.import.scm
 util-time.import.scm: $(UTIL-TIME-SOURCES)
diff --git a/src/util-time.scm b/src/util-time.scm
index 788d8c7..0d96b18 100644
--- a/src/util-time.scm
+++ b/src/util-time.scm
@@ -25,12 +25,12 @@
 
 (declare (unit util-time))
 
-;;; # Utilities
+(import duck)
 
-(module
+(module*
  util-time
+ #:doc ("Compatibility time module for <5.2 and >=5.3 versions of CHICKEN.")
 
- ;;; Test
  (
   current-util-milliseconds
   seconds->iso-date-string
@@ -42,8 +42,8 @@
 	 (chicken time posix)
 	 (chicken format))
 
- ;;; Compatibility wrapper
- (define (current-util-milliseconds)
+ (define/doc (current-util-milliseconds)
+   ("Returns the current milliseconds counter that can be used for high-precision time measurements.")
    (cond-expand
     (chicken-5.0
      (current-milliseconds))
@@ -54,8 +54,8 @@
     (else
      (current-process-milliseconds))))
 
- ;;; Converts seconds since epoch to ISO date string
- (define (seconds->iso-date-string . args)
+ (define/doc (seconds->iso-date-string . args)
+   ("Converts given seconds to ISO date string. Defaults to ```(current-seconds)```.")
    (let ((d (apply seconds->local-time args)))
      (format "~A-~A-~A"
 	     (number->string