Racket: indentation for typed binding forms.

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))