package org.yamalab.android.AdkWikiConnector.pukiwikiCommunicator.language;

public class Fun_m_sub implements PrimitiveFunction
{
    public ALisp lisp;
    public Fun_m_sub(ALisp l)
    {
        lisp=l;
    }
    public LispObject fun(LispObject proc, LispObject argl)
    {
                MyNumber x=(MyNumber)(lisp.car(argl));
                LispObject p=lisp.cdr(argl);
                if(lisp.Null(p)) return (new MyNumber(0)).sub(x);
                MyNumber y=(MyNumber)(lisp.car(p));
                return x.sub(y);
    }
}

