From f98a4bc210f13443776b28bcbb612847f964e878 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 24 Sep 2008 14:03:25 +0000 Subject: [PATCH] Add kw test svn: r11850 original commit: 9c08df4789047efd717f92048442abc8a2c26fc0 --- collects/tests/typed-scheme/succeed/kw.ss | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 collects/tests/typed-scheme/succeed/kw.ss diff --git a/collects/tests/typed-scheme/succeed/kw.ss b/collects/tests/typed-scheme/succeed/kw.ss new file mode 100644 index 00000000..a964ddf1 --- /dev/null +++ b/collects/tests/typed-scheme/succeed/kw.ss @@ -0,0 +1,8 @@ +#lang typed-scheme + + + +(lambda () + (open-input-file "foo" #:mode 'binary) + (open-input-file "foo" #:mode 'text) + (open-input-file "foo"))