diff options
| -rw-r--r-- | modules/language/python/eval.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/modules/language/python/eval.scm b/modules/language/python/eval.scm index 0d5d9d9..4cfd239 100644 --- a/modules/language/python/eval.scm +++ b/modules/language/python/eval.scm @@ -120,17 +120,17 @@ global environment @var{global}." "Compile the expression @var{x} within the local environment @var{local} and global environment @var{global}." (if locals - (if globals - (apply ((@ (system base compile) compile) - ((L local-wrap) x locals) #:env globals - #:from 'scheme #:opts opts) - ((L env-boxes) locals)) - (apply ((@ (system base compile) compile) ((L local-wrap) x locals) - #:env ((L env-module) locals) - #:from 'scheme #:opts opts) - ((L env-boxes) locals))) - ((@ (system base compile) compile) x #:env (current-module) - #:from 'scheme #:opts opts))) + (apply ((@ (system base compile) compile) + ((L local-wrap) x locals) + #:env (if globals + globals + ((L env-module) locals)) + #:from 'scheme #:opts opts) + ((L env-boxes) locals)) + ((@ (system base compile) compile) + x + #:env (current-module) + #:from 'scheme #:opts opts))) (define-syntax eval (lambda (x) |