diff options
Diffstat (limited to 'modules/language/python/string.scm')
| -rw-r--r-- | modules/language/python/string.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm index f94580c..ff90ef1 100644 --- a/modules/language/python/string.scm +++ b/modules/language/python/string.scm @@ -56,7 +56,9 @@ (define-method (f (o <py-string>) . l) (apply f (slot-ref o 'str) l)))) (define-py0 (pylist-ref s i) - (list->string (list (string-ref s i)))) + (list->string (list (string-ref s (if (< i 0) + (+ (len s) i) + i))))) (define-py0 (bool s) (not (= (len s) 0))) |