bump-major ( semver -- semver )

Vocabulary

semver

Inputs

semver

an object

Outputs

semver

an object

Definition

USING: accessors combinators.short-circuit kernel math sequences
;

IN: semver

: bump-major ( semver -- semver )
    f >>build dup {
        [ prerelease>> empty? ]
        [ minor>> zero? not ]
        [ patch>> zero? not ]
    } 1|| [ [ 1 + ] change-major 0 >>minor 0 >>patch ] when
    f >>prerelease ;