diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-03 17:48:09 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-03 17:48:09 +0200 |
commit | 82554e6990aa55dea4bf0b1cc1c2ca7cd46ef778 (patch) | |
tree | 907cdf5da0f31a0925b00ffca0ffd5c1e5312f31 /modules | |
parent | 9b9b7633c13aa9f99ffb5683374f5c11a4966a93 (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.scm | 12 |
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" |