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

/** Implement the standard Scheme procedure "modulo". */

public class modulo extends Procedure2
{
  public Object apply2 (Object arg1, Object arg2)
  {
    return IntNum.modulo (((IntNum)arg1), ((IntNum)arg2));
  }
}

@@ -156,16 +156,140 @@
 dure2%0A%7B%0A
+  // Should generalize to arbitrary reals:  %5BFIXME%5D%0A  //   x mod y = x - y * floor(x/y), for y /= 0%0A  //   x mod 0 = x    %0A%0A
   public

Add FIXME comment.