Bootstrap images stored under resource path now

slava 2006-04-02 04:42:14 +00:00
parent 717cba001c
commit ded9d3d11b
2 changed files with 2 additions and 2 deletions

View File

@ -78,5 +78,5 @@ number>string write " ms" print
"Bootstrapping is complete." print
"Now, you can run ./f factor.image" print flush
"factor.image" save-image
"factor.image" resource-path save-image
0 exit

View File

@ -337,7 +337,7 @@ M: hashtable ' ( hashtable -- pointer )
] if ;
: image-name
"boot.image." architecture get append ;
"boot.image." architecture get append resource-path ;
: write-image ( image -- )
"Writing image to " write dup write "..." print flush