diff options
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 |