diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-04 21:23:20 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-04 21:23:20 +0200 |
| commit | 880b3bf82a99a94e5e9bf8b0d90327ff54bed339 (patch) | |
| tree | 35a230cc04a1d910dc0abe14f28bf98366a258d8 /modules/language/python/module/collections | |
| parent | e37613527a05fc56f8ee5886a868c948b3ee4cfc (diff) | |
email stuff
Diffstat (limited to 'modules/language/python/module/collections')
| -rw-r--r-- | modules/language/python/module/collections/abc.scm | 8 |
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")))) |