From 078ce5f8c6dc17d41c45b9686c5333a0383b0915 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 11 Oct 2008 19:17:17 +0000 Subject: [PATCH] removed unused leftover file svn: r11992 --- .../typed-scheme/unit-tests/infer-tests.ss | 1 - collects/typed-scheme/utils/tables.ss | 31 ------------------- 2 files changed, 32 deletions(-) delete mode 100644 collects/typed-scheme/utils/tables.ss diff --git a/collects/tests/typed-scheme/unit-tests/infer-tests.ss b/collects/tests/typed-scheme/unit-tests/infer-tests.ss index bf3b7b95ec..f792b1efb7 100644 --- a/collects/tests/typed-scheme/unit-tests/infer-tests.ss +++ b/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)) diff --git a/collects/typed-scheme/utils/tables.ss b/collects/typed-scheme/utils/tables.ss deleted file mode 100644 index 08b94a026a..0000000000 --- a/collects/typed-scheme/utils/tables.ss +++ /dev/null @@ -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))