diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-27 16:19:00 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-27 16:19:00 +0200 |
commit | 944fc50b8b36455b9749ad6b60f3020d466f901c (patch) | |
tree | abbbfdda0c84a10609a5ddda5d3940733db75f7e /modules/language/python/module/collections.scm | |
parent | 1c4e6def8285e0740461b732c78c74ed3345f524 (diff) |
large part of functools compiles
Diffstat (limited to 'modules/language/python/module/collections.scm')
-rw-r--r-- | modules/language/python/module/collections.scm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/modules/language/python/module/collections.scm b/modules/language/python/module/collections.scm index 393877b..1a158c9 100644 --- a/modules/language/python/module/collections.scm +++ b/modules/language/python/module/collections.scm @@ -604,10 +604,10 @@ (let ((seen (py-set))) (if (string? field_names) (set! field_names (string-split field_names #\,))) - + (set! field_names (py-list (py-map scm-str field_names))) (set! typename (scm-str typename)) - + (if rename (for ((index name : (enumerate field_names))) () (if (or (not (py-identifier? name)) @@ -628,7 +628,7 @@ (raise ValueError (+ "Type names and field names cannot be a " (format #f "keyword: ~a" name))))) - + (set! seen (py-set)) (for ((name : field_names)) () (if (and (py-startswith name "_") (not rename)) @@ -655,20 +655,20 @@ field_names))) mod)) - (pylist-set! dict '__getitem__ - (lambda (self i) + (pylist-set! dict '__getitem__ + (lam (self i) (if (number? i) (ref self (list-ref field_names i)) (ref self (scm-sym i))))) (pylist-set! dict '__setitem__ - (lambda (self i val) + (lam (self i val) (if (number? i) (set self (list-ref field_names i) val) (set self (scm-sym i) val)))) (pylist-set! dict '__repr__ - (lambda (self) + (lam (self) (let ((l (map (lambda (x) (format #f "~a=~a" x @@ -689,8 +689,6 @@ (map scm-sym (string-split module #\.)))))) - (pylist-set! dict '__module__ module) - (if verbose (pretty-print verbose)))))) (define UserDict dict) @@ -1017,7 +1015,7 @@ (define __mul__ (lambda (self n) - (let ((o (dequeue))) + (let ((o (deque))) (let ((f (ref o 'append))) (let lp ((i 0)) (if (< i n) |