[Win32forth-cvs] win32forth/src SEE.F,1.15,1.16

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6664

Modified Files:
	SEE.F 
Log Message:
Jos: Adapted the .definition-class for fvalue. A simular trick does not work for fvariable

Index: SEE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** SEE.F	13 May 2014 10:35:23 -0000	1.15
--- SEE.F	13 May 2014 13:25:31 -0000	1.16
***************
*** 235,238 ****
--- 235,241 ----
                  dup cell+ ?  ." VALUE "   .name  ;
  
+ : .FVALUE       ( cfa -- )
+                 dup execute fe.  ." FVALUE "   .name  ;
+ 
  : .CLASS        ( cfa -- )
                  ." :CLASS "  .name  ;
***************
*** 282,285 ****
--- 285,291 ----
  \ Classify a word based on its CFA                    09SEP83HHL
  
+          0e fvalue dofvalue
+ 
+ 
  : .definition-class  ( cfa cfa -- )
      @ case
***************
*** 291,294 ****
--- 297,301 ----
              dodefer     of .defer       endof
              dovalue     of .value       endof
+        [']  dofvalue @  of .fvalue      endof
              doClass     of .class       endof
              do|Class    of .class       endof