Use duck for util-time as test-bed for new in-source documentation tool.

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)

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/doc (current-util-milliseconds)
- (define (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/doc (seconds->iso-date-string . args)
- (define (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