summaryrefslogtreecommitdiff
path: root/modules
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-06-03 17:48:09 +0200
committerRicardo Wurmus <rekado@elephly.net>2019-06-03 17:48:09 +0200
commit82554e6990aa55dea4bf0b1cc1c2ca7cd46ef778 (patch)
tree907cdf5da0f31a0925b00ffca0ffd5c1e5312f31 /modules
parent9b9b7633c13aa9f99ffb5683374f5c11a4966a93 (diff)
modules: spec: Simplify.
* modules/language/python/spec.scm: Use "const" instead of "lambda".
Diffstat (limited to 'modules')
-rw-r--r--modules/language/python/spec.scm12
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"