[Win32forth-cvs] win32forth/src/lib/fmacro FMACRO.F,1.6,1.7

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

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

Modified Files:
	FMACRO.F 
Log Message:
Jos: For Parallel:

Index: FMACRO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** FMACRO.F	17 Jan 2012 21:40:58 -0000	1.6
--- FMACRO.F	28 Oct 2015 11:19:47 -0000	1.7
***************
*** 988,992 ****
  \IN-SYSTEM-OK  : execute_exit  ( xt - ) postpone execute postpone exit  ; immediate
  
! variable loc_a       variable loc_b
  
  : a>nos    ( n -- n a )            loc_a @ swap        	;
--- 988,992 ----
  \IN-SYSTEM-OK  : execute_exit  ( xt - ) postpone execute postpone exit  ; immediate
  
! cell newuser loc_a       cell newuser loc_b
  
  : a>nos    ( n -- n a )            loc_a @ swap        	;