$SAVE NOLIST

rq$alter$composite:  PROCEDURE( extension$t,
                                composite$t,
                                component$index,
                                replacing$obj,
                                except$ptr ) EXTERNAL;

DECLARE extension$t      TOKEN,
        composite$t      TOKEN,
        component$index  WORD,
        replacing$obj    TOKEN,
        except$ptr       POINTER;

END rq$alter$composite;

$RESTORE