steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/bootstrap/stage2.factor
View File

@ -13,7 +13,7 @@ SYMBOL: core-bootstrap-time
SYMBOL: bootstrap-time SYMBOL: bootstrap-time
: default-image-name ( -- string ) : 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 ; ".image" append resource-path ;
: do-crossref ( -- ) : do-crossref ( -- )