compile: Use const for clarity.

* modules/language/python/compile.scm: Use const instead of lambda
expressions.

1 files changed, 4 insertions, 5 deletions

diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index c0513c4..809476c 100644
--- a/modules/language/python/compile.scm
+++ b/modules/language/python/compile.scm
@@ -216,8 +216,7 @@ empty list."
         (lambda ()
           (if (not p) (reload-module (resolve-module 'l)))
           (use-modules-- a ...))
-        (lambda x
-          #f)))
+        (const #f)))
     (eval-when (eval load)
       (catch #t
         (lambda ()
@@ -1274,7 +1273,7 @@ empty list."
      ;; Make sure to load the module in
      (let ((? (catch #t
                 (lambda () (Module (reverse l) (reverse xl)) #t)
-                (lambda x #f))))
+                (const #f))))
        (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l)))       
        `(,(C 'use) ,? ,l ,l))))
 
@@ -1287,7 +1286,7 @@ empty list."
      ;; Make sure to load the module in
      (let ((? (catch #t
                 (lambda () (Module (reverse l) (reverse xl)) #t)
-                (lambda x #f))))
+                (const #f))))
        (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l)))       
        `(,(C 'use) ,? ,l ,l))))
 
@@ -1301,7 +1300,7 @@ empty list."
      ;; Make sure to load the module in
      (let ((? (catch #t
                 (lambda () (Module (reverse l) (reverse xl)) #t)
-                (lambda x #f))))
+                (const #f))))
        (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l)))       
        `(,(C 'use) ,? ,l ,l))))