branch: elpa/geiser-gambit
commit 53cfca80a35254fc433ef37eeb38638389041a07
Author: mathieu2em <[email protected]>
Commit: mathieu2em <[email protected]>
fix a problem with non-procedures symbols from ##symbol-table completion
---
scheme/gambit/geiser/gambit.scm | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm
index b13d5e3..ee307f3 100644
--- a/scheme/gambit/geiser/gambit.scm
+++ b/scheme/gambit/geiser/gambit.scm
@@ -125,18 +125,22 @@
(symbols-list '()))
(if (< i sym-len)
(let ((sym (vector-ref sym-tab i)))
+ (pp sym)
(loop (+ i 1)
(if (symbol? sym)
- (let loop2 ((sym-list (if (##string-prefix? prefix sym)
+ (let loop2 ((sym-list (if (and (##string-prefix?
prefix sym)
+ (procedure?
(##global-var-ref (##make-global-var sym))))
(cons (symbol->string sym)
symbols-list)
symbols-list))
(vect sym))
(let ((sym2 (##vector-ref vect 2)))
+ (pp sym2)
(if (symbol? sym2)
- (if (##string-prefix? prefix sym2)
+ (if (and (##string-prefix? prefix sym2)
+ (procedure? (##global-var-ref
(##make-global-var sym))))
(loop2 (cons (symbol->string sym2)
sym-list) sym2)
(loop2 sym-list sym2))
- sym-list)))
+ sym-list)))
symbols-list)))
symbols-list))))
