fix racket snippets

Author: Tetsumi

snippets/racket-mode/case

@@ -2,4 +2,4 @@
 # name: (case ... [... ...]...)
 # key: case
 # --
-(case ${1:expression} [${2:datum} ${3:body}]$4)$0
+(case ${1:expression} [${2:datum} $0])

snippets/racket-mode/caselambda

@@ -2,4 +2,4 @@
 # name: (case-lambda [... ...]...)
 # key: case-lambda
 # --
-(case-lambda [${1:arguments} ${2:body}]$3)$0
+(case-lambda [${1:arguments} $0])

snippets/racket-mode/cond

@@ -2,4 +2,4 @@
 # name: (cond [... ...]...)
 # key: cond
 # --
-(cond [${1:predicate} ${2:body}]$3)$0
+(cond [${1:predicate} $0])

snippets/racket-mode/define

@@ -2,4 +2,4 @@
 # name: (define ... ...)
 # key: define
 # --
-(define ${1:(${2:name} ${3:arguments})} ${4:body})$0
+(define ${1:(${2:name} ${3:arguments})} $0)

snippets/racket-mode/do

@@ -4,4 +4,4 @@
 # --
 (do ([${1:name} ${2:init} ${3:step}]$4)
     (${5:stop-predicate} ${6:finish})
-  ${7:body})$0
+  $0)

snippets/racket-mode/for

@@ -2,4 +2,4 @@
 # name: (for... (...) ...)
 # key: for
 # --
-(for$1 (${2:for-clause}) ${3:body})$0
+(for$1 (${2:for-clause}) $0)

snippets/racket-mode/if

@@ -3,6 +3,4 @@
 # key: if
 # --
 (if ${1:(${2:predicate})}
-    ${3:consequent}
-    ${4:alternative})
-$0
+    $0)

snippets/racket-mode/lambda

@@ -2,4 +2,4 @@
 # name: (lambda (...) ...)
 # key: lambda
 # --
-(lambda ${1:(${2:arguments})} ${3:body})$0
+(lambda ${1:(${2:arguments})} $0)

snippets/racket-mode/let

@@ -2,4 +2,4 @@
 # name: (let... ([... ...]...) ...)
 # key: let
 # --
-(let$1 ([${2:name} ${3:expression}]$4) ${5:body})$0
+(let$1 ([${2:name} ${3:expression}]$4) $0)

snippets/racket-mode/match

@@ -2,4 +2,4 @@
 # name: (match ... [... ...]...)
 # key: match
 # --
-(match ${1:expression} [${2:clause} ${3:body}]$4)$0
+(match ${1:expression} [${2:clause} $0])