[Win32forth-cvs] win32forth/src POINTER.F,1.7,1.8

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

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

Modified Files:
	POINTER.F 
Log Message:
gah:Added missing 0=

Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/POINTER.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** POINTER.F	8 Aug 2006 13:55:29 -0000	1.7
--- POINTER.F	8 Aug 2006 14:09:08 -0000	1.8
***************
*** 93,97 ****
                  dup (pointerlock)
                  @ if (pointerunlock) @ exit then  \ another task won the race
!                 dup 2 cells+ @ allocate
                  if     dup off                 \ set first cell to zeros
                         tuck swap ! (pointerunlock) exit
--- 93,97 ----
                  dup (pointerlock)
                  @ if (pointerunlock) @ exit then  \ another task won the race
!                 dup 2 cells+ @ allocate 0=
                  if     dup off                 \ set first cell to zeros
                         tuck swap ! (pointerunlock) exit