suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make env struct transparent.

Browse Source 
svn: r14857
This commit is contained in:
Sam Tobin-Hochstadt 2009-05-18 22:17:32 +00:00
parent 7a24d39348
commit ef095c931a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/env/type-environments.ss vendored
View File

@ -20,7 +20,7 @@
with-dotted-env/extend) with-dotted-env/extend)
;; eq? has the type of equal?, and l is an alist (with conses!) ;; 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) (define (env-vals e)
(map cdr (env-l e))) (map cdr (env-l e)))