heapq added

1 files changed, 13 insertions, 4 deletions

diff --git a/modules/language/python/module/collections.scm b/modules/language/python/module/collections.scm
index bfb75fa..6e004a3 100644
--- a/modules/language/python/module/collections.scm
+++ b/modules/language/python/module/collections.scm
@@ -1,8 +1,19 @@
 (define-module (language python module collections)
   #:use-module (oop pf-objects)
   #:use-module (language python module collections abc)
-  #:export (ChainMap))
+  #:export (abc ChainMap))
 
+(define-python-class class-from-dict ()
+  (define __init__
+    (lambda (self d)
+      (for ((k v : d))
+	   (set self k v)))))
+
+(define abc
+  (class-from-dict
+   (resolve-module (module-public-interface
+		    '(language python module collections abc)))))
+  
 (define (u self)
   (let ((s (set)))
     (apply (ref s 'union) (ref self 'maps)))
@@ -143,14 +154,12 @@
             (sorted ((ref self 'items) #:key (_itemgetter 1) #:reverse #t)
 	    _heapq.nlargest(n ((ref self 'items)) #:key (_itemgetter 1))
 
-
+	    
 	       
 
 
   
 
-(define* (namedtuple typename field-names #key (verbose #f) (rename=#f)
-(module None))