Add strip and flatten

1 files changed, 11 insertions, 1 deletions

diff --git a/Alpha/String.scm b/Alpha/String.scm
index 4e32856..6e29663 100644
--- a/Alpha/String.scm
+++ b/Alpha/String.scm
@@ -1,5 +1,6 @@
 (define-module (Alpha String)
-  #:export (replace replace-char to-string str capitalize split))
+  #:export (replace replace-char to-string str capitalize split
+                    strip lstrip rstrip))
 
 (define (split s c)
   (if s
@@ -31,6 +32,15 @@
         (str (string-upcase (substring s 0 1))
              (substring s 1 )))))
 
+(define (strip s char)
+  (string-trim-both s char))
+
+(define (lstrip s char)
+  (string-trim s char))
+
+(define (rstrip s char)
+  (string-trim-right s char ))
+
 
 ;;; {String Fun: string-replace-substring}
 ;;;