Add #lang typed/racket/gui/no-check (#467)

typed-racket-doc/typed-racket/scribblings/reference/libraries.scrbl

@@ -175,6 +175,7 @@ and the @racket[URL] and @racket[Path/Param] types from
 @defmodule/incl[typed/racket/date]
 @defmodule/incl[typed/racket/draw]
 @defmodule/incl[typed/racket/gui]
+@defmodule/incl[typed/racket/gui/no-check]
 @defmodule/incl[typed/racket/random @history[#:added "1.5"]]
 @defmodule/incl[typed/racket/sandbox]
 @defmodule/incl[typed/racket/snip]

typed-racket-more/typed/racket/gui/no-check.rkt

@@ -0,0 +1,5 @@
+#lang typed-racket/minimal
+
+(require racket/require typed/private/no-check-helper
+         (subtract-in typed/racket/gui typed/private/no-check-helper))
+(provide (all-from-out typed/racket/gui typed/private/no-check-helper))

typed-racket-more/typed/racket/gui/no-check/lang/reader.rkt

@@ -0,0 +1,8 @@
+#lang s-exp syntax/module-reader
+
+typed/racket/gui/no-check
+
+#:read r:read
+#:read-syntax r:read-syntax
+
+(require (prefix-in r: typed-racket/typed-reader))

typed-racket-test/succeed/standard-features-no-check-gui.rkt

@@ -0,0 +1,13 @@
+#lang racket
+
+;;; https://github.com/racket/typed-racket/pull/467
+
+;;; due to "instantiate the gui instance one more time" reported by travis-ci.
+;;; This test cheats the continuous integration environment.
+;;; Actually it will typecheck but won't run.
+
+(module cheat-foo typed/racket/gui/no-check
+  (: f (Integer -> Any))
+  (define (f x) (add1 (current-eventspace)))
+ 
+  (lambda ([x : String]) (string-append " " x)))