summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-05 02:14:41 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-05 02:14:41 +0200
commit7a854d62eaebd9cf7173fefd838a4cbb7601701a (patch)
tree2a6a17cf8629a0cc1a2e98b28ba090534f9f165f
parent660eb5296bbc16776f7dd3b39f78e88567ed95d0 (diff)
downloadgeiser-guile-7a854d62eaebd9cf7173fefd838a4cbb7601701a.tar.gz
geiser-guile-7a854d62eaebd9cf7173fefd838a4cbb7601701a.tar.bz2
Racket: indentation for typed binding forms.
-rw-r--r--elisp/geiser-racket.el8
-rw-r--r--elisp/geiser-syntax.el11
2 files changed, 17 insertions, 2 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index de66029..4517f01 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -125,11 +125,15 @@ This function uses `geiser-racket-init-file' if it exists."
(defconst geiser-racket--binding-forms
'(for for/list for/hash for/hasheq for/and for/or
- for/lists for/first for/last for/fold))
+ for/lists for/first for/last for/fold
+ for: for/list: for/hash: for/hasheq: for/and: for/or:
+ for/lists: for/first: for/last: for/fold:))
(defconst geiser-racket--binding-forms*
'(for* for*/list for*/lists for*/hash for*/hasheq for*/and
- for*/or for*/first for*/last for*/fold))
+ for*/or for*/first for*/last for*/fold
+ for*: for*/list: for*/lists: for*/hash: for*/hasheq: for*/and:
+ for*/or: for*/first: for*/last: for*/fold:))
;;; External help
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 5925742..6240e75 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -29,18 +29,28 @@
(c-declare 0)
(c-lambda 2)
(case-lambda 0)
+ (case-lambda: 0)
(catch defun)
(class defun)
(class* defun)
(compound-unit/sig 0)
+ (define: defun)
(dynamic-wind 0)
(for/fold 2)
(instantiate 2)
(interface 1)
+ (lambda: 1)
(lambda/kw 1)
(let*-values 1)
+ (let*-values: 1)
(let+ 1)
+ (let: 1)
+ (letrec: 1)
+ (letrec-values 1)
+ (letrec-values: 1)
(let-values 1)
+ (let-values: 1)
+ (let/cc: 1)
(let/ec 1)
(match defun)
(mixin 2)
@@ -63,6 +73,7 @@
(when 1)
(while 1)
(with-handlers 1)
+ (with-handlers: 1)
(with-method 1)
(with-syntax 1))