no-ui-disposables ( seq -- seq' )

Vocabulary

help.lint.checks

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: accessors classes sequences ;

IN: help.lint.checks

: no-ui-disposables ( seq -- seq' )
    [
        class-of name>> {
            "single-texture"
            "multi-texture"
            "line"
            "layout"
            "script-string"
            "linux-monitor"
            "event-stream"
            "macos-monitor"
            "recursive-monitor"
            "input-port"
            "malloc-ptr"
            "fd"
            "win32-file"
            "win32-monitor"
            "win32-monitor-port"
        } member?
    ] reject ;