Add get-tags function

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)