r702 - ofw/core

Author: wmb
Date: 2007-10-29 17:21:34 +0100 (Mon, 29 Oct 2007)
New Revision: 702

Modified:
   ofw/core/filecmds.fth
Log:
In ofw/core/filecmds.fth, parse the volume name with "lex" instead
of "right-parse-string", thus fixing a rarely-occuring bug with
argument strings that contain embedded ':' characters.

Modified: ofw/core/filecmds.fth
===================================================================
--- ofw/core/filecmds.fth	2007-10-29 16:17:51 UTC (rev 701)
+++ ofw/core/filecmds.fth	2007-10-29 16:21:34 UTC (rev 702)
@@ -60,11 +60,7 @@

: file&dir  ( path$ -- basename$ dirname$ )  [char] \ right-split-string  ;
 : parse-volume  ( $1 -- path$ volume$ )
-   [char] : right-split-string   ( path$ volume$:|null$ )
-   dup  0=  if                   ( path$ null$ )
-      2drop current-volume-name  ( path$ volume$: )
-   then                          ( path$ volume$: )
-   1-   \ Remove the :           ( path$ volume$ )
+   " :" lex  if  drop  else  current-volume-name 1-  then  ( path$ volume$: )
 ;
 : drive-volume  ( -- adr len false | xt true )
    drive-name count  dup  if    ( adr len )