$SAVE NOLIST

rq$delete$segment:  PROCEDURE( segment$t, 
                               except$ptr ) EXTERNAL;

DECLARE segment$t  TOKEN,
        except$ptr POINTER;

END rq$delete$segment;

$RESTORE