summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-02 06:15:58 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-09-02 06:15:58 +0200
commit4399176fae8187e5b896e0d28e4b888b8c39b5d1 (patch)
tree47ff35be0910c6d9939ff7d9a2487f1cf3661055
parent6108de2068c7badd28f2fa51c8ca3f2d2a7c3482 (diff)
downloadgeiser-chez-4399176fae8187e5b896e0d28e4b888b8c39b5d1.tar.gz
geiser-chez-4399176fae8187e5b896e0d28e4b888b8c39b5d1.tar.bz2
Yet another fix for scan locals (completion)
-rw-r--r--elisp/geiser-syntax.el3
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