diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-08 21:30:12 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-08 21:30:12 +0200 |
commit | 1753337bd7acdf5c0290b082a115df5f560a0e3b (patch) | |
tree | d102338fc575b4938d79e0f6c53d2c13565101fb /modules/language/python/module | |
parent | 9ddcd1534e2363b9a9c893c1bc9664753cf3e724 (diff) |
compiles to bytecode, fails to load
Diffstat (limited to 'modules/language/python/module')
-rw-r--r-- | modules/language/python/module/python.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/modules/language/python/module/python.scm b/modules/language/python/module/python.scm index 99db1c2..30434af 100644 --- a/modules/language/python/module/python.scm +++ b/modules/language/python/module/python.scm @@ -122,6 +122,7 @@ (let ((r (ref a (symbol->string b) miss))) (not (eq? r miss)))) +(define-method (issubclass x y) #f) (define-method (issubclass (sub <p>) (cls <p>)) (aif it (ref cls '__subclasscheck__) (it cls sub) @@ -129,6 +130,7 @@ #t (is-a? (ref sub '__goops__) (ref cls '__goops__))))) +(define-method (isinstance x y) #f) (define-method (isinstance (o <p>) (cl <p>)) (aif it (ref cl '__instancecheck__) (it o) |