[Win32forth-cvs] win32forth/src Class.f, 1.27, 1.28 PRIMHASH.F, 1.5, 1.6

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

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

Modified Files:
	Class.f PRIMHASH.F 
Log Message:
gah: Minor corrections

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Class.f	16 Apr 2007 08:29:06 -0000	1.27
--- Class.f	16 Apr 2007 09:07:23 -0000	1.28
***************
*** 1252,1256 ****
  : Dispose       ( addr -- )
  \ *G Dispose of a dynamically allocated object.
!                 ~: [ dup ] cell- Free Abort" Disposing Object failed!" ;
  
  
--- 1252,1256 ----
  : Dispose       ( addr -- )
  \ *G Dispose of a dynamically allocated object.
!                 ~: [ dup>r ] r> cell- Free Abort" Disposing Object failed!" ;
  
  

Index: PRIMHASH.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** PRIMHASH.F	16 Apr 2007 08:29:06 -0000	1.5
--- PRIMHASH.F	16 Apr 2007 09:07:23 -0000	1.6
***************
*** 13,17 ****
  also classes get-current definitions
  
! 2 constant #mlists \ Number of method lists; must a non-zero be a power of 2.
  
  set-current previous
--- 13,17 ----
  also classes get-current definitions
  
! 2 constant #mlists \ Number of method lists; must be a non-zero power of 2.
  
  set-current previous