1090 |
} |
} |
1091 |
|
|
1092 |
|
|
1093 |
SCM_SYNTAX (s_atdispatch, "@dispatch", scm_makmmacro, scm_m_atdispatch); |
static const char* s_atdispatch = "@dispatch"; |
|
|
|
1094 |
SCM_SYMBOL (sym_atdispatch, s_atdispatch); |
SCM_SYMBOL (sym_atdispatch, s_atdispatch); |
1095 |
|
|
1096 |
|
/* @slot-dispatch is bound privately in the (oop goops) module from goops.c. |
1097 |
|
* As soon as the module system allows us to more freely create bindings in |
1098 |
|
* arbitrary modules during the startup phase, the code from goops.c should be |
1099 |
|
* moved here. */ |
1100 |
SCM |
SCM |
1101 |
scm_m_atdispatch (SCM xorig, SCM env) |
scm_m_atdispatch (SCM xorig, SCM env) |
1102 |
#define FUNC_NAME s_atdispatch |
#define FUNC_NAME s_atdispatch |
1155 |
} |
} |
1156 |
|
|
1157 |
|
|
1158 |
SCM_SYNTAX (s_atslot_ref, "@slot-ref", scm_makmmacro, scm_m_atslot_ref); |
static const char* s_atslot_ref = "@slot-ref"; |
1159 |
|
|
1160 |
|
/* @slot-ref is bound privately in the (oop goops) module from goops.c. As |
1161 |
|
* soon as the module system allows us to more freely create bindings in |
1162 |
|
* arbitrary modules during the startup phase, the code from goops.c should be |
1163 |
|
* moved here. */ |
1164 |
SCM |
SCM |
1165 |
scm_m_atslot_ref (SCM xorig, SCM env SCM_UNUSED) |
scm_m_atslot_ref (SCM xorig, SCM env SCM_UNUSED) |
1166 |
#define FUNC_NAME s_atslot_ref |
#define FUNC_NAME s_atslot_ref |
1173 |
#undef FUNC_NAME |
#undef FUNC_NAME |
1174 |
|
|
1175 |
|
|
1176 |
SCM_SYNTAX (s_atslot_set_x, "@slot-set!", scm_makmmacro, scm_m_atslot_set_x); |
static const char* s_atslot_set_x = "@slot-set!"; |
1177 |
|
|
1178 |
|
/* @slot-set! is bound privately in the (oop goops) module from goops.c. As |
1179 |
|
* soon as the module system allows us to more freely create bindings in |
1180 |
|
* arbitrary modules during the startup phase, the code from goops.c should be |
1181 |
|
* moved here. */ |
1182 |
SCM |
SCM |
1183 |
scm_m_atslot_set_x (SCM xorig, SCM env SCM_UNUSED) |
scm_m_atslot_set_x (SCM xorig, SCM env SCM_UNUSED) |
1184 |
#define FUNC_NAME s_atslot_set_x |
#define FUNC_NAME s_atslot_set_x |