Fix contract error.

Author: samth

typed-racket-lib/typed-racket/private/type-contract.rkt

@@ -37,6 +37,7 @@
 (provide change-contract-fixups
          change-provide-fixups
          any-wrap/sc
+         from-typed?
          extra-requires
          include-extra-requires?)
 

typed-racket-more/typed/racket/generate-predef-con.rkt

@@ -31,7 +31,7 @@
     (match-define (list defs ctc)
        (type->contract
         typ
-        #:typed-side side
+        #:typed-side (from-typed? side)
         #:kind kind
         #:cache (make-hash)
         #:sc-cache (make-hash)