diff options
Diffstat (limited to 'modules/language/python/module/operator.scm')
-rw-r--r-- | modules/language/python/module/operator.scm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/modules/language/python/module/operator.scm b/modules/language/python/module/operator.scm index a22fde4..e506817 100644 --- a/modules/language/python/module/operator.scm +++ b/modules/language/python/module/operator.scm @@ -34,7 +34,7 @@ (cons (cons k v) l) #:final (reverse l))) -(define (asssoc->hash a) +(define (assoc->hash a) (let ((h (make-hash-table))) (let lp ((a a)) (if (pair? a) @@ -182,8 +182,6 @@ (car as) (cdr as)))))) -(name-object attrgetter) - (define-python-class itemgetter () (define __init__ (lambda (self item . items) @@ -217,10 +215,6 @@ (ref (ref self '__class__) '__name__) (car args) (cdr args)))))) -(name-object itemgetter) - - - (define-python-class methodcaller () (define __init__ (lam (self (* args) (** kwargs)) @@ -240,12 +234,12 @@ (lambda (self) (list (lambda (o name args a) - (let ((kwargs (assoc->hash kwargs))) + (let ((kwargs (assoc->hash a))) (py-apply (ref methodcaller '__init__) o name (* args) (** kwargs)))) (list (ref self '_name) (ref self '_args) - (hash->assoc (ref self '_kwargs))))))) + (hash->assoc (ref self '_kwargs)))))) (define __call__ (lambda (self obj) @@ -267,9 +261,6 @@ #:final (reverse l))) (format #f "~a(~a~{,~a~})" cln (car v2) (cdr v2))))) -(name-object methodcaller) - - ;; In-place Operations (define iadd py-iadd) (define iand py-ilogand) |