adding new stuff

plugins/bundle/xptemplate/ftplugin/scheme/scheme.xpt.vim

@@ -0,0 +1,71 @@
+XPTemplate priority=lang
+
+let s:f = g:XPTfuncs()
+
+XPTvar $TRUE          1
+XPTvar $FALSE         0
+XPTvar $NULL          NULL
+XPTvar $UNDEFINED     NULL
+XPTvar $VOID_LINE     /* void */;
+XPTvar $BRif \n
+
+XPTinclude
+      \ _common/common
+      \ _condition/lisp.like
+
+
+XPT begin " (begin .. )
+(begin
+   (`todo0^)` `...^
+   (`todon^)` `...^)
+
+
+XPT case " (case (of) ((match) (expr)) ..)
+(case (`of^)
+      ({`match^} `expr1^)` `...^
+      ({`matchn^} `exprn^)` `...^
+      `else...^\(else \`cursor\^)^^)
+
+
+XPT cond " (cond ([condi] (expr)) ..)
+(cond ([`condition^] `expr1^)` `...^
+`      ([`condition^] `exprn^)` `...^
+      `else...^\(else \`cursor\^)^^)
+
+
+XPT let " (let [(var (val)) ..] (body))
+(let [(`newVar^ `value^` `...^)
+`      (`newVarn^ `valuen^` `...^)]
+     (`cursor^))
+
+
+XPT letrec " (letrec [(var (val)) ..] (body))
+(letrec [(`newVar^ `value^` `...^)
+`         (`newVarn^ `valuen^` `...^)]
+     (`cursor^))
+
+
+XPT lambda " (lambda [params] (body))
+(lambda [`params^]
+        (`cursor^))
+
+
+XPT defun " (define var (lambda ..))
+(define `funName^
+    (lambda [`params^]
+        (`cursor^))
+ )
+
+
+XPT def " (define var (ex))
+(define `varName^ `cursor^)
+
+
+XPT do " (do ..)
+(do {(`var^ `init^ `step^)` `...0^
+`     (`var^ `init^ `step^)` `...0^}
+   ([`test^] `exprs^)
+   (`command^)` `...2^
+   (`command^)` `...2^)
+
+