$SAVE NOLIST

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

DECLARE extension$t  TOKEN,
        except$ptr   POINTER;

END rq$delete$extension;

$RESTORE