From 9d114cfc773171b0a95bd4d2c39f1bb0eb783c8d Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 2 Nov 2019 15:33:13 -0700 Subject: rename everything back to caps to appease ghc --- com/simatime/string.scm | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 com/simatime/string.scm (limited to 'com/simatime/string.scm') diff --git a/com/simatime/string.scm b/com/simatime/string.scm deleted file mode 100644 index 01c5a70..0000000 --- a/com/simatime/string.scm +++ /dev/null @@ -1,24 +0,0 @@ -(define-module (com simatime string) - #:export (replace to-string str capitalize)) - -(define (replace s match repl) - (let ((f (lambda (a b) - (let ((next-char (if (eq? a match) repl a))) - (string-concatenate (list b (string next-char))))))) - (string-fold f "" s))) - -(define (to-string x) - (format #f "~a" x)) - -(define str - (case-lambda - (() "") - ((x) (to-string x)) - ((x . rest) (string-concatenate (map str (cons x rest)))))) - -(define (capitalize s) - (let ((s (to-string s))) - (if (< (string-length s) 2) - (string-upcase s) - (str (string-upcase (substring s 0 1)) - (substring s 1 ))))) -- cgit v1.2.3