transcendental-lisp/src/function/builtin/EXIT.java

package function.builtin;

import environment.Environment;
import function.*;
import sexpression.*;

public class EXIT extends LispFunction {

    private ArgumentValidator argumentValidator;
    private Environment environment;

    public EXIT() {
        this.argumentValidator = new ArgumentValidator("EXIT");
        this.argumentValidator.setMaximumNumberOfArguments(0);
        this.environment = Environment.getInstance();
    }

    public SExpression call(Cons argumentList) {
        argumentValidator.validate(argumentList);
        environment.terminateSuccessfully();

        return Nil.getInstance();
    }

}