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

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

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

Modified Files:
	Primutil.f 
Log Message:
Jos better layout.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.69
retrieving revision 1.70
diff -C2 -d -r1.69 -r1.70
*** Primutil.f	14 Jan 2014 12:21:53 -0000	1.69
--- Primutil.f	14 Jan 2014 12:50:56 -0000	1.70
***************
*** 166,170 ****
  
  : is-default    ( cfa -<name>- )
! \ G* Set the default field of a deferred word.
                  state @
                  if      POSTPONE @(ip) POSTPONE _is-default
--- 166,170 ----
  
  : is-default    ( cfa -<name>- )
! \ *G Set the default field of a deferred word.
                  state @
                  if      POSTPONE @(ip) POSTPONE _is-default