suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add match to the default indentation and squarebracket preferences

Browse Source 
closes PR 11656
  closes PR 11653
This commit is contained in:
Robby Findler 2011-01-21 06:39:37 -06:00
parent ac99c69f0c
commit 72b7c26290
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/framework/private/main.rkt
View File

@ -60,12 +60,16 @@
(preferences:set-default 'framework:square-bracket:cond/offset (preferences:set-default 'framework:square-bracket:cond/offset
'(("case-lambda" 0) '(("case-lambda" 0)
("match-lambda" 0)
("match-lambda*" 0)
("cond" 0) ("cond" 0)
("field" 0) ("field" 0)
("provide/contract" 0) ("provide/contract" 0)
("match" 1) ("match" 1)
("new" 1) ("new" 1)
("case" 1) ("case" 1)
("match" 1)
("match*" 1)
("syntax-rules" 1) ("syntax-rules" 1)
("syntax-case" 2) ("syntax-case" 2)
("syntax-case*" 3) ("syntax-case*" 3)
@ -88,6 +92,7 @@
'("let" '("let"
"let*" "let-values" "let*-values" "let*" "let-values" "let*-values"
"let-syntax" "let-struct" "let-syntaxes" "let-syntax" "let-struct" "let-syntaxes"
"match-let" "match-let*" "match-letrec"
"letrec" "letrec"
"letrec-syntaxes" "letrec-syntaxes+values" "letrec-values" "letrec-syntaxes" "letrec-syntaxes+values" "letrec-values"
"parameterize" "parameterize"
@ -216,7 +221,8 @@
'(struct '(struct
local local
define-type)) define-type
match-define))
(for-each (λ (x) (for-each (λ (x)
(hash-set! hash-table x 'begin)) (hash-set! hash-table x 'begin))
'(case-lambda '(case-lambda
@ -232,7 +238,7 @@
cases cases
instantiate super-instantiate instantiate super-instantiate
syntax/loc quasisyntax/loc syntax/loc quasisyntax/loc
match match* match-let match-let* match-letrec
λ lambda let let* letrec recur λ lambda let let* letrec recur
lambda/kw lambda/kw