     [
         [
             props>> swap
-            '[ drop , member? not ] assoc-filter
-            sift-assoc f assoc-like
+            '[ drop , member? not ] assoc-filter sift-assoc
+            dup assoc-empty? [ drop f ] [ >alist >vector ] if
         ] keep (>>props)
     ] with each ;
 

        21 setenv
    ] [ drop ] if ;

: finish-deploy ( final-image -- )
    "Finishing up" show
    >r { } set-datastack r>
    { } set-retainstack
    V{ } set-namestack
    V{ } set-catchstack
    
    "Saving final image" show
    [ save-image-and-exit ] call-clear ;


                "compiled-uses"
                "constraints"
                "declared-effect"
                "default"
                "default-method"
                "default-output-classes"
                "derived-from"
                "identities"
                "if-intrinsics"
                "infer"
