コード例 #1
0
        // 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);
        }
コード例 #2
0
        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);
        }
コード例 #3
0
 public static SObject op1_creg_set(SObject arg)
 {
     Cont.setCC(arg);
     return(Factory.Unspecified);
 }