diff options
| -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" |