46 |
|
|
47 |
#if (SCM_ENABLE_DEPRECATED == 1) |
#if (SCM_ENABLE_DEPRECATED == 1) |
48 |
|
|
49 |
|
/* From eval.c: Error messages of the evaluator. These were deprecated in |
50 |
|
* guile 1.7.0 on 2003-06-02. */ |
51 |
|
const char scm_s_expression[] = "missing or extra expression"; |
52 |
|
const char scm_s_test[] = "bad test"; |
53 |
|
const char scm_s_body[] = "bad body"; |
54 |
|
const char scm_s_bindings[] = "bad bindings"; |
55 |
|
const char scm_s_variable[] = "bad variable"; |
56 |
|
const char scm_s_clauses[] = "bad or missing clauses"; |
57 |
|
const char scm_s_formals[] = "bad formals"; |
58 |
|
|
59 |
|
|
60 |
SCM_REGISTER_PROC(s_substring_move_left_x, "substring-move-left!", 5, 0, 0, scm_substring_move_x); |
SCM_REGISTER_PROC(s_substring_move_left_x, "substring-move-left!", 5, 0, 0, scm_substring_move_x); |
61 |
|
|
62 |
SCM_REGISTER_PROC(s_substring_move_right_x, "substring-move-right!", 5, 0, 0, scm_substring_move_x); |
SCM_REGISTER_PROC(s_substring_move_right_x, "substring-move-right!", 5, 0, 0, scm_substring_move_x); |