dig               319 src/char.c         int i, c, val = 0, dig;
dig               324 src/char.c             dig = Scm_DigitToInt(c, 16);
dig               325 src/char.c             if (dig < 0) {
dig               330 src/char.c             val = val * 16 + dig;