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 ;
|
