[Win32forth-cvs] win32forth/src POINTER.F,1.4,1.5

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

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

Modified Files:
	POINTER.F 
Log Message:
gah:Fixed bug where NEW$ was faulty until pointers were initialised

Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** POINTER.F	29 Aug 2005 15:56:27 -0000	1.4
--- POINTER.F	4 Aug 2006 09:48:43 -0000	1.5
***************
*** 162,165 ****
                  MAXSTRING DynAlloc ;
  
! ' _new$ is new$
  
--- 162,170 ----
                  MAXSTRING DynAlloc ;
  
! : init-new$     ( -- )
!                 ['] _new$ is new$ ;
! 
! init-new$
! 
! initialization-chain chain-add init-new$