From b40e3b8b85eb3562cc49b2cbea041ee50949c46d Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 17 Oct 2017 00:59:20 +0200 Subject: completer --- modules/language/python/spec.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'modules/language/python/spec.scm') 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) -- cgit v1.2.3