[Win32forth-cvs] win32forth-stc/src primutil.f,1.37,1.38

[Alex M. <ale...@us...>]

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