[Win32forth-cvs] win32forth/src Primutil.f,1.68,1.69

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28863

Modified Files:
	Primutil.f 
Log Message:
Jos Doc update to avoid future searches

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** Primutil.f	17 Dec 2013 19:25:22 -0000	1.68
--- Primutil.f	14 Jan 2014 12:21:53 -0000	1.69
***************
*** 165,169 ****
  in-system
  
! : is-default    ( cfa -<name>- ) \ set the default field of a deferred word
                  state @
                  if      POSTPONE @(ip) POSTPONE _is-default
--- 165,170 ----
  in-system
  
! : is-default    ( cfa -<name>- )
! \ G* Set the default field of a deferred word.
                  state @
                  if      POSTPONE @(ip) POSTPONE _is-default
***************
*** 171,175 ****
                  then    ; immediate
  
! : restore-default ( -<name>- )    \ reset name to its default function
                  state @
                  if      POSTPONE _restore_default
--- 172,177 ----
                  then    ; immediate
  
! : restore-default ( -<name>- )
! \ *G Reset name to its default function.
                  state @
                  if      POSTPONE _restore_default