484 |
"signalled.") |
"signalled.") |
485 |
#define FUNC_NAME s_scm_read_and_eval_x |
#define FUNC_NAME s_scm_read_and_eval_x |
486 |
{ |
{ |
487 |
|
SCM form; |
488 |
|
|
489 |
scm_c_issue_deprecation_warning |
scm_c_issue_deprecation_warning |
490 |
("'read-and-eval!' is deprecated. Use 'read' and 'eval' instead."); |
("'read-and-eval!' is deprecated. Use 'read' and 'eval' instead."); |
491 |
|
|
492 |
SCM form = scm_read (port); |
form = scm_read (port); |
493 |
if (SCM_EOF_OBJECT_P (form)) |
if (SCM_EOF_OBJECT_P (form)) |
494 |
scm_ithrow (scm_end_of_file_key, SCM_EOL, 1); |
scm_ithrow (scm_end_of_file_key, SCM_EOL, 1); |
495 |
return scm_eval_x (form, scm_current_module ()); |
return scm_eval_x (form, scm_current_module ()); |