diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-25 20:00:41 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-25 20:00:41 +0200 |
commit | 1b2144cfb35202c05f39f279198a6ad90748be23 (patch) | |
tree | 405845e063b778e7b05077dbc66cbc318c5e0c0c /modules/language/python/list.scm | |
parent | 70e3ba150960fdbd46c69e00ef6f7437f99966c8 (diff) |
improvements
Diffstat (limited to 'modules/language/python/list.scm')
-rw-r--r-- | modules/language/python/list.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm index ddb4be5..1a8374e 100644 --- a/modules/language/python/list.scm +++ b/modules/language/python/list.scm @@ -194,9 +194,9 @@ (define N (string-length o)) (define (f n) (if (< n 0) (+ N n) n)) - (let* ((n1 (f (if (eq? n1 None) 0 n1))) - (n2 (f (if (eq? n2 None) (slot-ref o 'n) n2))) - (n3 (f (if (eq? n3 None) 1 n3)))) + (let* ((n1 (f (if (eq? n1 None) 0 n1))) + (n2 (f (if (eq? n2 None) (string-length o) n2))) + (n3 (f (if (eq? n3 None) 1 n3)))) (list->string (to-list (pylist-slice (to-pylist o) n1 n2 n3))))) @@ -937,7 +937,7 @@ #:final #t)) -(define (py-any x) +(define (py-any . x) (for ((i : x)) () (if i (break #t)) |