[Win32forth-cvs] win32forth/src Class.f,1.24,1.25

[George H. <geo...@us...>]

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

Modified Files:
	Class.f 
Log Message:
gah:Modified dispose to avoid ~: corrupting the object address

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Class.f	3 Oct 2006 07:44:22 -0000	1.24
--- Class.f	21 Nov 2006 15:26:19 -0000	1.25
***************
*** 1249,1253 ****
  : Dispose       ( addr -- )
  \ *G Dispose of a dynamically allocated object.
!                 ~: [ dup ] cell- Free Abort" Disposing Object failed!" ;
  
  
--- 1249,1253 ----
  : Dispose       ( addr -- )
  \ *G Dispose of a dynamically allocated object.
!                 ~: [ dup>r ] r> cell- Free Abort" Disposing Object failed!" ;