simple python formatting now supported

1 files changed, 16 insertions, 2 deletions

diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm
index f31fcba..3b7fbd5 100644
--- a/modules/language/python/list.scm
+++ b/modules/language/python/list.scm
@@ -65,6 +65,9 @@
 (define-method (to-pylist (l <vector>))
   (to-pylist (vector->list l)))
 
+(define-method (to-pylist (o <string>))
+  (to-pylist (string->list o)))
+
 (define-method (to-pylist l)
   (if (null? l)
       (let ((o (make <py-list>)))
@@ -125,8 +128,19 @@
                      '()))))
     (to-pylist l)))
 
-(define-method (pylist-slice o n1 n2 n3)
-  (pylist-slice (to-pylist o) n1 n2 n3))
+(define-method (pylist-slice (o <string>) n1 n2 n3)
+  (list->string
+   (to-list
+    (pylist-slice (to-pylist o) n1 n2 n3))))
+
+(define-method (pylist-slice (o <pair>) n1 n2 n3)
+  (to-list
+   (pylist-slice (to-pylist o) n1 n2 n3)))
+
+(define-method (pylist-slice (o <vector>) n1 n2 n3)
+  (list->vector
+   (to-list
+    (pylist-slice (to-pylist o) n1 n2 n3))))
 
 ;;SUBSET
 (define-method (pylist-subset! (o <py-list>) n1 n2 n3 val)