     boot-image-name maybe-download-image ;
 
 : new-code-available? ( -- ? )
-    { [ updates-available? ] [ new-image-available? ] } 0|| ;
+    updates-available? new-image-available? or ;

        "master"
    } ;

: pristine-git ( -- )
    ".git/index" delete-file
    git-reset-cmd short-running-process
    git-clean-cmd short-running-process ;

: updates-available? ( -- ? )
    pristine-git
    git-id
    git-pull-cmd short-running-process
    git-id

! Copyright (C) 2008, 2010 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image.download io.directories io.launcher
kernel mason.common mason.platform ;
IN: mason.updates

: git-pull-cmd ( -- cmd )
    {
