dicts now works almost entirely

1 files changed, 17 insertions, 5 deletions

diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm
index 498934f..094c786 100644
--- a/modules/language/python/list.scm
+++ b/modules/language/python/list.scm
@@ -2,21 +2,32 @@
   #:use-module (ice-9 match)
   #:use-module (oop pf-objects)
   #:use-module (oop goops)
+  #:use-module (language python hash)
   #:use-module (language python exceptions)
   #:use-module (language python yield)
   #:use-module (language python for)
   #:use-module (language python try)
   #:use-module (language python exceptions)
-  #:export (to-list pylist-ref pylist-set! pylist-append!
-                    pylist-slice pylist-subset! pylist-reverse!
-                    pylist-pop! pylist-count pylist-extend! len in
-                    pylist-insert! pylist-remove! pylist-sort!
-                    pylist-index))
+  #:export (to-list to-pylist
+            pylist-ref pylist-set! pylist-append!
+            pylist-slice pylist-subset! pylist-reverse!
+            pylist-pop! pylist-count pylist-extend! len in
+            pylist-insert! pylist-remove! pylist-sort!
+            pylist-index))
 
 (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
 
 (define-class <py-list> () vec n)
 
+(define-method (py-hash (o <py-list>))
+  (let ((n (min complexity (slot-ref o 'n)))
+        (v (slot-ref o 'vec)))
+    (let lp ((i 0) (s 0))
+      (if (< i n)
+          (lp (+ i 1)
+              (xy (py-hash (vector-ref v i)) s))
+          s))))
+
 (define-method (to-list x)
   (if (vector? x)
       (vector->list x)
@@ -324,6 +335,7 @@
             (vector-set! vec i (vector-ref vec k))
             (vector-set! vec k swap))))))
 
+
 (define-method (pylist-reverse! (o <p>) . l)
   (apply (ref o 'reverse) l))