From a98abdcf233e62f87ee5a3e87046ca5995ddd75a Mon Sep 17 00:00:00 2001 From: mathieu2em Date: Tue, 23 Jul 2019 14:47:40 -0400 Subject: fix a problem with non-procedures symbols from ##symbol-table completion --- scheme/gambit/geiser/gambit.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'scheme') 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)))) -- cgit v1.2.3