Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8378/src/lib
Modified Files:
Volinfo.f
Log Message:
Jos: Minor bug in a stacknotation
Index: Volinfo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Volinfo.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Volinfo.f 16 Oct 2005 10:26:55 -0000 1.1
--- Volinfo.f 16 Oct 2005 10:52:28 -0000 1.2
***************
*** 14,18 ****
! : DriveType$ ( DriveType - DriveType$ )
case
DRIVE_UNKNOWN of s" Unknown" endof
--- 14,18 ----
! : DriveType$ ( DriveType - DriveType$ cnt )
case
DRIVE_UNKNOWN of s" Unknown" endof
***************
*** 80,87 ****
;
! \ \s Use:
!
current-dir$ count .Volume
! s" e:\" VolumeLabel type .
\s
--- 80,86 ----
;
! \s Use:
current-dir$ count .Volume
! s" c:\" VolumeLabel type .
\s
|
