package kawa.standard;
import kawa.lang.*;

public class list_p extends Procedure1
{
  public kawa.standard.list_p()
  {
    super("list?");
  }

  public Object apply1 (Object arg1)
  {
    if (List.list_length (arg1) >= 0)
      return Interpreter.trueObject;
    else
      return Interpreter.falseObject;
  }
}

package kawa.standard;
import kawa.lang.*;

/** Implement the standard Scheme function "list?". */

public class list_p extends Procedure1
{
  public Object apply1 (Object arg1)
  {
    if (List.list_length (arg1) >= 0)
      return Interpreter.trueObject;
    else
      return Interpreter.falseObject;
  }
}

Remove redundant name qualification (which J++ complains about). Remove constructors. Generally remove verbosity.
	Remove redundant name qualification (which J++ complains about).
	Remove constructors.  Generally remove verbosity.


git-svn-id: 169764d5f12c41a1cff66b81d896619f3ce5473d@266 5e0a886f-7f45-49c5-bc19-40643649e37f
