Duck util-format.

src/Makefile

@@ -61,11 +61,12 @@ GENDOC-SOURCES=gendoc.scm duck-extract.import.scm			\
 	util-time.import.scm util-csv.import.scm util-git.import.scm	\
 	util-io.import.scm util-stdout.import.scm			\
 	util-parser.import.scm util-list.import.scm			\
-	util-proc.import.scm
+	util-proc.import.scm util-format.import.scm
 
 GENDOC-OBJS=gendoc.o duck-extract.o util-time.o util-csv.o util-io.o	\
 	progress.o testing.o util-proc.o util-git.o util-io.o		\
-	util-stdout.o util-parser.o util-list.o util-proc.o
+	util-stdout.o util-parser.o util-list.o util-proc.o		\
+	util-format.o
 
 .PHONY: imports
 imports: $(HACKERBASE-DEPS)
@@ -343,7 +344,7 @@ NOTIFICATIONS-SOURCES=notifications.scm brmember.import.scm		\
 notifications.o: notifications.import.scm
 notifications.import.scm: $(NOTIFICATIONS-SOURCES)
 
-UTIL-FORMAT-SOURCES=util-format.scm
+UTIL-FORMAT-SOURCES=util-format.scm duck.import.scm
 
 util-format.o: util-format.import.scm
 util-format.import.scm: $(UTIL-FORMAT-SOURCES)

src/gendoc.scm

@@ -27,4 +27,5 @@
 	  util-stdout
 	  util-parser
 	  util-list
-	  util-proc)
+	  util-proc
+	  util-format)

src/util-format.scm

@@ -25,8 +25,11 @@
 
 (declare (unit util-format))
 
-(module
+(import duck)
+
+(module*
  util-format
+ #:doc ("A simple module with less-common formatting functions.")
  (
   format-amount
   )
@@ -36,7 +39,12 @@
 	 (chicken format))
 
  ;; Formats amount in currency
- (define (format-amount amt)
+ (define/doc (format-amount amt)
+   ("* ```amt``` - a number
+
+Converts given number to a string with two-digit fractional
+part. Should the fractional part be 0, it is replaced with the string
+\"--\".")
    (if amt
        (let* ((str (number->string amt))
 	      (flds (string-split str "."))