package kawa.standard;
import gnu.math.*;
import gnu.mapping.*;

public class integer_p extends Procedure1
{
   public Object apply1 (Object arg1)
   {
     boolean result;
     if (arg1 instanceof IntNum)
       result = true;
     else if (arg1 instanceof DFloNum)
       result = Math.IEEEremainder (((DFloNum)arg1).doubleValue(), 1.0) == 0.0;
     else
       result = false;
     return result ? Boolean.TRUE : Boolean.FALSE;
   }
}
