"history" get add-history
-[ t ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
"history" get add-history
3 "history" get owner>> set-history-value
-[ t ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
"history" get add-history
4 "history" get owner>> set-history-value
-[ f ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ f } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test
"history" get go-back
-[ 3 ] [ "history" get owner>> history-value ] unit-test
+{ 3 } [ "history" get owner>> history-value ] unit-test
-[ t ] [ "history" get back>> empty? ] unit-test
-[ f ] [ "history" get forward>> empty? ] unit-test
+{ t } [ "history" get back>> empty? ] unit-test
+{ f } [ "history" get forward>> empty? ] unit-test
"history" get go-forward
-[ 4 ] [ "history" get owner>> history-value ] unit-test
+{ 4 } [ "history" get owner>> history-value ] unit-test
-[ f ] [ "history" get back>> empty? ] unit-test
-[ t ] [ "history" get forward>> empty? ] unit-test
+{ f } [ "history" get back>> empty? ] unit-test
+{ t } [ "history" get forward>> empty? ] unit-test