diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 23:33:24 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-09 23:33:24 +0100 |
| commit | c225b4606809739b6d408c915694841ca1aa45c0 (patch) | |
| tree | 2d99a3510407553691ec6b70e976633067d003ff /scheme/geiser/introspection.scm | |
| parent | cb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e (diff) | |
| download | geiser-chez-c225b4606809739b6d408c915694841ca1aa45c0.tar.gz geiser-chez-c225b4606809739b6d408c915694841ca1aa45c0.tar.bz2 | |
TAB-completion for symbols in Scheme and REPL buffers.
Diffstat (limited to 'scheme/geiser/introspection.scm')
| -rw-r--r-- | scheme/geiser/introspection.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scheme/geiser/introspection.scm b/scheme/geiser/introspection.scm index 0c759d5..ffa2c73 100644 --- a/scheme/geiser/introspection.scm +++ b/scheme/geiser/introspection.scm @@ -25,8 +25,9 @@ ;;; Code: (define-module (geiser introspection) - #:export (proc-args var-metadata) + #:export (proc-args completions) #:use-module (system vm program) + #:use-module (ice-9 session) #:use-module (srfi srfi-1)) (define (proc-args proc) @@ -62,4 +63,7 @@ (list (cons 'required args) (cons 'optional (or opt '())))) +(define (completions prefix) + (map symbol->string (apropos-internal (string-append "^" prefix)))) + ;;; introspection.scm ends here |