Author: jquelin
Date: Wed Oct 3 09:39:21 2007
New Revision: 21784
Modified:
branches/pdd15oo/languages/forth/forth.pir
Log:
more find_type removal
Modified: branches/pdd15oo/languages/forth/forth.pir
==============================================================================
--- branches/pdd15oo/languages/forth/forth.pir (original)
+++ branches/pdd15oo/languages/forth/forth.pir Wed Oct 3 09:39:21 2007
@@ -84,10 +84,8 @@
.local pmc code, stream, stack
code = new 'CodeString'
- $I0 = find_type 'TokenStream'
- stream = new $I0, input
- $I0 = find_type 'VirtualStack'
- stack = new $I0
+ stream = new 'TokenStream', input
+ stack = new 'VirtualStack'
code.emit(<<"END_PIR")
.sub code :anon
