Test first generated doc.

doc/d-utils.md

@@ -0,0 +1,17 @@
+# Utility modules
+
+## util-time [module]
+
+Compatibility time module for <5.2 and >=5.3 versions of CHICKEN.
+
+### current-util-milliseconds [procedure]
+
+    (current-util-milliseconds)
+
+Returns the current milliseconds counter that can be used for high-precision time measurements.
+
+### seconds->iso-date-string [procedure]
+
+    (seconds->iso-date-string . args)
+
+Converts given seconds to ISO date string. Defaults to ```(current-seconds)```.

src/Makefile

@@ -289,7 +289,8 @@ UTIL-IO-SOURCES=util-io.scm
 util-io.o: util-io.import.scm
 util-io.import.scm: $(UTIL-IO-SOURCES)
 
-UTIL-STRING-SOURCES=util-string.scm testing.import.scm util-utf8.scm
+UTIL-STRING-SOURCES=util-string.scm testing.import.scm	\
+	util-utf8.import.scm
 
 util-string.o: util-string.import.scm
 util-string.import.scm: $(UTIL-STRING-SOURCES)

src/gendoc.scm

@@ -1,7 +1,20 @@
 
-(import duck-extract
-	util-time)
+(import duck-extract)
 
-(print "# Utility modules")
-(newline)
-(print-module-duck util-time)
+(define-syntax gen-duck
+  (syntax-rules ()
+    ((_ fname title mod ...)
+     (begin
+       (import mod ...)
+       (with-output-to-file fname
+	 (lambda ()
+	   (print "# " title)
+	   (let ()
+	     (newline)
+	     (print-module-duck mod))
+	   ...
+	   ))))))
+
+(gen-duck "doc/d-utils.md"
+	  "Utility modules"
+	  util-time)