[Win32forth-cvs] win32forth-stc/src POINTER.F,1.1,1.2

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

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

Modified Files:
	POINTER.F 
Log Message:
gah:Removed >APPLICATION and APPLICATION>

Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/POINTER.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** POINTER.F	4 Oct 2006 12:00:03 -0000	1.1
--- POINTER.F	4 Oct 2006 15:54:53 -0000	1.2
***************
*** 26,30 ****
  
  : Pointer       ( bytes -<name>- )              \ make a pointer "name"
!                 >APPLICATION                    \ always in app space
                  128 max                         \ at least 160 bytes
                  create
--- 26,30 ----
  
  : Pointer       ( bytes -<name>- )              \ make a pointer "name"
!                 ( >APPLICATION )                   \ always in app space
                  128 max                         \ at least 160 bytes
                  create
***************
*** 32,36 ****
                  HERE  PHEAD @ ,  PHEAD !        \ link into chain
                  ,                               \ lay in size in bytes
!                 APPLICATION> does>                  \ back to where we came from
  
  \ cfa-func DoPointer  ( -- address )                  \ it's location
--- 32,36 ----
                  HERE  PHEAD @ ,  PHEAD !        \ link into chain
                  ,                               \ lay in size in bytes
!                 ( APPLICATION> ) does>                  \ back to where we came from
  
  \ cfa-func DoPointer  ( -- address )                  \ it's location