modules: spec: Simplify.

* modules/language/python/spec.scm: Use "const" instead of "lambda".

1 files changed, 5 insertions, 7 deletions

diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm
index a267f72..f1fc78b 100644
--- a/modules/language/python/spec.scm
+++ b/modules/language/python/spec.scm
@@ -41,16 +41,14 @@
 (define (int)
   (catch #t
     (lambda ()
-      (if (fluid-ref (@@ (system base compile) %in-compile))
-          #f
-          #t))
-    (lambda x #f)))
+      (not (fluid-ref (@@ (system base compile) %in-compile))))
+    (const #f)))
 
 (define (in)
   (catch #t
     (lambda ()
       (fluid-set! (@@ (system base compile) %in-compile) #t))
-    (lambda x #f)))
+    (const #f)))
 
 (define mapper (make-weak-key-hash-table))
 
@@ -71,8 +69,8 @@
 (catch #t
   (lambda ()
     (set! (@@ (ice-9 readline) *readline-completion-function*)
-      (complete-python e)))
-  (lambda x #f))
+          (complete-python e)))
+  (const #f))
 
 (define-language python
   #:title	"python"