Author: jquelin
Date: Thu Oct 4 09:09:47 2007
New Revision: 21828
Modified:
branches/pdd15oo/t/stm/queue.t
Log:
more find_type removal
Modified: branches/pdd15oo/t/stm/queue.t
==============================================================================
--- branches/pdd15oo/t/stm/queue.t (original)
+++ branches/pdd15oo/t/stm/queue.t Thu Oct 4 09:09:47 2007
@@ -36,8 +36,8 @@
.sub __onload
.local pmc class
- $I0 = find_type 'STMQueue'
- if $I0 goto done
+ $P0 = get_class 'STMQueue'
+ unless null $P0 goto done
class = newclass 'STMQueue'
addattribute class, 'head'
addattribute class, 'tail'
