diff options
Diffstat (limited to 'Alpha')
| -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) |