Searched refs:exp_minusp (Results 1 – 2 of 2) sorted by path
4226 int minusp = FALSE, exp_minusp = FALSE, exp_overflow = FALSE; in read_real() local4325 case '-': exp_minusp = TRUE; in read_real()4344 if (exp_minusp) exponent = -exponent; in read_real()4355 if (exp_minusp || SCM_EQ(fraction, SCM_MAKE_INT(0))) { in read_real()
462 int minusp = FALSE, exp_minusp = FALSE, exp_overflow = FALSE; in read_real() local558 case '-': exp_minusp = TRUE; in read_real()572 if (exp_minusp) exponent = -exponent; in read_real()585 if (exp_minusp) { in read_real()