alien.enums: enum>number didn't work in deployed images, add a test which deploys...

diff --git a/basis/alien/enums/enums.factor b/basis/alien/enums/enums.factor
index f46702f450d802e6e19b2fe99aa505e1f8651f9b..b0755c130b249076b404c081b6d9a414caff0db5 100644 (file)
--- a/basis/alien/enums/enums.factor
+++ b/basis/alien/enums/enums.factor
@@ -13,7 +13,7 @@ PRIVATE>
 
 GENERIC: enum>number ( enum -- number ) foldable
 M: integer enum>number ;
-M: symbol enum>number "enum-value" word-prop ;
+M: word enum>number "enum-value" word-prop ;
 
 <PRIVATE
 : enum-boxer ( members -- quot )

diff --git a/basis/tools/deploy/deploy-tests.factor b/basis/tools/deploy/deploy-tests.factor
index e8888717ab1804f49cffcbd7566d46b34c2e44ee..1da32f3f42c37eb1179048578d58bb53d3e9ee95 100644 (file)
--- a/basis/tools/deploy/deploy-tests.factor
+++ b/basis/tools/deploy/deploy-tests.factor
@@ -134,3 +134,5 @@ os macosx? [
 [ ] [ "resource:license.txt" "license.txt" temp-file copy-file ] unit-test
 
 [ ] [ "tools.deploy.test.19" shake-and-bake run-temp-image ] unit-test
+
+[ ] [ "benchmark.ui-panes" shake-and-bake run-temp-image ] unit-test

diff --git a/extra/benchmark/ui-panes/deploy.factor b/extra/benchmark/ui-panes/deploy.factor
new file mode 100644 (file)
index 0000000..90bd34b
--- /dev/null
+++ b/extra/benchmark/ui-panes/deploy.factor
@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-ui? t }
+    { deploy-word-defs? f }
+    { deploy-threads? t }
+    { deploy-math? t }
+    { deploy-io 1 }
+    { deploy-reflection 1 }
+    { deploy-unicode? f }
+    { "stop-after-last-window?" t }
+    { deploy-console? f }
+    { deploy-word-props? f }
+    { deploy-c-types? f }
+    { deploy-name "benchmark.ui-panes" }
+}