From 5592e9b34ba24964d7688c9566f7bda343205ec9 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 28 Apr 2011 16:10:21 -0400
Subject: [PATCH] Add more TR keywords to tabify list.

---
 collects/framework/private/main.rkt | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/framework/private/main.rkt b/collects/framework/private/main.rkt
index b08e619d76..18572e0428 100644
--- a/collects/framework/private/main.rkt
+++ b/collects/framework/private/main.rkt
@@ -221,13 +221,13 @@
             '(struct
               local
                      
-              struct:
+              struct: define-struct: define-struct/exec:
               define:
-              define-type
+              define-type define-predicate
               match-define))
   (for-each (λ (x) 
               (hash-set! hash-table x 'begin))
-            '(case-lambda
+            '(case-lambda case-lambda: pcase-lambda:
                match-lambda match-lambda*
                cond
                delay
@@ -256,6 +256,7 @@
                let-values: letrec-values: let*-values:
                let/cc: let/ec:
                lambda: λ:
+               plambda: opt-lambda: popt-lambda:
 
                for for/list for/hash for/hasheq for/and for/or 
                for/lists for/first for/last for/fold
@@ -263,7 +264,7 @@
                for*/lists for*/first for*/last for*/fold                 
 
                for: for/list: for/or: for/lists: for/fold:
-               for*: for*/lists: do:
+               for*: for*/lists: for*/fold: do:
                
                kernel-syntax-case
                syntax-case syntax-case* syntax-rules syntax-id-rules