factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / extra / alien / handles / handles-tests.factor

diff --git a/extra/alien/handles/handles-tests.factor b/extra/alien/handles/handles-tests.factor
index 38ce7c26c7fb4667d92d95cd365724f4fbd290bd..42274991b477635dd92a369f47ed8965b3f629f2 100644 (file)
--- a/extra/alien/handles/handles-tests.factor
+++ b/extra/alien/handles/handles-tests.factor
@@ -20,24 +20,24 @@ CALLBACK: int thingy-ptr-callback ( void* thingy-handle ) ;
 : invoke-test-thingy-ptr-callback ( thingy -- n )
     test-thingy-ptr-callback int { void* } cdecl alien-indirect ;
 
-[ t f ] [
+{ t f } [
     [ 5 <thingy> <alien-handle> &release-alien-handle [ alien-handle? ] keep ] with-destructors
     alien-handle?
 ] unit-test
 
-[ t f ] [
+{ t f } [
     [ 5 <thingy> <alien-handle-ptr> &release-alien-handle-ptr [ alien-handle-ptr? ] keep ] with-destructors
     alien-handle-ptr?
 ] unit-test
 
-[ 6 ] [
+{ 6 } [
     [
         5 <thingy> <alien-handle> &release-alien-handle
         invoke-test-thingy-callback
     ] with-destructors
 ] unit-test
 
-[ 6 ] [
+{ 6 } [
     [
         5 <thingy> <alien-handle-ptr> &release-alien-handle-ptr
         invoke-test-thingy-ptr-callback