]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/alien/parser/parser-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / alien / parser / parser-tests.factor
index b471898e44c8bdd7b1a4788c37edf068829dc65b..ecbb92a03efbdd75e2129b52435c7923d0f9db0e 100644 (file)
@@ -38,32 +38,32 @@ CONSTANT: eleven 11
 
 FUNCTION: void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
 
-{ ( arg1 arg2 -- void* ) } [
+[ ( arg1 arg2 -- void* ) ] [
     \ alien-parser-function-effect-test "declared-effect" word-prop
 ] unit-test
 
-{ t } [ \ alien-parser-function-effect-test inline? ] unit-test
+[ t ] [ \ alien-parser-function-effect-test inline? ] unit-test
 
 FUNCTION-ALIAS: (alien-parser-function-effect-test) void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
 
-{ ( arg1 arg2 -- void* ) } [
+[ ( arg1 arg2 -- void* ) ] [
     \ (alien-parser-function-effect-test) "declared-effect" word-prop
 ] unit-test
 
-{ t } [ \ (alien-parser-function-effect-test) inline? ] unit-test
+[ t ] [ \ (alien-parser-function-effect-test) inline? ] unit-test
 
 CALLBACK: void* alien-parser-callback-effect-test ( int *arg1 float arg2 ) ;
 
-{ ( arg1 arg2 -- void* ) } [
+[ ( arg1 arg2 -- void* ) ] [
     \ alien-parser-callback-effect-test "callback-effect" word-prop
 ] unit-test
 
-{ t } [ \ alien-parser-callback-effect-test inline? ] unit-test
+[ t ] [ \ alien-parser-callback-effect-test inline? ] unit-test
 
 ! Reported by mnestic
 TYPEDEF: int alien-parser-test-int ! reasonably unique name...
 
-{ "OK!" } [
+[ "OK!" ] [
     [
         "USE: specialized-arrays SPECIALIZED-ARRAY: alien-parser-test-int" eval( -- )
         ! after restart, we end up here