From 82554e6990aa55dea4bf0b1cc1c2ca7cd46ef778 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 3 Jun 2019 17:48:09 +0200
Subject: modules: spec: Simplify.

* modules/language/python/spec.scm: Use "const" instead of "lambda".
---
 modules/language/python/spec.scm | 12 +++++-------
 1 file 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"
-- 
cgit v1.2.3