diff options
Diffstat (limited to 'libguile/expand.h')
-rw-r--r-- | libguile/expand.h | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/libguile/expand.h b/libguile/expand.h index 7406a8eed..b4e6a2132 100644 --- a/libguile/expand.h +++ b/libguile/expand.h @@ -48,6 +48,7 @@ typedef enum SCM_EXPANDED_TOPLEVEL_DEFINE, SCM_EXPANDED_CONDITIONAL, SCM_EXPANDED_CALL, + SCM_EXPANDED_PRIMCALL, SCM_EXPANDED_SEQUENCE, SCM_EXPANDED_LAMBDA, SCM_EXPANDED_LAMBDA_CASE, @@ -241,6 +242,19 @@ enum #define SCM_MAKE_EXPANDED_CALL(src, proc, args) \ scm_c_make_struct (exp_vtables[SCM_EXPANDED_CALL], 0, SCM_NUM_EXPANDED_CALL_FIELDS, SCM_UNPACK (src), SCM_UNPACK (proc), SCM_UNPACK (args)) +#define SCM_EXPANDED_PRIMCALL_TYPE_NAME "primcall" +#define SCM_EXPANDED_PRIMCALL_FIELD_NAMES \ + { "src", "name", "args", } +enum + { + SCM_EXPANDED_PRIMCALL_SRC, + SCM_EXPANDED_PRIMCALL_NAME, + SCM_EXPANDED_PRIMCALL_ARGS, + SCM_NUM_EXPANDED_PRIMCALL_FIELDS, + }; +#define SCM_MAKE_EXPANDED_PRIMCALL(src, name, args) \ + scm_c_make_struct (exp_vtables[SCM_EXPANDED_PRIMCALL], 0, SCM_NUM_EXPANDED_PRIMCALL_FIELDS, SCM_UNPACK (src), SCM_UNPACK (name), SCM_UNPACK (args)) + #define SCM_EXPANDED_SEQUENCE_TYPE_NAME "sequence" #define SCM_EXPANDED_SEQUENCE_FIELD_NAMES \ { "src", "exps", } |