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