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

[George H. <geo...@us...>]

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

Modified Files:
	SEE.F 
Log Message:
added handling of fvalue to see plus clean up before bye in newconsole

Index: SEE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** SEE.F	20 Nov 2013 12:28:36 -0000	1.14
--- SEE.F	13 May 2014 10:35:23 -0000	1.15
***************
*** 60,81 ****
                  over code-origin code-here within or
          IF      DUP>R  @
!                 CASE   DOVALUE   OF R@                         .NAME   ENDOF
!                        DOVALUE!  OF R@ ." TO "       2 CELLS - .NAME   ENDOF
!                        DOVALUE+! OF R@ ." +TO "      3 CELLS - .NAME   ENDOF
!                        DOLOCAL   OF R@                         .NAME   ENDOF
!                        DOLOCAL!  OF R@ ." TO "       2 CELLS - .NAME   ENDOF
!                        DOLOCAL+! OF R@ ." +TO "      3 CELLS - .NAME   ENDOF
!                       DO2VALUE!  OF R@ ." 2TO "      2 CELLS - .NAME   ENDOF
!                       DO2VALUE+! OF R@ ." 2+TO "     3 CELLS - .NAME   ENDOF
!                        (IV@)     OF R@ ." I:"                  .NAME   ENDOF
!                        (IV!)     OF R@ ." TO-I: "    2 CELLS - .NAME   ENDOF
!                        (IV+!)    OF R@ ." +TO-I: "   3 CELLS - .NAME   ENDOF
! \                      (IV[]@)   OF R@ ." I[]:"                .NAME   ENDOF
! \                      (IV[]!)   OF R@ ." TO-I[]: "  2 CELLS - .NAME   ENDOF
! \                      (IV[]+!)  OF R@ ." +TO-I[]: " 3 CELLS - .NAME   ENDOF
!                        DOCALL    OF R@ ." CALL "          .proc-name   ENDOF   \ arm
! \+ .M0NAME             M0CFA     OF R@ ." M0:"               .M0NAME   ENDOF
! \+ .M1NAME             M1CFA     OF R@ ." M1:"               .M1NAME   ENDOF
!                        DOOBJ     OF R@ ." O:"                  .NAME   ENDOF
  \ bug fix suggested by "be...@in..."
                                  R@ 2 cells appInst + U>
--- 60,80 ----
                  over code-origin code-here within or
          IF      DUP>R  @
!                 CASE   DOVALUE    OF R@                         .NAME   ENDOF
!                        DOVALUE!   OF R@ ." TO "       2 CELLS - .NAME   ENDOF
!                        DOVALUE+!  OF R@ ." +TO "      3 CELLS - .NAME   ENDOF
! \+ DOFVALUE!           DOFVALUE!  OF R@ ." FTO "      2 CELLS - .NAME   ENDOF
! \+ DOFVALUE+!          DOFVALUE+! OF R@ ." F+TO "     3 CELLS - .NAME   ENDOF
!                        DOLOCAL    OF R@                         .NAME   ENDOF
!                        DOLOCAL!   OF R@ ." TO "       2 CELLS - .NAME   ENDOF
!                        DOLOCAL+!  OF R@ ." +TO "      3 CELLS - .NAME   ENDOF
!                        DO2VALUE!  OF R@ ." 2TO "      2 CELLS - .NAME   ENDOF
!                        DO2VALUE+! OF R@ ." 2+TO "     3 CELLS - .NAME   ENDOF
!                        (IV@)      OF R@ ." I:"                  .NAME   ENDOF
!                        (IV!)      OF R@ ." TO-I: "    2 CELLS - .NAME   ENDOF
!                        (IV+!)     OF R@ ." +TO-I: "   3 CELLS - .NAME   ENDOF
!                        DOCALL     OF R@ ." CALL "          .proc-name   ENDOF   \ arm
! \+ .M0NAME             M0CFA      OF R@ ." M0:"               .M0NAME   ENDOF
! \+ .M1NAME             M1CFA      OF R@ ." M1:"               .M1NAME   ENDOF
!                        DOOBJ      OF R@ ." O:"                  .NAME   ENDOF
  \ bug fix suggested by "be...@in..."
                                  R@ 2 cells appInst + U>