From 6994f11c56b0eda6f14a36102daca1a8bb339c03 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Mon, 14 May 2018 22:36:44 +0200
Subject: better int

---
 modules/language/python/module/builtins.scm | 20 ++++++++++++++++++++
 modules/language/python/module/signal.scm   |  5 +++++
 modules/language/python/number.scm          |  6 +++---
 3 files changed, 28 insertions(+), 3 deletions(-)
 create mode 100644 modules/language/python/module/builtins.scm
 create mode 100644 modules/language/python/module/signal.scm

(limited to 'modules/language')

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)
-- 
cgit v1.2.3