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

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

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

Modified Files:
	primutil.f 
Log Message:
Jos: Added ROLL since it is ANS

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** primutil.f	3 May 2007 09:00:02 -0000	1.29
--- primutil.f	3 May 2007 20:52:23 -0000	1.30
***************
*** 112,115 ****
--- 112,119 ----
  in-application
  
+ : ROLL          ( n1 n2 .. nk k -- n2 n3 .. nk n1 )
+ \  Rotate k values on the stack, bringing the deepest to the top.
+                 DUP>R PICK SP@ DUP CELL+ R> CELLS CELL+ MOVE DROP ;
+ 
  : 2constant     ( n m "name" )
                  create , ,