Minor cleanup of LIST
This commit is contained in:
parent
311a3b4036
commit
946af24514
|
@ -8,16 +8,16 @@ import sexpression.*;
|
|||
@FunctionNames({ "LIST" })
|
||||
public class LIST extends LispFunction {
|
||||
|
||||
public static Cons makeList(SExpression sexpr) {
|
||||
return new Cons(sexpr, NIL);
|
||||
}
|
||||
|
||||
private ArgumentValidator argumentValidator;
|
||||
|
||||
public LIST() {
|
||||
this.argumentValidator = new ArgumentValidator("LIST");
|
||||
}
|
||||
|
||||
public static Cons makeList(SExpression sexpr) {
|
||||
return new Cons(sexpr, NIL);
|
||||
}
|
||||
|
||||
public Cons call(Cons argumentList) {
|
||||
argumentValidator.validate(argumentList);
|
||||
|
||||
|
|
Loading…
Reference in New Issue