Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

[factor.git] / basis / ui / operations / operations-tests.factor

diff --git a/basis/ui/operations/operations-tests.factor b/basis/ui/operations/operations-tests.factor
index e0852b8f0337d8783fae0add9fced4c51f192e00..6e8339a539e64e66d9e492cec9ca09572b34c48c 100644 (file)
--- a/basis/ui/operations/operations-tests.factor
+++ b/basis/ui/operations/operations-tests.factor
@@ -7,22 +7,22 @@ io.streams.string math help help.markup accessors ;
 
 [ drop t ] \ my-pprint [ ] f operation boa "op" set
 
-{ [ 3 my-pprint ] } [
+[ [ 3 my-pprint ] ] [
     3 "op" get command>> command-quot
 ] unit-test
 
-{ "3" } [ [ 3 "op" get invoke-command ] with-string-writer ] unit-test
+[ "3" ] [ [ 3 "op" get invoke-command ] with-string-writer ] unit-test
 
 [ drop t ] \ my-pprint [ editor-string ] f operation boa
 "op" set
 
-{ "\"4\"" } [
+[ "\"4\"" ] [
     [
         "4" <editor> [ set-editor-string ] keep
         "op" get invoke-command
     ] with-string-writer
 ] unit-test
 
-{ } [
+[ ] [
     [ { $operations \ + } print-element ] with-string-writer drop
 ] unit-test