// callback
// For when .NET calls back into Scheme.
public static SObject callback(Procedure p)
{
SObject result;
SObject cont = Cont.getCC();
try {
Cont.reset();
trampoline(p, 0);
result = Reg.Result;
}
finally {
Cont.setCC(cont);
}
return(result);
}
public static SObject callback(Procedure p, SObject arg0)
{
SObject result;
SObject cont = Cont.getCC();
try {
Cont.reset();
Reg.setRegister(1, arg0);
trampoline(p, 1);
result = Reg.Result;
}
finally {
Cont.setCC(cont);
}
return(result);
}
public static SObject op1_creg_set(SObject arg)
{
Cont.setCC(arg);
return(Factory.Unspecified);
}