Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16779
Modified Files:
primutil.f
Log Message:
arm: correct 2constant, add 2value
Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** primutil.f 7 Jul 2007 14:26:15 -0000 1.37
--- primutil.f 17 Aug 2007 02:56:08 -0000 1.38
***************
*** 121,126 ****
: 2constant ( n m "name" )
! create , ,
! does> 2@ ;
: 2+! ( d1 a1 -- ) \ double accumulate
--- 121,128 ----
: 2constant ( n m "name" )
! >system create , , dp> does> 2@ ;
!
! : 2value ( n m name )
! create , , does> 2@ ;
: 2+! ( d1 a1 -- ) \ double accumulate
|
