summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 00:44:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 00:44:11 +0100
commit6e89d965f1b0a8329ddc012feb36fd43c591acbf (patch)
treefe01c5fd6bc286dc3f360ec5a90338619a5f6c1d /elisp/geiser-syntax.el
parent41d54012368ca33461fe3e8668c2b0e3052af3b8 (diff)
downloadgeiser-chez-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.gz
geiser-chez-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.bz2
Separate commands for evaluation and compilation.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 6577152..2c69a5c 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -40,7 +40,7 @@
(save-excursion
(goto-char (point-min))
(when (re-search-forward geiser-syntax--module-definition-re nil t)
- (match-string-no-properties 1))))))
+ (car (read-from-string (match-string-no-properties 1))))))))
;;; Indentation:
@@ -48,6 +48,8 @@
(let ((defuns '(catch)))
(mapc (lambda (d) (put d 'scheme-indent-function 'defun)) defuns)))
+(geiser-syntax--setup-scheme-indent)
+
;;; Code parsing: