commit d047fc4128debedff05244059a235a3d7d5f479e parent 374af8253c3c959d4abdf98fa053aecb56369d5b Author: Yuval Langer <yuval.langer@gmail.com> Date: Sat, 15 Jun 2024 02:35:17 +0300 Comment out unneeded string-split definition and use the guile one. Diffstat:
| M | pstk.scm | | | 26 | ++++++++++++++------------ |
1 file changed, 14 insertions(+), 12 deletions(-)
diff --git a/pstk.scm b/pstk.scm @@ -798,20 +798,22 @@ "Argument to TTK-MAP-WIDGETS must be " "ALL, NONE or a list of widget types."))))) -(define (string-split c s) - (define (split i k tmp res) - (cond ((= i k) - (if (null? tmp) res (cons tmp res))) - ((char=? (string-ref s i) c) - (split (+ i 1) k "" (cons tmp res))) - (else (split (+ i 1) k - (string-append tmp - (string (string-ref s i))) - res)))) - (reverse (split 0 (string-length s) "" '()))) +;;; XXX: Commented out because string-split is already part of Guile. +;; (define (string-split c s) +;; (define (split i k tmp res) +;; (cond ((= i k) +;; (if (null? tmp) res (cons tmp res))) +;; ((char=? (string-ref s i) c) +;; (split (+ i 1) k "" (cons tmp res))) +;; (else (split (+ i 1) k +;; (string-append tmp +;; (string (string-ref s i))) +;; res)))) +;; (reverse (split 0 (string-length s) "" '()))) (define (ttk-available-themes) - (string-split #\space (eval-wish "ttk::style theme names"))) + (string-split (eval-wish "ttk::style theme names") + g#\space)) (define (do-wait-for-window w) (dispatch-event)