/[guile]/guile/guile-core/libguile/deprecated.c
ViewVC logotype

Diff of /guile/guile-core/libguile/deprecated.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by mvo, Tue May 20 19:59:38 2003 UTC revision 1.7 by dirk, Sun May 25 05:13:17 2003 UTC
# Line 484  SCM_DEFINE (scm_read_and_eval_x, "read-a Line 484  SCM_DEFINE (scm_read_and_eval_x, "read-a
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 ());

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26