diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-15 13:31:52 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-15 13:31:52 +0200 |
| commit | fd16bad7be580a3844bcddfcc9e46ee9953410e6 (patch) | |
| tree | 0e8d21e4c6c1d7cbe7c9133756ea3b486ec4e251 /modules/language/python/string.scm | |
| parent | 4b5975395259d598e2d27e669dc4877741cff14c (diff) | |
log works in decimal
Diffstat (limited to 'modules/language/python/string.scm')
| -rw-r--r-- | modules/language/python/string.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index 7d5bdd7..4261a0a 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -292,7 +292,7 @@ (() (string-trim s)) ((x . _) - (let ((l (map (lambda (x) (if (string? x) (string-ref x 0) x)) l))) + (let ((l (map (lambda (x) (if (string? x) (string-ref x 0) x)) (to-list x)))) (string-trim s (lambda (ch) (member ch l))))))) (define-py (py-rstrip rstrip s . l) @@ -300,7 +300,8 @@ (() (string-trim-right s)) ((x . _) - (let ((l (map (lambda (x) (if (string? x) (string-ref x 0) x)) x))) + (let ((l (map (lambda (x) (if (string? x) (string-ref x 0) x)) + (to-list x)))) (string-trim-right s (lambda (ch) (member ch l))))))) (define-py (py-partition partition s (sep <string>)) |