qf_jack_s

integer qf_jack_s(&, decq q);

is 0 if the q sequence is empty or if the data in the first position is not of the same data type as the first argument, non zero otherwise. Sets the first argument as the data in the first position and moves it in the last position for the latter case (links data if the data type allows, copies it otherwise).