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

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

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

revision 1.8 by mvo, Tue May 20 19:59:38 2003 UTC revision 1.9 by dirk, Mon Jun 2 20:54:21 2003 UTC
# Line 27  Line 27 
27    
28  #if (SCM_ENABLE_DEPRECATED == 1)  #if (SCM_ENABLE_DEPRECATED == 1)
29    
30    /* From eval.h: Error messages of the evaluator.  These were deprecated in
31     * guile 1.7.0 on 2003-06-02.  */
32    SCM_API const char scm_s_expression[];
33    SCM_API const char scm_s_test[];
34    SCM_API const char scm_s_body[];
35    SCM_API const char scm_s_bindings[];
36    SCM_API const char scm_s_variable[];
37    SCM_API const char scm_s_clauses[];
38    SCM_API const char scm_s_formals[];
39    
40    
41    /* From eval.h: Helper macros for evaluation and application.  These were
42     * deprecated in guile 1.7.0 on 2003-06-02.  */
43    #define SCM_EVALIM2(x) \
44      ((SCM_EQ_P ((x), SCM_EOL) \
45        ? scm_misc_error (NULL, scm_s_expression, SCM_EOL), 0 \
46        : 0), \
47       (x))
48    #define SCM_EVALIM(x, env) (SCM_ILOCP (x) \
49                                ? *scm_ilookup ((x), env) \
50                                : SCM_EVALIM2(x))
51    #define SCM_XEVAL(x, env) (SCM_IMP (x) \
52                               ? SCM_EVALIM2(x) \
53                               : (*scm_ceval_ptr) ((x), (env)))
54    #define SCM_XEVALCAR(x, env) (SCM_IMP (SCM_CAR (x)) \
55                                  ? SCM_EVALIM (SCM_CAR (x), env) \
56                                  : (SCM_SYMBOLP (SCM_CAR (x)) \
57                                     ? *scm_lookupcar (x, env, 1) \
58                                     : (*scm_ceval_ptr) (SCM_CAR (x), env)))
59    
60    
61  #define scm_substring_move_left_x scm_substring_move_x  #define scm_substring_move_left_x scm_substring_move_x
62  #define scm_substring_move_right_x scm_substring_move_x  #define scm_substring_move_right_x scm_substring_move_x
63    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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