ry 362 src/char.c struct ScmCharSetRange *rx, *ry; ry 365 src/char.c for (rx=x->ranges, ry=y->ranges; rx && ry; rx=rx->next, ry=ry->next) { ry 366 src/char.c if (rx->lo != ry->lo || rx->hi != ry->hi) return FALSE; ry 368 src/char.c if (rx || ry) return FALSE; ry 376 src/char.c struct ScmCharSetRange *rx, *ry; ry 380 src/char.c ry = y->ranges; ry 381 src/char.c while (rx && ry) { ry 382 src/char.c if (rx->lo < ry->lo) return FALSE; ry 383 src/char.c if (rx->lo > ry->hi) { ry = ry->next; continue; } ry 384 src/char.c if (rx->hi > ry->hi) return FALSE; ry 1316 src/number.c double rx, ry; ry 1334 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1335 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1351 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1352 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1360 src/number.c ry = (double)SCM_INT_VALUE(y); ry 1362 src/number.c ry = Scm_BignumToDouble(SCM_BIGNUM(y)); ry 1364 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1365 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1372 src/number.c if (ry == 0.0) goto DIVBYZERO; ry 1373 src/number.c q = roundeven(rx/ry); ry 1375 src/number.c double rr = roundeven(rx - q*ry); ry 1397 src/number.c double rx, ry; ry 1425 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1426 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1458 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1459 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1468 src/number.c ry = (double)SCM_INT_VALUE(y); ry 1470 src/number.c ry = Scm_BignumToDouble(SCM_BIGNUM(y)); ry 1472 src/number.c ry = SCM_FLONUM_VALUE(y); ry 1473 src/number.c if (ry != floor(ry)) goto BADARGY; ry 1478 src/number.c if (ry == 0.0) goto DIVBYZERO; ry 1479 src/number.c rem = fmod(rx, ry); ry 1481 src/number.c if ((rx > 0 && ry < 0) || (rx < 0 && ry > 0)) { ry 1482 src/number.c rem += ry;