compile: Use const for clarity.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:54:58 +0000 (11:54 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:54:58 +0000 (11:54 +0200)
* modules/language/python/compile.scm: Use const instead of lambda
expressions.

modules/language/python/compile.scm

index c0513c4..809476c 100644 (file)
@@ -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))))