From 282762a3b12d24c3b3cec8db7e9a103245926d36 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 12 May 2020 21:48:14 -0700
Subject: Add strip and flatten

---
 Alpha/Core.scm   |  6 ++++++
 Alpha/String.scm | 12 +++++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

(limited to 'Alpha')

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}
 ;;;
-- 
cgit v1.2.3