steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.enums: enum>number didn't work in deployed images, add a test which deploys and runs benchmark.ui-panes to catch this in the future

db4
Slava Pestov 2010-10-17 21:02:42 -04:00
parent 7414b2797f
commit a400b39fa1
3 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/enums/enums.factor
View File

@ -13,7 +13,7 @@ PRIVATE>
GENERIC: enum>number ( enum -- number ) foldable GENERIC: enum>number ( enum -- number ) foldable
M: integer enum>number ; M: integer enum>number ;
M: symbol enum>number "enum-value" word-prop ; M: word enum>number "enum-value" word-prop ;
<PRIVATE <PRIVATE
: enum-boxer ( members -- quot ) : enum-boxer ( members -- quot )

2
basis/tools/deploy/deploy-tests.factor
View File

@ -134,3 +134,5 @@ os macosx? [
[ ] [ "resource:license.txt" "license.txt" temp-file copy-file ] unit-test [ ] [ "resource:license.txt" "license.txt" temp-file copy-file ] unit-test
[ ] [ "tools.deploy.test.19" shake-and-bake run-temp-image ] 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

15
extra/benchmark/ui-panes/deploy.factor Normal file
View File

@ -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" }
}