1 |
|
/*-*-C-*-*/ |
2 |
/* |
/* |
3 |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
4 |
|
|
1175 |
x = read_object(vs_base[0]); |
x = read_object(vs_base[0]); |
1176 |
if (x == OBJNULL) |
if (x == OBJNULL) |
1177 |
FEerror("No real part.", 0); |
FEerror("No real part.", 0); |
1178 |
|
if (!realp(x)) |
1179 |
|
TYPE_ERROR(x,TSor_rational_float); |
1180 |
vs_push(x); |
vs_push(x); |
1181 |
delimiting_char = code_char(')'); |
delimiting_char = code_char(')'); |
1182 |
x = read_object(vs_base[0]); |
x = read_object(vs_base[0]); |
1183 |
if (x == OBJNULL) |
if (x == OBJNULL) |
1184 |
FEerror("No imaginary part.", 0); |
FEerror("No imaginary part.", 0); |
1185 |
|
if (!realp(x)) |
1186 |
|
TYPE_ERROR(x,TSor_rational_float); |
1187 |
vs_push(x); |
vs_push(x); |
1188 |
delimiting_char = code_char(')'); |
delimiting_char = code_char(')'); |
1189 |
x = read_object(vs_base[0]); |
x = read_object(vs_base[0]); |