diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-06 20:41:22 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-06 20:41:22 +0100 |
| commit | 25605a21140af33eacc455631083e70f3f28c2b7 (patch) | |
| tree | 760c061a34acff86146e783195b10a520ae5f1c2 /modules/language/python/def.scm | |
| parent | 31a53d9844f3431099010cc6ebef8fbbf1a38855 (diff) | |
better guilemod
Diffstat (limited to 'modules/language/python/def.scm')
| -rw-r--r-- | modules/language/python/def.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/modules/language/python/def.scm b/modules/language/python/def.scm index 25edc7e..7e97d22 100644 --- a/modules/language/python/def.scm +++ b/modules/language/python/def.scm @@ -1,4 +1,5 @@ (define-module (language python def) + #:use-module (ice-9 pretty-print) #:use-module (oop pf-objects) #:use-module (language python for) #:use-module (language python exceptions) @@ -98,15 +99,16 @@ ((k ...) (map car kv)) ((s ...) (map ->kw (map car kv))) ((v ...) (map cdr kv))) - #`(object-method - (lambda* (#,@as . l) - (call-with-values (lambda () (get-akw l)) - (lambda (ww* kw) - (let*-values (((ww* k) (take-1 #,(null? ww-) ww* kw s v)) + #`(object-method + (lambda* (#,@as . l) + (call-with-values (lambda () (get-akw l)) + (lambda (ww* kw) + (let*-values (((ww* k) (take-1 #,(null? ww-) ww* + kw s v)) ...) - (let ((ww ww*) - (kw (pytonize kw))) - (let () code ...)))))))))))))) + (let ((ww ww*) + (kw (pytonize kw))) + (let () code ...)))))))))))))) (define-syntax-rule (def (f . args) code ...) (define f (lam args code ...))) |