Esempio n. 1
0
        public override object Do(KObject args, KEnvironment env, Continuation <KObject> cont)
        {
            CPara(args, 1);
            Continuation <KObject> result = myc.Value;

            if (result.Context == null)
            {
                return(CPS.Return(First(args), CPS.RootContinuation <KObject>()));
            }
            return(result.Call(First(args)));
        }
Esempio n. 2
0
 public static KObject Eval(KObject datum, KEnvironment env)
 {
     return(CPS.Execute <KObject>(() => rceval(datum, env, CPS.RootContinuation <KObject>())));
 }