summaryrefslogtreecommitdiff
path: root/modules/language/python/dir.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/dir.scm')
-rw-r--r--modules/language/python/dir.scm16
1 files changed, 12 insertions, 4 deletions
diff --git a/modules/language/python/dir.scm b/modules/language/python/dir.scm
index a1c77c9..1189673 100644
--- a/modules/language/python/dir.scm
+++ b/modules/language/python/dir.scm
@@ -127,14 +127,22 @@
(pylist-sort! l)
l)
l1)))
+
+(define-method (dir (o <py-complex>))
+ (let ((l1 (pycomplex-listing)))
+ (if (is-a? o <p>)
+ (let* ((l2 (next-method))
+ (l (+ l1 l2)))
+ (pylist-sort! l)
+ l)
+ l1)))
(define-method (dir (o <hashtable> )) (pyhash-listing))
(define-method (dir (o <string> )) (pystring-listing))
-(define-method (dir (o <complex> ))
- (if (integer? o)
- (pyint-listing)
- (pyfloat-listing)))
+(define-method (dir (o <complex> )) (pycomplex-listing))
+(define-method (dir (o <real> )) (pyfloat-listing))
+(define-method (dir (o <integer> )) (pyint-listing))
(define-method (dir)
(let ((l '()))