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

-output-image now relative to current directory

Slava Pestov 2008-03-20 20:52:43 -05:00
parent 59731ee24a
commit e621a92cae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/bootstrap/stage2.factor
View File

@ -12,7 +12,7 @@ SYMBOL: bootstrap-time
: default-image-name ( -- string ) : default-image-name ( -- string )
vm file-name windows? [ "." split1 drop ] when vm file-name windows? [ "." split1 drop ] when
".image" append ; ".image" append resource-path ;
: do-crossref ( -- ) : do-crossref ( -- )
"Cross-referencing..." print flush "Cross-referencing..." print flush
@ -106,5 +106,5 @@ f error-continuation set-global
millis r> - dup bootstrap-time set-global millis r> - dup bootstrap-time set-global
print-report print-report
"output-image" get resource-path save-image-and-exit "output-image" get save-image-and-exit
] if ] if