split-last "." on windows

db4
Doug Coleman 2009-01-29 21:11:35 -06:00
parent c1e09147e3
commit 1a1ed1b7a3
1 changed files with 1 additions and 1 deletions

View File

@ -13,7 +13,7 @@ SYMBOL: core-bootstrap-time
SYMBOL: bootstrap-time
: default-image-name ( -- string )
vm file-name os windows? [ "." split1 drop ] when
vm file-name os windows? [ "." split1-last drop ] when
".image" append resource-path ;
: do-crossref ( -- )