summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"