Factored out a common subrule.
Factored out a common subrule.

git-svn-id: https://svn.sable.mcgill.ca/mclab/Project@668 89b902b4-d83f-0410-b942-89f7a419ffdb

Migrated from Sable/mclab@df75c5551c52fceb137da4c50ff82220a4338541

Sable/mclab-core,Sable/mclab-core,Sable/mclab-core,Sable/mclab-core,Sable/mclab-core,Sable/mclab-core,Sable/mclab-core,Sable/mclab-core