Add strip and flatten

2 files changed, 17 insertions, 1 deletions

diff --git a/Alpha/Core.scm b/Alpha/Core.scm
index 0ef1098..4ce0bbb 100644
--- a/Alpha/Core.scm
+++ b/Alpha/Core.scm
@@ -213,3 +213,9 @@
   (if (list? x)
       x
       (list x)))
+
+;; is this not in srfi-1?
+(define (flatten x)
+  (cond ((null? x) '())
+        ((pair? x) (append (flatten (car x)) (flatten (cdr x))))
+        (else (list x))))
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}
 ;;;