$SAVE NOLIST

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

DECLARE semaphore$t  TOKEN,
        except$ptr   POINTER;

END rq$delete$semaphore;

$RESTORE