From 424aa9049107a30e2d625eb2d06ff9fcd9e7eefb Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 18 Nov 2009 16:41:01 +0000 Subject: [PATCH] remove tracing svn: r16872 --- collects/typed-scheme/typecheck/tc-envops.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/typecheck/tc-envops.ss b/collects/typed-scheme/typecheck/tc-envops.ss index 6ef796f00a..c6d8a22344 100644 --- a/collects/typed-scheme/typecheck/tc-envops.ss +++ b/collects/typed-scheme/typecheck/tc-envops.ss @@ -21,7 +21,7 @@ [(zero? i) (cons (f (car l)) (cdr l))] [else (cons (car l) (replace-nth (cdr l) (sub1 i) f))])) -(trace replace-nth) +;(trace replace-nth) (define/contract (update t lo) (Type/c Filter/c . -> . Type/c)