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/compile.scm | |
parent | 31a53d9844f3431099010cc6ebef8fbbf1a38855 (diff) |
better guilemod
Diffstat (limited to 'modules/language/python/compile.scm')
-rw-r--r-- | modules/language/python/compile.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index e291e34..06e529b 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -281,7 +281,7 @@ (fold f (f (car l) init) (cdr l)) init)) -(define do-pr #f) +(define do-pr #t) (define (pr . x) (if do-pr @@ -1259,7 +1259,7 @@ `(,(G 'begin) ,(exp vs a) ,(exp vs (cons #:comma l))))) (#:import - ((_ (#:from (() . nm) . #f)) + ((_ (#:from (() () . nm) . #f)) (let* ((xl (map (lambda (nm) (exp vs nm)) nm)) (l `(language python module ,@xl))) @@ -1297,7 +1297,7 @@ (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l))) `(,(C 'use) ,? ,l ,l)))) - ((_ (#:from (() . nm) l)) + ((_ (#:from (() () . nm) l)) ;; Make sure to load the module in (let* ((xl (map (lambda (nm) (exp vs nm)) nm)) (ll `(language python module ,@xl))) @@ -2842,10 +2842,7 @@ ((_ v (#:apply x ...) . l) #'(ref-x (py-apply v x ...) . l)) - - ((_ v (#:apply x ...) . l) - #'(ref-x (py-apply v x ...) . l)) - + ((_ v (#:vecref x) . l) #'(ref-x (pylist-ref v x) . l)) |