diff options
| -rw-r--r-- | elisp/geiser-racket.el | 8 | ||||
| -rw-r--r-- | elisp/geiser-syntax.el | 11 |
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)) |