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 , ,
|
