diff options
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/geiser/emacs.scm | 2 | ||||
| -rw-r--r-- | scheme/geiser/introspection.scm | 6 |
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 |