summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 23:33:24 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-09 23:33:24 +0100
commitc225b4606809739b6d408c915694841ca1aa45c0 (patch)
tree2d99a3510407553691ec6b70e976633067d003ff /scheme
parentcb1c7c38f4dbc5af1e4fed7cb9e01897a2cf458e (diff)
downloadgeiser-chez-c225b4606809739b6d408c915694841ca1aa45c0.tar.gz
geiser-chez-c225b4606809739b6d408c915694841ca1aa45c0.tar.bz2
TAB-completion for symbols in Scheme and REPL buffers.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/geiser/emacs.scm2
-rw-r--r--scheme/geiser/introspection.scm6
2 files changed, 6 insertions, 2 deletions
diff --git a/scheme/geiser/emacs.scm b/scheme/geiser/emacs.scm
index 014c44a..ea74220 100644
--- a/scheme/geiser/emacs.scm
+++ b/scheme/geiser/emacs.scm
@@ -25,7 +25,7 @@
;;; Code:
(define-module (geiser emacs)
- #:re-export (proc-args var-metadata)
+ #:re-export (proc-args completions)
#:use-module (geiser introspection))
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