From 944fc50b8b36455b9749ad6b60f3020d466f901c Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Tue, 27 Mar 2018 16:19:00 +0200
Subject: large part of functools compiles

---
 modules/language/python/list.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'modules/language/python/list.scm')

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>)))
-- 
cgit v1.2.3