brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove redundant comments.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-06 19:47:45 +02:00
parent 722ac4830c
commit 3ee2532597
2 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/util-string.scm
View file

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

1
src/util-tag.scm
View file

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