diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-14 22:36:44 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-14 22:36:44 +0200 |
commit | 6994f11c56b0eda6f14a36102daca1a8bb339c03 (patch) | |
tree | d6fb1ee9c0a8be3da5f530b7edfa8b257333648c /modules/language | |
parent | ba256d9aaabbe71a8c526585e22d455a9d2066fd (diff) |
better int
Diffstat (limited to 'modules/language')
-rw-r--r-- | modules/language/python/module/builtins.scm | 20 | ||||
-rw-r--r-- | modules/language/python/module/signal.scm | 5 | ||||
-rw-r--r-- | modules/language/python/number.scm | 6 |
3 files changed, 28 insertions, 3 deletions
diff --git a/modules/language/python/module/builtins.scm b/modules/language/python/module/builtins.scm new file mode 100644 index 0000000..5b54a07 --- /dev/null +++ b/modules/language/python/module/builtins.scm @@ -0,0 +1,20 @@ +(define-module (language python module builtins) + #:use-module (language python module python)) + +(define-syntax re-export-all + (syntax-rules () + [(_ iface) + (module-for-each + (lambda (name . l) + (module-re-export! (current-module) ((@ (guile) list) name))) + (resolve-interface 'iface))] + [(_ iface _ li) + (let ((l 'li)) + (module-for-each + (lambda (name . l) + (if (not (member name l)) + (module-re-export! (current-module) ((@ (guile) list) name)))) + (resolve-interface 'iface)))])) + +(re-export-all (language python module python)) + diff --git a/modules/language/python/module/signal.scm b/modules/language/python/module/signal.scm new file mode 100644 index 0000000..f0d4426 --- /dev/null +++ b/modules/language/python/module/signal.scm @@ -0,0 +1,5 @@ +(define-module (language python module signal) + #:use-module (language python module enum) + #:export ()) + + diff --git a/modules/language/python/number.scm b/modules/language/python/number.scm index db8a0c8..6e45fd2 100644 --- a/modules/language/python/number.scm +++ b/modules/language/python/number.scm @@ -305,7 +305,7 @@ (define-method (write (o <py-int>) . l) (apply write (slot-ref o 'x) l)) -(define-python-class int (<py-int>) +(define-python-class int (<py> <py-int>) (define __init__ (letrec ((__init__ (case-lambda @@ -355,7 +355,7 @@ ret #f))))) -(define-python-class float (<py-float>) +(define-python-class float (<py> <py-float>) (define __init__ (case-lambda ((self n) @@ -373,7 +373,7 @@ (name-object float) -(define-python-class py-complex (<py-complex>) +(define-python-class py-complex (<py> <py-complex>) (define __init__ (case-lambda ((self n) |