Parens

2015-01-17 12:54:31 -05:00 · 2015-01-17 12:54:31 -05:00 · 88afb40f60
commit 88afb40f60
parent 7633d6d1b8
1 changed files with 1 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/typecheck/tc-envops.rkt
+++ b/typed-racket-lib/typed-racket/typecheck/tc-envops.rkt
@ -54,7 +54,7 @@
       (cond 
        [(Bottom? ty*) ty*]
        [else (let ([flds* (append lhs (cons (make-fld ty* acc-id #f) (cdr rhs)))])
-                (make-Struct nm par flds* proc poly pred))]))]]
+                (make-Struct nm par flds* proc poly pred))]))]

    ;; otherwise
    [(t '())