Changeset 5058


Ignore:
Timestamp:
12/10/03 21:33:35 (17 years ago)
Author:
asimon
Message:

Removed arglist, getArglist, setArglist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Function.java

    r5033 r5058  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Function.java,v 1.27 2003-12-09 06:07:05 asimon Exp $
     5 * $Id: Function.java,v 1.28 2003-12-10 21:33:35 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929    private int callCount;
    3030
    31     private LispObject arglist;
    32 
    3331    protected Function()
    3432    {
     
    4846    {
    4947        this(name);
    50         this.arglist = new LispString(arglist);
     48        setArglist(new LispString(arglist));
    5149    }
    5250
     
    6765        index = 0;
    6866        if (arglist instanceof String)
    69             this.arglist = new LispString(arglist);
     67            setArglist(new LispString(arglist));
    7068        if (name != null) {
    7169            Symbol symbol = pkg.intern(this.name);
     
    115113    {
    116114        return name;
    117     }
    118 
    119     public final LispObject getArglist()
    120     {
    121         return arglist;
    122     }
    123 
    124     public final void setArglist(LispObject obj)
    125     {
    126         arglist = obj;
    127115    }
    128116
Note: See TracChangeset for help on using the changeset viewer.