summaryrefslogtreecommitdiff
path: root/modules/language/python/module/collections/abc.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/module/collections/abc.scm')
-rw-r--r--modules/language/python/module/collections/abc.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/modules/language/python/module/collections/abc.scm b/modules/language/python/module/collections/abc.scm
index 37815d8..ff8fa07 100644
--- a/modules/language/python/module/collections/abc.scm
+++ b/modules/language/python/module/collections/abc.scm
@@ -19,6 +19,14 @@
(define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
+(define (_check_methods x . l)
+ (let lp ((l l))
+ (if (pair? l)
+ (if (ref x (string->symbol (car l)))
+ #t
+ (lp (cdr l)))
+ #f)))
+
(define-python-class Container ()
(define __containes__
(lambda x (error "not implemented"))))