diff options
Diffstat (limited to 'modules/language/python/module/_python.scm')
| -rw-r--r-- | modules/language/python/module/_python.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/modules/language/python/module/_python.scm b/modules/language/python/module/_python.scm index 6db3cf1..149946e 100644 --- a/modules/language/python/module/_python.scm +++ b/modules/language/python/module/_python.scm @@ -348,3 +348,15 @@ ((x) ((@ (guile) display) x ) (print)) (l ((@ (guile) display) l ) (print))) l))))) + +(define-syntax-rule (mk cl cls ? tp) + (begin + (set! (@@ (oop pf-objects) cl) cls) + (set! (@@ (oop pf-objects) ? ) (lambda (x) (isinstance x tp))))) + +(mk int-cls int int? int) +(mk tuple-cls tuple tuple? tuple) +(mk string-cls str str? str) +(mk bytes-cls bytes bytes? bytes) +(mk list-cls list list? list) +(mk float-cls float float? float) |