From a45c7887494ebca967cf3e8387174ff6f2596ca7 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 6 Jan 2010 16:52:07 +0000
Subject: [PATCH] remove useless code

svn: r17496
---
 collects/scheme/match/compiler.ss | 15 ---------------
 collects/scheme/match/patterns.ss |  7 -------
 2 files changed, 22 deletions(-)

diff --git a/collects/scheme/match/compiler.ss b/collects/scheme/match/compiler.ss
index ab4fa32790..11d260774b 100644
--- a/collects/scheme/match/compiler.ss
+++ b/collects/scheme/match/compiler.ss
@@ -117,21 +117,6 @@
             [accs (Struct-accessors s)]
             [pred (Struct-pred s)])
        (compile-con-pat accs pred Struct-ps))]
-    ;; it's a prefab struct
-    [(list? k)
-     (let* ([s (Row-first-pat (car rows))]
-            [key (PrefabStruct-key s)]
-            [pats (PrefabStruct-ps s)])       
-       (with-syntax*
-        ([struct-type-id (syntax-local-lift-expression #`(prefab-key->struct-type '#,key #,(length pats)))]
-         [(_ _ _ acc-proc _ _ _ _) (syntax-local-lift-values-expression 8 #`(struct-type-info struct-type-id))])
-        (compile-con-pat
-         (for/list ([p pats]
-                    [i (in-naturals)])
-           #`(make-struct-field-accessor acc-proc #,i)
-           #;#`(lambda (val) (acc-proc val #,i)))
-         #`(struct-type-make-predicate struct-type-id)
-         PrefabStruct-ps)))]
     [else (error 'match-compile "bad key: ~a" k)]))
 
 
diff --git a/collects/scheme/match/patterns.ss b/collects/scheme/match/patterns.ss
index f133ff8904..4ddbb9916d 100644
--- a/collects/scheme/match/patterns.ss
+++ b/collects/scheme/match/patterns.ss
@@ -59,10 +59,6 @@
 ;; ps is a listof patterns
 (define-struct (Struct CPat) (id pred super accessors ps) #:transparent)
 
-;; ps is a listof patterns
-;; key is a prefab struct key
-(define-struct (PrefabStruct CPat) (key pred accessors ps) #:transparent)
-
 ;; both fields are lists of pats
 (define-struct (HashTable CPat) (key-pats val-pats) #:transparent)
 
@@ -109,7 +105,6 @@
 ;; the result is #f if p is not a constructor pattern
 (define (pat-key p)
   (cond [(Struct? p) (get-key (Struct-id p))]
-        [(PrefabStruct? p) (list (PrefabStruct-key p))]
         [(Box? p) 'box]
         [(Vector? p) 'vector]
         [(Pair? p) 'pair]
@@ -172,8 +167,6 @@
      (merge (map bound-vars (Vector-ps p)))]
     [(Struct? p)
      (merge (map bound-vars (Struct-ps p)))]
-    [(PrefabStruct? p)
-     (merge (map bound-vars (PrefabStruct-ps p)))]
     [(App? p)
      (bound-vars (App-p p))]
     [(Not? p) null]