mes.c: add quotient and modulo.

mes.c

@@ -1168,6 +1168,14 @@ divide (scm *x/*...*/)
   return make_number (n);
 }
 
+scm *
+modulo (scm *a, scm *b)
+{
+  assert (a->type == NUMBER);
+  assert (b->type == NUMBER);
+  return make_number (a->value % b->value);
+}
+
 scm *
 multiply (scm *x/*...*/)
 {

scm.mes

@@ -174,6 +174,8 @@
   (or (> a b)
       (= a b)))
 
+(define quotient /)
+
 (define (list? x)
   (or (null? x)
       (and (pair? x) (list? (cdr x)))))