diff options
| author | Ben Sima <ben@bsima.me> | 2020-05-09 22:31:30 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-05-09 22:31:30 -0700 |
| commit | d4db97edda778fbf77cedc89f62184f412f18edf (patch) | |
| tree | d67196c22139e9aa63a612b52b1a93b565e9c502 /Alpha/String.scm | |
| parent | fd721e94532ba7f912d13706b3c03056345952e6 (diff) | |
Add get-tags function
Diffstat (limited to 'Alpha/String.scm')
| -rw-r--r-- | Alpha/String.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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) |