-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

View File

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