diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor index b7aedb5b99..700bd7f1e3 100644 --- a/core/classes/singleton/singleton-tests.factor +++ b/core/classes/singleton/singleton-tests.factor @@ -6,7 +6,7 @@ SINGLETON: bzzt { t } [ bzzt bzzt eq? ] unit-test GENERIC: zammo ( obj -- str ) -{ } [ M: bzzt zammo drop "yes!" ; ] unit-test +M: bzzt zammo drop "yes!" ; { "yes!" } [ bzzt zammo ] unit-test SINGLETON: omg