Remove redundant comments.

src/util-string.scm

@@ -47,7 +47,6 @@
 	 testing
 	 util-utf8)
 
- ;; Extracts first token and the rest as separate string
  (define/doc (string-first+rest str)
    ("* ```str``` - a string to split
 
@@ -63,7 +62,6 @@ remainder with leading whitespace removed.")
 	   (cons key-str val))
 	 (cons str ""))))
 
- ;; Encodes given UTF-8 string as quoted-printable
  (define/doc (string->qp str)
    ("* ```str``` - arbitrary string
 
@@ -93,7 +91,6 @@ quoted-printable sequences.")
 			    "")))
 		     res)))))
 
- ;; Returns upper-case version of the string
  (define/doc (string-upcase str)
    ("* ```str``` - arbitrary string
 

src/util-tag.scm

@@ -39,7 +39,6 @@
 	 (chicken string)
 	 (chicken random))
 
- ;; Syntactic wrapper to allow easy tag creation
  (define-syntax/doc make-tag
    ("* ```tag``` - unquoted symbol to base the tag on