removed unused leftover file

svn: r11992

collects/tests/typed-scheme/unit-tests/infer-tests.ss

@@ -3,7 +3,6 @@
 (require (rep type-rep)
 	 (r:infer infer)
 	 (private type-effect-convenience union type-utils)
-         (prefix-in table: (utils tables))
          (schemeunit))
 
 

collects/typed-scheme/utils/tables.ss

@@ -1,31 +0,0 @@
-#lang scheme/base
-
-(provide (all-defined-out))
-
-;; alist->eq : alist -> table
-(define (alist->eq l) 
-  (for/hasheq ([e l])
-    (values (car e) (cdr e))))
-
-(define (sexp->eq l) 
-  (for/hasheq ([e l])
-    (values (car e) (cadr e))))
-
-;; to-sexp : table -> Listof(List k v)
-(define (to-sexp t) (hash-map t list))
-
-;; union/value : table(k,v) table(k,v) [(v v -> v)] -> table(k,v)
-(define (union/value t1 t2 [f (lambda (x y) x)])
-  (for/fold ([new-table t1])
-	    ([(k v) t2])
-	    (cond [(hash-ref new-table k #f)
-		   => 
-		   (lambda (v*) (hash-set new-table k (f v* v)))]
-		  [else
-		   (hash-set new-table k v)])))
-
-(define (make-eq) (make-immutable-hasheq null))
-
-(define (lookup k t) (hash-ref t k #f))
-
-(define (insert k v t) (hash-set t k v))