src/stdlib/sequence.c
/*======================================================
 * tdelseq -- Remove and return element at sequence tail
 *====================================================*/
- Remove and return element at sequence tail
- Remove and return element at sequence tail
ELEMENT
tdelseq (SEQUENCE seq)
{
	seqerr = NONE;
	if (Size(seq) == 0)  {
		seqerr = EMPTY;
		return (ELEMENT) 0;
	}
	return Data(seq)[--Size(seq) - 1];
}
ELEMENT tdelseq ( SEQUENCE seq ) { seqerr = NONE ; if ( Size ( seq ) == 0 ) { seqerr = EMPTY ; return ( ELEMENT ) 0 ; } return Data ( seq ) [ -- Size ( seq ) - 1 ] ; }
tdelseq -- Remove and return element at sequence tail
tdelseq -- Remove and return element at sequence tail