classes.singleton: Update another test.
parent
50fbf0457a
commit
1708c8011f
|
@ -6,7 +6,7 @@ SINGLETON: bzzt
|
||||||
{ t } [ bzzt bzzt eq? ] unit-test
|
{ t } [ bzzt bzzt eq? ] unit-test
|
||||||
|
|
||||||
GENERIC: zammo ( obj -- str )
|
GENERIC: zammo ( obj -- str )
|
||||||
{ } [ M: bzzt zammo drop "yes!" ; ] unit-test
|
M: bzzt zammo drop "yes!" ;
|
||||||
{ "yes!" } [ bzzt zammo ] unit-test
|
{ "yes!" } [ bzzt zammo ] unit-test
|
||||||
|
|
||||||
SINGLETON: omg
|
SINGLETON: omg
|
||||||
|
|
Loading…
Reference in New Issue