summaryrefslogtreecommitdiff
path: root/scheme/geiser/introspection.scm
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/geiser/introspection.scm')
-rw-r--r--scheme/geiser/introspection.scm6
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