From fb79aec97e643db984c8b9cb0338742d01ed7cf4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Fri, 16 Oct 2009 21:22:01 -0500
Subject: [PATCH] typed: fix deployment

---
 basis/tools/deploy/deploy-tests.factor   |  4 +++-
 basis/tools/deploy/test/16/16.factor     |  8 ++++++++
 basis/tools/deploy/test/16/deploy.factor | 14 ++++++++++++++
 extra/typed/typed.factor                 |  2 +-
 4 files changed, 26 insertions(+), 2 deletions(-)
 create mode 100644 basis/tools/deploy/test/16/16.factor
 create mode 100644 basis/tools/deploy/test/16/deploy.factor

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index 6a1f949b0b..e2d6f774e1 100644
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -112,4 +112,6 @@ os macosx? [
     { "a" "b" "c" } append
     ascii [ lines ] with-process-reader
     rest
-] unit-test
\ No newline at end of file
+] unit-test
+
+[ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
\ No newline at end of file
diff --git a/basis/tools/deploy/test/16/16.factor b/basis/tools/deploy/test/16/16.factor
new file mode 100644
index 0000000000..1a2259217f
--- /dev/null
+++ b/basis/tools/deploy/test/16/16.factor
@@ -0,0 +1,8 @@
+IN: tools.deploy.test.16
+USING: typed sequences math strings io ;
+
+TYPED: typed-test ( x: integer y: string -- ) <repetition> concat print ;
+
+: typed-main ( -- ) 3 "hi" typed-test ;
+
+MAIN: typed-main
diff --git a/basis/tools/deploy/test/16/deploy.factor b/basis/tools/deploy/test/16/deploy.factor
new file mode 100644
index 0000000000..47653a9a23
--- /dev/null
+++ b/basis/tools/deploy/test/16/deploy.factor
@@ -0,0 +1,14 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-name "tools.deploy.test.16" }
+    { deploy-ui? f }
+    { deploy-c-types? f }
+    { deploy-unicode? f }
+    { deploy-io 2 }
+    { deploy-reflection 1 }
+    { "stop-after-last-window?" t }
+    { deploy-word-props? f }
+    { deploy-math? f }
+    { deploy-threads? f }
+    { deploy-word-defs? f }
+}
diff --git a/extra/typed/typed.factor b/extra/typed/typed.factor
index 3606f26406..091ca20b02 100644
--- a/extra/typed/typed.factor
+++ b/extra/typed/typed.factor
@@ -2,7 +2,7 @@
 USING: accessors arrays classes classes.tuple combinators
 combinators.short-circuit definitions effects fry hints
 math kernel kernel.private namespaces parser quotations
-see.private sequences slots words locals locals.definitions
+see see.private sequences slots words locals locals.definitions
 locals.parser macros stack-checker.state ;
 IN: typed