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