PA: Cast 'function' placed in separate module. In due time Dynamics should make

this function obsolete.

ObjectIO/ObjectIO/cast.dcl

+definition module cast
+
+Cast :: !.a -> .b

ObjectIO/ObjectIO/cast.icl

+implementation module cast
+
+
+/*	Cast contains abc code because it can't be typed conventionally.
+	The function Cast is required to break the Existential Type abstraction.
+*/
+Cast :: !.a -> .b
+Cast a
+	= code
+		{
+			pop_a 0
+		}