From d6a1b098ca7e8acc1e17b47d382e9d546ef3743f Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 18 May 2009 22:17:32 +0000 Subject: [PATCH] Make env struct transparent. svn: r14857 original commit: ef095c931a30c98adf4dc2f326780f62173be9bd --- collects/typed-scheme/env/type-environments.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/env/type-environments.ss b/collects/typed-scheme/env/type-environments.ss index 3a0b5679..12c570c2 100644 --- a/collects/typed-scheme/env/type-environments.ss +++ b/collects/typed-scheme/env/type-environments.ss @@ -20,7 +20,7 @@ with-dotted-env/extend) ;; eq? has the type of equal?, and l is an alist (with conses!) -(r:d-s/c env ([eq? (any/c any/c . -> . boolean?)] [l (listof pair?)])) +(r:d-s/c env ([eq? (any/c any/c . -> . boolean?)] [l (listof pair?)]) #:transparent) (define (env-vals e) (map cdr (env-l e)))