large part of functools compiles

1 files changed, 8 insertions, 0 deletions

diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm
index 782b5a9..ddb4be5 100644
--- a/modules/language/python/list.scm
+++ b/modules/language/python/list.scm
@@ -9,6 +9,7 @@
   #:use-module (language python yield)
   #:use-module (language python for)
   #:use-module (language python try)
+  #:use-module (language python bool)
   #:use-module (language python exceptions)
   #:use-module (language python persist)
   #:export (to-list to-pylist <py-list> py-list
@@ -114,6 +115,13 @@
 (define-method (to-pylist (o <string>))
   (to-pylist (string->list o)))
 
+(define-method (bool (o <py-list>))
+  (not (= (len o) 0)))
+(define-method (bool (o <vector>))
+  (not (= (len o) 0)))
+(define-method (bool (o <string>))
+  (not (= (len o) 0)))
+
 (define-method (to-pylist l)
   (if (null? l)
       (let ((o (make <py-list>)))