diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-macro-0+03.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-macro-0+03.c | 4076 |
1 files changed, 1472 insertions, 2604 deletions
diff --git a/gcc/melt/generated/warmelt-macro-0+03.c b/gcc/melt/generated/warmelt-macro-0+03.c index 1ec4b9ab873..d8ca1d94590 100644 --- a/gcc/melt/generated/warmelt-macro-0+03.c +++ b/gcc/melt/generated/warmelt-macro-0+03.c @@ -199,52 +199,52 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_MEXPAND_DEFCITERATOR -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFVARIADIC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_MEXPAND_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_MEXPAND_DEFINE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_SCAN_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_MEXPAND_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -254,222 +254,222 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_PARSE_FIELD_ASSIGNMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_LOAD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_PARSE_FIELD_PATTERN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PATEXPAND_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_OBJECT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_MEXPAND_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_FILTERGCCVERSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_GCCIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -484,17 +484,17 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -504,12 +504,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -519,12 +519,12 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); @@ -534,142 +534,137 @@ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_LAMBDA_(meltclosure -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_MEXPAND_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_MEXPAND_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_COMPILE_WARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_ASSERT_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_DEBUG_MSG(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); - - - - -melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); +melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt (void*); @@ -700,1332 +695,7 @@ static void forward_or_mark_module_start_frame_warmelt_macro (struct callframe_m melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_69_warmelt_macro_MEXPAND_COND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, - const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) -{ -#if ENABLE_CHECKING - static long call_counter__; - long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; -#undef meltcallcount -#define meltcallcount thiscallcounter__ -#else -#undef meltcallcount -#define meltcallcount 0L -#endif - - struct frame_meltrout_69_warmelt_macro_MEXPAND_COND_st { - int mcfr_nbvar; -#if ENABLE_CHECKING - const char* mcfr_flocs; -#endif - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct callframe_melt_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 94 - void* mcfr_varptr[94]; -#define MELTFRAM_NBVARNUM 25 - long mcfr_varnum[25]; -/*others*/ - long _spare_; } - *framptr_=0, meltfram__; -#define meltframe meltfram__ - if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ - int ix=0; - framptr_ = (void*)firstargp_; - gt_ggc_mx_melt_un (framptr_->mcfr_clos); - for(ix=0; ix<94; ix++) - if (framptr_->mcfr_varptr[ix]) - gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); - return NULL; - }/*end markggc*/; - memset(&meltfram__, 0, sizeof(meltfram__)); - meltfram__.mcfr_nbvar = 94; - meltfram__.mcfr_clos = closp_; - meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; - melt_topframe = (struct callframe_melt_st *) &meltfram__; -melt_trace_start("MEXPAND_COND", meltcallcount); -/*getargs*/ - - /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4059:/ getarg"); - /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; - - /*getarg#1*/ - /*^getarg*/ - if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2*/ - /*^getarg*/ - if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; - /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; - gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); - - ; - goto lab_endgetargs; -lab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/{ - - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4060:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4060:/ cond"); - /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4060:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4060)?(4060):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4060:/ clear"); - /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4061:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4061:/ cond"); - /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { - /*^cond.then*/ - /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4061:/ cond.else"); - - /*^block*/ - /*anyblock*/{ - - - - - { - /*^locexp*/ - melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4061)?(4061):__LINE__, __FUNCTION__); -;} - ; - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; - /*epilog*/ - } - ; - } - ; - /*^compute*/ - - /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4061:/ clear"); - /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4062:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4062:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond sexpr"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4062; - /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4062:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4063:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:4064:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4065:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; - ; - /*_.LIST_FIRST__V14*/ meltfptr[13] = - (melt_list_first((melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11])));; - /*^compute*/ - - /*_.PAIR_TAIL__V15*/ meltfptr[14] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4069:/ quasiblock"); - - - /*^newclosure*/ - /*newclosure*/ /*_.LAMBDA___V17*/ meltfptr[16] = - meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])), (1)); - ; - /*^putclosedv*/ - /*putclosv*/ - melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ meltfptr[16])) == MELTOBMAG_CLOSURE); - melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ meltfptr[16]))); - ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); - ; - /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4066:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[4]); - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ meltfptr[15]; - /*_.CEXPTUPLE__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.PAIR_TAIL__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_#NBCOND__L4*/ meltfnum[0] = - (melt_multiple_length((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17])));; - MELT_LOCATION("warmelt-macro.melt:4075:/ quasiblock"); - - - /*_.LX__V20*/ meltfptr[19] = - (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (-1)));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4076:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4076:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond lastcexp lx"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4076; - /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4076:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V19*/ meltfptr[18] = /*_.LX__V20*/ meltfptr[19];; - - MELT_LOCATION("warmelt-macro.melt:4075:/ clear"); - /*clear*/ /*_.LX__V20*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; - /*_.LASTCEXP__V23*/ meltfptr[21] = /*_.LET___V19*/ meltfptr[18];; - /*^compute*/ - - /*_#IX__L6*/ meltfnum[4] = - ((/*_#NBCOND__L4*/ meltfnum[0]) - (1));; - /*^compute*/ - - /*_.RES__V24*/ meltfptr[19] = (/*nil*/NULL);; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4081:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4081:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond cexptuple"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4081; - /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V25*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4081:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V25*/ meltfptr[20] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4082:/ loop"); - /*loop*/{ labloop_CONDLOOP_1:;/*^loopbody*/ - - /*^block*/ - /*anyblock*/{ - - /*_#I__L8*/ meltfnum[6] = - ((/*_#IX__L6*/ meltfnum[4]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4083:/ cond"); - /*cond*/ if (/*_#I__L8*/ meltfnum[6]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*^quasiblock*/ - - - /*^compute*/ - /*_.CONDLOOP__V28*/ meltfptr[27] = NULL;; - - /*^exit*/ - /*exit*/{ - goto labexit_CONDLOOP_1;} - ; - /*epilog*/ - } - ; - } /*noelse*/ - ; - MELT_LOCATION("warmelt-macro.melt:4084:/ quasiblock"); - - - /*_.CURCOND__V30*/ meltfptr[29] = - (melt_multiple_nth((melt_ptr_t)(/*_.CEXPTUPLE__V18*/ meltfptr[17]), (/*_#IX__L6*/ meltfnum[4])));; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4085:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4085:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond curcond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4085; - /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V31*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4085:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ meltfptr[31] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V31*/ meltfptr[30] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_#NULL__L10*/ meltfnum[8] = - ((/*_.RES__V24*/ meltfptr[19]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#NULL__L10*/ meltfnum[8]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L12*/ meltfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4090:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ meltfptr[31] = slot; }; - ; - /*_.LIST_FIRST__V34*/ meltfptr[33] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V33*/ meltfptr[31])));; - /*^compute*/ - - /*_.PAIR_HEAD__V35*/ meltfptr[34] = - (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V34*/ meltfptr[33])));; - /*^compute*/ - - /*_#__L14*/ meltfnum[13] = - (((/*!konst_7_ELSE*/ meltfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ meltfptr[34]));; - /*^compute*/ - - /*_#IF___L13*/ meltfnum[12] = /*_#__L14*/ meltfnum[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V33*/ meltfptr[31] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V34*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V35*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_#__L14*/ meltfnum[13] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L13*/ meltfnum[12] = 0;; - } - ; - /*^compute*/ - - /*_#IF___L11*/ meltfnum[10] = /*_#IF___L13*/ meltfnum[12];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L13*/ meltfnum[12] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_#IF___L11*/ meltfnum[10] = 0;; - } - ; - MELT_LOCATION("warmelt-macro.melt:4087:/ cond"); - /*cond*/ if (/*_#IF___L11*/ meltfnum[10]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4091:/ quasiblock"); - - - MELT_LOCATION("warmelt-macro.melt:4092:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ meltfptr[34] = slot; }; - ; - /*_.LIST_FIRST__V39*/ meltfptr[38] = - (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V38*/ meltfptr[34])));; - /*^compute*/ - - /*_.RESTPAIRS__V40*/ meltfptr[39] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V39*/ meltfptr[38])));; - MELT_LOCATION("warmelt-macro.melt:4094:/ cond"); - /*cond*/ if (/*_.RESTPAIRS__V40*/ meltfptr[39]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4096:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ meltfptr[41] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4095:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V42*/ meltfptr[41]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RESTPAIRS__V40*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*^compute*/ - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42];; - /*_.IF___V41*/ meltfptr[40] = /*_.SETQ___V44*/ meltfptr[43];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4094:/ clear"); - /*clear*/ /*_.LOCA_LOCATION__V42*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ meltfptr[42] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ;} - ; - } else {/*^cond.else*/ - - /*_.IF___V41*/ meltfptr[40] = NULL;; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4098:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4098:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for :else"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4098; - /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V45*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4098:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[42] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V45*/ meltfptr[41] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - /*^compute*/ - - /*_.LET___V37*/ meltfptr[33] = /*_.IFCPP___V45*/ meltfptr[41];; - - MELT_LOCATION("warmelt-macro.melt:4091:/ clear"); - /*clear*/ /*_.SEXP_CONTENTS__V38*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V39*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.RESTPAIRS__V40*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.IF___V41*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V45*/ meltfptr[41] = 0 ; - /*_.IFELSE___V36*/ meltfptr[31] = /*_.LET___V37*/ meltfptr[33];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_.LET___V37*/ meltfptr[33] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_#IS_A__L16*/ meltfnum[11] = - melt_is_instance_of((melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4100:/ cond"); - /*cond*/ if (/*_#IS_A__L16*/ meltfnum[11]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4101:/ quasiblock"); - - - /*^getslot*/ - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ meltfptr[34] = slot; }; - ; - MELT_LOCATION("warmelt-macro.melt:4102:/ getslot"); - { melt_ptr_t slot=0; - melt_object_get_field(slot,(melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ meltfptr[38] = slot; }; - ; - /*_.LIST_FIRST__V51*/ meltfptr[39] = - (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; - /*^compute*/ - - /*_.CURCONDTEST__V52*/ meltfptr[40] = - (melt_pair_head((melt_ptr_t)(/*_.LIST_FIRST__V51*/ meltfptr[39])));; - /*^compute*/ - - /*_.LIST_FIRST__V53*/ meltfptr[41] = - (melt_list_first((melt_ptr_t)(/*_.CURCONDCONT__V49*/ meltfptr[34])));; - /*^compute*/ - - /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = - (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V53*/ meltfptr[41])));; - /*^compute*/ - - /*_#NULL__L17*/ meltfnum[12] = - ((/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4106:/ cond"); - /*cond*/ if (/*_#NULL__L17*/ meltfnum[12]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4110:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4109:/ blockmultialloc"); - /*multiallocblock*/{ - struct meltletrec_1_st { - struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x2; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; - meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); - /*^blockmultialloc.initfill*/ - /*inimult rtup_0__TUPLREC__x2*/ - /*_.TUPLREC___V58*/ meltfptr[57] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x2; - meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 2; - - - /*^putuple*/ - /*putupl#2*/ - melt_assertmsg("putupl [:4109] #2 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4109] #2 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[0] = (melt_ptr_t)(/*_.MACROEXPAND_1__V56*/ meltfptr[55]); - ; - /*^putuple*/ - /*putupl#3*/ - melt_assertmsg("putupl [:4109] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4109] #3 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V58*/ meltfptr[57]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); - ; - /*^touch*/ - meltgc_touch(/*_.TUPLREC___V58*/ meltfptr[57]); - ; - /*_.TUPLE___V57*/ meltfptr[56] = /*_.TUPLREC___V58*/ meltfptr[57];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4109:/ clear"); - /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLREC___V58*/ meltfptr[57] = 0 ;} /*end multiallocblock*/ - ; - MELT_LOCATION("warmelt-macro.melt:4107:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); - /*_.INST__V60*/ meltfptr[59] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V60*/ meltfptr[59])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V60*/ meltfptr[59]), (2), (/*_.TUPLE___V57*/ meltfptr[56]), "SOR_DISJ"); - ; - /*_.INST___V59*/ meltfptr[57] = /*_.INST__V60*/ meltfptr[59];; - MELT_LOCATION("warmelt-macro.melt:4107:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V61*/ meltfptr[60] = /*_.INST___V59*/ meltfptr[57];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4112:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4112:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for monoexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4112; - /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V62*/ meltfptr[61] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4112:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V62*/ meltfptr[61] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4106:/ quasiblock"); - - - /*_.PROGN___V64*/ meltfptr[62] = /*_.IFCPP___V62*/ meltfptr[61];; - /*^compute*/ - - /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V64*/ meltfptr[62];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4106:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V56*/ meltfptr[55] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLE___V57*/ meltfptr[56] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V59*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V61*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V62*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V64*/ meltfptr[62] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - /*_.PAIR_TAIL__V65*/ meltfptr[55] = - (melt_pair_tail((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; - /*^compute*/ - - /*_#NULL__L19*/ meltfnum[13] = - ((/*_.PAIR_TAIL__V65*/ meltfptr[55]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4114:/ cond"); - /*cond*/ if (/*_#NULL__L19*/ meltfnum[13]) /*then*/ { - /*^cond.then*/ - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4117:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V67*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.PAIR_HEAD__V68*/ meltfptr[60] = - (melt_pair_head((melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33])));; - MELT_LOCATION("warmelt-macro.melt:4118:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V69*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.PAIR_HEAD__V68*/ meltfptr[60]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4115:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V71*/ meltfptr[70] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (2), (/*_.MACROEXPAND_1__V67*/ meltfptr[57]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (3), (/*_.MACROEXPAND_1__V69*/ meltfptr[61]), "SIF_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V71*/ meltfptr[70])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V71*/ meltfptr[70]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); - ; - /*_.INST___V70*/ meltfptr[62] = /*_.INST__V71*/ meltfptr[70];; - MELT_LOCATION("warmelt-macro.melt:4115:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V72*/ meltfptr[71] = /*_.INST___V70*/ meltfptr[62];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4121:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4121:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for biexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4121; - /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V73*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4121:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ meltfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V73*/ meltfptr[72] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4114:/ quasiblock"); - - - /*_.PROGN___V75*/ meltfptr[73] = /*_.IFCPP___V73*/ meltfptr[72];; - /*^compute*/ - - /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V75*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4114:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V67*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V68*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.MACROEXPAND_1__V69*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V70*/ meltfptr[62] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V72*/ meltfptr[71] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V73*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ meltfptr[73] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4126:/ apply"); - /*apply*/{ - union meltparam_un argtab[2]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MACROEXPAND_1__V76*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!MACROEXPAND_1*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.CURCONDTEST__V52*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4127:/ apply"); - /*apply*/{ - union meltparam_un argtab[3]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.CURCONDLOC__V50*/ meltfptr[38]; - /*^apply.arg*/ - argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*^apply.arg*/ - argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); - } - ; - MELT_LOCATION("warmelt-macro.melt:4124:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V79*/ meltfptr[62] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (1), (/*_.CURCONDLOC__V50*/ meltfptr[38]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_TEST", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (2), (/*_.MACROEXPAND_1__V76*/ meltfptr[57]), "SIF_TEST"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_THEN", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (3), (/*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60]), "SIF_THEN"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SIF_ELSE", melt_magic_discr((melt_ptr_t)(/*_.INST__V79*/ meltfptr[62])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V79*/ meltfptr[62]), (4), (/*_.RES__V24*/ meltfptr[19]), "SIF_ELSE"); - ; - /*_.INST___V78*/ meltfptr[61] = /*_.INST__V79*/ meltfptr[62];; - MELT_LOCATION("warmelt-macro.melt:4124:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V80*/ meltfptr[71] = /*_.INST___V78*/ meltfptr[61];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4129:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4129:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for manyexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4129; - /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V81*/ meltfptr[72] = /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4129:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ meltfptr[73] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V81*/ meltfptr[72] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4123:/ quasiblock"); - - - /*_.PROGN___V83*/ meltfptr[73] = /*_.IFCPP___V81*/ meltfptr[72];; - /*^compute*/ - - /*_.IFELSE___V66*/ meltfptr[56] = /*_.PROGN___V83*/ meltfptr[73];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4114:/ clear"); - /*clear*/ /*_.MACROEXPAND_1__V76*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIRLIST_TO_PROGN__V77*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V78*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V80*/ meltfptr[71] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V81*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V83*/ meltfptr[73] = 0 ;} - ; - } - ; - /*_.IFELSE___V55*/ meltfptr[54] = /*_.IFELSE___V66*/ meltfptr[56];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4106:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V65*/ meltfptr[55] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L19*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V66*/ meltfptr[56] = 0 ;} - ; - } - ; - /*_.LET___V48*/ meltfptr[42] = /*_.IFELSE___V55*/ meltfptr[54];; - - MELT_LOCATION("warmelt-macro.melt:4101:/ clear"); - /*clear*/ /*_.CURCONDCONT__V49*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDLOC__V50*/ meltfptr[38] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V51*/ meltfptr[39] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDTEST__V52*/ meltfptr[40] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V53*/ meltfptr[41] = 0 ; - /*^clear*/ - /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ meltfptr[33] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L17*/ meltfnum[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V55*/ meltfptr[54] = 0 ; - /*_.IFELSE___V47*/ meltfptr[43] = /*_.LET___V48*/ meltfptr[42];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4100:/ clear"); - /*clear*/ /*_.LET___V48*/ meltfptr[42] = 0 ;} - ; - } else {/*^cond.else*/ - - /*^block*/ - /*anyblock*/{ - - MELT_LOCATION("warmelt-macro.melt:4135:/ blockmultialloc"); - /*multiallocblock*/{ - struct meltletrec_2_st { - struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x3; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; - meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); - /*^blockmultialloc.initfill*/ - /*inimult rtup_0__TUPLREC__x3*/ - /*_.TUPLREC___V85*/ meltfptr[60] = (void*)&meltletrec_2_ptr->rtup_0__TUPLREC__x3; - meltletrec_2_ptr->rtup_0__TUPLREC__x3.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); - meltletrec_2_ptr->rtup_0__TUPLREC__x3.nbval = 2; - - - /*^putuple*/ - /*putupl#4*/ - melt_assertmsg("putupl [:4135] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4135] #4 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[0] = (melt_ptr_t)(/*_.CURCOND__V30*/ meltfptr[29]); - ; - /*^putuple*/ - /*putupl#5*/ - melt_assertmsg("putupl [:4135] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4135] #5 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60])))); - ((meltmultiple_ptr_t)(/*_.TUPLREC___V85*/ meltfptr[60]))->tabval[1] = (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]); - ; - /*^touch*/ - meltgc_touch(/*_.TUPLREC___V85*/ meltfptr[60]); - ; - /*_.TUPLE___V84*/ meltfptr[57] = /*_.TUPLREC___V85*/ meltfptr[60];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4135:/ clear"); - /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ; - /*^clear*/ - /*clear*/ /*_.TUPLREC___V85*/ meltfptr[60] = 0 ;} /*end multiallocblock*/ - ; - MELT_LOCATION("warmelt-macro.melt:4133:/ quasiblock"); - - - /*^rawallocobj*/ - /*rawallocobj*/ { melt_ptr_t newobj = 0; - melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_OR"); - /*_.INST__V87*/ meltfptr[71] = - newobj; }; - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (1), (/*_.LOC__V13*/ meltfptr[12]), "LOCA_LOCATION"); - ; - /*^putslot*/ - /*putslot*/ - melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V87*/ meltfptr[71])) == MELTOBMAG_OBJECT); - melt_putfield_object((/*_.INST__V87*/ meltfptr[71]), (2), (/*_.TUPLE___V84*/ meltfptr[57]), "SOR_DISJ"); - ; - /*_.INST___V86*/ meltfptr[61] = /*_.INST__V87*/ meltfptr[71];; - MELT_LOCATION("warmelt-macro.melt:4133:/ compute"); - /*_.RES__V24*/ meltfptr[19] = /*_.SETQ___V88*/ meltfptr[72] = /*_.INST___V86*/ meltfptr[61];; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4136:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4136:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond res for nonsexp cond"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4136; - /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V89*/ meltfptr[73] = /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4136:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V90*/ meltfptr[55] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V89*/ meltfptr[73] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4132:/ quasiblock"); - - - /*_.PROGN___V91*/ meltfptr[56] = /*_.IFCPP___V89*/ meltfptr[73];; - /*^compute*/ - - /*_.IFELSE___V47*/ meltfptr[43] = /*_.PROGN___V91*/ meltfptr[56];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4100:/ clear"); - /*clear*/ /*_.TUPLE___V84*/ meltfptr[57] = 0 ; - /*^clear*/ - /*clear*/ /*_.INST___V86*/ meltfptr[61] = 0 ; - /*^clear*/ - /*clear*/ /*_.SETQ___V88*/ meltfptr[72] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V89*/ meltfptr[73] = 0 ; - /*^clear*/ - /*clear*/ /*_.PROGN___V91*/ meltfptr[56] = 0 ;} - ; - } - ; - /*_.IFELSE___V36*/ meltfptr[31] = /*_.IFELSE___V47*/ meltfptr[43];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4087:/ clear"); - /*clear*/ /*_#IS_A__L16*/ meltfnum[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V47*/ meltfptr[43] = 0 ;} - ; - } - ; - /*_.LET___V29*/ meltfptr[28] = /*_.IFELSE___V36*/ meltfptr[31];; - - MELT_LOCATION("warmelt-macro.melt:4084:/ clear"); - /*clear*/ /*_.CURCOND__V30*/ meltfptr[29] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V31*/ meltfptr[30] = 0 ; - /*^clear*/ - /*clear*/ /*_#NULL__L10*/ meltfnum[8] = 0 ; - /*^clear*/ - /*clear*/ /*_#IF___L11*/ meltfnum[10] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFELSE___V36*/ meltfptr[31] = 0 ; - /*_#I__L23*/ meltfnum[13] = - ((/*_#IX__L6*/ meltfnum[4]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4140:/ compute"); - /*_#IX__L6*/ meltfnum[4] = /*_#SETQ___L24*/ meltfnum[12] = /*_#I__L23*/ meltfnum[13];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4082:/ clear"); - /*clear*/ /*_#I__L8*/ meltfnum[6] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V29*/ meltfptr[28] = 0 ; - /*^clear*/ - /*clear*/ /*_#I__L23*/ meltfnum[13] = 0 ; - /*^clear*/ - /*clear*/ /*_#SETQ___L24*/ meltfnum[12] = 0 ;} - ; - ; - goto labloop_CONDLOOP_1; - labexit_CONDLOOP_1:;/*^loopepilog*/ - /*loopepilog*/ - /*_.FOREVER___V27*/ meltfptr[25] = /*_.CONDLOOP__V28*/ meltfptr[27];; - } - ; - - #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4142:/ cppif.then"); - /*^block*/ - /*anyblock*/{ - - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = - meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4142:/ apply"); - /*apply*/{ - union meltparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - /*^apply.arg*/ - argtab[0].meltbp_cstring = "mexpand_cond final res"; - /*^apply.arg*/ - argtab[1].meltbp_long = /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19]; - /*^apply.arg*/ - argtab[2].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg*/ - argtab[3].meltbp_long = 4142; - /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V24*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); - } - ; - /*_.IFCPP___V92*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38];; - /*epilog*/ - - MELT_LOCATION("warmelt-macro.melt:4142:/ clear"); - /*clear*/ /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[38] = 0 ;} - - #else /*ENABLE_CHECKING*/ - /*^cppif.else*/ - /*_.IFCPP___V92*/ meltfptr[34] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ - ; - MELT_LOCATION("warmelt-macro.melt:4143:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V24*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4143:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V94*/ meltfptr[39];; - - MELT_LOCATION("warmelt-macro.melt:4063:/ clear"); - /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; - /*^clear*/ - /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; - /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V14*/ meltfptr[13] = 0 ; - /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V15*/ meltfptr[14] = 0 ; - /*^clear*/ - /*clear*/ /*_.LAMBDA___V16*/ meltfptr[15] = 0 ; - /*^clear*/ - /*clear*/ /*_.CEXPTUPLE__V18*/ meltfptr[17] = 0 ; - /*^clear*/ - /*clear*/ /*_#NBCOND__L4*/ meltfnum[0] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V19*/ meltfptr[18] = 0 ; - /*^clear*/ - /*clear*/ /*_.LASTCEXP__V23*/ meltfptr[21] = 0 ; - /*^clear*/ - /*clear*/ /*_#IX__L6*/ meltfnum[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.RES__V24*/ meltfptr[19] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V25*/ meltfptr[20] = 0 ; - /*^clear*/ - /*clear*/ /*_.FOREVER___V27*/ meltfptr[25] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V92*/ meltfptr[34] = 0 ; - /*^clear*/ - /*clear*/ /*_.RETURN___V94*/ meltfptr[39] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4059:/ quasiblock"); - - - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4059:/ finalreturn"); - ; - /*finalret*/ goto labend_rout ; - /*epilog*/ - - /*^clear*/ - /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; - /*^clear*/ - /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; - /*^clear*/ - /*clear*/ /*_.LET___V11*/ meltfptr[9] = 0 ;} - -; - goto labend_rout; -labend_rout: -melt_trace_end("MEXPAND_COND", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; - return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_69_warmelt_macro_MEXPAND_COND*/ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_69_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2038,7 +708,7 @@ meltrout_70_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_70_warmelt_macro_LAMBDA__st { + struct frame_meltrout_69_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2072,7 +742,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4069:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4027:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -2083,7 +753,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4070:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4028:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2091,7 +761,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4071:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4029:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "COND with non-sexpr"), (melt_ptr_t)0);} ; /*epilog*/ @@ -2099,11 +769,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4069:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4027:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4069:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4027:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2120,14 +790,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_70_warmelt_macro_LAMBDA_*/ +} /*end meltrout_69_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_70_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2140,7 +810,7 @@ meltrout_71_warmelt_macro_MEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t first #define meltcallcount 0L #endif - struct frame_meltrout_71_warmelt_macro_MEXPAND_AND_st { + struct frame_meltrout_70_warmelt_macro_MEXPAND_AND_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2174,7 +844,7 @@ melt_trace_start("MEXPAND_AND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4159:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4117:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2199,17 +869,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4160:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4118:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4160:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4118:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4160:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4118:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2220,7 +890,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4160)?(4160):__LINE__, __FUNCTION__); + (4118)?(4118):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2234,7 +904,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4160:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4118:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2246,17 +916,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4161:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4119:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4161:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4119:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4161:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4119:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2267,7 +937,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4161)?(4161):__LINE__, __FUNCTION__); + (4119)?(4119):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2281,7 +951,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4161:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4119:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2293,13 +963,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4162:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4120:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4162:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4120:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2310,14 +980,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4162; + argtab[3].meltbp_long = 4120; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4162:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4120:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -2327,14 +997,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4163:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4121:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4164:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4122:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4165:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4123:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -2344,7 +1014,7 @@ lab_endgetargs:; /*_.CURPAIR__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4170:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4128:/ quasiblock"); /*^newclosure*/ @@ -2364,7 +1034,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4167:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4125:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -2379,13 +1049,13 @@ lab_endgetargs:; (melt_multiple_length((melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4174:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4132:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4174:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4132:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2396,14 +1066,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4174; + argtab[3].meltbp_long = 4132; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4174:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} @@ -2417,7 +1087,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[4] = ((/*_#NBCOMP__L4*/ meltfnum[0]) < (1));; - MELT_LOCATION("warmelt-macro.melt:4175:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4133:/ cond"); /*cond*/ if (/*_#I__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2425,17 +1095,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4177:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4135:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "AND without sons"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4178:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4136:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4178:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4136:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4176:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4134:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[21];; @@ -2444,7 +1114,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4175:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[22] = 0 ;} @@ -2454,7 +1124,7 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4179:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4137:/ quasiblock"); /*_#I__L7*/ meltfnum[6] = @@ -2467,7 +1137,7 @@ lab_endgetargs:; /*_#IX__L8*/ meltfnum[7] = ((/*_#NBCOMP__L4*/ meltfnum[0]) - (2));; - MELT_LOCATION("warmelt-macro.melt:4181:/ loop"); + MELT_LOCATION("warmelt-macro.melt:4139:/ loop"); /*loop*/{ labloop_REVLOOP_1:;/*^loopbody*/ /*^block*/ @@ -2475,7 +1145,7 @@ lab_endgetargs:; /*_#I__L9*/ meltfnum[8] = ((/*_#IX__L8*/ meltfnum[7]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4182:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4140:/ cond"); /*cond*/ if (/*_#I__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2496,12 +1166,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4183:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4141:/ quasiblock"); /*_.CURC__V29*/ meltfptr[28] = (melt_multiple_nth((melt_ptr_t)(/*_.CXTUP__V18*/ meltfptr[17]), (/*_#IX__L8*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:4185:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4143:/ quasiblock"); /*^rawallocobj*/ @@ -2526,11 +1196,11 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V31*/ meltfptr[30]), (3), (/*_.RES__V25*/ meltfptr[22]), "SIF_THEN"); ; /*_.INST___V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4184:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4142:/ compute"); /*_.RES__V25*/ meltfptr[22] = /*_.SETQ___V32*/ meltfptr[31] = /*_.INST___V30*/ meltfptr[29];; /*_.LET___V28*/ meltfptr[27] = /*_.SETQ___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:4183:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4141:/ clear"); /*clear*/ /*_.CURC__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V30*/ meltfptr[29] = 0 ; @@ -2538,11 +1208,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V32*/ meltfptr[31] = 0 ; /*_#I__L10*/ meltfnum[9] = ((/*_#IX__L8*/ meltfnum[7]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4190:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4148:/ compute"); /*_#IX__L8*/ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = /*_#I__L10*/ meltfnum[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4181:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4139:/ clear"); /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V28*/ meltfptr[27] = 0 ; @@ -2560,13 +1230,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4192:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4150:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4192:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4150:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -2577,14 +1247,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4192; + argtab[3].meltbp_long = 4150; /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RES__V25*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V33*/ meltfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4192:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4150:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[29] = 0 ;} @@ -2594,16 +1264,16 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4193:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4151:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V25*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4193:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4151:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V24*/ meltfptr[21] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:4179:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4137:/ clear"); /*clear*/ /*_#I__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V25*/ meltfptr[22] = 0 ; @@ -2618,14 +1288,14 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4175:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_.LET___V24*/ meltfptr[21] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V21*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4163:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4121:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -2645,11 +1315,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4159:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4117:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4159:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4117:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2672,14 +1342,14 @@ melt_trace_end("MEXPAND_AND", meltcallcount); melt_topframe = (struct callframe #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_71_warmelt_macro_MEXPAND_AND*/ +} /*end meltrout_70_warmelt_macro_MEXPAND_AND*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_71_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2692,7 +1362,7 @@ meltrout_72_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_72_warmelt_macro_LAMBDA__st { + struct frame_meltrout_71_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2726,7 +1396,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4170:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4128:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -2750,7 +1420,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4170:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4128:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -2767,14 +1437,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_72_warmelt_macro_LAMBDA_*/ +} /*end meltrout_71_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_72_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -2787,7 +1457,7 @@ meltrout_73_warmelt_macro_PATEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_73_warmelt_macro_PATEXPAND_AS_st { + struct frame_meltrout_72_warmelt_macro_PATEXPAND_AS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -2821,7 +1491,7 @@ melt_trace_start("PATEXPAND_AS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4197:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4155:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -2846,17 +1516,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4198:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4156:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4198:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4156:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4198:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4156:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2867,7 +1537,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4198)?(4198):__LINE__, __FUNCTION__); + (4156)?(4156):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -2881,7 +1551,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4198:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4156:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -2893,17 +1563,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4199:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4157:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4199:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4157:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4199:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4157:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2914,7 +1584,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4199)?(4199):__LINE__, __FUNCTION__); + (4157)?(4157):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -2928,7 +1598,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4199:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4157:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -2940,17 +1610,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4200:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4158:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4200:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4158:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4200:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4158:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -2961,7 +1631,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4200)?(4200):__LINE__, __FUNCTION__); + (4158)?(4158):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -2975,7 +1645,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4200:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -2987,13 +1657,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4201:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4159:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4201:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4159:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3004,14 +1674,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4201; + argtab[3].meltbp_long = 4159; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4201:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4159:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -3021,14 +1691,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4202:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4160:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4203:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4161:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4204:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4162:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -3038,7 +1708,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4206:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4164:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -3057,7 +1727,7 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = ((/*_#MULTIPLE_LENGTH__L5*/ meltfnum[0]) != (2));; - MELT_LOCATION("warmelt-macro.melt:4208:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4166:/ cond"); /*cond*/ if (/*_#I__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3065,17 +1735,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4210:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4168:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern expects two arguments: ?patvar subpattern"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4211:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4169:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4211:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4169:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4209:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4167:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -3084,7 +1754,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4208:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4166:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;} @@ -3094,7 +1764,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4212:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4170:/ quasiblock"); /*_.ARGVAR__V23*/ meltfptr[20] = @@ -3107,7 +1777,7 @@ lab_endgetargs:; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:4215:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4173:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3115,17 +1785,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4217:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4175:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern with useless joker"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4218:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4176:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.ARGSUB__V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4218:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4176:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4216:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4174:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; @@ -3134,7 +1804,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4215:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4173:/ clear"); /*clear*/ /*_.RETURN___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V27*/ meltfptr[26] = 0 ;} @@ -3148,7 +1818,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L8*/ meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_VARIABLE*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:4219:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4177:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3156,17 +1826,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4221:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4179:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "AS pattern needs a pattern variable as first argument"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4222:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4180:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4222:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4180:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4220:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4178:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[26];; @@ -3175,7 +1845,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4219:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4177:/ clear"); /*clear*/ /*_.RETURN___V29*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V30*/ meltfptr[29] = 0 ;} @@ -3187,13 +1857,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4223:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4181:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "deprecated AS pattern - use AND pattern instead"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4224:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4182:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4225:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4183:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.ARGSUB__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN*/ meltfrout->tabval[7])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -3217,7 +1887,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V33*/ meltfptr[32] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[9])), (/*_#I__L10*/ meltfnum[9])));; - MELT_LOCATION("warmelt-macro.melt:4229:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:4187:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x4; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; @@ -3231,14 +1901,14 @@ lab_endgetargs:; /*^putuple*/ /*putupl#6*/ - melt_assertmsg("putupl [:4229] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4229] #6 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); + melt_assertmsg("putupl [:4187] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4187] #6 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))->tabval[0] = (melt_ptr_t)(/*_.ARGVAR__V23*/ meltfptr[20]); ; /*^putuple*/ /*putupl#7*/ - melt_assertmsg("putupl [:4229] #7 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:4229] #7 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); + melt_assertmsg("putupl [:4187] #7 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:4187] #7 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V35*/ meltfptr[34]))->tabval[1] = (melt_ptr_t)(/*_.ARGSUB__V24*/ meltfptr[23]); ; /*^touch*/ @@ -3247,12 +1917,12 @@ lab_endgetargs:; /*_.TUPLE___V34*/ meltfptr[33] = /*_.TUPLREC___V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4229:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4187:/ clear"); /*clear*/ /*_.TUPLREC___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V35*/ meltfptr[34] = 0 ;} /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:4226:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4184:/ quasiblock"); /*^rawallocobj*/ @@ -3279,13 +1949,13 @@ lab_endgetargs:; /*_.RES__V36*/ meltfptr[34] = /*_.INST__V37*/ meltfptr[36];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4231:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4189:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4231:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4189:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3296,14 +1966,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4231; + argtab[3].meltbp_long = 4189; /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V36*/ meltfptr[34]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V38*/ meltfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4231:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4189:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ meltfptr[38] = 0 ;} @@ -3313,16 +1983,16 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4232:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4190:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V36*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:4232:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4190:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V31*/ meltfptr[26] = /*_.RETURN___V40*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:4224:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4182:/ clear"); /*clear*/ /*_.PAT_WEIGHT__V32*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#SUBW__L9*/ meltfnum[8] = 0 ; @@ -3340,7 +2010,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[38] = 0 ; /*_.LET___V22*/ meltfptr[19] = /*_.LET___V31*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4212:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4170:/ clear"); /*clear*/ /*_.ARGVAR__V23*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.ARGSUB__V24*/ meltfptr[23] = 0 ; @@ -3356,7 +2026,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V31*/ meltfptr[26] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.LET___V22*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4202:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4160:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -3374,11 +2044,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V22*/ meltfptr[19] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4197:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4155:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4197:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4155:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3403,14 +2073,14 @@ melt_trace_end("PATEXPAND_AS", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_73_warmelt_macro_PATEXPAND_AS*/ +} /*end meltrout_72_warmelt_macro_PATEXPAND_AS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_73_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -3423,7 +2093,7 @@ meltrout_74_warmelt_macro_MEXPAND_AS(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_74_warmelt_macro_MEXPAND_AS_st { + struct frame_meltrout_73_warmelt_macro_MEXPAND_AS_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -3457,7 +2127,7 @@ melt_trace_start("MEXPAND_AS", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4235:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4193:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3482,17 +2152,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4236:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4194:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4236:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4194:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4236:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4194:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3503,7 +2173,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4236)?(4236):__LINE__, __FUNCTION__); + (4194)?(4194):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3517,7 +2187,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4236:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4194:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3529,17 +2199,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4237:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4195:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4237:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4195:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4237:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4195:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3550,7 +2220,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4237)?(4237):__LINE__, __FUNCTION__); + (4195)?(4195):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3564,7 +2234,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4237:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4195:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3576,13 +2246,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4238:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4196:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4238:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4196:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3593,14 +2263,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4238; + argtab[3].meltbp_long = 4196; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4238:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4196:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -3610,36 +2280,36 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4239:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4197:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4240:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4198:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4242:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4200:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "AS cannot be macro-expanded in expression context"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4243:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4201:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4243:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4201:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:4239:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4197:/ clear"); /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4235:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4193:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4235:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4193:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -3662,14 +2332,14 @@ melt_trace_end("MEXPAND_AS", meltcallcount); melt_topframe = (struct callframe_ #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_74_warmelt_macro_MEXPAND_AS*/ +} /*end meltrout_73_warmelt_macro_MEXPAND_AS*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_74_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -3682,7 +2352,7 @@ meltrout_75_warmelt_macro_PATEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_75_warmelt_macro_PATEXPAND_WHEN_st { + struct frame_meltrout_74_warmelt_macro_PATEXPAND_WHEN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -3716,7 +2386,7 @@ melt_trace_start("PATEXPAND_WHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4249:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4207:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -3741,17 +2411,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4250:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4208:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4250:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4208:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4250:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4208:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3762,7 +2432,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4250)?(4250):__LINE__, __FUNCTION__); + (4208)?(4208):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -3776,7 +2446,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4250:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4208:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -3788,17 +2458,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4251:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4209:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4251:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4209:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4251:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4209:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3809,7 +2479,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4251)?(4251):__LINE__, __FUNCTION__); + (4209)?(4209):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -3823,7 +2493,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4251:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4209:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -3835,17 +2505,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4252:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4210:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4252:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4210:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4252:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4210:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3856,7 +2526,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4252)?(4252):__LINE__, __FUNCTION__); + (4210)?(4210):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -3870,7 +2540,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4252:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4210:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -3882,13 +2552,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4253:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4211:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4253:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4211:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -3899,14 +2569,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4253; + argtab[3].meltbp_long = 4211; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4253:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4211:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -3916,25 +2586,25 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4254:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4212:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4255:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4213:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4256:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4214:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4259:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4217:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V15*/ meltfptr[14]), ( "WHEN is not yet implemented in patterns"), (melt_ptr_t)0);} ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4260:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4218:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -3942,7 +2612,7 @@ lab_endgetargs:; /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4260:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4218:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -3953,7 +2623,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "@$@ unimplemented patexpand_when"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4260)?(4260):__LINE__, __FUNCTION__); + (4218)?(4218):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ; @@ -3967,7 +2637,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4260:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4218:/ clear"); /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -3975,16 +2645,16 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4261:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4219:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4261:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4219:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V18*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4254:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4212:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -3992,11 +2662,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V18*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4249:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4207:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4249:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4207:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4021,14 +2691,14 @@ melt_trace_end("PATEXPAND_WHEN", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_75_warmelt_macro_PATEXPAND_WHEN*/ +} /*end meltrout_74_warmelt_macro_PATEXPAND_WHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_75_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4041,7 +2711,7 @@ meltrout_76_warmelt_macro_MEXPAND_WHEN(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_76_warmelt_macro_MEXPAND_WHEN_st { + struct frame_meltrout_75_warmelt_macro_MEXPAND_WHEN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4075,7 +2745,7 @@ melt_trace_start("MEXPAND_WHEN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4264:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4222:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4100,17 +2770,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4265:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4223:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4265:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4223:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4265:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4223:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4121,7 +2791,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4265)?(4265):__LINE__, __FUNCTION__); + (4223)?(4223):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4135,7 +2805,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4265:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4223:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4147,17 +2817,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4266:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4224:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4266:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4224:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4266:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4224:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4168,7 +2838,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4266)?(4266):__LINE__, __FUNCTION__); + (4224)?(4224):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4182,7 +2852,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4266:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4224:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4194,13 +2864,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4267:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4225:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4267:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4225:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4211,14 +2881,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4267; + argtab[3].meltbp_long = 4225; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4267:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4225:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -4228,36 +2898,36 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4268:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4226:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4269:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4227:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ meltfptr[11] = slot; }; ; { - MELT_LOCATION("warmelt-macro.melt:4271:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4229:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V12*/ meltfptr[11]), ( "WHEN cannot be macro-expanded in expression context"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4272:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4230:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4272:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4230:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V13*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:4268:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4226:/ clear"); /*clear*/ /*_.LOC__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4264:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4222:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4264:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4222:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4280,14 +2950,14 @@ melt_trace_end("MEXPAND_WHEN", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_76_warmelt_macro_MEXPAND_WHEN*/ +} /*end meltrout_75_warmelt_macro_MEXPAND_WHEN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_76_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4300,7 +2970,7 @@ meltrout_77_warmelt_macro_PATEXPAND_AND(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_77_warmelt_macro_PATEXPAND_AND_st { + struct frame_meltrout_76_warmelt_macro_PATEXPAND_AND_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4334,7 +3004,7 @@ melt_trace_start("PATEXPAND_AND", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4279:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4237:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4359,17 +3029,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4280:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4238:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4280:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4238:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4280:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4238:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4380,7 +3050,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4280)?(4280):__LINE__, __FUNCTION__); + (4238)?(4238):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -4394,7 +3064,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4280:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4238:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -4406,17 +3076,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4281:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4239:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4281:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4239:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4281:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4239:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4427,7 +3097,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4281)?(4281):__LINE__, __FUNCTION__); + (4239)?(4239):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4441,7 +3111,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4281:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4239:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4453,17 +3123,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4282:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4240:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4282:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4240:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4282:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4240:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4474,7 +3144,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4282)?(4282):__LINE__, __FUNCTION__); + (4240)?(4240):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -4488,7 +3158,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4282:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4240:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -4500,13 +3170,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4283:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4241:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4283:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4241:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4517,14 +3187,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4283; + argtab[3].meltbp_long = 4241; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4283:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4241:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -4534,14 +3204,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4284:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4242:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4285:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4243:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4286:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4244:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -4551,7 +3221,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4288:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4246:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -4564,7 +3234,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4289:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4247:/ quasiblock"); /*^rawallocobj*/ @@ -4584,7 +3254,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (3), (/*_.ARGSP__V18*/ meltfptr[17]), "ANDPAT_CONJ"); ; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4293:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4251:/ quasiblock"); /*^multiapply*/ @@ -4615,7 +3285,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V22*/ meltfptr[21] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[7])), (/*_#I__L9*/ meltfnum[8])));; - MELT_LOCATION("warmelt-macro.melt:4296:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4254:/ quasiblock"); /*^putslot*/ @@ -4628,7 +3298,7 @@ lab_endgetargs:; ; - MELT_LOCATION("warmelt-macro.melt:4293:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4251:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; @@ -4643,13 +3313,13 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L7*/ meltfnum[6] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4299:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4257:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4299:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4257:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4660,14 +3330,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4299; + argtab[3].meltbp_long = 4257; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4299:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4257:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[20] = 0 ;} @@ -4677,16 +3347,16 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4300:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4258:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4300:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4258:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V25*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4284:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4242:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -4702,11 +3372,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V25*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4279:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4237:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4279:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4237:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -4731,14 +3401,14 @@ melt_trace_end("PATEXPAND_AND", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_77_warmelt_macro_PATEXPAND_AND*/ +} /*end meltrout_76_warmelt_macro_PATEXPAND_AND*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_77_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -4751,7 +3421,7 @@ meltrout_78_warmelt_macro_MEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firsta #define meltcallcount 0L #endif - struct frame_meltrout_78_warmelt_macro_MEXPAND_OR_st { + struct frame_meltrout_77_warmelt_macro_MEXPAND_OR_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -4785,7 +3455,7 @@ melt_trace_start("MEXPAND_OR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4316:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4274:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -4810,13 +3480,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4317:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4275:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4317:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4275:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -4827,14 +3497,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4317; + argtab[3].meltbp_long = 4275; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4317:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4275:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -4846,17 +3516,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4318:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4276:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4318:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4276:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4318:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4276:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4867,7 +3537,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4318)?(4318):__LINE__, __FUNCTION__); + (4276)?(4276):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -4881,7 +3551,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4318:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4276:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -4893,17 +3563,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4319:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4277:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4319:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4277:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4319:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4277:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -4914,7 +3584,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4319)?(4319):__LINE__, __FUNCTION__); + (4277)?(4277):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -4928,7 +3598,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4319:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4277:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -4938,14 +3608,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4320:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4278:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4321:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4279:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4322:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4280:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -4955,7 +3625,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V14*/ meltfptr[13])));; - MELT_LOCATION("warmelt-macro.melt:4326:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4284:/ quasiblock"); /*^newclosure*/ @@ -4975,7 +3645,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ meltfptr[16])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V16*/ meltfptr[15] = /*_.LAMBDA___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4323:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4281:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -4992,7 +3662,7 @@ lab_endgetargs:; /*_#I__L5*/ meltfnum[4] = ((/*_#NBCOMP__L4*/ meltfnum[0]) < (1));; - MELT_LOCATION("warmelt-macro.melt:4330:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4288:/ cond"); /*cond*/ if (/*_#I__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5000,17 +3670,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4332:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4290:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "OR without sons"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4333:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4291:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4333:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4291:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4331:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4289:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -5019,7 +3689,7 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4288:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;} @@ -5029,10 +3699,10 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4334:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4292:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4335:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4293:/ quasiblock"); /*^rawallocobj*/ @@ -5054,13 +3724,13 @@ lab_endgetargs:; /*_.RES__V23*/ meltfptr[20] = /*_.INST__V24*/ meltfptr[23];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4338:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4296:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4338:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4296:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5071,14 +3741,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4338; + argtab[3].meltbp_long = 4296; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V23*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4338:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4296:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} @@ -5088,16 +3758,16 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4339:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4297:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V23*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4339:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4297:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V22*/ meltfptr[19] = /*_.RETURN___V27*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:4334:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4292:/ clear"); /*clear*/ /*_.RES__V23*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[24] = 0 ; @@ -5106,14 +3776,14 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18] = /*_.LET___V22*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4330:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4288:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[19] = 0 ;} ; } ; /*_.LET___V11*/ meltfptr[9] = /*_.IFELSE___V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4320:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4278:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -5131,11 +3801,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4316:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4274:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4316:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4274:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5158,14 +3828,14 @@ melt_trace_end("MEXPAND_OR", meltcallcount); melt_topframe = (struct callframe_ #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_78_warmelt_macro_MEXPAND_OR*/ +} /*end meltrout_77_warmelt_macro_MEXPAND_OR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_78_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5178,7 +3848,7 @@ meltrout_79_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_79_warmelt_macro_LAMBDA__st { + struct frame_meltrout_78_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5212,7 +3882,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4326:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4284:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -5236,7 +3906,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4326:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4284:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5253,14 +3923,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_79_warmelt_macro_LAMBDA_*/ +} /*end meltrout_78_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_79_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5273,7 +3943,7 @@ meltrout_80_warmelt_macro_PATEXPAND_OR(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_80_warmelt_macro_PATEXPAND_OR_st { + struct frame_meltrout_79_warmelt_macro_PATEXPAND_OR_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5307,7 +3977,7 @@ melt_trace_start("PATEXPAND_OR", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4343:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4301:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5332,17 +4002,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4344:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4302:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4344:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4302:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4344:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4302:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5353,7 +4023,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4344)?(4344):__LINE__, __FUNCTION__); + (4302)?(4302):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -5367,7 +4037,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4344:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4302:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -5379,17 +4049,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4345:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4303:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4345:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4303:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4345:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4303:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5400,7 +4070,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4345)?(4345):__LINE__, __FUNCTION__); + (4303)?(4303):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5414,7 +4084,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4345:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4303:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5426,17 +4096,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4346:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4304:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4346:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4304:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4346:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4304:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5447,7 +4117,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4346)?(4346):__LINE__, __FUNCTION__); + (4304)?(4304):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -5461,7 +4131,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4346:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4304:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -5473,13 +4143,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4347:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4305:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4347:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4305:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5490,14 +4160,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4347; + argtab[3].meltbp_long = 4305; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4347:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4305:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -5507,14 +4177,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4348:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4306:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4349:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4307:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4350:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4308:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -5524,7 +4194,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4352:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4310:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -5537,7 +4207,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4353:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4311:/ quasiblock"); /*^rawallocobj*/ @@ -5557,7 +4227,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (3), (/*_.ARGSP__V18*/ meltfptr[17]), "ORPAT_DISJ"); ; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4357:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4315:/ quasiblock"); /*^multiapply*/ @@ -5584,7 +4254,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V23*/ meltfptr[22] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[7])), (/*_#I__L8*/ meltfnum[7])));; - MELT_LOCATION("warmelt-macro.melt:4360:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4318:/ quasiblock"); /*^putslot*/ @@ -5598,13 +4268,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4363:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4321:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4363:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4321:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5615,14 +4285,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4363; + argtab[3].meltbp_long = 4321; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4363:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4321:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} @@ -5632,16 +4302,16 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4364:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4322:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4364:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4322:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.MULTI___V21*/ meltfptr[20] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4357:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4315:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V23*/ meltfptr[22] = 0 ; @@ -5658,7 +4328,7 @@ lab_endgetargs:; /*clear*/ /*_#ISUM__L7*/ meltfnum[6] = 0 ; /*_.LET___V13*/ meltfptr[11] = /*_.MULTI___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4348:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4306:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -5672,11 +4342,11 @@ lab_endgetargs:; /*clear*/ /*_.RES__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V21*/ meltfptr[20] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4343:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4301:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4343:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4301:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -5701,14 +4371,14 @@ melt_trace_end("PATEXPAND_OR", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_80_warmelt_macro_PATEXPAND_OR*/ +} /*end meltrout_79_warmelt_macro_PATEXPAND_OR*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_80_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -5721,7 +4391,7 @@ meltrout_81_warmelt_macro_MEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_81_warmelt_macro_MEXPAND_TUPLE_st { + struct frame_meltrout_80_warmelt_macro_MEXPAND_TUPLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -5755,7 +4425,7 @@ melt_trace_start("MEXPAND_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4379:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4337:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -5780,13 +4450,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4380:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4338:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4380:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4338:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5797,14 +4467,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4380; + argtab[3].meltbp_long = 4338; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4380:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4338:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -5816,17 +4486,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4381:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4339:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4381:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4339:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4381:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4339:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5837,7 +4507,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4381)?(4381):__LINE__, __FUNCTION__); + (4339)?(4339):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -5851,7 +4521,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4381:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4339:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -5863,17 +4533,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4382:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4340:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4382:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4340:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4382:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4340:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -5884,7 +4554,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4382)?(4382):__LINE__, __FUNCTION__); + (4340)?(4340):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -5898,7 +4568,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4382:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4340:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -5908,18 +4578,18 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4383:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4341:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4384:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4342:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4385:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4343:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4386:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4344:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -5930,7 +4600,7 @@ lab_endgetargs:; /*_.XARGTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4387:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4345:/ quasiblock"); /*^rawallocobj*/ @@ -5952,13 +4622,13 @@ lab_endgetargs:; /*_.RES__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4391:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4349:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4391:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4349:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -5969,14 +4639,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4391; + argtab[3].meltbp_long = 4349; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4391:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4349:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -5986,16 +4656,16 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4392:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4350:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4392:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4350:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4383:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4341:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6007,11 +4677,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4379:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4337:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4379:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4337:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6034,14 +4704,14 @@ melt_trace_end("MEXPAND_TUPLE", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_81_warmelt_macro_MEXPAND_TUPLE*/ +} /*end meltrout_80_warmelt_macro_MEXPAND_TUPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_81_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6054,7 +4724,7 @@ meltrout_82_warmelt_macro_PATEXPAND_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t f #define meltcallcount 0L #endif - struct frame_meltrout_82_warmelt_macro_PATEXPAND_TUPLE_st { + struct frame_meltrout_81_warmelt_macro_PATEXPAND_TUPLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6088,7 +4758,7 @@ melt_trace_start("PATEXPAND_TUPLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4396:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4354:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6113,17 +4783,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4397:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4355:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4397:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4355:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4397:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4355:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6134,7 +4804,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4397)?(4397):__LINE__, __FUNCTION__); + (4355)?(4355):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6148,7 +4818,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4397:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4355:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6160,17 +4830,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4398:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4356:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4398:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4356:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4398:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4356:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6181,7 +4851,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4398)?(4398):__LINE__, __FUNCTION__); + (4356)?(4356):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6195,7 +4865,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4398:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4356:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6207,17 +4877,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4399:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4357:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4399:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4357:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4399:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4357:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6228,7 +4898,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4399)?(4399):__LINE__, __FUNCTION__); + (4357)?(4357):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6242,7 +4912,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4399:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4357:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6254,13 +4924,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4400:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4358:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4400:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4358:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6271,14 +4941,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4400; + argtab[3].meltbp_long = 4358; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4400:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4358:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -6288,14 +4958,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4401:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4359:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4402:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4360:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4403:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4361:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -6305,7 +4975,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4405:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4363:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -6318,7 +4988,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4406:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4364:/ quasiblock"); /*^rawallocobj*/ @@ -6340,13 +5010,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4410:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4368:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4410:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4368:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6357,14 +5027,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4410; + argtab[3].meltbp_long = 4368; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4410:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4368:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -6374,16 +5044,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4411:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4369:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4411:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4369:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4401:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4359:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -6399,11 +5069,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4396:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4354:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4396:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4354:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6428,14 +5098,14 @@ melt_trace_end("PATEXPAND_TUPLE", meltcallcount); melt_topframe = (struct callf #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_82_warmelt_macro_PATEXPAND_TUPLE*/ +} /*end meltrout_81_warmelt_macro_PATEXPAND_TUPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_82_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6448,7 +5118,7 @@ meltrout_83_warmelt_macro_MEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firs #define meltcallcount 0L #endif - struct frame_meltrout_83_warmelt_macro_MEXPAND_LIST_st { + struct frame_meltrout_82_warmelt_macro_MEXPAND_LIST_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6482,7 +5152,7 @@ melt_trace_start("MEXPAND_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4426:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4384:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6507,13 +5177,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4427:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4385:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4427:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4385:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6524,14 +5194,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4427; + argtab[3].meltbp_long = 4385; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4427:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4385:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -6543,17 +5213,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4428:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4386:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4428:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4386:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4428:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4386:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6564,7 +5234,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4428)?(4428):__LINE__, __FUNCTION__); + (4386)?(4386):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6578,7 +5248,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4428:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4386:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6590,17 +5260,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4429:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4387:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4429:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4387:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4429:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4387:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6611,7 +5281,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4429)?(4429):__LINE__, __FUNCTION__); + (4387)?(4387):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6625,7 +5295,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4429:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4387:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6635,18 +5305,18 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4430:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4388:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4431:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4389:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4432:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4390:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4433:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4391:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -6657,7 +5327,7 @@ lab_endgetargs:; /*_.XARGTUP__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CONT__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4434:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4392:/ quasiblock"); /*^rawallocobj*/ @@ -6679,13 +5349,13 @@ lab_endgetargs:; /*_.RES__V15*/ meltfptr[14] = /*_.INST__V16*/ meltfptr[15];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4438:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4396:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4438:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4396:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6696,14 +5366,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4438; + argtab[3].meltbp_long = 4396; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RES__V15*/ meltfptr[14]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4438:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4396:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} @@ -6713,16 +5383,16 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4439:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4397:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4439:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4397:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4430:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4388:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -6734,11 +5404,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V19*/ meltfptr[17] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4426:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4384:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4426:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4384:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -6761,14 +5431,14 @@ melt_trace_end("MEXPAND_LIST", meltcallcount); melt_topframe = (struct callfram #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_83_warmelt_macro_MEXPAND_LIST*/ +} /*end meltrout_82_warmelt_macro_MEXPAND_LIST*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_83_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -6781,7 +5451,7 @@ meltrout_84_warmelt_macro_PATEXPAND_LIST(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_84_warmelt_macro_PATEXPAND_LIST_st { + struct frame_meltrout_83_warmelt_macro_PATEXPAND_LIST_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -6815,7 +5485,7 @@ melt_trace_start("PATEXPAND_LIST", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4443:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4401:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -6840,17 +5510,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4444:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4402:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4444:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4402:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4444:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4402:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6861,7 +5531,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4444)?(4444):__LINE__, __FUNCTION__); + (4402)?(4402):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -6875,7 +5545,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4444:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4402:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -6887,17 +5557,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4445:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4403:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4445:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4403:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4445:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4403:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6908,7 +5578,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4445)?(4445):__LINE__, __FUNCTION__); + (4403)?(4403):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -6922,7 +5592,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4445:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4403:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -6934,17 +5604,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4446:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4404:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_PATTERN_EXPANSION_CONTEXT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4446:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4404:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4446:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4404:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -6955,7 +5625,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4446)?(4446):__LINE__, __FUNCTION__); + (4404)?(4404):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -6969,7 +5639,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4446:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4404:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -6981,13 +5651,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4447:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4405:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4447:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4405:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -6998,14 +5668,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4447; + argtab[3].meltbp_long = 4405; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4447:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4405:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} @@ -7015,14 +5685,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4448:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4406:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4449:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4407:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4450:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4408:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ meltfptr[14] = slot; }; ; @@ -7032,7 +5702,7 @@ lab_endgetargs:; /*_.CURPAIR__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V16*/ meltfptr[15])));; - MELT_LOCATION("warmelt-macro.melt:4452:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4410:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -7045,7 +5715,7 @@ lab_endgetargs:; /*_.ARGSP__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4453:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4411:/ quasiblock"); /*^rawallocobj*/ @@ -7067,13 +5737,13 @@ lab_endgetargs:; /*_.RES__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4457:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4415:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4457:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4415:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7084,14 +5754,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4457; + argtab[3].meltbp_long = 4415; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RES__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4457:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4415:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} @@ -7101,16 +5771,16 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4458:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4416:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V19*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:4458:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4416:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V23*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4448:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4406:/ clear"); /*clear*/ /*_.CONT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V15*/ meltfptr[14] = 0 ; @@ -7126,11 +5796,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V23*/ meltfptr[21] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4443:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4401:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4443:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4401:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -7155,14 +5825,14 @@ melt_trace_end("PATEXPAND_LIST", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_84_warmelt_macro_PATEXPAND_LIST*/ +} /*end meltrout_83_warmelt_macro_PATEXPAND_LIST*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_84_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -7175,7 +5845,7 @@ meltrout_85_warmelt_macro_MEXPAND_MATCH(meltclosure_ptr_t closp_, melt_ptr_t fir #define meltcallcount 0L #endif - struct frame_meltrout_85_warmelt_macro_MEXPAND_MATCH_st { + struct frame_meltrout_84_warmelt_macro_MEXPAND_MATCH_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -7209,7 +5879,7 @@ melt_trace_start("MEXPAND_MATCH", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4474:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4432:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -7234,17 +5904,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4475:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4433:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4475:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4433:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4475:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4433:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7255,7 +5925,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4475)?(4475):__LINE__, __FUNCTION__); + (4433)?(4433):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -7269,7 +5939,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4475:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4433:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -7281,17 +5951,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4476:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4434:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4476:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4434:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4476:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4434:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7302,7 +5972,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4476)?(4476):__LINE__, __FUNCTION__); + (4434)?(4434):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -7316,7 +5986,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4476:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4434:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -7328,13 +5998,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4477:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4435:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4477:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4435:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7345,14 +6015,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4477; + argtab[3].meltbp_long = 4435; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4477:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4435:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -7362,14 +6032,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4478:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4436:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4479:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4437:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4480:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4438:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -7383,7 +6053,7 @@ lab_endgetargs:; /*_.MSEXP__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.PAIR_TAIL__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:4482:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4440:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7404,7 +6074,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V20*/ meltfptr[19] = (melt_pair_tail((melt_ptr_t)(/*_.PAIR_TAIL__V19*/ meltfptr[18])));; - MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4444:/ quasiblock"); /*^newclosure*/ @@ -7418,7 +6088,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V21*/ meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4483:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4441:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7431,20 +6101,20 @@ lab_endgetargs:; ; /*_#NBMATCH__L4*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:4492:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4450:/ quasiblock"); /*_.LX__V25*/ meltfptr[24] = (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (-1)));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4493:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4451:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4493:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4451:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7455,14 +6125,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4493; + argtab[3].meltbp_long = 4451; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LX__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4493:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4451:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} @@ -7476,7 +6146,7 @@ lab_endgetargs:; /*_.LET___V24*/ meltfptr[23] = /*_.LX__V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4492:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4450:/ clear"); /*clear*/ /*_.LX__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; @@ -7491,13 +6161,13 @@ lab_endgetargs:; (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[8]))));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4498:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4456:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4498:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4456:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7508,14 +6178,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4498; + argtab[3].meltbp_long = 4456; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4498:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4456:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} @@ -7525,7 +6195,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4499:/ loop"); + MELT_LOCATION("warmelt-macro.melt:4457:/ loop"); /*loop*/{ labloop_MATCHLOOP_1:;/*^loopbody*/ /*^block*/ @@ -7533,7 +6203,7 @@ lab_endgetargs:; /*_#I__L8*/ meltfnum[6] = ((/*_#IX__L6*/ meltfnum[4]) < (0));; - MELT_LOCATION("warmelt-macro.melt:4500:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4458:/ cond"); /*cond*/ if (/*_#I__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7554,20 +6224,20 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4501:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4459:/ quasiblock"); /*_.CURMATCH__V34*/ meltfptr[33] = (melt_multiple_nth((melt_ptr_t)(/*_.MEXPTUPLE__V23*/ meltfptr[22]), (/*_#IX__L6*/ meltfnum[4])));; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4502:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4460:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4502:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4460:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7578,14 +6248,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4502; + argtab[3].meltbp_long = 4460; /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4502:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4460:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} @@ -7599,20 +6269,20 @@ lab_endgetargs:; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4505:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4463:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4506:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4464:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), 2, "SEXP_CONTENTS");/*_.CURMATCHCONT__V37*/ meltfptr[35] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4507:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4465:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMATCH__V34*/ meltfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V38*/ meltfptr[37] = slot; }; ; @@ -7634,7 +6304,7 @@ lab_endgetargs:; /*_.MAKE_MAPOBJECT__V43*/ meltfptr[42] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[11])), (13)));; - MELT_LOCATION("warmelt-macro.melt:4510:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4468:/ quasiblock"); /*^rawallocobj*/ @@ -7659,7 +6329,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V45*/ meltfptr[44]), (2), (/*_.MAKE_MAPOBJECT__V43*/ meltfptr[42]), "PCTX_VARMAP"); ; /*_.CURPATCTX__V44*/ meltfptr[43] = /*_.INST__V45*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:4514:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4472:/ quasiblock"); /*^apply*/ @@ -7677,13 +6347,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4515:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4473:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4515:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4473:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7694,14 +6364,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4515; + argtab[3].meltbp_long = 4473; /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CP__V47*/ meltfptr[46]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V48*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4515:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4473:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ meltfptr[48] = 0 ;} @@ -7713,7 +6383,7 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4516:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4474:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -7721,7 +6391,7 @@ lab_endgetargs:; /*cond*/ if (/*_.CP__V47*/ meltfptr[46]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V51*/ meltfptr[50] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4516:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4474:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -7732,7 +6402,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check curpat"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4516)?(4516):__LINE__, __FUNCTION__); + (4474)?(4474):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ; @@ -7746,7 +6416,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[48] = /*_.IFELSE___V51*/ meltfptr[50];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4516:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4474:/ clear"); /*clear*/ /*_.IFELSE___V51*/ meltfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ @@ -7758,14 +6428,14 @@ lab_endgetargs:; /*_.LET___V46*/ meltfptr[45] = /*_.CP__V47*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:4514:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4472:/ clear"); /*clear*/ /*_.CP__V47*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V48*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V50*/ meltfptr[48] = 0 ; /*_.CURPAT__V52*/ meltfptr[50] = /*_.LET___V46*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:4518:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4476:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -7776,7 +6446,7 @@ lab_endgetargs:; /*_.CURBODY__V53*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.CURMATCHRESTPAIRS__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4519:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4477:/ quasiblock"); /*^rawallocobj*/ @@ -7803,13 +6473,13 @@ lab_endgetargs:; /*_.CURCASE__V54*/ meltfptr[47] = /*_.INST__V55*/ meltfptr[48];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4482:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4524:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4482:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7820,14 +6490,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4524; + argtab[3].meltbp_long = 4482; /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURCASE__V54*/ meltfptr[47]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V56*/ meltfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4524:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4482:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = 0 ;} @@ -7839,11 +6509,11 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4525:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4483:/ locexp"); meltgc_prepend_list((melt_ptr_t)(/*_.CASELIST__V29*/ meltfptr[24]), (melt_ptr_t)(/*_.CURCASE__V54*/ meltfptr[47]));} ; - MELT_LOCATION("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4464:/ clear"); /*clear*/ /*_.CURMATCHCONT__V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.CURMATCHLOC__V38*/ meltfptr[37] = 0 ; @@ -7872,17 +6542,17 @@ lab_endgetargs:; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4505:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4463:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:4529:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4487:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "(MATCH <expr> <match-case>...) with non sexpr matchcase"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4528:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); /*epilog*/ @@ -7891,7 +6561,7 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-macro.melt:4501:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4459:/ clear"); /*clear*/ /*_.CURMATCH__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; @@ -7899,11 +6569,11 @@ lab_endgetargs:; /*clear*/ /*_#IS_A__L10*/ meltfnum[8] = 0 ; /*_#I__L13*/ meltfnum[10] = ((/*_#IX__L6*/ meltfnum[4]) - (1));; - MELT_LOCATION("warmelt-macro.melt:4531:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4489:/ compute"); /*_#IX__L6*/ meltfnum[4] = /*_#SETQ___L14*/ meltfnum[8] = /*_#I__L13*/ meltfnum[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4499:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4457:/ clear"); /*clear*/ /*_#I__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#I__L13*/ meltfnum[10] = 0 ; @@ -7919,13 +6589,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4532:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4490:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4532:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4490:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -7936,14 +6606,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4532; + argtab[3].meltbp_long = 4490; /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CASELIST__V29*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V58*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4532:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4490:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[35] = 0 ;} @@ -7953,10 +6623,10 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4533:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4491:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4534:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4492:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -7967,7 +6637,7 @@ lab_endgetargs:; ; /*_.LASTCASE__V62*/ meltfptr[39] = (melt_multiple_nth((melt_ptr_t)(/*_.CASETUPL__V61*/ meltfptr[38]), (-1)));; - MELT_LOCATION("warmelt-macro.melt:4536:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4494:/ quasiblock"); /*^rawallocobj*/ @@ -7992,7 +6662,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V64*/ meltfptr[41]), (3), (/*_.CASETUPL__V61*/ meltfptr[38]), "SMAT_CASES"); ; /*_.SMAT__V63*/ meltfptr[40] = /*_.INST__V64*/ meltfptr[41];; - MELT_LOCATION("warmelt-macro.melt:4544:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4502:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.LASTCASE__V62*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_SOURCE_MATCH_CASE*/ meltfrout->tabval[13])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8008,7 +6678,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L16*/ meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.SCAM_PATT__V65*/ meltfptr[42]), (melt_ptr_t)((/*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ meltfrout->tabval[16])));; - MELT_LOCATION("warmelt-macro.melt:4543:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4501:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L16*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8016,7 +6686,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4546:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4504:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "last (MATCH ...) clause is not a joker"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8026,13 +6696,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4548:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4506:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4548:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4506:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8043,14 +6713,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4548; + argtab[3].meltbp_long = 4506; /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SMAT__V63*/ meltfptr[40]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V66*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4548:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4506:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ meltfptr[45] = 0 ;} @@ -8060,16 +6730,16 @@ lab_endgetargs:; /*_.IFCPP___V66*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4549:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4507:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SMAT__V63*/ meltfptr[40];; - MELT_LOCATION("warmelt-macro.melt:4549:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4507:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V60*/ meltfptr[37] = /*_.RETURN___V68*/ meltfptr[50];; - MELT_LOCATION("warmelt-macro.melt:4533:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4491:/ clear"); /*clear*/ /*_.CASETUPL__V61*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.LASTCASE__V62*/ meltfptr[39] = 0 ; @@ -8085,7 +6755,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V68*/ meltfptr[50] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V60*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:4478:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4436:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -8125,11 +6795,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V58*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V60*/ meltfptr[37] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4474:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4432:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4474:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4432:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8152,14 +6822,14 @@ melt_trace_end("MEXPAND_MATCH", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_85_warmelt_macro_MEXPAND_MATCH*/ +} /*end meltrout_84_warmelt_macro_MEXPAND_MATCH*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_85_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8172,7 +6842,7 @@ meltrout_86_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_86_warmelt_macro_LAMBDA__st { + struct frame_meltrout_85_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8206,7 +6876,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4486:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4444:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -8217,7 +6887,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.C__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4487:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4445:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8225,7 +6895,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4488:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4446:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "MATCH with non-sexpr"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8233,11 +6903,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4486:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4444:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4486:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4444:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -8254,14 +6924,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_86_warmelt_macro_LAMBDA_*/ +} /*end meltrout_85_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_86_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -8274,7 +6944,7 @@ meltrout_87_warmelt_macro_MEXPAND_LETBINDING(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_87_warmelt_macro_MEXPAND_LETBINDING_st { + struct frame_meltrout_86_warmelt_macro_MEXPAND_LETBINDING_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -8308,7 +6978,7 @@ melt_trace_start("MEXPAND_LETBINDING", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4563:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4521:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -8333,13 +7003,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4564:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4522:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4564:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4522:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -8350,14 +7020,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4564; + argtab[3].meltbp_long = 4522; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4564:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4522:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} @@ -8369,17 +7039,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4565:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4523:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4565:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4523:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4565:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4523:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8390,7 +7060,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4565)?(4565):__LINE__, __FUNCTION__); + (4523)?(4523):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -8404,7 +7074,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4565:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4523:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -8416,17 +7086,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4566:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4524:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4566:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4524:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4566:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4524:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -8437,7 +7107,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4566)?(4566):__LINE__, __FUNCTION__); + (4524)?(4524):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ; @@ -8451,7 +7121,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4566:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4524:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V10*/ meltfptr[9] = 0 ;} @@ -8461,14 +7131,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4567:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4525:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4568:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4526:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4569:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4527:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -8490,30 +7160,30 @@ lab_endgetargs:; /*_.PAIR_HEAD__V19*/ meltfptr[18] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4576:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4534:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_HEAD__V19*/ meltfptr[18];; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:4577:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4535:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4578:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4536:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 2, "SYMB_DATA");/*_.CTY__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4579:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4537:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 1, "NAMED_NAME");/*_.TYNAM__V24*/ meltfptr[23] = slot; }; ; /*_#IS_NOT_A__L5*/ meltfnum[4] = !melt_is_instance_of((melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:4582:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4540:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8523,36 +7193,36 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4583:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4541:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4582:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4540:/ cond.else"); /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4584:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4542:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V26*/ meltfptr[25] = slot; }; ; /*_#__L6*/ meltfnum[5] = ((/*_.CTYPE_KEYWORD__V26*/ meltfptr[25]) == (/*_.CURARG__V18*/ meltfptr[17]));; - MELT_LOCATION("warmelt-macro.melt:4584:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4542:/ cond"); /*cond*/ if (/*_#__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4585:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4543:/ compute"); /*_.CTYP__V14*/ meltfptr[13] = /*_.SETQ___V28*/ meltfptr[27] = /*_.CTY__V23*/ meltfptr[22];; /*_.IFELSE___V27*/ meltfptr[26] = /*_.SETQ___V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4542:/ clear"); /*clear*/ /*_.SETQ___V28*/ meltfptr[27] = 0 ;} ; } else {/*^cond.else*/ @@ -8560,26 +7230,26 @@ lab_endgetargs:; /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4586:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4544:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CTY__V23*/ meltfptr[22]), 10, "CTYPE_ALTKEYWORD");/*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27] = slot; }; ; /*_#__L7*/ meltfnum[6] = ((/*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27]) == (/*_.CURARG__V18*/ meltfptr[17]));; - MELT_LOCATION("warmelt-macro.melt:4586:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4544:/ cond"); /*cond*/ if (/*_#__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4587:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4545:/ compute"); /*_.CTYP__V14*/ meltfptr[13] = /*_.SETQ___V30*/ meltfptr[29] = /*_.CTY__V23*/ meltfptr[22];; { - MELT_LOCATION("warmelt-macro.melt:4588:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4546:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "obsolete alternate ctype keyword in let binding"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4548:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYP__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[5])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8591,7 +7261,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4548:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CTYPE_KEYWORD__V31*/ meltfptr[30]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8605,10 +7275,10 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4590:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4548:/ locexp"); melt_inform_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "prefered ctype keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[31]));} ; - MELT_LOCATION("warmelt-macro.melt:4586:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4544:/ quasiblock"); /*epilog*/ @@ -8627,10 +7297,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4593:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4551:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding with invalid type keyword"), (melt_ptr_t)(/*_.TYNAM__V24*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4592:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4550:/ quasiblock"); /*epilog*/ @@ -8640,7 +7310,7 @@ lab_endgetargs:; ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4542:/ clear"); /*clear*/ /*_.CTYPE_ALTKEYWORD__V29*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#__L7*/ meltfnum[6] = 0 ;} @@ -8650,7 +7320,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4582:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4540:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_#__L6*/ meltfnum[5] = 0 ; @@ -8661,15 +7331,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4595:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4553:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V34*/ meltfptr[30] = /*_.PAIR_TAIL__V33*/ meltfptr[29];; /*_.PAIR_HEAD__V35*/ meltfptr[31] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4596:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4554:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[27] = /*_.PAIR_HEAD__V35*/ meltfptr[31];; /*_.LET___V22*/ meltfptr[21] = /*_.SETQ___V36*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4578:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4536:/ clear"); /*clear*/ /*_.CTY__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.TYNAM__V24*/ meltfptr[23] = 0 ; @@ -8688,7 +7358,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4577:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4535:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[21] = 0 ;} ; } else {/*^cond.else*/ @@ -8700,13 +7370,13 @@ lab_endgetargs:; /*_#IS_A__L8*/ meltfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:4598:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4556:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4600:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4558:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ meltfptr[26] = slot; }; ; @@ -8714,13 +7384,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4599:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4557:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "letbinding cannot bind keyword"), (melt_ptr_t)(/*_.NAMED_NAME__V38*/ meltfptr[26]));} ; /*clear*/ /*_.IFELSE___V37*/ meltfptr[25] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4598:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4556:/ clear"); /*clear*/ /*_.NAMED_NAME__V38*/ meltfptr[26] = 0 ;} ; } else {/*^cond.else*/ @@ -8730,23 +7400,23 @@ lab_endgetargs:; /*_#IS_A__L9*/ meltfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.CURARG__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:4601:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4559:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4602:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4560:/ compute"); /*_.VAR__V15*/ meltfptr[14] = /*_.SETQ___V40*/ meltfptr[23] = /*_.CURARG__V18*/ meltfptr[17];; /*_.PAIR_TAIL__V41*/ meltfptr[24] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4603:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4561:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V42*/ meltfptr[29] = /*_.PAIR_TAIL__V41*/ meltfptr[24];; /*_.PAIR_HEAD__V43*/ meltfptr[30] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4604:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4562:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V44*/ meltfptr[31] = /*_.PAIR_HEAD__V43*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4601:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4559:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[27] = /*_.SETQ___V44*/ meltfptr[31];; @@ -8755,7 +7425,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[22] = /*_.PROGN___V45*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4601:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4559:/ clear"); /*clear*/ /*_.SETQ___V40*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V41*/ meltfptr[24] = 0 ; @@ -8778,7 +7448,7 @@ lab_endgetargs:; /*_.IFELSE___V37*/ meltfptr[25] = /*_.IFELSE___V39*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4598:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4556:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V39*/ meltfptr[22] = 0 ;} @@ -8787,7 +7457,7 @@ lab_endgetargs:; ; /*_#NULL__L10*/ meltfnum[4] = ((/*_.VAR__V15*/ meltfptr[14]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4606:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4564:/ cond"); /*cond*/ if (/*_#NULL__L10*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8795,7 +7465,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4607:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4565:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing variable in letbinding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -8803,13 +7473,13 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4608:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4566:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4610:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4568:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -8824,13 +7494,13 @@ lab_endgetargs:; /*_.EXPR__V16*/ meltfptr[15] = /*_.SETQ___V47*/ meltfptr[26] = /*_.MACROEXPAND_1__V46*/ meltfptr[21];; /*_.PAIR_TAIL__V48*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4611:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4569:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V49*/ meltfptr[24] = /*_.PAIR_TAIL__V48*/ meltfptr[23];; /*_.PAIR_HEAD__V50*/ meltfptr[29] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION("warmelt-macro.melt:4612:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4570:/ compute"); /*_.CURARG__V18*/ meltfptr[17] = /*_.SETQ___V51*/ meltfptr[30] = /*_.PAIR_HEAD__V50*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:4613:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4571:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ meltfptr[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8846,12 +7516,12 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4609:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4567:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4608:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4566:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V46*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V47*/ meltfptr[26] = 0 ; @@ -8866,7 +7536,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4615:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4573:/ quasiblock"); /*^apply*/ @@ -8880,24 +7550,24 @@ lab_endgetargs:; ; /*_#NULL__L11*/ meltfnum[5] = ((/*_.PREVBIND__V53*/ meltfptr[27]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4617:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4575:/ cond"); /*cond*/ if (/*_#NULL__L11*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V54*/ meltfptr[22] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4617:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4575:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4618:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4576:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4619:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4577:/ quasiblock"); /*^cond*/ @@ -8912,7 +7582,7 @@ lab_endgetargs:; /*_.PREVLOC__V56*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4622:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4580:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8926,16 +7596,16 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4620:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4578:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "local let binding hides upper one"), (melt_ptr_t)(/*_.NAMED_NAME__V57*/ meltfptr[23]));} ; - MELT_LOCATION("warmelt-macro.melt:4623:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4581:/ cond"); /*cond*/ if (/*_.PREVLOC__V56*/ meltfptr[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4626:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4584:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -8951,13 +7621,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4624:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4582:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.PREVLOC__V56*/ meltfptr[26]), ( "here is the hidden binding"), (melt_ptr_t)(/*_.NAMED_NAME__V58*/ meltfptr[24]));} ; /*clear*/ /*_.IFELSE___V55*/ meltfptr[21] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4623:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4581:/ clear"); /*clear*/ /*_.NAMED_NAME__V58*/ meltfptr[24] = 0 ;} ; } else {/*^cond.else*/ @@ -8966,27 +7636,27 @@ lab_endgetargs:; } ; - MELT_LOCATION("warmelt-macro.melt:4619:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4577:/ clear"); /*clear*/ /*_.PREVLOC__V56*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V57*/ meltfptr[23] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4618:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4576:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.PREVBIND__V53*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_FIXED_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:4629:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4587:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4632:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4590:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.VAR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[6])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -9002,13 +7672,13 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4630:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4588:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "local let binding hides definition"), (melt_ptr_t)(/*_.NAMED_NAME__V60*/ meltfptr[30]));} ; /*clear*/ /*_.IFELSE___V59*/ meltfptr[29] = 0 ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4629:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4587:/ clear"); /*clear*/ /*_.NAMED_NAME__V60*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ @@ -9021,7 +7691,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[21] = /*_.IFELSE___V59*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4618:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4576:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V59*/ meltfptr[29] = 0 ;} @@ -9031,7 +7701,7 @@ lab_endgetargs:; /*_.IFELSE___V54*/ meltfptr[22] = /*_.IFELSE___V55*/ meltfptr[21];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4617:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4575:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V55*/ meltfptr[21] = 0 ;} @@ -9040,16 +7710,16 @@ lab_endgetargs:; ; /*_.LET___V52*/ meltfptr[31] = /*_.IFELSE___V54*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4615:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4573:/ clear"); /*clear*/ /*_.PREVBIND__V53*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L11*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V54*/ meltfptr[22] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4635:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4593:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4636:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4594:/ quasiblock"); /*^rawallocobj*/ @@ -9079,22 +7749,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V63*/ meltfptr[23]), (4), (/*_.EXPR__V16*/ meltfptr[15]), "SLETB_EXPR"); ; /*_.LETB__V62*/ meltfptr[26] = /*_.INST__V63*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4641:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4599:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETB__V62*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4641:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4599:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V61*/ meltfptr[24] = /*_.RETURN___V64*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:4635:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4593:/ clear"); /*clear*/ /*_.LETB__V62*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V64*/ meltfptr[30] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V61*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4567:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4525:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -9126,11 +7796,11 @@ lab_endgetargs:; /*clear*/ /*_.LET___V52*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V61*/ meltfptr[24] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4563:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4521:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4563:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4521:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9153,14 +7823,14 @@ melt_trace_end("MEXPAND_LETBINDING", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_87_warmelt_macro_MEXPAND_LETBINDING*/ +} /*end meltrout_86_warmelt_macro_MEXPAND_LETBINDING*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_87_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9173,7 +7843,7 @@ meltrout_88_warmelt_macro_MEXPAND_LET(meltclosure_ptr_t closp_, melt_ptr_t first #define meltcallcount 0L #endif - struct frame_meltrout_88_warmelt_macro_MEXPAND_LET_st { + struct frame_meltrout_87_warmelt_macro_MEXPAND_LET_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9207,7 +7877,7 @@ melt_trace_start("MEXPAND_LET", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4645:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4603:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -9232,17 +7902,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4646:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4604:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4646:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4604:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4646:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4604:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9253,7 +7923,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4646)?(4646):__LINE__, __FUNCTION__); + (4604)?(4604):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -9267,7 +7937,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4646:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4604:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -9279,17 +7949,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4647:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4605:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4647:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4605:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4647:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4605:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9300,7 +7970,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4647)?(4647):__LINE__, __FUNCTION__); + (4605)?(4605):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -9314,7 +7984,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4647:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4605:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -9324,14 +7994,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4648:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4606:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4649:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4607:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4650:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4608:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -9349,7 +8019,7 @@ lab_endgetargs:; /*_.BINDEXPR__V15*/ meltfptr[14] = (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4654:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4612:/ apply"); /*apply*/{ /*_.NEWENV__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -9358,7 +8028,7 @@ lab_endgetargs:; /*^compute*/ /*_.BODYTUP__V18*/ meltfptr[17] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4658:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4616:/ cond"); /*cond*/ if (/*_.BINDEXPR__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9366,19 +8036,19 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4659:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4617:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4662:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4620:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V15*/ meltfptr[14]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V21*/ meltfptr[20] = slot; }; ; /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V21*/ meltfptr[20])));; - MELT_LOCATION("warmelt-macro.melt:4664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4622:/ quasiblock"); /*^newclosure*/ @@ -9404,7 +8074,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[2] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4661:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4619:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9415,12 +8085,12 @@ lab_endgetargs:; /*_.PAIRLIST_TO_MULTIPLE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4660:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4618:/ compute"); /*_.BINDTUP__V17*/ meltfptr[16] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIRLIST_TO_MULTIPLE__V25*/ meltfptr[24];; /*_.IFELSE___V20*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4659:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4617:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; @@ -9440,7 +8110,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4668:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4626:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing letbinding-s in LET"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; @@ -9454,7 +8124,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4658:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4616:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} @@ -9464,7 +8134,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4672:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4630:/ quasiblock"); /*^newclosure*/ @@ -9478,7 +8148,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V28*/ meltfptr[21])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V16*/ meltfptr[15]); ; /*_.LAMBDA___V27*/ meltfptr[20] = /*_.LAMBDA___V28*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4670:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4628:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9487,7 +8157,7 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V29*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.BINDTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4684:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4642:/ quasiblock"); /*^newclosure*/ @@ -9507,7 +8177,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V31*/ meltfptr[25])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V30*/ meltfptr[24] = /*_.LAMBDA___V31*/ meltfptr[25];; - MELT_LOCATION("warmelt-macro.melt:4683:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4641:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9520,10 +8190,10 @@ lab_endgetargs:; ; /*^compute*/ /*_.BODYTUP__V18*/ meltfptr[17] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4685:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4643:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4686:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4644:/ quasiblock"); /*^rawallocobj*/ @@ -9548,22 +8218,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (3), (/*_.BODYTUP__V18*/ meltfptr[17]), "SLET_BODY"); ; /*_.LETR__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:4690:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4648:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V35*/ meltfptr[34];; - MELT_LOCATION("warmelt-macro.melt:4690:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4648:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[33] = /*_.RETURN___V37*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:4685:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4643:/ clear"); /*clear*/ /*_.LETR__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V37*/ meltfptr[36] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V34*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:4648:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4606:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -9595,11 +8265,11 @@ lab_endgetargs:; /*clear*/ /*_.SETQ___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V34*/ meltfptr[33] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4645:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4603:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4645:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4603:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9620,14 +8290,14 @@ melt_trace_end("MEXPAND_LET", meltcallcount); melt_topframe = (struct callframe #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_88_warmelt_macro_MEXPAND_LET*/ +} /*end meltrout_87_warmelt_macro_MEXPAND_LET*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_88_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9640,7 +8310,7 @@ meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_89_warmelt_macro_LAMBDA__st { + struct frame_meltrout_88_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9674,7 +8344,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4664:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4622:/ getarg"); /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -9685,7 +8355,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.B__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4665:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4623:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9693,7 +8363,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4666:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4624:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "sexpr expected in LET binding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -9701,7 +8371,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4667:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4625:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -9712,11 +8382,11 @@ lab_endgetargs:; /*_.MEXPAND_LETBINDING__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!MEXPAND_LETBINDING*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.B__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4622:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4664:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4622:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9735,14 +8405,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_89_warmelt_macro_LAMBDA_*/ +} /*end meltrout_88_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_89_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -9755,7 +8425,7 @@ meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_90_warmelt_macro_LAMBDA__st { + struct frame_meltrout_89_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -9789,7 +8459,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4672:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4630:/ getarg"); /*_.SLB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -9800,17 +8470,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4673:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4631:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_LET_BINDING*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4673:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4631:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4673:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4631:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9821,7 +8491,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4673)?(4673):__LINE__, __FUNCTION__); + (4631)?(4631):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; @@ -9835,7 +8505,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4673:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4631:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} @@ -9845,22 +8515,22 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4674:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4632:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4675:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4633:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 4, "SLETB_EXPR");/*_.SX__V6*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4677:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4635:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 3, "SLETB_BINDER");/*_.SLETB_BINDER__V7*/ meltfptr[6] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4678:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4636:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SLB__V2*/ meltfptr[1]), 2, "SLETB_TYPE");/*_.SLETB_TYPE__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4676:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4634:/ quasiblock"); /*^rawallocobj*/ @@ -9887,7 +8557,7 @@ lab_endgetargs:; /*_.LB__V9*/ meltfptr[8] = /*_.INST__V10*/ meltfptr[9];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4680:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4638:/ cppif.then"); /*^block*/ /*anyblock*/{ @@ -9897,11 +8567,11 @@ lab_endgetargs:; /*_#NOT__L3*/ meltfnum[2] = (!(/*_#IS_LIST__L2*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:4680:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4638:/ cond"); /*cond*/ if (/*_#NOT__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4680:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4638:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -9912,7 +8582,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4680)?(4680):__LINE__, __FUNCTION__); + (4638)?(4638):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; @@ -9926,7 +8596,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4680:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4638:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L3*/ meltfnum[2] = 0 ; @@ -9938,7 +8608,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4681:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4639:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -9949,7 +8619,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.PUT_ENV__V13*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:4674:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4632:/ clear"); /*clear*/ /*_.SX__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SLETB_BINDER__V7*/ meltfptr[6] = 0 ; @@ -9961,11 +8631,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V13*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4672:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4630:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:4672:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4630:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -9984,14 +8654,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_90_warmelt_macro_LAMBDA_*/ +} /*end meltrout_89_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_90_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10004,7 +8674,7 @@ meltrout_91_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_91_warmelt_macro_LAMBDA__st { + struct frame_meltrout_90_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10038,7 +8708,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4684:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4642:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -10062,7 +8732,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4684:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4642:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10079,14 +8749,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_91_warmelt_macro_LAMBDA_*/ +} /*end meltrout_90_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10099,7 +8769,7 @@ meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE(meltclosure_ptr_t closp_ #define meltcallcount 0L #endif - struct frame_meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { + struct frame_meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10133,7 +8803,7 @@ melt_trace_start("YES_RECURSIVELY_CONSTRUCTIBLE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4708:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4666:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -10144,13 +8814,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4709:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4667:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4709:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4667:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10161,14 +8831,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4709; + argtab[3].meltbp_long = 4667; /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V3*/ meltfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4709:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4667:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ meltfptr[3] = 0 ;} @@ -10178,18 +8848,18 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4710:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4668:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RECV__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4710:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4668:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4708:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4666:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V5*/ meltfptr[3];; - MELT_LOCATION("warmelt-macro.melt:4708:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4666:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -10208,14 +8878,14 @@ melt_trace_end("YES_RECURSIVELY_CONSTRUCTIBLE", meltcallcount); melt_topframe = #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_92_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/ +} /*end meltrout_91_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_92_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -10228,7 +8898,7 @@ meltrout_93_warmelt_macro_MEXPAND_LETREC(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_93_warmelt_macro_MEXPAND_LETREC_st { + struct frame_meltrout_92_warmelt_macro_MEXPAND_LETREC_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -10262,7 +8932,7 @@ melt_trace_start("MEXPAND_LETREC", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4721:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4679:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -10287,17 +8957,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4722:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4680:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4722:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4680:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4722:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4680:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10308,7 +8978,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4722)?(4722):__LINE__, __FUNCTION__); + (4680)?(4680):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -10322,7 +8992,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4722:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4680:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -10334,17 +9004,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4723:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4681:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4723:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4681:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4723:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4681:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -10355,7 +9025,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4723)?(4723):__LINE__, __FUNCTION__); + (4681)?(4681):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -10369,7 +9039,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4723:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4681:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -10381,13 +9051,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4724:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4682:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4724:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4682:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10398,14 +9068,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4724; + argtab[3].meltbp_long = 4682; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4724:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4682:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} @@ -10415,14 +9085,14 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4725:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4683:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4726:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4684:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4727:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4685:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ meltfptr[12] = slot; }; ; @@ -10440,7 +9110,7 @@ lab_endgetargs:; /*_.BINDEXPR__V17*/ meltfptr[16] = (melt_pair_head((melt_ptr_t)(/*_.SECPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION("warmelt-macro.melt:4731:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4689:/ apply"); /*apply*/{ /*_.NEWENV__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -10461,7 +9131,7 @@ lab_endgetargs:; /*^compute*/ /*_.BODYTUP__V23*/ meltfptr[22] = (/*nil*/NULL);; - MELT_LOCATION("warmelt-macro.melt:4740:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4698:/ cond"); /*cond*/ if (/*_.BINDEXPR__V17*/ meltfptr[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10469,22 +9139,22 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.BINDEXPR__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4741:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4699:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4742:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4700:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4744:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4702:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDEXPR__V17*/ meltfptr[16]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V27*/ meltfptr[26] = slot; }; ; /*_.LIST_FIRST__V28*/ meltfptr[27] = (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V27*/ meltfptr[26])));; - MELT_LOCATION("warmelt-macro.melt:4746:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4704:/ quasiblock"); /*^newclosure*/ @@ -10498,7 +9168,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ meltfptr[29])->tabval[0] = (melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]); ; /*_.LAMBDA___V29*/ meltfptr[28] = /*_.LAMBDA___V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:4743:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4701:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -10515,23 +9185,23 @@ lab_endgetargs:; /*_.RECSEXPRTUP__V32*/ meltfptr[31] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBRECBIND__L6*/ meltfnum[5])));; - MELT_LOCATION("warmelt-macro.melt:4753:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4711:/ compute"); /*_#NBIND__L4*/ meltfnum[0] = /*_#SETQ___L7*/ meltfnum[6] = /*_#NBRECBIND__L6*/ meltfnum[5];; /*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4754:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4712:/ compute"); /*_.BINDTUP__V19*/ meltfptr[18] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MAKE_MULTIPLE__V33*/ meltfptr[32];; /*_.MAKE_MULTIPLE__V35*/ meltfptr[34] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4755:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4713:/ compute"); /*_.SRCBINDTUP__V20*/ meltfptr[19] = /*_.SETQ___V36*/ meltfptr[35] = /*_.MAKE_MULTIPLE__V35*/ meltfptr[34];; /*_.MAKE_MULTIPLE__V37*/ meltfptr[36] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4756:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4714:/ compute"); /*_.VARTUP__V21*/ meltfptr[20] = /*_.SETQ___V38*/ meltfptr[37] = /*_.MAKE_MULTIPLE__V37*/ meltfptr[36];; /*_.MAKE_MULTIPLE__V39*/ meltfptr[38] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[5])), (/*_#NBIND__L4*/ meltfnum[0])));; - MELT_LOCATION("warmelt-macro.melt:4757:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4715:/ compute"); /*_.EXPRTUP__V22*/ meltfptr[21] = /*_.SETQ___V40*/ meltfptr[39] = /*_.MAKE_MULTIPLE__V39*/ meltfptr[38];; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start cit1__EACHTUP: */ @@ -10545,13 +9215,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4762:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4720:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4762:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4720:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10562,14 +9232,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4762; + argtab[3].meltbp_long = 4720; /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4762:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4720:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} @@ -10583,23 +9253,23 @@ lab_endgetargs:; /*_#IS_NOT_A__L10*/ meltfnum[8] = !melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4763:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4721:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4765:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4723:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4765:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4723:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V44*/ meltfptr[42] = /*_.RETURN___V45*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4763:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4721:/ clear"); /*clear*/ /*_.RETURN___V45*/ meltfptr[44] = 0 ;} ; } else {/*^cond.else*/ @@ -10607,7 +9277,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[42] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4766:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4724:/ quasiblock"); /*^cond*/ @@ -10622,7 +9292,7 @@ lab_endgetargs:; /*_.CURCONT__V46*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4767:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4725:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBINDEXPR__V41*/ meltfptr[40]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -10652,7 +9322,7 @@ lab_endgetargs:; /*_#IS_A__L11*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:4773:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4731:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10662,32 +9332,32 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4774:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4732:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "keyword invalid in LETREC binding"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V52*/ meltfptr[51] = 0 ; /*epilog*/ } ; - } else {MELT_LOCATION("warmelt-macro.melt:4773:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4731:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_A__L12*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4776:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4734:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4777:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4735:/ compute"); /*_.CURSYMB__V50*/ meltfptr[49] = /*_.SETQ___V54*/ meltfptr[53] = /*_.CURCOMP__V49*/ meltfptr[48];; /*_.IFELSE___V53*/ meltfptr[52] = /*_.SETQ___V54*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4776:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4734:/ clear"); /*clear*/ /*_.SETQ___V54*/ meltfptr[53] = 0 ;} ; } else {/*^cond.else*/ @@ -10697,10 +9367,10 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4780:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4738:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - expecting (<symbol> <constructive-expr>)"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4779:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4737:/ quasiblock"); /*epilog*/ @@ -10711,7 +9381,7 @@ lab_endgetargs:; /*_.IFELSE___V52*/ meltfptr[51] = /*_.IFELSE___V53*/ meltfptr[52];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4773:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4731:/ clear"); /*clear*/ /*_#IS_A__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V53*/ meltfptr[52] = 0 ;} @@ -10720,15 +9390,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V55*/ meltfptr[53] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4782:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4740:/ compute"); /*_.CURPAIR__V48*/ meltfptr[47] = /*_.SETQ___V56*/ meltfptr[52] = /*_.PAIR_TAIL__V55*/ meltfptr[53];; /*_.PAIR_HEAD__V57*/ meltfptr[56] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4783:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4741:/ compute"); /*_.CURCOMP__V49*/ meltfptr[48] = /*_.SETQ___V58*/ meltfptr[57] = /*_.PAIR_HEAD__V57*/ meltfptr[56];; /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.CURCOMP__V49*/ meltfptr[48]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4784:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4742:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10736,37 +9406,37 @@ lab_endgetargs:; /*_#IS_A__L14*/ meltfnum[13] = melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V50*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[10])));; - MELT_LOCATION("warmelt-macro.melt:4785:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4743:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4787:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4745:/ compute"); /*_.CURSEXPR__V51*/ meltfptr[50] = /*_.SETQ___V59*/ meltfptr[58] = /*_.CURCOMP__V49*/ meltfptr[48];; { - MELT_LOCATION("warmelt-macro.melt:4788:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4746:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ meltfptr[31]), (/*_#BINDIX__L8*/ meltfnum[7]), (melt_ptr_t)(/*_.CURSEXPR__V51*/ meltfptr[50]));} ; { - MELT_LOCATION("warmelt-macro.melt:4789:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4747:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (/*_#BINDIX__L8*/ meltfnum[7]), (melt_ptr_t)(/*_.CURSYMB__V50*/ meltfptr[49]));} ; - MELT_LOCATION("warmelt-macro.melt:4786:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4744:/ quasiblock"); /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4785:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4743:/ clear"); /*clear*/ /*_.SETQ___V59*/ meltfptr[58] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4784:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4742:/ clear"); /*clear*/ /*_#IS_A__L14*/ meltfnum[13] = 0 ;} ; } else {/*^cond.else*/ @@ -10776,7 +9446,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4791:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4749:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - missing constructive expression"), (melt_ptr_t)0);} ; /*epilog*/ @@ -10786,7 +9456,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V60*/ meltfptr[58] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V48*/ meltfptr[47])));; - MELT_LOCATION("warmelt-macro.melt:4792:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4750:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V60*/ meltfptr[58]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10794,7 +9464,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4793:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4751:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V47*/ meltfptr[46]), ( "invalid LETREC binding - more than two components"), (melt_ptr_t)0);} ; /*epilog*/ @@ -10803,7 +9473,7 @@ lab_endgetargs:; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4766:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4724:/ clear"); /*clear*/ /*_.CURCONT__V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.CURLOC__V47*/ meltfptr[46] = 0 ; @@ -10836,7 +9506,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4759:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4717:/ clear"); /*clear*/ /*_.CURBINDEXPR__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_#BINDIX__L8*/ meltfnum[7] = 0 ; @@ -10849,13 +9519,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4795:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4753:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4795:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4753:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10866,14 +9536,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4795; + argtab[3].meltbp_long = 4753; /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.RECSEXPRTUP__V32*/ meltfptr[31]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V61*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4795:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4753:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ meltfptr[46] = 0 ;} @@ -10885,13 +9555,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4796:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4754:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4796:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4754:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10902,14 +9572,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4796; + argtab[3].meltbp_long = 4754; /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V63*/ meltfptr[47] = /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4796:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4754:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ meltfptr[48] = 0 ;} @@ -10919,7 +9589,7 @@ lab_endgetargs:; /*_.IFCPP___V63*/ meltfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4799:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4757:/ quasiblock"); /*^cond*/ @@ -10946,13 +9616,13 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4804:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4762:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4804:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4762:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -10963,14 +9633,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4804; + argtab[3].meltbp_long = 4762; /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V67*/ meltfptr[51] = /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4804:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4762:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ meltfptr[53] = 0 ;} @@ -10984,13 +9654,13 @@ lab_endgetargs:; /*_.MAPOBJECT_GET__V69*/ meltfptr[52] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.ENVMAP__V65*/ meltfptr[49]), (meltobject_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]));; - MELT_LOCATION("warmelt-macro.melt:4805:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4763:/ cond"); /*cond*/ if (/*_.MAPOBJECT_GET__V69*/ meltfptr[52]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4807:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4765:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURVAR__V66*/ meltfptr[50]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[11])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11004,17 +9674,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4806:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4764:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "repeated variable in LETREC binding"), (melt_ptr_t)(/*_.NAMED_NAME__V70*/ meltfptr[56]));} ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4805:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4763:/ clear"); /*clear*/ /*_.NAMED_NAME__V70*/ meltfptr[56] = 0 ;} ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4809:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4767:/ quasiblock"); /*^quasiblock*/ @@ -11042,7 +9712,7 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V72*/ meltfptr[58]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); ; /*_.CURBIND__V71*/ meltfptr[57] = /*_.INST__V72*/ meltfptr[58];; - MELT_LOCATION("warmelt-macro.melt:4815:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4773:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -11053,11 +9723,11 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4816:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4774:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (/*_#VARIX__L17*/ meltfnum[11]), (melt_ptr_t)(/*_.CURBIND__V71*/ meltfptr[57]));} ; - MELT_LOCATION("warmelt-macro.melt:4809:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4767:/ clear"); /*clear*/ /*_.CURBIND__V71*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.PUT_ENV__V73*/ meltfptr[46] = 0 ; @@ -11066,7 +9736,7 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4801:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4759:/ clear"); /*clear*/ /*_.CURVAR__V66*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_#VARIX__L17*/ meltfnum[11] = 0 ; @@ -11076,17 +9746,17 @@ lab_endgetargs:; /*clear*/ /*_.MAPOBJECT_GET__V69*/ meltfptr[52] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - MELT_LOCATION("warmelt-macro.melt:4799:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4757:/ clear"); /*clear*/ /*_.ENVMAP__V65*/ meltfptr[49] = 0 ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4818:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4776:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4818:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4776:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11097,14 +9767,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4818; + argtab[3].meltbp_long = 4776; /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V74*/ meltfptr[48] = /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4818:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4776:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ meltfptr[53] = 0 ;} @@ -11124,10 +9794,10 @@ lab_endgetargs:; - MELT_LOCATION("warmelt-macro.melt:4824:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4782:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4783:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURSEXPR__V76*/ meltfptr[56]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11139,16 +9809,16 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V77*/ meltfptr[57] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4825:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4783:/ cond"); /*cond*/ if (/*_.LOCA_LOCATION__V77*/ meltfptr[57]) /*then*/ { /*^cond.then*/ /*_.CURLOC__V78*/ meltfptr[46] = /*_.LOCA_LOCATION__V77*/ meltfptr[57];; - } else {MELT_LOCATION("warmelt-macro.melt:4825:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4783:/ cond.else"); /*_.CURLOC__V78*/ meltfptr[46] = /*_.LOC__V13*/ meltfptr[12];; } ; - MELT_LOCATION("warmelt-macro.melt:4826:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4784:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11161,14 +9831,14 @@ lab_endgetargs:; ; /*_.CURBIND__V80*/ meltfptr[53] = (melt_multiple_nth((melt_ptr_t)(/*_.BINDTUP__V19*/ meltfptr[18]), (/*_#EXPIX__L20*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:4829:/ msend"); + MELT_LOCATION("warmelt-macro.melt:4787:/ msend"); /*msend*/{ /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ meltfptr[80] = meltgc_send((melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]), (melt_ptr_t)((/*!IS_RECURSIVELY_CONSTRUCTIBLE*/ meltfrout->tabval[16])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*_#NULL__L21*/ meltfnum[10] = ((/*_.IS_RECURSIVELY_CONSTRUCTIBLE__V81*/ meltfptr[80]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:4829:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4787:/ cond"); /*cond*/ if (/*_#NULL__L21*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11176,17 +9846,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4831:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4789:/ locexp"); melt_error_str((melt_ptr_t)(/*_.CURLOC__V78*/ meltfptr[46]), ( "invalid expression in LETREC binding [not recursively constructible]"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4832:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4790:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4832:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4790:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4830:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4788:/ quasiblock"); /*_.PROGN___V84*/ meltfptr[83] = /*_.RETURN___V83*/ meltfptr[82];; @@ -11195,7 +9865,7 @@ lab_endgetargs:; /*_.IF___V82*/ meltfptr[81] = /*_.PROGN___V84*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4829:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4787:/ clear"); /*clear*/ /*_.RETURN___V83*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V84*/ meltfptr[83] = 0 ;} @@ -11205,7 +9875,7 @@ lab_endgetargs:; /*_.IF___V82*/ meltfptr[81] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4833:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4791:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURBIND__V80*/ meltfptr[53]), (melt_ptr_t)((/*!CLASS_LET_BINDING*/ meltfrout->tabval[17])))) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11226,13 +9896,13 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4834:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4792:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.EXPRTUP__V22*/ meltfptr[21]), (/*_#EXPIX__L20*/ meltfnum[13]), (melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]));} ; - MELT_LOCATION("warmelt-macro.melt:4835:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4793:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4837:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4795:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CUREXP__V79*/ meltfptr[49]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[8])))) /*then*/ { /*^cond.then*/ /*^getslot*/ @@ -11244,11 +9914,11 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V85*/ meltfptr[82] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4837:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4795:/ cond"); /*cond*/ if (/*_.LOCA_LOCATION__V85*/ meltfptr[82]) /*then*/ { /*^cond.then*/ /*_.OR___V86*/ meltfptr[83] = /*_.LOCA_LOCATION__V85*/ meltfptr[82];; - } else {MELT_LOCATION("warmelt-macro.melt:4837:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4795:/ cond.else"); /*_.OR___V86*/ meltfptr[83] = /*_.LOC__V13*/ meltfptr[12];; } @@ -11257,7 +9927,7 @@ lab_endgetargs:; /*_.MULTIPLE_NTH__V87*/ meltfptr[86] = (melt_multiple_nth((melt_ptr_t)(/*_.VARTUP__V21*/ meltfptr[20]), (/*_#EXPIX__L20*/ meltfnum[13])));; - MELT_LOCATION("warmelt-macro.melt:4836:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4794:/ quasiblock"); /*^rawallocobj*/ @@ -11289,11 +9959,11 @@ lab_endgetargs:; /*_.SBIND__V88*/ meltfptr[87] = /*_.INST__V89*/ meltfptr[88];; { - MELT_LOCATION("warmelt-macro.melt:4843:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4801:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)(/*_.SRCBINDTUP__V20*/ meltfptr[19]), (/*_#EXPIX__L20*/ meltfnum[13]), (melt_ptr_t)(/*_.SBIND__V88*/ meltfptr[87]));} ; - MELT_LOCATION("warmelt-macro.melt:4835:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4793:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V85*/ meltfptr[82] = 0 ; /*^clear*/ /*clear*/ /*_.OR___V86*/ meltfptr[83] = 0 ; @@ -11302,7 +9972,7 @@ lab_endgetargs:; /*^clear*/ /*clear*/ /*_.SBIND__V88*/ meltfptr[87] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4824:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4782:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V77*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.CURLOC__V78*/ meltfptr[46] = 0 ; @@ -11321,20 +9991,20 @@ lab_endgetargs:; /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:4821:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4779:/ clear"); /*clear*/ /*_.CURSEXPR__V76*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_#EXPIX__L20*/ meltfnum[13] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4845:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4803:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4845:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4803:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11345,14 +10015,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4845; + argtab[3].meltbp_long = 4803; /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.EXPRTUP__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V90*/ meltfptr[82] = /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4845:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4803:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ meltfptr[83] = 0 ;} @@ -11366,7 +10036,7 @@ lab_endgetargs:; /*_.LET___V26*/ meltfptr[25] = /*_.IFCPP___V90*/ meltfptr[82];; - MELT_LOCATION("warmelt-macro.melt:4742:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4700:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_FIRST__V28*/ meltfptr[27] = 0 ; @@ -11407,7 +10077,7 @@ lab_endgetargs:; /*_.IFELSE___V25*/ meltfptr[24] = /*_.LET___V26*/ meltfptr[25];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4741:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4699:/ clear"); /*clear*/ /*_.LET___V26*/ meltfptr[25] = 0 ;} ; } else {/*^cond.else*/ @@ -11419,7 +10089,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4847:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4805:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "missing letbinding-s in LETREC"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; @@ -11433,7 +10103,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4740:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4698:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ;} @@ -11445,13 +10115,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4849:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4807:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[10] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4849:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4807:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11462,14 +10132,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4849; + argtab[3].meltbp_long = 4807; /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SRCBINDTUP__V20*/ meltfptr[19]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V92*/ meltfptr[86] = /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4849:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4807:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ meltfptr[87] = 0 ;} @@ -11479,7 +10149,7 @@ lab_endgetargs:; /*_.IFCPP___V92*/ meltfptr[86] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4851:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4809:/ quasiblock"); /*^newclosure*/ @@ -11499,7 +10169,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V95*/ meltfptr[46])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V94*/ meltfptr[57] = /*_.LAMBDA___V95*/ meltfptr[46];; - MELT_LOCATION("warmelt-macro.melt:4850:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4808:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -11518,7 +10188,7 @@ lab_endgetargs:; /*_#I__L25*/ meltfnum[6] = ((/*_#MULTIPLE_LENGTH__L24*/ meltfnum[5]) <= (0));; - MELT_LOCATION("warmelt-macro.melt:4852:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4810:/ cond"); /*cond*/ if (/*_#I__L25*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11526,7 +10196,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4853:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4811:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V13*/ meltfptr[12]), ( "emptyy body in LETREC"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11534,10 +10204,10 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4854:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4812:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4855:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4813:/ quasiblock"); /*^rawallocobj*/ @@ -11564,13 +10234,13 @@ lab_endgetargs:; /*_.LETR__V99*/ meltfptr[81] = /*_.INST__V100*/ meltfptr[83];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4859:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4817:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[4] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4859:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4817:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -11581,14 +10251,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4859; + argtab[3].meltbp_long = 4817; /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LETR__V99*/ meltfptr[81]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V101*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4859:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4817:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ meltfptr[27] = 0 ;} @@ -11598,16 +10268,16 @@ lab_endgetargs:; /*_.IFCPP___V101*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4860:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4818:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V99*/ meltfptr[81];; - MELT_LOCATION("warmelt-macro.melt:4860:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4818:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V98*/ meltfptr[80] = /*_.RETURN___V103*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:4854:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4812:/ clear"); /*clear*/ /*_.LETR__V99*/ meltfptr[81] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V101*/ meltfptr[26] = 0 ; @@ -11615,7 +10285,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V103*/ meltfptr[28] = 0 ; /*_.LET___V11*/ meltfptr[9] = /*_.LET___V98*/ meltfptr[80];; - MELT_LOCATION("warmelt-macro.melt:4725:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4683:/ clear"); /*clear*/ /*_.CONT__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V13*/ meltfptr[12] = 0 ; @@ -11657,11 +10327,11 @@ lab_endgetargs:; /*clear*/ /*_#I__L25*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V98*/ meltfptr[80] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4721:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4679:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:4721:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4679:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11684,14 +10354,14 @@ melt_trace_end("MEXPAND_LETREC", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_93_warmelt_macro_MEXPAND_LETREC*/ +} /*end meltrout_92_warmelt_macro_MEXPAND_LETREC*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_93_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11704,7 +10374,7 @@ meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_94_warmelt_macro_LAMBDA__st { + struct frame_meltrout_93_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11738,7 +10408,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4746:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4704:/ getarg"); /*_.BX__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -11749,7 +10419,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.BX__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4747:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4705:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11757,7 +10427,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4748:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4706:/ locexp"); melt_error_str((melt_ptr_t)((/*~LOC*/ meltfclos->tabval[0])), ( "sexpr expected in LETREC binding"), (melt_ptr_t)0);} ; /*epilog*/ @@ -11765,11 +10435,11 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4746:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4704:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.BX__V2*/ meltfptr[1];; - MELT_LOCATION("warmelt-macro.melt:4746:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4704:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11786,14 +10456,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_94_warmelt_macro_LAMBDA_*/ +} /*end meltrout_93_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_94_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11806,7 +10476,7 @@ meltrout_95_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_95_warmelt_macro_LAMBDA__st { + struct frame_meltrout_94_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11840,7 +10510,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4851:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4809:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -11864,7 +10534,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4851:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4809:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -11881,14 +10551,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_95_warmelt_macro_LAMBDA_*/ +} /*end meltrout_94_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_95_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -11901,7 +10571,7 @@ meltrout_96_warmelt_macro_MEXPAND_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_96_warmelt_macro_MEXPAND_LAMBDA_st { + struct frame_meltrout_95_warmelt_macro_MEXPAND_LAMBDA_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -11935,7 +10605,7 @@ melt_trace_start("MEXPAND_LAMBDA", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4874:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4832:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -11960,17 +10630,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4875:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4833:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4875:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4833:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4875:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4833:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -11981,7 +10651,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4875)?(4875):__LINE__, __FUNCTION__); + (4833)?(4833):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -11995,7 +10665,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4875:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4833:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12007,17 +10677,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4834:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4876:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4834:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4834:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12028,7 +10698,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4876)?(4876):__LINE__, __FUNCTION__); + (4834)?(4834):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12042,7 +10712,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4876:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4834:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12052,14 +10722,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4877:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4835:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4878:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4836:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -12069,7 +10739,7 @@ lab_endgetargs:; /*_.CURPAIR__V13*/ meltfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - MELT_LOCATION("warmelt-macro.melt:4880:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4838:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } @@ -12080,7 +10750,7 @@ lab_endgetargs:; /*_#NOTNULL__L3*/ meltfnum[0] = ((/*_.FORMALS__V15*/ meltfptr[14]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:4884:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4842:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12093,7 +10763,7 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = /*_#IS_NOT_A__L5*/ meltfnum[4];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4884:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4842:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[4] = 0 ;} ; } else {/*^cond.else*/ @@ -12101,7 +10771,7 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:4884:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4842:/ cond"); /*cond*/ if (/*_#IF___L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12109,7 +10779,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4885:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4843:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12117,7 +10787,7 @@ lab_endgetargs:; ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:4886:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4844:/ quasiblock"); /*^apply*/ @@ -12131,9 +10801,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4887:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4845:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_TAIL__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4889:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4847:/ quasiblock"); /*^newclosure*/ @@ -12147,7 +10817,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ meltfptr[13]); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:4888:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4846:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12156,10 +10826,10 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ARGTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4890:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4848:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4891:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4849:/ quasiblock"); /*^newclosure*/ @@ -12179,7 +10849,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V24*/ meltfptr[23] = /*_.LAMBDA___V25*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:4890:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4848:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12190,7 +10860,7 @@ lab_endgetargs:; /*_.BODYTUP__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4893:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4851:/ quasiblock"); /*^rawallocobj*/ @@ -12215,16 +10885,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V28*/ meltfptr[27]), (3), (/*_.BODYTUP__V26*/ meltfptr[25]), "SLAM_BODY"); ; /*_.LAMBR__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4898:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4856:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LAMBR__V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4856:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V23*/ meltfptr[22] = /*_.RETURN___V29*/ meltfptr[28];; - MELT_LOCATION("warmelt-macro.melt:4890:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4848:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V26*/ meltfptr[25] = 0 ; @@ -12234,7 +10904,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V29*/ meltfptr[28] = 0 ; /*_.LET___V16*/ meltfptr[15] = /*_.LET___V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4886:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4844:/ clear"); /*clear*/ /*_.ARGTUP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V18*/ meltfptr[17] = 0 ; @@ -12248,7 +10918,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V23*/ meltfptr[22] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:4877:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4835:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -12266,11 +10936,11 @@ lab_endgetargs:; /*clear*/ /*_#IF___L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V16*/ meltfptr[15] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4874:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4832:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4874:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4832:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12291,14 +10961,14 @@ melt_trace_end("MEXPAND_LAMBDA", meltcallcount); melt_topframe = (struct callfr #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_96_warmelt_macro_MEXPAND_LAMBDA*/ +} /*end meltrout_95_warmelt_macro_MEXPAND_LAMBDA*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_96_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12311,7 +10981,7 @@ meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_97_warmelt_macro_LAMBDA__st { + struct frame_meltrout_96_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12345,7 +11015,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4889:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4847:/ getarg"); /*_.LB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12367,7 +11037,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4889:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4847:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12384,14 +11054,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_97_warmelt_macro_LAMBDA_*/ +} /*end meltrout_96_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_97_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12404,7 +11074,7 @@ meltrout_98_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp #define meltcallcount 0L #endif - struct frame_meltrout_98_warmelt_macro_LAMBDA__st { + struct frame_meltrout_97_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12438,7 +11108,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4891:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4849:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -12462,7 +11132,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4891:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4849:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -12479,14 +11149,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_98_warmelt_macro_LAMBDA_*/ +} /*end meltrout_97_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_98_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -12499,7 +11169,7 @@ meltrout_99_warmelt_macro_MEXPAND_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_99_warmelt_macro_MEXPAND_MULTICALL_st { + struct frame_meltrout_98_warmelt_macro_MEXPAND_MULTICALL_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -12533,7 +11203,7 @@ melt_trace_start("MEXPAND_MULTICALL", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4916:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4874:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -12558,17 +11228,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4917:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4875:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4917:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4875:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4917:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4875:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12579,7 +11249,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4917)?(4917):__LINE__, __FUNCTION__); + (4875)?(4875):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -12593,7 +11263,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4917:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4875:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -12605,17 +11275,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4918:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4876:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4918:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4876:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4918:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4876:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12626,7 +11296,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4918)?(4918):__LINE__, __FUNCTION__); + (4876)?(4876):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -12640,7 +11310,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4918:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4876:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -12650,14 +11320,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4919:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4877:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4920:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4878:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -12667,17 +11337,17 @@ lab_endgetargs:; /*_.CURPAIR__V13*/ meltfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V12*/ meltfptr[11])));; - MELT_LOCATION("warmelt-macro.melt:4922:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4880:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!FRESH_ENV*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4925:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4883:/ quasiblock"); /*_.PAIR_HEAD__V16*/ meltfptr[15] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4925:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4883:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12688,9 +11358,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4926:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4884:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V19*/ meltfptr[18] = /*_.PAIR_TAIL__V18*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:4927:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4885:/ quasiblock"); /*_.CURCALLEXP__V21*/ meltfptr[20] = @@ -12703,7 +11373,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_A__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:4928:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4886:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12711,7 +11381,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4929:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4887:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "missing called expression in MULTICALL"), (melt_ptr_t)0);} ; /*epilog*/ @@ -12721,9 +11391,9 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V22*/ meltfptr[21] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4930:/ compute"); + MELT_LOCATION("warmelt-macro.melt:4888:/ compute"); /*_.CURPAIR__V13*/ meltfptr[12] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4931:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4889:/ quasiblock"); /*^apply*/ @@ -12739,11 +11409,11 @@ lab_endgetargs:; ; /*_#IS_A__L5*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.CURCALL__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:4934:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4892:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_#OR___L6*/ meltfnum[5] = /*_#IS_A__L5*/ meltfnum[4];; - } else {MELT_LOCATION("warmelt-macro.melt:4934:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4892:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -12755,7 +11425,7 @@ lab_endgetargs:; /*_#OR___L6*/ meltfnum[5] = /*_#IS_A__L7*/ meltfnum[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4934:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4892:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[6] = 0 ;} ; } @@ -12764,20 +11434,20 @@ lab_endgetargs:; /*cond*/ if (/*_#OR___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4934:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4892:/ cond.else"); /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4938:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4896:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:4938:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4896:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -12788,14 +11458,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 4938; + argtab[3].meltbp_long = 4896; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURCALL__V25*/ meltfptr[24]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4938:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4896:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} @@ -12807,17 +11477,17 @@ lab_endgetargs:; ; { - MELT_LOCATION("warmelt-macro.melt:4939:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4897:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "called expression in MULTICALL is invalid, expecting application or send"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4940:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4898:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:4940:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4898:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:4937:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4895:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[27];; @@ -12826,7 +11496,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4934:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4892:/ clear"); /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V29*/ meltfptr[27] = 0 ; @@ -12835,7 +11505,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION("warmelt-macro.melt:4942:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4900:/ quasiblock"); /*^newclosure*/ @@ -12849,7 +11519,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V32*/ meltfptr[27])->tabval[0] = (melt_ptr_t)(/*_.NEWENV__V14*/ meltfptr[13]); ; /*_.LAMBDA___V31*/ meltfptr[26] = /*_.LAMBDA___V32*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:4941:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4899:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); @@ -12858,10 +11528,10 @@ lab_endgetargs:; /*_.MULTIPLE_EVERY__V33*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.RESTUP__V17*/ meltfptr[16]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4944:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4902:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:4945:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4903:/ quasiblock"); /*^newclosure*/ @@ -12881,7 +11551,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]); ; /*_.LAMBDA___V35*/ meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:4944:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4902:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -12892,7 +11562,7 @@ lab_endgetargs:; /*_.BODYTUP__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:4947:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4905:/ quasiblock"); /*^rawallocobj*/ @@ -12922,16 +11592,16 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (4), (/*_.BODYTUP__V37*/ meltfptr[36]), "SMULC_BODY"); ; /*_.MULCR__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; - MELT_LOCATION("warmelt-macro.melt:4954:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4912:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULCR__V38*/ meltfptr[37];; - MELT_LOCATION("warmelt-macro.melt:4954:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4912:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V34*/ meltfptr[33] = /*_.RETURN___V40*/ meltfptr[39];; - MELT_LOCATION("warmelt-macro.melt:4944:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4902:/ clear"); /*clear*/ /*_.LAMBDA___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V37*/ meltfptr[36] = 0 ; @@ -12941,7 +11611,7 @@ lab_endgetargs:; /*clear*/ /*_.RETURN___V40*/ meltfptr[39] = 0 ; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V34*/ meltfptr[33];; - MELT_LOCATION("warmelt-macro.melt:4931:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4889:/ clear"); /*clear*/ /*_.CURCALL__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[4] = 0 ; @@ -12957,7 +11627,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V34*/ meltfptr[33] = 0 ; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4927:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4885:/ clear"); /*clear*/ /*_.CURCALLEXP__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; @@ -12971,7 +11641,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V24*/ meltfptr[23] = 0 ; /*_.LET___V15*/ meltfptr[14] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:4925:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4883:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.RESTUP__V17*/ meltfptr[16] = 0 ; @@ -12983,7 +11653,7 @@ lab_endgetargs:; /*clear*/ /*_.LET___V20*/ meltfptr[19] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V15*/ meltfptr[14];; - MELT_LOCATION("warmelt-macro.melt:4919:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4877:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -12995,11 +11665,11 @@ lab_endgetargs:; /*clear*/ /*_.NEWENV__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4916:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4874:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4916:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4874:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13020,14 +11690,14 @@ melt_trace_end("MEXPAND_MULTICALL", meltcallcount); melt_topframe = (struct cal #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_99_warmelt_macro_MEXPAND_MULTICALL*/ +} /*end meltrout_98_warmelt_macro_MEXPAND_MULTICALL*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_99_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13040,7 +11710,7 @@ meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_100_warmelt_macro_LAMBDA__st { + struct frame_meltrout_99_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13074,7 +11744,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4942:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4900:/ getarg"); /*_.LB__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -13096,7 +11766,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4942:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4900:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13113,14 +11783,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_100_warmelt_macro_LAMBDA_*/ +} /*end meltrout_99_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_100_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13133,7 +11803,7 @@ meltrout_101_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_101_warmelt_macro_LAMBDA__st { + struct frame_meltrout_100_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13167,7 +11837,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4945:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4903:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -13191,7 +11861,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:4945:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4903:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13208,14 +11878,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_101_warmelt_macro_LAMBDA_*/ +} /*end meltrout_100_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_101_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13228,7 +11898,7 @@ meltrout_102_warmelt_macro_MEXPAND_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_102_warmelt_macro_MEXPAND_QUOTE_st { + struct frame_meltrout_101_warmelt_macro_MEXPAND_QUOTE_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13262,7 +11932,7 @@ melt_trace_start("MEXPAND_QUOTE", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:4970:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4928:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13287,17 +11957,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4971:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4929:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:4971:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4929:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4971:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4929:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13308,7 +11978,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4971)?(4971):__LINE__, __FUNCTION__); + (4929)?(4929):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -13322,7 +11992,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4971:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4929:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -13334,17 +12004,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:4972:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4930:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:4972:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4930:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4972:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4930:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13355,7 +12025,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (4972)?(4972):__LINE__, __FUNCTION__); + (4930)?(4930):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -13369,7 +12039,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4972:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4930:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13379,14 +12049,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:4973:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4931:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:4974:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4932:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -13404,7 +12074,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:4978:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4936:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13412,7 +12082,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:4979:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4937:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "QUOTE should have only one argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -13422,43 +12092,43 @@ lab_endgetargs:; ; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; - MELT_LOCATION("warmelt-macro.melt:4980:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4938:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4980:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4938:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13])) == MELTOBMAG_STRING);; - MELT_LOCATION("warmelt-macro.melt:4983:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4941:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4983:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4941:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_INTEGERBOX__L5*/ meltfnum[4] = (melt_magic_discr((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13])) == MELTOBMAG_INT);; - MELT_LOCATION("warmelt-macro.melt:4986:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4944:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:4986:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4944:/ cond.else"); /*^block*/ /*anyblock*/{ { - MELT_LOCATION("warmelt-macro.melt:4990:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4948:/ locexp"); melt_error_str((melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "QUOTE should have a symbol, string, or integer argument"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:4989:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4947:/ quasiblock"); /*epilog*/ @@ -13469,7 +12139,7 @@ lab_endgetargs:; /*_.IFELSE___V17*/ meltfptr[16] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4983:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4941:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} @@ -13479,7 +12149,7 @@ lab_endgetargs:; /*_.IFELSE___V16*/ meltfptr[15] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4980:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4938:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V17*/ meltfptr[16] = 0 ;} @@ -13488,23 +12158,23 @@ lab_endgetargs:; ; /*_#IS_A__L6*/ meltfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.QUOTED__V14*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:4992:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4950:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ - MELT_LOCATION("warmelt-macro.melt:4993:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4951:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.QUOTED__V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:4993:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4951:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.IF___V19*/ meltfptr[17] = /*_.RETURN___V20*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:4992:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4950:/ clear"); /*clear*/ /*_.RETURN___V20*/ meltfptr[16] = 0 ;} ; } else {/*^cond.else*/ @@ -13512,7 +12182,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:4994:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4952:/ quasiblock"); /*^quasiblock*/ @@ -13535,22 +12205,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (2), (/*_.QUOTED__V14*/ meltfptr[13]), "SQUOTED"); ; /*_.SQU__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; - MELT_LOCATION("warmelt-macro.melt:4997:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4955:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SQU__V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:4997:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4955:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V21*/ meltfptr[16] = /*_.RETURN___V24*/ meltfptr[23];; - MELT_LOCATION("warmelt-macro.melt:4994:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4952:/ clear"); /*clear*/ /*_.SQU__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V24*/ meltfptr[23] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V21*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:4973:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4931:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -13572,11 +12242,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V21*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:4970:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4928:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:4970:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4928:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13597,14 +12267,14 @@ melt_trace_end("MEXPAND_QUOTE", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_102_warmelt_macro_MEXPAND_QUOTE*/ +} /*end meltrout_101_warmelt_macro_MEXPAND_QUOTE*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_102_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13617,7 +12287,7 @@ meltrout_103_warmelt_macro_MEXPAND_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t #define meltcallcount 0L #endif - struct frame_meltrout_103_warmelt_macro_MEXPAND_COMMENT_st { + struct frame_meltrout_102_warmelt_macro_MEXPAND_COMMENT_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13651,7 +12321,7 @@ melt_trace_start("MEXPAND_COMMENT", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5008:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4966:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -13676,17 +12346,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5009:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4967:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5009:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4967:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5009:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4967:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13697,7 +12367,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5009)?(5009):__LINE__, __FUNCTION__); + (4967)?(4967):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -13711,7 +12381,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5009:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4967:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -13723,17 +12393,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5010:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4968:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:5010:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4968:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5010:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4968:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -13744,7 +12414,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5010)?(5010):__LINE__, __FUNCTION__); + (4968)?(4968):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; @@ -13758,7 +12428,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5010:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4968:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} @@ -13768,14 +12438,14 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5011:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4969:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ meltfptr[9] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5012:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:4970:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ meltfptr[10] = slot; }; ; @@ -13793,7 +12463,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V15*/ meltfptr[14] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V13*/ meltfptr[12])));; - MELT_LOCATION("warmelt-macro.melt:5016:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4974:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ meltfptr[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13801,7 +12471,7 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5017:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4975:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "COMMENT should have only one string argument"), (melt_ptr_t)0);} ; /*epilog*/ @@ -13815,7 +12485,7 @@ lab_endgetargs:; /*_#NOT__L4*/ meltfnum[3] = (!(/*_#IS_STRING__L3*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5018:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4976:/ cond"); /*cond*/ if (/*_#NOT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13823,17 +12493,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5020:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:4978:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V11*/ meltfptr[10]), ( "COMMENT without string is ignored"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5021:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4979:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5021:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4979:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5019:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4977:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -13842,7 +12512,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5018:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4976:/ clear"); /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ;} @@ -13852,7 +12522,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5024:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4982:/ quasiblock"); /*^quasiblock*/ @@ -13875,22 +12545,22 @@ lab_endgetargs:; melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), (/*_.COMSTR__V14*/ meltfptr[13]), "SCOMM_STR"); ; /*_.SCOM__V20*/ meltfptr[17] = /*_.INST__V21*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:5027:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4985:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SCOM__V20*/ meltfptr[17];; - MELT_LOCATION("warmelt-macro.melt:5027:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4985:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V19*/ meltfptr[16] = /*_.RETURN___V22*/ meltfptr[21];; - MELT_LOCATION("warmelt-macro.melt:5024:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4982:/ clear"); /*clear*/ /*_.SCOM__V20*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; /*_.LET___V9*/ meltfptr[7] = /*_.LET___V19*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5011:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4969:/ clear"); /*clear*/ /*_.CONT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.LOC__V11*/ meltfptr[10] = 0 ; @@ -13910,11 +12580,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[16] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5008:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4966:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V9*/ meltfptr[7];; - MELT_LOCATION("warmelt-macro.melt:5008:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4966:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -13935,14 +12605,14 @@ melt_trace_end("MEXPAND_COMMENT", meltcallcount); melt_topframe = (struct callf #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_103_warmelt_macro_MEXPAND_COMMENT*/ +} /*end meltrout_102_warmelt_macro_MEXPAND_COMMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -13955,7 +12625,7 @@ meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN(meltclosure_ptr_t closp_, melt_ptr_ #define meltcallcount 0L #endif - struct frame_meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN_st { + struct frame_meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -13989,7 +12659,7 @@ melt_trace_start("PAIRLIST_TO_PROGN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5038:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:4996:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14021,17 +12691,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5039:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4997:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5039:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4997:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5039:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4997:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14042,7 +12712,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5039)?(5039):__LINE__, __FUNCTION__); + (4997)?(4997):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -14056,7 +12726,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5039:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4997:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -14068,13 +12738,13 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5040:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4998:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5040:/ apply"); + MELT_LOCATION("warmelt-macro.melt:4998:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14085,14 +12755,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5040; + argtab[3].meltbp_long = 4998; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5040:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4998:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} @@ -14104,17 +12774,17 @@ lab_endgetargs:; ; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5041:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:4999:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_PAIR__L3*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:5041:/ cond"); + MELT_LOCATION("warmelt-macro.melt:4999:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5041:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:4999:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14125,7 +12795,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5041)?(5041):__LINE__, __FUNCTION__); + (4999)?(4999):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; @@ -14139,7 +12809,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5041:/ clear"); + MELT_LOCATION("warmelt-macro.melt:4999:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} @@ -14149,10 +12819,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5042:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5000:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5045:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5003:/ quasiblock"); /*^newclosure*/ @@ -14172,7 +12842,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ meltfptr[13])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4]); ; /*_.LAMBDA___V13*/ meltfptr[12] = /*_.LAMBDA___V14*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:5042:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5000:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -14183,7 +12853,7 @@ lab_endgetargs:; /*_.BODYTUP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5047:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5005:/ quasiblock"); /*^rawallocobj*/ @@ -14205,13 +12875,13 @@ lab_endgetargs:; /*_.SPROGN__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5051:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5009:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; - MELT_LOCATION("warmelt-macro.melt:5051:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5009:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); @@ -14222,14 +12892,14 @@ lab_endgetargs:; /*^apply.arg*/ argtab[2].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[3].meltbp_long = 5051; + argtab[3].meltbp_long = 5009; /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.SPROGN__V16*/ meltfptr[15]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ meltfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5051:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5009:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ meltfptr[18] = 0 ;} @@ -14239,16 +12909,16 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5052:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5010:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPROGN__V16*/ meltfptr[15];; - MELT_LOCATION("warmelt-macro.melt:5052:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5010:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION("warmelt-macro.melt:5042:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5000:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V15*/ meltfptr[14] = 0 ; @@ -14258,11 +12928,11 @@ lab_endgetargs:; /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V20*/ meltfptr[18] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5038:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:4996:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; - MELT_LOCATION("warmelt-macro.melt:5038:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:4996:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14285,14 +12955,14 @@ melt_trace_end("PAIRLIST_TO_PROGN", meltcallcount); melt_topframe = (struct cal #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_104_warmelt_macro_PAIRLIST_TO_PROGN*/ +} /*end meltrout_103_warmelt_macro_PAIRLIST_TO_PROGN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_104_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14305,7 +12975,7 @@ meltrout_105_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_105_warmelt_macro_LAMBDA__st { + struct frame_meltrout_104_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14339,7 +13009,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5045:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5003:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -14363,7 +13033,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5045:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5003:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14380,14 +13050,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_105_warmelt_macro_LAMBDA_*/ +} /*end meltrout_104_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14400,7 +13070,7 @@ meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN(meltclosure_ptr_t closp_, melt_ptr #define meltcallcount 0L #endif - struct frame_meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN_st { + struct frame_meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14434,7 +13104,7 @@ melt_trace_start("PAIRLIST_TO_RETURN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5056:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5014:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14466,17 +13136,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5057:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5015:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5057:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5015:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5057:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5015:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14487,7 +13157,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5057)?(5057):__LINE__, __FUNCTION__); + (5015)?(5015):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; @@ -14501,7 +13171,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5057:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5015:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} @@ -14511,10 +13181,10 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5058:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5016:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5061:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5019:/ quasiblock"); /*^newclosure*/ @@ -14534,7 +13204,7 @@ lab_endgetargs:; ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ meltfptr[9])->tabval[1] = (melt_ptr_t)(/*_.MEXPANDER__V5*/ meltfptr[4]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION("warmelt-macro.melt:5058:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5016:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); @@ -14545,7 +13215,7 @@ lab_endgetargs:; /*_.BODYTUP__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5062:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5020:/ quasiblock"); /*^rawallocobj*/ @@ -14569,17 +13239,17 @@ lab_endgetargs:; /*_.LET___V8*/ meltfptr[6] = /*_.INST___V12*/ meltfptr[11];; - MELT_LOCATION("warmelt-macro.melt:5058:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5016:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.BODYTUP__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V12*/ meltfptr[11] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5056:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5014:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; - MELT_LOCATION("warmelt-macro.melt:5056:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5014:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14598,14 +13268,14 @@ melt_trace_end("PAIRLIST_TO_RETURN", meltcallcount); melt_topframe = (struct ca #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_106_warmelt_macro_PAIRLIST_TO_RETURN*/ +} /*end meltrout_105_warmelt_macro_PAIRLIST_TO_RETURN*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_106_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14618,7 +13288,7 @@ meltrout_107_warmelt_macro_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstarg #define meltcallcount 0L #endif - struct frame_meltrout_107_warmelt_macro_LAMBDA__st { + struct frame_meltrout_106_warmelt_macro_LAMBDA__st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14652,7 +13322,7 @@ melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5061:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5019:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; @@ -14676,7 +13346,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MACROEXPAND_1__V3*/ meltfptr[2];; - MELT_LOCATION("warmelt-macro.melt:5061:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5019:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14693,14 +13363,14 @@ melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_mel #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_107_warmelt_macro_LAMBDA_*/ +} /*end meltrout_106_warmelt_macro_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, +meltrout_107_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING @@ -14713,7 +13383,7 @@ meltrout_108_warmelt_macro_MEXPAND_PROGN(meltclosure_ptr_t closp_, melt_ptr_t fi #define meltcallcount 0L #endif - struct frame_meltrout_108_warmelt_macro_MEXPAND_PROGN_st { + struct frame_meltrout_107_warmelt_macro_MEXPAND_PROGN_st { int mcfr_nbvar; #if ENABLE_CHECKING const char* mcfr_flocs; @@ -14747,7 +13417,7 @@ melt_trace_start("MEXPAND_PROGN", meltcallcount); /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:5069:/ getarg"); + MELT_LOCATION("warmelt-macro.melt:5027:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ @@ -14772,17 +13442,17 @@ lab_endgetargs:; #if ENABLE_CHECKING - MELT_LOCATION("warmelt-macro.melt:5070:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:5028:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; - MELT_LOCATION("warmelt-macro.melt:5070:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5028:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; - } else {MELT_LOCATION("warmelt-macro.melt:5070:/ cond.else"); + } else {MELT_LOCATION("warmelt-macro.melt:5028:/ cond.else"); /*^block*/ /*anyblock*/{ @@ -14793,7 +13463,7 @@ lab_endgetargs:; { /*^locexp*/ melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, - (5070)?(5070):__LINE__, __FUNCTION__); + (5028)?(5028):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; @@ -14807,7 +13477,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5070:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5028:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} @@ -14817,14 +13487,14 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - MELT_LOCATION("warmelt-macro.melt:5071:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5029:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:5073:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:5031:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V9*/ meltfptr[8] = slot; }; ; @@ -14842,7 +13512,7 @@ lab_endgetargs:; /*_#NOT__L3*/ meltfnum[2] = (!(/*_#IS_PAIR__L2*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:5075:/ cond"); + MELT_LOCATION("warmelt-macro.melt:5033:/ cond"); /*cond*/ if (/*_#NOT__L3*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14850,17 +13520,17 @@ lab_endgetargs:; { - MELT_LOCATION("warmelt-macro.melt:5077:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:5035:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V8*/ meltfptr[7]), ( "empty PROGN"), (melt_ptr_t)0);} ; - MELT_LOCATION("warmelt-macro.melt:5078:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5036:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; - MELT_LOCATION("warmelt-macro.melt:5078:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5036:/ finalreturn"); ; /*finalret*/ goto labend_rout ; - MELT_LOCATION("warmelt-macro.melt:5076:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5034:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[13] = /*_.RETURN___V13*/ meltfptr[12];; @@ -14869,7 +13539,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = /*_.PROGN___V14*/ meltfptr[13];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:5075:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5033:/ clear"); /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V14*/ meltfptr[13] = 0 ;} @@ -14879,10 +13549,10 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION("warmelt-macro.melt:5079:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5037:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:5080:/ apply"); + MELT_LOCATION("warmelt-macro.melt:5038:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); @@ -14895,22 +13565,22 @@ lab_endgetargs:; /*_.PROGR__V16*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIRS__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:5084:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5042:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.PROGR__V16*/ meltfptr[13];; - MELT_LOCATION("warmelt-macro.melt:5084:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5042:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V15*/ meltfptr[12] = /*_.RETURN___V17*/ meltfptr[16];; - MELT_LOCATION("warmelt-macro.melt:5079:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5037:/ clear"); /*clear*/ /*_.PROGR__V16*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V17*/ meltfptr[16] = 0 ; /*_.LET___V7*/ meltfptr[5] = /*_.LET___V15*/ meltfptr[12];; - MELT_LOCATION("warmelt-macro.melt:5071:/ clear"); + MELT_LOCATION("warmelt-macro.melt:5029:/ clear"); /*clear*/ /*_.SLOC__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.SEXP_CONTENTS__V9*/ meltfptr[8] = 0 ; @@ -14926,11 +13596,11 @@ lab_endgetargs:; /*clear*/ /*_.IF___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V15*/ meltfptr[12] = 0 ; - MELT_LOCATION("warmelt-macro.melt:5069:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:5027:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; - MELT_LOCATION("warmelt-macro.melt:5069:/ finalreturn"); + MELT_LOCATION("warmelt-macro.melt:5027:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ @@ -14949,7 +13619,205 @@ melt_trace_end("MEXPAND_PROGN", meltcallcount); melt_topframe = (struct callfra #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_108_warmelt_macro_MEXPAND_PROGN*/ +} /*end meltrout_107_warmelt_macro_MEXPAND_PROGN*/ + + + + + +melt_ptr_t MELT_MODULE_VISIBILITY +meltrout_108_warmelt_macro_MEXPAND_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const melt_argdescr_cell_t xargdescr_[], union meltparam_un *xargtab_, + const melt_argdescr_cell_t xresdescr_[], union meltparam_un *xrestab_) +{ +#if ENABLE_CHECKING + static long call_counter__; + long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; +#undef meltcallcount +#define meltcallcount thiscallcounter__ +#else +#undef meltcallcount +#define meltcallcount 0L +#endif + + struct frame_meltrout_108_warmelt_macro_MEXPAND_RETURN_st { + int mcfr_nbvar; +#if ENABLE_CHECKING + const char* mcfr_flocs; +#endif + struct meltclosure_st *mcfr_clos; + struct excepth_melt_st *mcfr_exh; + struct callframe_melt_st *mcfr_prev; +#define MELTFRAM_NBVARPTR 13 + void* mcfr_varptr[13]; +#define MELTFRAM_NBVARNUM 1 + long mcfr_varnum[1]; +/*others*/ + long _spare_; } + *framptr_=0, meltfram__; +#define meltframe meltfram__ + if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ + int ix=0; + framptr_ = (void*)firstargp_; + gt_ggc_mx_melt_un (framptr_->mcfr_clos); + for(ix=0; ix<13; ix++) + if (framptr_->mcfr_varptr[ix]) + gt_ggc_mx_melt_un (framptr_->mcfr_varptr[ix]); + return NULL; + }/*end markggc*/; + memset(&meltfram__, 0, sizeof(meltfram__)); + meltfram__.mcfr_nbvar = 13; + meltfram__.mcfr_clos = closp_; + meltfram__.mcfr_prev = (struct callframe_melt_st *) melt_topframe; + melt_topframe = (struct callframe_melt_st *) &meltfram__; +melt_trace_start("MEXPAND_RETURN", meltcallcount); +/*getargs*/ + + /*getarg#0*/ + MELT_LOCATION("warmelt-macro.melt:5052:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; + + /*getarg#1*/ + /*^getarg*/ + if (xargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].meltbp_aptr) ? (*(xargtab_[0].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); + + + /*getarg#2*/ + /*^getarg*/ + if (xargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; + /*_.MEXPANDER__V4*/ meltfptr[3] = (xargtab_[1].meltbp_aptr) ? (*(xargtab_[1].meltbp_aptr)) : NULL; + gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); + + ; + goto lab_endgetargs; +lab_endgetargs:; +/*body*/ +/*^block*/ +/*anyblock*/{ + + + #if ENABLE_CHECKING + MELT_LOCATION("warmelt-macro.melt:5053:/ cppif.then"); + /*^block*/ + /*anyblock*/{ + + /*_#IS_A__L1*/ meltfnum[0] = + melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[0])));; + MELT_LOCATION("warmelt-macro.melt:5053:/ cond"); + /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { + /*^cond.then*/ + /*_.IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; + } else {MELT_LOCATION("warmelt-macro.melt:5053:/ cond.else"); + + /*^block*/ + /*anyblock*/{ + + + + + { + /*^locexp*/ + melt_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__, + (5053)?(5053):__LINE__, __FUNCTION__); +;} + ; + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ; + /*epilog*/ + } + ; + } + ; + /*^compute*/ + + /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; + /*epilog*/ + + MELT_LOCATION("warmelt-macro.melt:5053:/ clear"); + /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; + /*^clear*/ + /*clear*/ /*_.IFELSE___V6*/ meltfptr[5] = 0 ;} + + #else /*ENABLE_CHECKING*/ + /*^cppif.else*/ + /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + MELT_LOCATION("warmelt-macro.melt:5054:/ quasiblock"); + + + MELT_LOCATION("warmelt-macro.melt:5055:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ meltfptr[7] = slot; }; + ; + /*_.LIST_FIRST__V9*/ meltfptr[8] = + (melt_list_first((melt_ptr_t)(/*_.SEXP_CONTENTS__V8*/ meltfptr[7])));; + /*^compute*/ + + /*_.PAIR_TAIL__V10*/ meltfptr[9] = + (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V9*/ meltfptr[8])));; + MELT_LOCATION("warmelt-macro.melt:5056:/ getslot"); + { melt_ptr_t slot=0; + melt_object_get_field(slot,(melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ meltfptr[10] = slot; }; + ; + MELT_LOCATION("warmelt-macro.melt:5055:/ apply"); + /*apply*/{ + union meltparam_un argtab[3]; + memset(&argtab, 0, sizeof(argtab)); + /*^apply.arg*/ + argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LOCA_LOCATION__V11*/ meltfptr[10]; + /*^apply.arg*/ + argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; + /*^apply.arg*/ + argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; + /*_.RETR__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.PAIR_TAIL__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + } + ; + MELT_LOCATION("warmelt-macro.melt:5060:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETR__V12*/ meltfptr[11];; + MELT_LOCATION("warmelt-macro.melt:5060:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*_.LET___V7*/ meltfptr[5] = /*_.RETURN___V13*/ meltfptr[12];; + + MELT_LOCATION("warmelt-macro.melt:5054:/ clear"); + /*clear*/ /*_.SEXP_CONTENTS__V8*/ meltfptr[7] = 0 ; + /*^clear*/ + /*clear*/ /*_.LIST_FIRST__V9*/ meltfptr[8] = 0 ; + /*^clear*/ + /*clear*/ /*_.PAIR_TAIL__V10*/ meltfptr[9] = 0 ; + /*^clear*/ + /*clear*/ /*_.LOCA_LOCATION__V11*/ meltfptr[10] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETR__V12*/ meltfptr[11] = 0 ; + /*^clear*/ + /*clear*/ /*_.RETURN___V13*/ meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:5052:/ quasiblock"); + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; + MELT_LOCATION("warmelt-macro.melt:5052:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ; + /*epilog*/ + + /*^clear*/ + /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; + /*^clear*/ + /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ;} + +; + goto labend_rout; +labend_rout: +melt_trace_end("MEXPAND_RETURN", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.mcfr_prev; + return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); +#undef meltcallcount +#undef meltfram__ +#undef MELTFRAM_NBVARNUM +#undef MELTFRAM_NBVARPTR +} /*end meltrout_108_warmelt_macro_MEXPAND_RETURN*/ |