diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-02 06:15:58 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-02 06:15:58 +0200 |
| commit | 4399176fae8187e5b896e0d28e4b888b8c39b5d1 (patch) | |
| tree | 47ff35be0910c6d9939ff7d9a2487f1cf3661055 | |
| parent | 6108de2068c7badd28f2fa51c8ca3f2d2a7c3482 (diff) | |
| download | geiser-chez-4399176fae8187e5b896e0d28e4b888b8c39b5d1.tar.gz geiser-chez-4399176fae8187e5b896e0d28e4b888b8c39b5d1.tar.bz2 | |
Yet another fix for scan locals (completion)
| -rw-r--r-- | elisp/geiser-syntax.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index e7c2a9f..773f71f 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -265,7 +265,8 @@ (when name (push name locals)) (when use-names (dolist (n names) (push n locals))) (dolist (f (butlast rest)) - (when (eq (car f) 'define) (push (cadr f) locals))) + (when (and (listp f) (eq (car f) 'define)) + (push (cadr f) locals))) (geiser-syntax--scan-locals bfs sbfs (car (last (or rest names))) partial |