remove tracing

svn: r16872 original commit: 424aa9049107a30e2d625eb2d06ff9fcd9e7eefb
2009-11-18 16:41:01 +00:00 · 2009-11-18 16:41:01 +00:00 · 812d2549dd
commit 812d2549dd
parent fd735190d5
1 changed files with 1 additions and 1 deletions
--- 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)