diff --git a/basis/tools/deploy/backend/backend.factor b/basis/tools/deploy/backend/backend.factor index f352b08930..0fabf39b6c 100644 --- a/basis/tools/deploy/backend/backend.factor +++ b/basis/tools/deploy/backend/backend.factor @@ -113,10 +113,11 @@ DEFER: ?make-staging-image ] bind ; : parse-vocab-manifest-file ( path -- vocab-manifest ) - utf8 file-lines - dup first "VOCABS:" = - [ { "LIBRARIES:" } split1 vocab-manifest boa ] - [ "invalid vocab manifest!" throw ] if ; + utf8 file-lines [ "empty vocab manifest!" throw ] [ + unclip-slice "VOCABS:" = + [ { "LIBRARIES:" } split1 vocab-manifest boa ] + [ "invalid vocab manifest!" throw ] if + ] if-empty ; : make-deploy-image ( vm image vocab config -- manifest ) make-boot-image