2008-09-28 01:40:41 -04:00
|
|
|
IN: tools.deploy.test.6
|
2011-11-29 00:26:06 -05:00
|
|
|
USING: namespaces math kernel ;
|
2008-09-28 01:40:41 -04:00
|
|
|
|
2011-11-29 00:26:06 -05:00
|
|
|
SYMBOL: x
|
2008-09-28 01:40:41 -04:00
|
|
|
|
2011-11-29 00:26:06 -05:00
|
|
|
SYMBOL: y
|
2008-09-28 01:40:41 -04:00
|
|
|
|
|
|
|
|
: deploy-test-6 ( -- )
|
2011-11-29 00:26:06 -05:00
|
|
|
1 x set-global
|
|
|
|
|
2 y set-global
|
|
|
|
|
x get-global y get-global + 3 assert= ;
|
2008-09-28 01:40:41 -04:00
|
|
|
|
|
|
|
|
MAIN: deploy-test-6
|
