guile-pstk

commit f6f3ed17fafde3ce9390c4be0405982f9eece2b8
parent 5d1c341d1e1953aadde1204fc6bb4dd566cd524a
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 16 Jun 2024 04:22:11 +0300

Use Guile procedure `string-trim`.

Diffstat:
M
pstk.scm
 | 
6
+-----

1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/pstk.scm b/pstk.scm
@@ -463,11 +463,7 @@ proc evalCmdFromScm {cmd {properly 0}} {
    (s-xlate (string->list s) '())))
 
 (define (string-trim-left str)
-  (cond ((string=? str "") "")
-        ((string=? (substring str 0 1) " ")
-         (string-trim-left (substring str 1
-                                      (string-length str))))
-        (else str)))
+  (string-trim str #\space))
 
 (define* (get-property key args #:optional (thunk #f))
   ;; XXX: Originally the function signature was (get-property key args . thunk).