From d3fbfb7a6325bc8aaabb0577eda990f8db968056 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 4 Jun 2019 12:54:46 +0200
Subject: eval: local-compile: Simplify.

* modules/language/python/eval.scm (local-compile): Simplify.
---
 modules/language/python/eval.scm | 22 +++++++++++-----------
 1 file 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)
-- 
cgit v1.2.3