[Win32forth-cvs] win32forth/src/lib Volinfo.f,1.1,1.2

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

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