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

bootstrap.image.upload: use vm-git-id.

locals-and-roots
John Benediktsson 2016-04-14 16:59:23 -07:00
parent c350bb1e9c
commit c52b640520
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/image/upload/upload.factor
View File

@ -51,7 +51,7 @@ M: windows scp-name "pscp" ;
] { } make try-process ; ] { } make try-process ;
: append-build ( path -- path' ) : append-build ( path -- path' )
vm-git-label "-" split1-last nip "." glue ; vm-git-id "." glue ;
: checksum-lines-append-build ( -- ) : checksum-lines-append-build ( -- )
"checksums.txt" utf8 [ "checksums.txt" utf8 [