get-available-source ( audio-engine -- al-source/f )

Vocabulary

audio.engine.private

Inputs

audio-engine

an object

Outputs

al-source/f

an object

Definition

USING: accessors kernel ;

IN: audio.engine.private

:: get-available-source ( audio-engine -- al-source/f )
    audio-engine [ al-sources>> ] [ next-source>> ] bi
    dup (get-available-source)
    :> ( next-source al-source ) audio-engine next-source
    >>next-source drop al-source ;