dicts now works almost entirely

1 files changed, 12 insertions, 1 deletions

diff --git a/modules/language/python/def.scm b/modules/language/python/def.scm
index a9aa692..bc745f0 100644
--- a/modules/language/python/def.scm
+++ b/modules/language/python/def.scm
@@ -32,6 +32,16 @@
       (()
        (values (reverse args) kw)))))
 
+(define hset! hash-set!)
+
+(define (pytonize kw)
+  (hash-fold
+   (lambda (k v h)
+     (hset! h (symbol->string (keyword->symbol k)) v)
+     h)
+   (make-hash-table)
+   kw))
+
 (define-syntax lam
   (lambda (x)
     (define-syntax-rule (mk get-as (k v s) x y z w)
@@ -76,7 +86,8 @@
                      (lambda (ww* kw)
                        (let*-values (((ww* k) (take-1 ww* kw s v))
                                      ...)
-                         (let ((ww ww*))
+                         (let ((ww ww*)
+                               (kw (pytonize kw)))
                            code ...))))))))))))
 
 (define-syntax-rule (def (f . args) code ...) (define f (lam args code ...)))