[Win32forth-cvs] win32forth-610old/src SEE.F,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth-610old/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13857/win32forth-610old/src

Modified Files:
	SEE.F 
Log Message:
gah: altered .LOCALS and (.LOCALS) to print in reverse order (i.e. correctly)

Index: SEE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/SEE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SEE.F	14 Dec 2004 23:53:57 -0000	1.1
--- SEE.F	1 Jun 2005 09:56:57 -0000	1.2
***************
*** 114,119 ****
                  .word .word ;
                  
! : (.LOCALS)     ( n m -- )
!                 ?do i ." LOCAL" 1 .r space loop ;
  
  : .LOCALS       ( IP -- IP' )
--- 114,119 ----
                  .word .word ;
                  
! : (.LOCALS)     ( t-1 n -- )
!                 0 ?do dup i - ." LOCAL" 1 .r space loop drop ;
  
  : .LOCALS       ( IP -- IP' )
***************
*** 121,128 ****
                  dup 2 + sw@ negate               \ init locals   ( IP init )
                  over sw@ negate                  \ uninit locals ( IP init uninit )
!                 over 0 (.locals)                 \ init locals   ( IP init uninit init 0 ... do )
!                 -if ." | "                       \ if any unit locals ( IP init uninit )
!                   bounds (.locals)
!                 else 2drop
                  then ." } "
                  CELL+ ;
--- 121,129 ----
                  dup 2 + sw@ negate               \ init locals   ( IP init )
                  over sw@ negate                  \ uninit locals ( IP init uninit )
!                 2dup + 1-
!                 rot (.locals)                    \ init locals   ( IP uninit total-1 init 0 ... do )
!                 -if ." | "                       \ if any unit locals ( IP uninit )
!                 dup 1- swap (.locals)
!                 else drop
                  then ." } "
                  CELL+ ;
***************
*** 296,297 ****
--- 297,299 ----
  MODULE          \ end of the module
  
+