[Win32forth-cvs] win32forth/apps/Chess Opengl.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8363

Modified Files:
	Opengl.f 
Log Message:
Adapted for the new +FTO

Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Opengl.f	2 Aug 2008 10:16:51 -0000	1.6
--- Opengl.f	15 May 2013 12:04:37 -0000	1.7
***************
*** 224,235 ****
  synonym fsqr   fsqrt
  
- : (+fto    ( n  'cell-array  - )   >body dup f@ f+ f! ;
- 
- : +fto
-    state @                        \ compiletime: ( FS: n - ) ( -<name_fvalue>- )
- \in-system-ok  if   postpone ['] compile (+fto
-                else ' (+fto       \ runtime:     ( FS: n - ) ( 'fvalue - )
-                then  ; immediate
- 
  : val>+$,. ( str$ val -  )  s>d (ud,.) rot +place  ;
  
--- 224,227 ----