TUPLE: hello length ;
-{ 3 } [ "xyz" length>> ] unit-test
+[ 3 ] [ "xyz" length>> ] unit-test
[ "xyz" 4 >>length ] [ no-method? ] must-fail-with
M: protocol-slot-test-tuple my-protocol-slot-test>> x>> sq ;
M: protocol-slot-test-tuple my-protocol-slot-test<< [ sqrt ] dip x<< ;
-{ 9 } [ T{ protocol-slot-test-tuple { x 3 } } my-protocol-slot-test>> ] unit-test
+[ 9 ] [ T{ protocol-slot-test-tuple { x 3 } } my-protocol-slot-test>> ] unit-test
-{ 4.0 } [
+[ 4.0 ] [
T{ protocol-slot-test-tuple { x 3 } } clone
[ 7 + ] change-my-protocol-slot-test x>>
] unit-test
UNION: comme-ca integer float ;
comme-ca 25.5 "initial-value" set-word-prop
-{ 0 t } [ comme-ci initial-value ] unit-test
-{ 25.5 t } [ comme-ca initial-value ] unit-test
+[ 0 t ] [ comme-ci initial-value ] unit-test
+[ 25.5 t ] [ comme-ca initial-value ] unit-test