$SAVE NOLIST

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

DECLARE region$t      TOKEN,
        except$ptr    POINTER;

END rq$delete$region;

$RESTORE