import org.simantics.scl.compiler.constants.SCLConstant;
import org.simantics.scl.compiler.constants.SCLConstructor;
import org.simantics.scl.compiler.constants.singletons.BindingConstant;
+import org.simantics.scl.compiler.constants.singletons.ClassConstant;
import org.simantics.scl.compiler.constants.singletons.FailFunction;
import org.simantics.scl.compiler.constants.singletons.JustConstant;
import org.simantics.scl.compiler.constants.singletons.NothingConstant;
addValue("freezeMVector", new FreezeMVector());
addValue("setMVector", SetMVector.INSTANCE);
+ StandardTypeConstructor ClassC = new StandardTypeConstructor(Types.CLASS, Kinds.STAR_TO_STAR,
+ TypeDesc.forClass("java/lang/Class"));
+ ClassC.setType(Types.CLASS, A);
+ addTypeDescriptor("Class", ClassC);
+ addValue("classObject", ClassConstant.INSTANCE);
+
// *** fail ***
addValue("fail", FailFunction.INSTANCE).documentation =