From d4db97edda778fbf77cedc89f62184f412f18edf Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 9 May 2020 22:31:30 -0700 Subject: Add get-tags function --- Alpha/String.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Alpha/String.scm') diff --git a/Alpha/String.scm b/Alpha/String.scm index c7ad61f..4e32856 100644 --- a/Alpha/String.scm +++ b/Alpha/String.scm @@ -1,5 +1,10 @@ (define-module (Alpha String) - #:export (replace replace-char to-string str capitalize)) + #:export (replace replace-char to-string str capitalize split)) + +(define (split s c) + (if s + (string-split s c) + #f)) (define (replace-char s match repl) (let ((f (lambda (a b) -- cgit v1.2.3