[Win32forth-cvs] win32forth-stc/src Utils.f, 1.5, 1.6 words.f, 1.1, 1.2

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18177

Modified Files:
	Utils.f words.f 
Log Message:
Jos: Enabled .loaded

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Utils.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Utils.f	20 May 2007 15:09:15 -0000	1.5
--- Utils.f	20 May 2007 15:34:47 -0000	1.6
***************
*** 78,91 ****
  \  7   Display the files loaded into the system
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! \ also hidden
! \
! \ : .loaded       ( -- )
! \                 also files
! \                 screendelay 0 to screendelay
! \    		  false to with-tabs?
! \                 _words
! \                 previous to screendelay ;
! \ previous
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 78,91 ----
  \  7   Display the files loaded into the system
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ ((
+ also hidden
  
! : .loaded       ( -- )
!                 also files
!                 screendelay 0 to screendelay
!    		  \ false to with-tabs?
!                 _words
!                 previous to screendelay ;
! previous  ))
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Index: words.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/words.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** words.f	19 May 2007 10:12:28 -0000	1.1
--- words.f	20 May 2007 15:34:47 -0000	1.2
***************
*** 182,185 ****
--- 182,192 ----
  EXTERNAL
  
+ : .loaded       ( -- )
+                 also files
+                 screendelay 0 to screendelay
+    		   false to with-tabs?
+                 _words
+                 previous to screendelay ;
+ 
  : WORDS		( -<optional_name>- ) \ WORDS partial-string will focus the list
                  true to with-tabs? _words ;