summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 21:39:02 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 21:39:02 +0100
commitecf460e9aca83a32bb1149ecd5b0238c7a5cb233 (patch)
tree6d572127dfc2b5bdc475dd8f684733a17b85fe2d
parente7b2ec5d5d2e9f57840ab08adbbce03ccff48956 (diff)
downloadgeiser-chez-ecf460e9aca83a32bb1149ecd5b0238c7a5cb233.tar.gz
geiser-chez-ecf460e9aca83a32bb1149ecd5b0238c7a5cb233.tar.bz2
Nits.
-rw-r--r--elisp/geiser-syntax.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 24e51df..1897898 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -67,7 +67,8 @@
(save-excursion
(let* ((p (geiser-syntax--end-of-thing))
(current (cons (symbol-at-point) 0))
- (data (when (car current) (list current))))
+ (data))
+;; (data (when (car current) (list current))))
(ignore-errors
(while (not (bobp))
(backward-up-list)
@@ -80,7 +81,7 @@
(forward-sexp)
(when (< (point) p) (setq arg-no (1+ arg-no))))
(push (cons proc arg-no) data))))))
- (reverse data))))
+ (reverse (if (car current) (push current data) data)))))
(defun geiser-syntax--prepare-scheme-for-elisp-reader ()
(goto-char (point-min))