From 3bf7dedfa799b54e61bb42f2e22de2b25de22ac2 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Wed, 19 Aug 2015 15:46:17 -0400 Subject: [PATCH] Revert "add hash->list-lens and list->hash-lens" This reverts commit d10c85480f56bfe2c36cdd74be0476894b6803bd. --- unstable/lens/isomorphism.scrbl | 3 +-- unstable/lens/isomorphism/base.rkt | 3 --- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/unstable/lens/isomorphism.scrbl b/unstable/lens/isomorphism.scrbl index 29393c8..26c23bf 100644 --- a/unstable/lens/isomorphism.scrbl +++ b/unstable/lens/isomorphism.scrbl @@ -49,7 +49,6 @@ example, are defined like this: @deflenses[[string->symbol-lens symbol->string-lens number->string-lens string->number-lens list->vector-lens vector->list-lens - list->string-lens string->list-lens - hash->list-lens list->hash-lens]]{ + list->string-lens string->list-lens]]{ Isomorphim lenses for @racket[string->symbol], @racket[number->string], and so on. } diff --git a/unstable/lens/isomorphism/base.rkt b/unstable/lens/isomorphism/base.rkt index 4da233e..be8c779 100644 --- a/unstable/lens/isomorphism/base.rkt +++ b/unstable/lens/isomorphism/base.rkt @@ -10,7 +10,6 @@ number->string-lens string->number-lens list->vector-lens vector->list-lens list->string-lens string->list-lens - hash->list-lens list->hash-lens )) (require racket/match @@ -44,8 +43,6 @@ (isomorphism-lenses list->vector vector->list)) (define-values [list->string-lens string->list-lens] (isomorphism-lenses list->string string->list)) - (define-values [hash->list-lens list->hash-lens] - (isomorphism-lenses hash->list make-immutable-hash)) ) (module+ test