-/* Finalizes all the un-finalized transformations in CHAIN.
- Any given transformation is only finalized once. */
-void
-trns_chain_finalize (struct trns_chain *chain)
-{
- while (!chain->finalized)
- {
- ctl_stack_clear (); /* XXX layering violation */
- chain->finalized = true;
- }
-}
-
-/* Destroys CHAIN, finalizing it in the process if it has not
- already been finalized. */