From 3ee2532597bf7818f4dd0fdd18c87398310e0b11 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Jul 2023 19:47:45 +0200 Subject: [PATCH] Remove redundant comments. --- src/util-string.scm | 3 --- src/util-tag.scm | 1 - 2 files changed, 4 deletions(-) diff --git a/src/util-string.scm b/src/util-string.scm index 54c6ece..d9914b9 100644 --- a/src/util-string.scm +++ b/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 diff --git a/src/util-tag.scm b/src/util-tag.scm index d7eb7e9..2938b27 100644 --- a/src/util-tag.scm +++ b/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