}
void _parse() {
- register Char delim = (Char) *sp;
+ register Char delim = (Char) *sp;
register Char *orig = &_input_buffer[_to_in];
register int i = 0;
while (_to_in < _in_input_buffer && _input_buffer[_to_in] != delim) {
_to_in++;
i++;
}
- *sp = (Cell) orig;
+ *sp = (Cell)orig;
*--sp = i;
+
if (_to_in < _in_input_buffer) _to_in++;
}