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

[factor.git] / extra / bank / bank-tests.factor

diff --git a/extra/bank/bank-tests.factor b/extra/bank/bank-tests.factor
index c74e28f2ebefbe5a2a6008bcb023a3ecd75148b8..efc083135d33652c2f0f5c62142af07b8f43f5d1 100644 (file)
--- a/extra/bank/bank-tests.factor
+++ b/extra/bank/bank-tests.factor
@@ -27,7 +27,7 @@ my-account [
     ] unit-test
 ] with-variable
 
-[ 6781 ] [
+{ 6781 } [
     "..." 0.07 1 2007 4 10 <date> 4398.50 open-account
     2007 10 26 <date> 2000 "..." <transaction> 1array inserting-transactions
     2008 4 10 <date> process-to-date dup balance>> swap unpaid-interest>> + round >integer