diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 00:59:20 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 00:59:20 +0200 |
| commit | b40e3b8b85eb3562cc49b2cbea041ee50949c46d (patch) | |
| tree | 6b5a1087b7db3f161e8869ad3982ce1b5ac1f4c9 /modules/language/python/spec.scm | |
| parent | a7346773d6b517fc09e5b776fb685daffc228528 (diff) | |
completer
Diffstat (limited to 'modules/language/python/spec.scm')
| -rw-r--r-- | modules/language/python/spec.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/modules/language/python/spec.scm b/modules/language/python/spec.scm index 155de87..429974b 100644 --- a/modules/language/python/spec.scm +++ b/modules/language/python/spec.scm @@ -1,8 +1,10 @@ (define-module (language python spec) #:use-module (parser stis-parser lang python3-parser) #:use-module (language python compile) + #:use-module (language python completer) #:use-module (rnrs io ports) #:use-module (ice-9 pretty-print) + #:use-module (ice-9 readline) #:use-module (system base compile) #:use-module (system base language) #:use-module (language scheme compile-tree-il) @@ -26,6 +28,10 @@ (define (cc port x) (if (equal? x "") (read port) (c x))) +(define (e x) (eval (c x) (current-module))) + +(set! (@@ (ice-9 readline) *readline-completion-function*) (complete-fkn e)) + (define-language python #:title "python" #:reader (lambda (port env) |