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

Remove unused file.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-03-29 16:02:03 -05:00
parent 585ca37c5b
commit 427fe9340c
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
racket/collects/racket/contract/private/env.rkt
View File

@ -1,26 +0,0 @@
#lang racket/base
(require "arrow.rkt"
"guts.rkt")
(provide
build-env)
(define (make-env)
(list))
(define (extend-env ctc exp env)
(cons (list ctc exp)
env))
(define (build-env f-l)
(let ([value-contract (dynamic-require 'racket/contract 'value-contract)]
; [->-rngs/c (dynamic-require 'racket/contract/private/arrow '->-rngs/c)]
; [contract-stronger? (dynamic-require 'racket/contract 'contract-stronger?)]
[env-item (dynamic-require 'racket/contract/private/generator-base 'env-item)]
; [->-rngs/c (dynamic-require 'racket/contract/private/arrow '->-rngs/c)]
)
(map (λ (f)
(env-item (value-contract f)
f))
f-l))
)