commit 374af8253c3c959d4abdf98fa053aecb56369d5b parent 14101c5cb08c5c0fcd1da48bea38d19b945be194 Author: Yuval Langer <yuval.langer@gmail.com> Date: Sat, 15 Jun 2024 02:20:39 +0300 Unpack a letrec. Diffstat:
| M | pstk.scm | | | 21 | ++++++++++----------- |
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/pstk.scm b/pstk.scm @@ -799,17 +799,16 @@ "ALL, NONE or a list of widget types."))))) (define (string-split c s) - (letrec - ((split (lambda (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 (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")))