Deletes ill-formed, commented-out Redex test.

Signed-off-by: Casey Klein <clklein@racket-lang.org>

collects/redex/tests/tl-test.rkt

@@ -538,25 +538,6 @@
       [(g any) 2])
     (test (term (g 0)) 2))
   
-  #:
-  (let ()
-    (define-language L 
-      (v 1 (v)))
-    (define-metafunction L
-      f : v -> v
-      [(f (v)) 
-       any_1
-       (where any_1 (f v))])
-    
-    (define-extended-language M
-      L
-      (v .... 2))
-    (define-metafunction/extension f M
-      g : v -> v
-      [(g 2) 2])
-
-    (term (g (2))))
-  
   (let ()
     (define-metafunction empty-language
       [(f (number_1 number_2))