[Win32forth-cvs] win32forth-stc/src primutil.f,1.30,1.31

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

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

Modified Files:
	primutil.f 
Log Message:
Jos: Added  highlevel 3reverse

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** primutil.f	3 May 2007 20:52:23 -0000	1.30
--- primutil.f	5 May 2007 19:01:05 -0000	1.31
***************
*** 112,115 ****
--- 112,119 ----
  in-application
  
+ : 3REVERSE   ( n1 n2 n3 -- n3 n2 n1 ) \ exchange first and third items on data stack
+                 swap rot ;
+ 
+ 
  : ROLL          ( n1 n2 .. nk k -- n2 n3 .. nk n1 )
  \  Rotate k values on the stack, bringing the deepest to the top.