spec-block-to-named-block: func [
    "Change all set-words in a spec block to regular words."
    input [block!]
][
    input: copy input
    parse input [
        some [mark: set-word! any-type! (change mark to word! first mark)]
    ]
    input
]

spec-block-is-subset?: func [block [block!] object [object!]] [
    all [
        spec-block? block
        subset? first construct block  first object
    ]
]

spec-block-matches?: func [block [block!] object [object!]] [
    all [
        spec-block? block
        equal? first construct block  first object
    ]
]

spec-block?: func [block [block!]] [
    parse extract block 2 [some [set-word!]]
]