typed: fix deployment

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index 6a1f949b0b40b9c7499dd44096a8d485a5950fbd..e2d6f774e17bd1c4015dca557b9b4641b92c3888 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -112,4 +112,6 @@ os macosx? [
     { "a" "b" "c" } append\r
     ascii [ lines ] with-process-reader\r
     rest\r
-] unit-test
\ No newline at end of file
+] unit-test\r
+\r
+[ ] [ "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 (file)
index 0000000..1a22592
--- /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 (file)
index 0000000..47653a9
--- /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 3606f26406e309d8c05778148bfded9349dc523c..091ca20b02dc9238cd6c0d85095d35fb5b423b64 100644 (file)
--- 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