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 |
|
|