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

Remove debugging code.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2008-07-07 15:05:51 -04:00
parent 807336e262
commit 17dec0046f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/private/infer-unit.ss
View File

@ -471,7 +471,7 @@
[new-Ts (for/list ([v new-vars]) [new-Ts (for/list ([v new-vars])
(substitute (make-F v) dotted-var (substitute (make-F v) dotted-var
(substitute-dots (map make-F new-vars) #f dotted-var T-dotted)))] (substitute-dots (map make-F new-vars) #f dotted-var T-dotted)))]
[cs-dotted (debug (cgen/list null (append new-vars X) rest-S new-Ts))] [cs-dotted (cgen/list null (append new-vars X) rest-S new-Ts)]
[cs-dotted* (move-vars-to-dmap cs-dotted dotted-var new-vars)] [cs-dotted* (move-vars-to-dmap cs-dotted dotted-var new-vars)]
[cs (cset-meet cs-short cs-dotted*)]) [cs (cset-meet cs-short cs-dotted*)])
(if (not expected) (if (not expected)
@ -484,4 +484,4 @@
(define (i s t r) (define (i s t r)
(infer/simple (list s) (list t) r)) (infer/simple (list s) (list t) r))
(trace cgen/arr cgen #;cgen/list) ;(trace cgen/arr cgen #;cgen/list)