[Win32forth-cvs] win32forth-stc/src Class.f,1.6,1.7

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23291/src

Modified Files:
	Class.f 
Log Message:
arm: correct locals type

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Class.f	8 May 2007 08:34:39 -0000	1.6
--- Class.f	13 May 2007 22:13:26 -0000	1.7
***************
*** 252,269 ****
  in-system
  
- \ Temporary fix for ?isLocal to work
- tloc ' local0  >name n>tfa c!
- tloc ' local1  >name n>tfa c!
- tloc ' local2  >name n>tfa c!
- tloc ' local3  >name n>tfa c!
- tloc ' local4  >name n>tfa c!
- tloc ' local5  >name n>tfa c!
- tloc ' local6  >name n>tfa c!
- tloc ' local7  >name n>tfa c!
- tloc ' local8  >name n>tfa c!
- tloc ' local9  >name n>tfa c!
- tloc ' local10 >name n>tfa c!
- tloc ' local11 >name n>tfa c!
- 
  : [self]        ( -- )
                  true abort" Use only for self-reference to object" ; immediate
--- 252,255 ----