sufficient-disk-space? ( -- ? )

Vocabulary

mason.disk

Inputs

None

Outputs

?

an object

Definition

USING: accessors io.files.info io.pathnames math namespaces ;

IN: mason.disk

: sufficient-disk-space? ( -- ? )
    current-directory get find-mount-point mount-point>>
    file-system-info available-space>> 1 Gi > ;