better procedure management
[software/python-on-guile.git] / modules / language / python / dir.scm
index e41e2357a5f3c354fa7e333ea24687628279a98a..fe7edaeefff0db9ad6638ec8b6cabb7d8a44e701 100644 (file)
       (pylist-sort! ret)
       ret)))
 
-(define-method (dir (o <procedure>))
-  (let ((ret (to-pylist (map (lambda (x)
-                               (let ((x (car x)))
-                                 (if (symbol? x)
-                                     (symbol->string x)
-                                     x)))
-                             (procedure-properties o)))))
-    (pylist-sort! ret)
-    ret))
-