Artifact 682751fba1d3585c7716fc91f2de75dc4e04da82662b90d4032e056759708753:

• Executable file r37/lisp/csl/jlisp/Symbol_set_envFn.java — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 562) [annotate] [blame] [check-ins using] [more...]

//07/03/02
//purely made for testing and looking at jvm Bytecodes by javap -c

class Symbol_set_envFn extends BuiltinFunction
{
    public LispObject op2(LispObject arg1, LispObject arg2) throws Exception
    {
        if (!(arg1 instanceof Symbol)) return Jlisp.nil;
        LispFunction f = ((Symbol)arg1).fn;
        if (f instanceof FnWithEnv) 
            ((FnWithEnv)f).env = ((LispVector)arg2).vec;
        else return Jlisp.nil; // quiet in case it fails?
        return ((Symbol)((FnWithEnv)f).env[0]).fn.op0();
				//return arg2;
    }
}