diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-28 11:16:33 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-28 11:16:33 +0000 |
| commit | 14da3227f5714c0e086765779479711f9147bfe6 (patch) | |
| tree | 7f186b3b53c7fa9c379bd7a24e2ae1cde2a2e440 /gcc/melt/generated/warmelt-first+01.c | |
| parent | 1d3260fc8bd0c0b77366dc077cd42e3ee33dfd52 (diff) | |
| download | gcc-14da3227f5714c0e086765779479711f9147bfe6.tar.gz | |
2012-08-28 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate}}
* melt/generated/meltrunsup-inc.c: Regenerate.
* melt/generated/meltrunsup.h: Regenerate.
* melt/generated/warmelt-base+meltdesc.c: Regenerate.
* melt/generated/warmelt-base+melttime.h: Regenerate.
* melt/generated/warmelt-base.c: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-debug.c: Regenerate.
* melt/generated/warmelt-first+01.c: Regenerate.
* melt/generated/warmelt-first+02.c: Regenerate.
* melt/generated/warmelt-first+03.c: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-first.c: Regenerate.
* melt/generated/warmelt-genobj+04.c: Regenerate.
* melt/generated/warmelt-genobj+05.c: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-genobj.c: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-macro.c: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-modes.c: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normal.c: Regenerate.
* melt/generated/warmelt-normatch+04.c: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-normatch.c: Regenerate.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@190747 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-first+01.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-first+01.c | 4774 |
1 files changed, 2387 insertions, 2387 deletions
diff --git a/gcc/melt/generated/warmelt-first+01.c b/gcc/melt/generated/warmelt-first+01.c index f3e57ca1345..abc50eca6bc 100644 --- a/gcc/melt/generated/warmelt-first+01.c +++ b/gcc/melt/generated/warmelt-first+01.c @@ -68,7 +68,7 @@ meltrout_2_warmelt_first_IS_NON_EMPTY_STRING (meltclosure_ptr_t meltclosp_, -#line 2216 "warmelt-first.melt" /**::procdecl::**/ +#line 2202 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_first_INSTALL_CTYPE_DESCR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -84,7 +84,7 @@ meltrout_3_warmelt_first_INSTALL_CTYPE_DESCR (meltclosure_ptr_t meltclosp_, -#line 2777 "warmelt-first.melt" /**::procdecl::**/ +#line 2688 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_first_ADD_NEW_SYMBOL_TOKEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -100,7 +100,7 @@ meltrout_4_warmelt_first_ADD_NEW_SYMBOL_TOKEN (meltclosure_ptr_t meltclosp_, -#line 2786 "warmelt-first.melt" /**::procdecl::**/ +#line 2697 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -116,7 +116,7 @@ meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN (meltclosure_ptr_t meltclosp_, -#line 2795 "warmelt-first.melt" /**::procdecl::**/ +#line 2706 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_first_INTERN_SYMBOL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -130,7 +130,7 @@ meltrout_6_warmelt_first_INTERN_SYMBOL (meltclosure_ptr_t meltclosp_, -#line 2810 "warmelt-first.melt" /**::procdecl::**/ +#line 2721 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_first_INTERN_KEYWORD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -144,7 +144,7 @@ meltrout_7_warmelt_first_INTERN_KEYWORD (meltclosure_ptr_t meltclosp_, -#line 2826 "warmelt-first.melt" /**::procdecl::**/ +#line 2737 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_first_CLONE_SYMBOL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -158,7 +158,7 @@ meltrout_8_warmelt_first_CLONE_SYMBOL (meltclosure_ptr_t meltclosp_, -#line 2877 "warmelt-first.melt" /**::procdecl::**/ +#line 2788 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -174,7 +174,7 @@ meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER (meltclosure_ptr_t meltclosp_, -#line 2890 "warmelt-first.melt" /**::procdecl::**/ +#line 2801 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -190,7 +190,7 @@ meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, -#line 2975 "warmelt-first.melt" /**::procdecl::**/ +#line 2886 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -206,7 +206,7 @@ meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, -#line 3015 "warmelt-first.melt" /**::procdecl::**/ +#line 2926 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -222,7 +222,7 @@ meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, -#line 3044 "warmelt-first.melt" /**::procdecl::**/ +#line 2955 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -238,7 +238,7 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, -#line 3094 "warmelt-first.melt" /**::procdecl::**/ +#line 3005 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_first_INIT_EXITFINALIZER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -254,7 +254,7 @@ meltrout_14_warmelt_first_INIT_EXITFINALIZER (meltclosure_ptr_t meltclosp_, -#line 3138 "warmelt-first.melt" /**::procdecl::**/ +#line 3049 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_first_AT_EXIT_FIRST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -268,7 +268,7 @@ meltrout_15_warmelt_first_AT_EXIT_FIRST (meltclosure_ptr_t meltclosp_, -#line 3146 "warmelt-first.melt" /**::procdecl::**/ +#line 3057 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_first_AT_EXIT_LAST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -282,7 +282,7 @@ meltrout_16_warmelt_first_AT_EXIT_LAST (meltclosure_ptr_t meltclosp_, -#line 3163 "warmelt-first.melt" /**::procdecl::**/ +#line 3074 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_first_END_MELT_PASS_RUNNER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -298,7 +298,7 @@ meltrout_17_warmelt_first_END_MELT_PASS_RUNNER (meltclosure_ptr_t meltclosp_, -#line 3180 "warmelt-first.melt" /**::procdecl::**/ +#line 3091 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_first_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -312,7 +312,7 @@ meltrout_18_warmelt_first_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, -#line 3189 "warmelt-first.melt" /**::procdecl::**/ +#line 3100 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_first_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -326,7 +326,7 @@ meltrout_19_warmelt_first_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, -#line 3194 "warmelt-first.melt" /**::procdecl::**/ +#line 3105 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_first_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -340,7 +340,7 @@ meltrout_20_warmelt_first_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, -#line 3203 "warmelt-first.melt" /**::procdecl::**/ +#line 3114 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST (meltclosure_ptr_t meltclosp_, @@ -357,7 +357,7 @@ meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST (meltclosure_ptr_t -#line 3224 "warmelt-first.melt" /**::procdecl::**/ +#line 3135 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -373,7 +373,7 @@ meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST (meltclosure_ptr_t meltclosp_, -#line 3251 "warmelt-first.melt" /**::procdecl::**/ +#line 3162 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_first_INIT_UNITSTARTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -387,7 +387,7 @@ meltrout_23_warmelt_first_INIT_UNITSTARTER (meltclosure_ptr_t meltclosp_, -#line 3260 "warmelt-first.melt" /**::procdecl::**/ +#line 3171 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_first_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -401,7 +401,7 @@ meltrout_24_warmelt_first_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, -#line 3269 "warmelt-first.melt" /**::procdecl::**/ +#line 3180 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_first_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -415,7 +415,7 @@ meltrout_25_warmelt_first_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, -#line 3274 "warmelt-first.melt" /**::procdecl::**/ +#line 3185 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_first_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -429,7 +429,7 @@ meltrout_26_warmelt_first_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, -#line 3283 "warmelt-first.melt" /**::procdecl::**/ +#line 3194 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_first_AT_START_UNIT_FIRST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -445,7 +445,7 @@ meltrout_27_warmelt_first_AT_START_UNIT_FIRST (meltclosure_ptr_t meltclosp_, -#line 3290 "warmelt-first.melt" /**::procdecl::**/ +#line 3201 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_first_AT_START_UNIT_LAST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -461,7 +461,7 @@ meltrout_28_warmelt_first_AT_START_UNIT_LAST (meltclosure_ptr_t meltclosp_, -#line 3305 "warmelt-first.melt" /**::procdecl::**/ +#line 3216 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_first_INIT_UNITFINISHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -476,7 +476,7 @@ meltrout_29_warmelt_first_INIT_UNITFINISHER (meltclosure_ptr_t meltclosp_, -#line 3314 "warmelt-first.melt" /**::procdecl::**/ +#line 3225 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_first_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -490,7 +490,7 @@ meltrout_30_warmelt_first_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, -#line 3323 "warmelt-first.melt" /**::procdecl::**/ +#line 3234 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_first_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -504,7 +504,7 @@ meltrout_31_warmelt_first_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, -#line 3328 "warmelt-first.melt" /**::procdecl::**/ +#line 3239 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_first_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -518,7 +518,7 @@ meltrout_32_warmelt_first_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, -#line 3337 "warmelt-first.melt" /**::procdecl::**/ +#line 3248 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -534,7 +534,7 @@ meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST (meltclosure_ptr_t meltclosp_, -#line 3345 "warmelt-first.melt" /**::procdecl::**/ +#line 3256 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -550,7 +550,7 @@ meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST (meltclosure_ptr_t meltclosp_, -#line 3367 "warmelt-first.melt" /**::procdecl::**/ +#line 3278 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_first_INIT_OPTIONSETTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -565,7 +565,7 @@ meltrout_35_warmelt_first_INIT_OPTIONSETTER (meltclosure_ptr_t meltclosp_, -#line 3387 "warmelt-first.melt" /**::procdecl::**/ +#line 3298 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -579,7 +579,7 @@ meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, -#line 3402 "warmelt-first.melt" /**::procdecl::**/ +#line 3313 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_first_OPTION_HELPER_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -594,7 +594,7 @@ meltrout_37_warmelt_first_OPTION_HELPER_FUN (meltclosure_ptr_t meltclosp_, -#line 3420 "warmelt-first.melt" /**::procdecl::**/ +#line 3331 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_first_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -608,7 +608,7 @@ meltrout_38_warmelt_first_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, -#line 3501 "warmelt-first.melt" /**::procdecl::**/ +#line 3412 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_first_MAPOBJECT_EVERY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -622,7 +622,7 @@ meltrout_39_warmelt_first_MAPOBJECT_EVERY (meltclosure_ptr_t meltclosp_, -#line 3516 "warmelt-first.melt" /**::procdecl::**/ +#line 3427 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_first_MAPOBJECT_ITERATE_TEST (meltclosure_ptr_t meltclosp_, @@ -639,7 +639,7 @@ meltrout_40_warmelt_first_MAPOBJECT_ITERATE_TEST (meltclosure_ptr_t -#line 3563 "warmelt-first.melt" /**::procdecl::**/ +#line 3474 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_first_LIST_EVERY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -653,7 +653,7 @@ meltrout_41_warmelt_first_LIST_EVERY (meltclosure_ptr_t meltclosp_, -#line 3574 "warmelt-first.melt" /**::procdecl::**/ +#line 3485 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_first_LIST_ITERATE_TEST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -668,7 +668,7 @@ meltrout_42_warmelt_first_LIST_ITERATE_TEST (meltclosure_ptr_t meltclosp_, -#line 3590 "warmelt-first.melt" /**::procdecl::**/ +#line 3501 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_first_LIST_APPEND2LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -682,7 +682,7 @@ meltrout_43_warmelt_first_LIST_APPEND2LIST (meltclosure_ptr_t meltclosp_, -#line 3605 "warmelt-first.melt" /**::procdecl::**/ +#line 3516 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_first_LIST_MAP (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -696,7 +696,7 @@ meltrout_44_warmelt_first_LIST_MAP (meltclosure_ptr_t meltclosp_, -#line 3622 "warmelt-first.melt" /**::procdecl::**/ +#line 3533 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_first_LIST_FIND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -710,7 +710,7 @@ meltrout_45_warmelt_first_LIST_FIND (meltclosure_ptr_t meltclosp_, -#line 3645 "warmelt-first.melt" /**::procdecl::**/ +#line 3556 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_first_LIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -724,7 +724,7 @@ meltrout_46_warmelt_first_LIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, -#line 3654 "warmelt-first.melt" /**::procdecl::**/ +#line 3565 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_first_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -738,7 +738,7 @@ meltrout_47_warmelt_first_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, -#line 3665 "warmelt-first.melt" /**::procdecl::**/ +#line 3576 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_first_PAIRLIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -754,7 +754,7 @@ meltrout_48_warmelt_first_PAIRLIST_TO_MULTIPLE (meltclosure_ptr_t meltclosp_, -#line 3730 "warmelt-first.melt" /**::procdecl::**/ +#line 3641 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_first_MULTIPLE_ITERATE_TEST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -770,7 +770,7 @@ meltrout_49_warmelt_first_MULTIPLE_ITERATE_TEST (meltclosure_ptr_t meltclosp_, -#line 3747 "warmelt-first.melt" /**::procdecl::**/ +#line 3658 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_first_MULTIPLE_MAP (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -784,7 +784,7 @@ meltrout_50_warmelt_first_MULTIPLE_MAP (meltclosure_ptr_t meltclosp_, -#line 3764 "warmelt-first.melt" /**::procdecl::**/ +#line 3675 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_first_MULTIPLE_TO_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -798,7 +798,7 @@ meltrout_51_warmelt_first_MULTIPLE_TO_LIST (meltclosure_ptr_t meltclosp_, -#line 3782 "warmelt-first.melt" /**::procdecl::**/ +#line 3693 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_first_CLOSURE_EVERY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -812,7 +812,7 @@ meltrout_52_warmelt_first_CLOSURE_EVERY (meltclosure_ptr_t meltclosp_, -#line 3795 "warmelt-first.melt" /**::procdecl::**/ +#line 3706 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_first_ROUTINE_EVERY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -826,7 +826,7 @@ meltrout_53_warmelt_first_ROUTINE_EVERY (meltclosure_ptr_t meltclosp_, -#line 3809 "warmelt-first.melt" /**::procdecl::**/ +#line 3720 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_first_INSTALL_METHOD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -840,7 +840,7 @@ meltrout_54_warmelt_first_INSTALL_METHOD (meltclosure_ptr_t meltclosp_, -#line 3893 "warmelt-first.melt" /**::procdecl::**/ +#line 3804 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_first_COMPARE_OBJ_RANKED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -856,7 +856,7 @@ meltrout_55_warmelt_first_COMPARE_OBJ_RANKED (meltclosure_ptr_t meltclosp_, -#line 3975 "warmelt-first.melt" /**::procdecl::**/ +#line 3886 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE (meltclosure_ptr_t meltclosp_, @@ -876,7 +876,7 @@ meltrout_56_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE (meltclosure_ptr_t -#line 3989 "warmelt-first.melt" /**::procdecl::**/ +#line 3900 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_first_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -890,7 +890,7 @@ meltrout_57_warmelt_first_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, -#line 4001 "warmelt-first.melt" /**::procdecl::**/ +#line 3912 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_first_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -904,7 +904,7 @@ meltrout_58_warmelt_first_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, -#line 4015 "warmelt-first.melt" /**::procdecl::**/ +#line 3926 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_first_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -918,7 +918,7 @@ meltrout_59_warmelt_first_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, -#line 4029 "warmelt-first.melt" /**::procdecl::**/ +#line 3940 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_first_FRESH_ENV (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -932,7 +932,7 @@ meltrout_60_warmelt_first_FRESH_ENV (meltclosure_ptr_t meltclosp_, -#line 4051 "warmelt-first.melt" /**::procdecl::**/ +#line 3962 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_first_FIND_ENV (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -946,7 +946,7 @@ meltrout_61_warmelt_first_FIND_ENV (meltclosure_ptr_t meltclosp_, -#line 4074 "warmelt-first.melt" /**::procdecl::**/ +#line 3985 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_first_FIND_ENV_DEBUG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -960,7 +960,7 @@ meltrout_62_warmelt_first_FIND_ENV_DEBUG (meltclosure_ptr_t meltclosp_, -#line 4096 "warmelt-first.melt" /**::procdecl::**/ +#line 4007 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_first_FIND_ENCLOSING_ENV (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -976,7 +976,7 @@ meltrout_63_warmelt_first_FIND_ENCLOSING_ENV (meltclosure_ptr_t meltclosp_, -#line 4115 "warmelt-first.melt" /**::procdecl::**/ +#line 4026 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_first_PUT_ENV (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -990,7 +990,7 @@ meltrout_64_warmelt_first_PUT_ENV (meltclosure_ptr_t meltclosp_, -#line 4137 "warmelt-first.melt" /**::procdecl::**/ +#line 4048 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_first_OVERWRITE_ENV (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1004,7 +1004,7 @@ meltrout_65_warmelt_first_OVERWRITE_ENV (meltclosure_ptr_t meltclosp_, -#line 4170 "warmelt-first.melt" /**::procdecl::**/ +#line 4081 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_first_POST_INITIALIZATION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1020,7 +1020,7 @@ meltrout_66_warmelt_first_POST_INITIALIZATION (meltclosure_ptr_t meltclosp_, -#line 4219 "warmelt-first.melt" /**::procdecl::**/ +#line 4130 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE_GTY (meltclosure_ptr_t meltclosp_, @@ -1040,7 +1040,7 @@ meltrout_67_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE_GTY (meltclosure_ptr_t -#line 4224 "warmelt-first.melt" /**::procdecl::**/ +#line 4135 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE (meltclosure_ptr_t meltclosp_, @@ -1060,7 +1060,7 @@ meltrout_68_warmelt_first_RETRIEVE_DICTIONNARY_CTYPE (meltclosure_ptr_t -#line 4560 "warmelt-first.melt" /**::procdecl::**/ +#line 4465 "warmelt-first.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_first_DEBUG_MSG_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -1276,7 +1276,7 @@ meltmod__warmelt_first__forward_or_mark_module_start_frame (struct /**** warmelt-first+01.c implementations ****/ -#line 2786 "warmelt-first.melt" /**::proc::**/ +#line 2697 "warmelt-first.melt" /**::proc::**/ @@ -1354,13 +1354,13 @@ meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2786:/ getarg"); -#line 2786 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2697:/ getarg"); +#line 2697 "warmelt-first.melt" /**::getarg::**/ /*_.SYDA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2786 +#line 2697 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.STR__V3*/ meltfptr[2] = @@ -1372,44 +1372,44 @@ meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2786 +#line 2697 /*anyblock*/ { -#line 2787 "warmelt-first.melt" /**::cppif::**/ +#line 2698 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2787:/ cppif.then"); -#line 2787 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2698:/ cppif.then"); +#line 2698 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2787 +#line 2698 /*anyblock */ { /*^checksignal */ -#line 2787 +#line 2698 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 2787 "warmelt-first.melt" /**::expr::**/ +#line 2698 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYDA__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:2787:/ cond"); -#line 2787 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2698:/ cond"); +#line 2698 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2787 +#line 2698 /*_.IFELSE___V5*/ meltfptr[4] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2787:/ cond.else"); -#line 2787 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2698:/ cond.else"); +#line 2698 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2787 +#line 2698 /*anyblock */ { @@ -1418,11 +1418,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2787 +#line 2698 melt_assert_failed (("check syda"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2787) ? (2787) : __LINE__, __FUNCTION__); + (2698) ? (2698) : __LINE__, __FUNCTION__); ; } ; @@ -1437,34 +1437,34 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2787:/ clear"); -#line 2787 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2698:/ clear"); +#line 2698 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2787 +#line 2698 /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2787 +#line 2698 /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2788:/ quasiblock"); -#line 2788 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2699:/ quasiblock"); +#line 2699 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2788 +#line 2699 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2788 +#line 2699 /*^rawallocobj */ -#line 2788 +#line 2699 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -1477,7 +1477,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2788 +#line 2699 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -1487,8 +1487,8 @@ lab_endgetargs:; ( /*_.STR__V3*/ meltfptr[2]), "NAMED_NAME"); ; /*_.KW__V7*/ meltfptr[6] = /*_.INST__V8*/ meltfptr[7];; - MELT_LOCATION ("warmelt-first.melt:2789:/ getslot"); -#line 2789 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2700:/ getslot"); +#line 2700 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYDA__V2*/ meltfptr[1]) /*=obj*/ ; @@ -1498,8 +1498,8 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:2791:/ locexp"); -#line 2791 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2702:/ locexp"); +#line 2702 "warmelt-first.melt" /**::locexp::**/ meltgc_put_mapstrings ((struct meltmapstrings_st *) ( /*_.KWDICT__V9*/ meltfptr[8]), melt_string_str ((melt_ptr_t) @@ -1509,25 +1509,25 @@ lab_endgetargs:; ; /*_.LET___V6*/ meltfptr[4] = /*_.KW__V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-first.melt:2788:/ clear"); -#line 2788 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2699:/ clear"); +#line 2699 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.KW__V7*/ meltfptr[6] = 0; /*^clear */ -#line 2788 +#line 2699 /*clear *//*_.KWDICT__V9*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-first.melt:2786:/ checksignal"); -#line 2786 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2697:/ checksignal"); +#line 2697 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2786 +#line 2697 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-first.melt:2786:/ locexp"); -#line 2786 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2697:/ locexp"); +#line 2697 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -1538,16 +1538,16 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2786 +#line 2697 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2786 +#line 2697 /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ -#line 2786 +#line 2697 /*clear *//*_.LET___V6*/ meltfptr[4] = 0; } @@ -1566,7 +1566,7 @@ labend_rout: } /*end meltrout_5_warmelt_first_ADD_NEW_KEYWORD_TOKEN */ -#line 2795 "warmelt-first.melt" /**::proc::**/ +#line 2706 "warmelt-first.melt" /**::proc::**/ @@ -1641,13 +1641,13 @@ meltrout_6_warmelt_first_INTERN_SYMBOL (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2795:/ getarg"); -#line 2795 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2706:/ getarg"); +#line 2706 "warmelt-first.melt" /**::getarg::**/ /*_.INIDAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2795 +#line 2706 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.SYMB__V3*/ meltfptr[2] = @@ -1660,44 +1660,44 @@ meltrout_6_warmelt_first_INTERN_SYMBOL (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2795 +#line 2706 /*anyblock*/ { -#line 2796 "warmelt-first.melt" /**::cppif::**/ +#line 2707 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2796:/ cppif.then"); -#line 2796 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2707:/ cppif.then"); +#line 2707 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2796 +#line 2707 /*anyblock */ { /*^checksignal */ -#line 2796 +#line 2707 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 2796 "warmelt-first.melt" /**::expr::**/ +#line 2707 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.INIDAT__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:2796:/ cond"); -#line 2796 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2707:/ cond"); +#line 2707 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2796 +#line 2707 /*_.IFELSE___V5*/ meltfptr[4] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2796:/ cond.else"); -#line 2796 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2707:/ cond.else"); +#line 2707 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2796 +#line 2707 /*anyblock */ { @@ -1706,11 +1706,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2796 +#line 2707 melt_assert_failed (("check inidat"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2796) ? (2796) : __LINE__, __FUNCTION__); + (2707) ? (2707) : __LINE__, __FUNCTION__); ; } ; @@ -1725,54 +1725,54 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2796:/ clear"); -#line 2796 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2707:/ clear"); +#line 2707 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2796 +#line 2707 /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2796 +#line 2707 /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2797 "warmelt-first.melt" /**::cppif::**/ +#line 2708 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2797:/ cppif.then"); -#line 2797 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2708:/ cppif.then"); +#line 2708 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2797 +#line 2708 /*anyblock */ { /*^checksignal */ -#line 2797 +#line 2708 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 2797 "warmelt-first.melt" /**::expr::**/ +#line 2708 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:2797:/ cond"); -#line 2797 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2708:/ cond"); +#line 2708 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2797 +#line 2708 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2797:/ cond.else"); -#line 2797 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2708:/ cond.else"); +#line 2708 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2797 +#line 2708 /*anyblock */ { @@ -1781,11 +1781,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2797 +#line 2708 melt_assert_failed (("check sym"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2797) ? (2797) : __LINE__, __FUNCTION__); + (2708) ? (2708) : __LINE__, __FUNCTION__); ; } ; @@ -1800,26 +1800,26 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2797:/ clear"); -#line 2797 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2708:/ clear"); +#line 2708 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 2797 +#line 2708 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2797 +#line 2708 /*_.IFCPP___V6*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2798:/ quasiblock"); -#line 2798 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2709:/ quasiblock"); +#line 2709 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 2798 +#line 2709 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V3*/ meltfptr[2]) /*=obj*/ ; @@ -1827,8 +1827,8 @@ lab_endgetargs:; /*_.SYNAME__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:2799:/ getslot"); -#line 2799 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2710:/ getslot"); +#line 2710 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.INIDAT__V2*/ meltfptr[1]) /*=obj*/ ; @@ -1837,36 +1837,36 @@ lab_endgetargs:; }; ; /*_.OLDSY__V11*/ meltfptr[10] = -#line 2800 "warmelt-first.melt" /**::expr::**/ +#line 2711 "warmelt-first.melt" /**::expr::**/ (melt_get_mapstrings ((struct meltmapstrings_st *) ( /*_.SYDICT__V10*/ meltfptr[9]), melt_string_str ((melt_ptr_t) ( /*_.SYNAME__V9*/ meltfptr[8]))));; - MELT_LOCATION ("warmelt-first.melt:2801:/ checksignal"); -#line 2801 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2712:/ checksignal"); +#line 2712 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2801 +#line 2712 /*cond */ if ( /*_.OLDSY__V11*/ meltfptr[10]) /*then */ { /*^cond.then */ -#line 2801 +#line 2712 /*_.IFELSE___V12*/ meltfptr[11] = /*_.OLDSY__V11*/ meltfptr[10];; } else { - MELT_LOCATION ("warmelt-first.melt:2801:/ cond.else"); -#line 2801 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2712:/ cond.else"); +#line 2712 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2801 +#line 2712 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2804:/ locexp"); -#line 2804 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2715:/ locexp"); +#line 2715 "warmelt-first.melt" /**::locexp::**/ meltgc_put_mapstrings ((struct meltmapstrings_st *) ( /*_.SYDICT__V10*/ meltfptr[9]), melt_string_str ((melt_ptr_t) ( /*_.SYNAME__V9*/ @@ -1875,8 +1875,8 @@ lab_endgetargs:; meltfptr[2])); } ; - MELT_LOCATION ("warmelt-first.melt:2803:/ quasiblock"); -#line 2803 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2714:/ quasiblock"); +#line 2714 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V13*/ meltfptr[12] = /*_.SYMB__V3*/ meltfptr[2];; @@ -1885,8 +1885,8 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[11] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2801:/ clear"); -#line 2801 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2712:/ clear"); +#line 2712 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PROGN___V13*/ meltfptr[12] = 0; } ; @@ -1894,31 +1894,31 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:2798:/ clear"); -#line 2798 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2709:/ clear"); +#line 2709 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.SYNAME__V9*/ meltfptr[8] = 0; /*^clear */ -#line 2798 +#line 2709 /*clear *//*_.SYDICT__V10*/ meltfptr[9] = 0; /*^clear */ -#line 2798 +#line 2709 /*clear *//*_.OLDSY__V11*/ meltfptr[10] = 0; /*^clear */ -#line 2798 +#line 2709 /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-first.melt:2795:/ checksignal"); -#line 2795 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2706:/ checksignal"); +#line 2706 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2795 +#line 2706 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-first.melt:2795:/ locexp"); -#line 2795 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2706:/ locexp"); +#line 2706 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -1929,19 +1929,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2795 +#line 2706 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2795 +#line 2706 /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ -#line 2795 +#line 2706 /*clear *//*_.IFCPP___V6*/ meltfptr[4] = 0; /*^clear */ -#line 2795 +#line 2706 /*clear *//*_.LET___V8*/ meltfptr[6] = 0; } @@ -1960,7 +1960,7 @@ labend_rout: } /*end meltrout_6_warmelt_first_INTERN_SYMBOL */ -#line 2810 "warmelt-first.melt" /**::proc::**/ +#line 2721 "warmelt-first.melt" /**::proc::**/ @@ -2035,13 +2035,13 @@ meltrout_7_warmelt_first_INTERN_KEYWORD (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2810:/ getarg"); -#line 2810 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2721:/ getarg"); +#line 2721 "warmelt-first.melt" /**::getarg::**/ /*_.INIDAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2810 +#line 2721 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.KEYW__V3*/ meltfptr[2] = @@ -2054,44 +2054,44 @@ meltrout_7_warmelt_first_INTERN_KEYWORD (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2810 +#line 2721 /*anyblock*/ { -#line 2811 "warmelt-first.melt" /**::cppif::**/ +#line 2722 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2811:/ cppif.then"); -#line 2811 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2722:/ cppif.then"); +#line 2722 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2811 +#line 2722 /*anyblock */ { /*^checksignal */ -#line 2811 +#line 2722 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 2811 "warmelt-first.melt" /**::expr::**/ +#line 2722 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.INIDAT__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:2811:/ cond"); -#line 2811 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2722:/ cond"); +#line 2722 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2811 +#line 2722 /*_.IFELSE___V5*/ meltfptr[4] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2811:/ cond.else"); -#line 2811 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2722:/ cond.else"); +#line 2722 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2811 +#line 2722 /*anyblock */ { @@ -2100,11 +2100,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2811 +#line 2722 melt_assert_failed (("check inidat"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2811) ? (2811) : __LINE__, __FUNCTION__); + (2722) ? (2722) : __LINE__, __FUNCTION__); ; } ; @@ -2119,54 +2119,54 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2811:/ clear"); -#line 2811 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2722:/ clear"); +#line 2722 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2811 +#line 2722 /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2811 +#line 2722 /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2812 "warmelt-first.melt" /**::cppif::**/ +#line 2723 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2812:/ cppif.then"); -#line 2812 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2723:/ cppif.then"); +#line 2723 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2812 +#line 2723 /*anyblock */ { /*^checksignal */ -#line 2812 +#line 2723 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 2812 "warmelt-first.melt" /**::expr::**/ +#line 2723 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.KEYW__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:2812:/ cond"); -#line 2812 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2723:/ cond"); +#line 2723 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2812 +#line 2723 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2812:/ cond.else"); -#line 2812 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2723:/ cond.else"); +#line 2723 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2812 +#line 2723 /*anyblock */ { @@ -2175,11 +2175,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2812 +#line 2723 melt_assert_failed (("check keyw"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2812) ? (2812) : __LINE__, __FUNCTION__); + (2723) ? (2723) : __LINE__, __FUNCTION__); ; } ; @@ -2194,26 +2194,26 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[4] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2812:/ clear"); -#line 2812 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2723:/ clear"); +#line 2723 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 2812 +#line 2723 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2812 +#line 2723 /*_.IFCPP___V6*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2813:/ quasiblock"); -#line 2813 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2724:/ quasiblock"); +#line 2724 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 2813 +#line 2724 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.KEYW__V3*/ meltfptr[2]) /*=obj*/ ; @@ -2221,8 +2221,8 @@ lab_endgetargs:; /*_.KWNAME__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:2814:/ getslot"); -#line 2814 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2725:/ getslot"); +#line 2725 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.INIDAT__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2231,36 +2231,36 @@ lab_endgetargs:; }; ; /*_.OLDKW__V11*/ meltfptr[10] = -#line 2815 "warmelt-first.melt" /**::expr::**/ +#line 2726 "warmelt-first.melt" /**::expr::**/ (melt_get_mapstrings ((struct meltmapstrings_st *) ( /*_.KWDICT__V10*/ meltfptr[9]), melt_string_str ((melt_ptr_t) ( /*_.KWNAME__V9*/ meltfptr[8]))));; - MELT_LOCATION ("warmelt-first.melt:2816:/ checksignal"); -#line 2816 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2727:/ checksignal"); +#line 2727 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2816 +#line 2727 /*cond */ if ( /*_.OLDKW__V11*/ meltfptr[10]) /*then */ { /*^cond.then */ -#line 2816 +#line 2727 /*_.IFELSE___V12*/ meltfptr[11] = /*_.OLDKW__V11*/ meltfptr[10];; } else { - MELT_LOCATION ("warmelt-first.melt:2816:/ cond.else"); -#line 2816 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2727:/ cond.else"); +#line 2727 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2816 +#line 2727 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2818:/ locexp"); -#line 2818 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2729:/ locexp"); +#line 2729 "warmelt-first.melt" /**::locexp::**/ meltgc_put_mapstrings ((struct meltmapstrings_st *) ( /*_.KWDICT__V10*/ meltfptr[9]), melt_string_str ((melt_ptr_t) ( /*_.KWNAME__V9*/ @@ -2270,7 +2270,7 @@ lab_endgetargs:; } ; /*^quasiblock */ -#line 2818 +#line 2729 /*_.PROGN___V13*/ meltfptr[12] = /*_.KEYW__V3*/ meltfptr[2];; @@ -2279,8 +2279,8 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[11] = /*_.PROGN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2816:/ clear"); -#line 2816 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2727:/ clear"); +#line 2727 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PROGN___V13*/ meltfptr[12] = 0; } ; @@ -2288,31 +2288,31 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:2813:/ clear"); -#line 2813 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2724:/ clear"); +#line 2724 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.KWNAME__V9*/ meltfptr[8] = 0; /*^clear */ -#line 2813 +#line 2724 /*clear *//*_.KWDICT__V10*/ meltfptr[9] = 0; /*^clear */ -#line 2813 +#line 2724 /*clear *//*_.OLDKW__V11*/ meltfptr[10] = 0; /*^clear */ -#line 2813 +#line 2724 /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-first.melt:2810:/ checksignal"); -#line 2810 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2721:/ checksignal"); +#line 2721 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2810 +#line 2721 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-first.melt:2810:/ locexp"); -#line 2810 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2721:/ locexp"); +#line 2721 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2323,19 +2323,19 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2810 +#line 2721 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2810 +#line 2721 /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ -#line 2810 +#line 2721 /*clear *//*_.IFCPP___V6*/ meltfptr[4] = 0; /*^clear */ -#line 2810 +#line 2721 /*clear *//*_.LET___V8*/ meltfptr[6] = 0; } @@ -2354,7 +2354,7 @@ labend_rout: } /*end meltrout_7_warmelt_first_INTERN_KEYWORD */ -#line 2826 "warmelt-first.melt" /**::proc::**/ +#line 2737 "warmelt-first.melt" /**::proc::**/ @@ -2430,24 +2430,24 @@ meltrout_8_warmelt_first_CLONE_SYMBOL (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2826:/ getarg"); -#line 2826 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2737:/ getarg"); +#line 2737 "warmelt-first.melt" /**::getarg::**/ /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 2826 +#line 2737 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:2828:/ quasiblock"); -#line 2828 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2739:/ quasiblock"); +#line 2739 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 2828 +#line 2739 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -2457,54 +2457,54 @@ lab_endgetargs:; /*_.MAPSTR__V4*/ meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:2831:/ checksignal"); -#line 2831 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2742:/ checksignal"); +#line 2742 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L1*/ meltfnum[0] = -#line 2831 "warmelt-first.melt" /**::expr::**/ +#line 2742 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-first.melt:2831:/ cond"); -#line 2831 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2742:/ cond"); +#line 2742 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2831 +#line 2742 /*_.SYNAM__V5*/ meltfptr[4] = /*_.SYMB__V2*/ meltfptr[1];; } else { - MELT_LOCATION ("warmelt-first.melt:2831:/ cond.else"); -#line 2831 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2742:/ cond.else"); +#line 2742 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2831 +#line 2742 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2833:/ checksignal"); -#line 2833 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2744:/ checksignal"); +#line 2744 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 2833 "warmelt-first.melt" /**::expr::**/ +#line 2744 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:2833:/ cond"); -#line 2833 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2744:/ cond"); +#line 2744 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2833 +#line 2744 /*^block */ -#line 2833 +#line 2744 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2834:/ getslot"); -#line 2834 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2745:/ getslot"); +#line 2745 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2516,34 +2516,34 @@ lab_endgetargs:; /*_.NAMED_NAME__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2833:/ clear"); -#line 2833 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2744:/ clear"); +#line 2744 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V7*/ meltfptr[6] = 0; } ; } else { /*^cond.else */ -#line 2833 +#line 2744 /*^block */ -#line 2833 +#line 2744 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2836:/ quasiblock"); -#line 2836 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2747:/ quasiblock"); +#line 2747 "warmelt-first.melt" /**::quasiblock::**/ /*_.DISCRIM__V9*/ meltfptr[8] = -#line 2836 "warmelt-first.melt" /**::expr::**/ +#line 2747 "warmelt-first.melt" /**::expr::**/ ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]))));; - MELT_LOCATION ("warmelt-first.melt:2836:/ cond"); -#line 2836 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2747:/ cond"); +#line 2747 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( -#line 2836 "warmelt-first.melt" /**::expr::**/ +#line 2747 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.DISCRIM__V9*/ @@ -2552,9 +2552,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2836 +#line 2747 /*^getslot */ -#line 2836 +#line 2747 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -2567,15 +2567,15 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2836 +#line 2747 /*_.DISCRINAM__V10*/ meltfptr[9] = NULL;; } ; { - MELT_LOCATION ("warmelt-first.melt:2838:/ locexp"); -#line 2838 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2749:/ locexp"); +#line 2749 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("clone_symbol got invalid argument of discriminant"), @@ -2586,8 +2586,8 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:2840:/ locexp"); -#line 2840 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2751:/ locexp"); +#line 2751 "warmelt-first.melt" /**::locexp::**/ #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -2596,17 +2596,17 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-first.melt:2841:/ quasiblock"); -#line 2841 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2752:/ quasiblock"); +#line 2752 "warmelt-first.melt" /**::quasiblock::**/ /*_?*/ meltfram__.loc_CSTRING__o0 = -#line 2841 "warmelt-first.melt" /**::expr::**/ +#line 2752 "warmelt-first.melt" /**::expr::**/ (char *) 0;; { - MELT_LOCATION ("warmelt-first.melt:2844:/ locexp"); -#line 2855 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2755:/ locexp"); +#line 2766 "warmelt-first.melt" /**::locexp::**/ /* clone_symbol CLONAMSTR__1 */ { static char clonambuf_CLONAMSTR__1[100]; @@ -2629,7 +2629,7 @@ lab_endgetargs:; } ; /*_.MAKE_STRINGCONST__V12*/ meltfptr[11] = -#line 2856 "warmelt-first.melt" /**::expr::**/ +#line 2767 "warmelt-first.melt" /**::expr::**/ (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[2])), @@ -2639,25 +2639,25 @@ lab_endgetargs:; /*_.LET___V11*/ meltfptr[10] = /*_.MAKE_STRINGCONST__V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:2841:/ clear"); -#line 2841 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2752:/ clear"); +#line 2752 "warmelt-first.melt" /**::clear::**/ /*clear *//*_?*/ meltfram__.loc_CSTRING__o0 = 0; /*^clear */ -#line 2841 +#line 2752 /*clear *//*_.MAKE_STRINGCONST__V12*/ meltfptr[11] = 0; /*_.LET___V8*/ meltfptr[6] = /*_.LET___V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-first.melt:2836:/ clear"); -#line 2836 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2747:/ clear"); +#line 2747 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.DISCRIM__V9*/ meltfptr[8] = 0; /*^clear */ -#line 2836 +#line 2747 /*clear *//*_.DISCRINAM__V10*/ meltfptr[9] = 0; /*^clear */ -#line 2836 +#line 2747 /*clear *//*_.LET___V11*/ meltfptr[10] = 0; - MELT_LOCATION ("warmelt-first.melt:2835:/ quasiblock"); -#line 2835 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2746:/ quasiblock"); +#line 2746 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V13*/ meltfptr[11] = /*_.LET___V8*/ meltfptr[6];; @@ -2667,11 +2667,11 @@ lab_endgetargs:; /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2833:/ clear"); -#line 2833 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2744:/ clear"); +#line 2744 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V8*/ meltfptr[6] = 0; /*^clear */ -#line 2833 +#line 2744 /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0; } ; @@ -2680,54 +2680,54 @@ lab_endgetargs:; /*_.SYNAM__V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2831:/ clear"); -#line 2831 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2742:/ clear"); +#line 2742 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2831 +#line 2742 /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; } ; } ; /*_.BOXI__V14*/ meltfptr[8] = -#line 2859 "warmelt-first.melt" /**::expr::**/ +#line 2770 "warmelt-first.melt" /**::expr::**/ (melt_get_mapstrings ((struct meltmapstrings_st *) ( /*_.MAPSTR__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.SYNAM__V5*/ meltfptr[4]))));; -#line 2860 "warmelt-first.melt" /**::cppif::**/ +#line 2771 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2860:/ cppif.then"); -#line 2860 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2771:/ cppif.then"); +#line 2771 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2860 +#line 2771 /*anyblock */ { /*^checksignal */ -#line 2860 +#line 2771 MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[1] = -#line 2860 "warmelt-first.melt" /**::expr::**/ +#line 2771 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SYNAM__V5*/ meltfptr[4])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-first.melt:2860:/ cond"); -#line 2860 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2771:/ cond"); +#line 2771 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2860 +#line 2771 /*_.IFELSE___V16*/ meltfptr[10] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2860:/ cond.else"); -#line 2860 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2771:/ cond.else"); +#line 2771 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2860 +#line 2771 /*anyblock */ { @@ -2736,11 +2736,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2860 +#line 2771 melt_assert_failed (("check synam"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2860) ? (2860) : __LINE__, __FUNCTION__); + (2771) ? (2771) : __LINE__, __FUNCTION__); ; } ; @@ -2755,57 +2755,57 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[9] = /*_.IFELSE___V16*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2860:/ clear"); -#line 2860 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2771:/ clear"); +#line 2771 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_STRING__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2860 +#line 2771 /*clear *//*_.IFELSE___V16*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2860 +#line 2771 /*_.IFCPP___V15*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2861:/ checksignal"); -#line 2861 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2772:/ checksignal"); +#line 2772 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_INTEGERBOX__L4*/ meltfnum[1] = -#line 2861 "warmelt-first.melt" /**::expr::**/ +#line 2772 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.BOXI__V14*/ meltfptr[8])) == MELTOBMAG_INT);; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = -#line 2861 "warmelt-first.melt" /**::expr::**/ +#line 2772 "warmelt-first.melt" /**::expr::**/ (!( /*_#IS_INTEGERBOX__L4*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-first.melt:2861:/ cond"); -#line 2861 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2772:/ cond"); +#line 2772 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2861 +#line 2772 /*^block */ -#line 2861 +#line 2772 /*anyblock */ { /*_.MAKE_INTEGERBOX__V17*/ meltfptr[6] = -#line 2863 "warmelt-first.melt" /**::expr::**/ +#line 2774 "warmelt-first.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[3])), (0)));; - MELT_LOCATION ("warmelt-first.melt:2863:/ compute"); -#line 2863 "warmelt-first.melt" /**::compute::**/ + MELT_LOCATION ("warmelt-first.melt:2774:/ compute"); +#line 2774 "warmelt-first.melt" /**::compute::**/ /*_.BOXI__V14*/ meltfptr[8] = /*_.SETQ___V18*/ meltfptr[11] = /*_.MAKE_INTEGERBOX__V17*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-first.melt:2864:/ locexp"); -#line 2864 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2775:/ locexp"); +#line 2775 "warmelt-first.melt" /**::locexp::**/ meltgc_put_mapstrings ((struct meltmapstrings_st *) ( /*_.MAPSTR__V4*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.SYNAM__V5*/ @@ -2814,61 +2814,61 @@ lab_endgetargs:; meltfptr[8])); } ; - MELT_LOCATION ("warmelt-first.melt:2862:/ quasiblock"); -#line 2862 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2773:/ quasiblock"); +#line 2773 "warmelt-first.melt" /**::quasiblock::**/ /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2861:/ clear"); -#line 2861 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2772:/ clear"); +#line 2772 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MAKE_INTEGERBOX__V17*/ meltfptr[6] = 0; /*^clear */ -#line 2861 +#line 2772 /*clear *//*_.SETQ___V18*/ meltfptr[11] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:2865:/ quasiblock"); -#line 2865 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2776:/ quasiblock"); +#line 2776 "warmelt-first.melt" /**::quasiblock::**/ /*_#I__L6*/ meltfnum[5] = -#line 2865 "warmelt-first.melt" /**::expr::**/ +#line 2776 "warmelt-first.melt" /**::expr::**/ (melt_get_int ((melt_ptr_t) ( /*_.BOXI__V14*/ meltfptr[8])));; /*^compute */ /*_#I__L7*/ meltfnum[6] = -#line 2866 "warmelt-first.melt" /**::expr::**/ +#line 2777 "warmelt-first.melt" /**::expr::**/ (( /*_#I__L6*/ meltfnum[5]) + (1));; - MELT_LOCATION ("warmelt-first.melt:2866:/ compute"); -#line 2866 "warmelt-first.melt" /**::compute::**/ + MELT_LOCATION ("warmelt-first.melt:2777:/ compute"); +#line 2777 "warmelt-first.melt" /**::compute::**/ /*_#I__L6*/ meltfnum[5] = /*_#SETQ___L8*/ meltfnum[7] = /*_#I__L7*/ meltfnum[6];; { - MELT_LOCATION ("warmelt-first.melt:2867:/ locexp"); -#line 2867 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2778:/ locexp"); +#line 2778 "warmelt-first.melt" /**::locexp::**/ melt_put_int ((melt_ptr_t) ( /*_.BOXI__V14*/ meltfptr[8]), ( /*_#I__L6*/ meltfnum[5])); } ; - MELT_LOCATION ("warmelt-first.melt:2868:/ checksignal"); -#line 2868 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2779:/ checksignal"); +#line 2779 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MAKE_INTEGERBOX__V20*/ meltfptr[10] = -#line 2870 "warmelt-first.melt" /**::expr::**/ +#line 2781 "warmelt-first.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[3])), ( /*_#I__L6*/ meltfnum[5])));; - MELT_LOCATION ("warmelt-first.melt:2868:/ quasiblock"); -#line 2868 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2779:/ quasiblock"); +#line 2779 "warmelt-first.melt" /**::quasiblock::**/ /*^rawallocobj */ -#line 2868 +#line 2779 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -2881,7 +2881,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2868 +#line 2779 /*putslot */ melt_assertmsg ("putslot checkobj @NAMED_NAME", melt_magic_discr ((melt_ptr_t) @@ -2891,7 +2891,7 @@ lab_endgetargs:; ( /*_.SYNAM__V5*/ meltfptr[4]), "NAMED_NAME"); ; /*^putslot */ -#line 2868 +#line 2779 /*putslot */ melt_assertmsg ("putslot checkobj @CSYM_URANK", melt_magic_discr ((melt_ptr_t) @@ -2906,56 +2906,56 @@ lab_endgetargs:; /*_.LET___V19*/ meltfptr[5] = /*_.INST___V21*/ meltfptr[6];; - MELT_LOCATION ("warmelt-first.melt:2865:/ clear"); -#line 2865 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2776:/ clear"); +#line 2776 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#I__L6*/ meltfnum[5] = 0; /*^clear */ -#line 2865 +#line 2776 /*clear *//*_#I__L7*/ meltfnum[6] = 0; /*^clear */ -#line 2865 +#line 2776 /*clear *//*_#SETQ___L8*/ meltfnum[7] = 0; /*^clear */ -#line 2865 +#line 2776 /*clear *//*_.MAKE_INTEGERBOX__V20*/ meltfptr[10] = 0; /*^clear */ -#line 2865 +#line 2776 /*clear *//*_.INST___V21*/ meltfptr[6] = 0; /*_.LET___V3*/ meltfptr[2] = /*_.LET___V19*/ meltfptr[5];; - MELT_LOCATION ("warmelt-first.melt:2828:/ clear"); -#line 2828 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2739:/ clear"); +#line 2739 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MAPSTR__V4*/ meltfptr[3] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_#IS_STRING__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_.SYNAM__V5*/ meltfptr[4] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_.BOXI__V14*/ meltfptr[8] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_.IFCPP___V15*/ meltfptr[9] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_#IS_INTEGERBOX__L4*/ meltfnum[1] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_#NOT__L5*/ meltfnum[4] = 0; /*^clear */ -#line 2828 +#line 2739 /*clear *//*_.LET___V19*/ meltfptr[5] = 0; - MELT_LOCATION ("warmelt-first.melt:2826:/ quasiblock"); -#line 2826 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2737:/ quasiblock"); +#line 2737 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:2826:/ locexp"); -#line 2826 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2737:/ locexp"); +#line 2737 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2966,13 +2966,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2826 +#line 2737 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2826 +#line 2737 /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } @@ -2991,7 +2991,7 @@ labend_rout: } /*end meltrout_8_warmelt_first_CLONE_SYMBOL */ -#line 2877 "warmelt-first.melt" /**::proc::**/ +#line 2788 "warmelt-first.melt" /**::proc::**/ @@ -3070,13 +3070,13 @@ meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2877:/ getarg"); -#line 2877 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2788:/ getarg"); +#line 2788 "warmelt-first.melt" /**::getarg::**/ /*_.PREVENV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2877 +#line 2788 if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; @@ -3085,16 +3085,16 @@ meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2877 +#line 2788 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:2878:/ checksignal"); -#line 2878 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2789:/ checksignal"); +#line 2789 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = -#line 2878 "warmelt-first.melt" /**::expr::**/ +#line 2789 "warmelt-first.melt" /**::expr::**/ /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3102,21 +3102,21 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-first.melt:2878:/ cond"); -#line 2878 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2789:/ cond"); +#line 2789 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2878 +#line 2789 /*^block */ -#line 2878 +#line 2789 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2879:/ locexp"); -#line 2879 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2790:/ locexp"); +#line 2790 "warmelt-first.melt" /**::locexp::**/ #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -3130,27 +3130,27 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:2880:/ quasiblock"); -#line 2880 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2791:/ quasiblock"); +#line 2791 "warmelt-first.melt" /**::quasiblock::**/ - MELT_LOCATION ("warmelt-first.melt:2881:/ checksignal"); -#line 2881 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2792:/ checksignal"); +#line 2792 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2881 +#line 2792 /*cond */ if ( /*_?*/ meltfram__.loc_CSTRING__o0) /*then */ { /*^cond.then */ -#line 2881 +#line 2792 /*^block */ -#line 2881 +#line 2792 /*anyblock */ { /*_.MAKE_STRINGCONST__V5*/ meltfptr[4] = -#line 2881 "warmelt-first.melt" /**::expr::**/ +#line 2792 "warmelt-first.melt" /**::expr::**/ (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[0])), ( /*_?*/ meltfram__.loc_CSTRING__o0)));; @@ -3160,31 +3160,31 @@ lab_endgetargs:; /*_.MAKE_STRINGCONST__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2881:/ clear"); -#line 2881 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2792:/ clear"); +#line 2792 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MAKE_STRINGCONST__V5*/ meltfptr[4] = 0; } ; } else { /*^cond.else */ -#line 2881 +#line 2792 /*_.DESCR__V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-first.melt:2882:/ checksignal"); -#line 2882 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2793:/ checksignal"); +#line 2793 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2882 +#line 2793 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2882 +#line 2793 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.DESCR__V4*/ meltfptr[3]; /*_.NEWENV__V6*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t) @@ -3194,16 +3194,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:2883:/ checksignal"); -#line 2883 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2794:/ checksignal"); +#line 2794 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2883 +#line 2794 /*^rawallocobj */ -#line 2883 +#line 2794 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -3216,7 +3216,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2883 +#line 2794 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -3227,19 +3227,19 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*_.NEWCONT__V7*/ meltfptr[6] = /*_.INST__V8*/ meltfptr[7];; - MELT_LOCATION ("warmelt-first.melt:2886:/ checksignal"); -#line 2886 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2797:/ checksignal"); +#line 2797 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2886 +#line 2797 /*_.RETVAL___V1*/ meltfptr[0] = /*_.NEWCONT__V7*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-first.melt:2886:/ locexp"); -#line 2886 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2797:/ locexp"); +#line 2797 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3250,36 +3250,36 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2886 +#line 2797 ; /*finalret */ goto labend_rout; /*_.LET___V3*/ meltfptr[2] = /*_.RETURN___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-first.melt:2880:/ clear"); -#line 2880 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2791:/ clear"); +#line 2791 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.DESCR__V4*/ meltfptr[3] = 0; /*^clear */ -#line 2880 +#line 2791 /*clear *//*_.NEWENV__V6*/ meltfptr[4] = 0; /*^clear */ -#line 2880 +#line 2791 /*clear *//*_.NEWCONT__V7*/ meltfptr[6] = 0; /*^clear */ -#line 2880 +#line 2791 /*clear *//*_.RETURN___V9*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-first.melt:2877:/ checksignal"); -#line 2877 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2788:/ checksignal"); +#line 2788 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2877 +#line 2788 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:2877:/ locexp"); -#line 2877 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2788:/ locexp"); +#line 2788 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3290,16 +3290,16 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2877 +#line 2788 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2877 +#line 2788 /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2877 +#line 2788 /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } @@ -3318,7 +3318,7 @@ labend_rout: } /*end meltrout_9_warmelt_first_INITFRESH_CONTENVMAKER */ -#line 2890 "warmelt-first.melt" /**::proc::**/ +#line 2801 "warmelt-first.melt" /**::proc::**/ @@ -3396,13 +3396,13 @@ meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2890:/ getarg"); -#line 2890 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2801:/ getarg"); +#line 2801 "warmelt-first.melt" /**::getarg::**/ /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2890 +#line 2801 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ meltfptr[2] = @@ -3412,7 +3412,7 @@ meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2890 +#line 2801 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.CONTENV__V4*/ meltfptr[3] = @@ -3425,50 +3425,50 @@ meltrout_10_warmelt_first_INITVALUE_EXPORTER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2890 +#line 2801 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:2891:/ quasiblock"); -#line 2891 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2802:/ quasiblock"); +#line 2802 "warmelt-first.melt" /**::quasiblock::**/ /*_.PARENV__V6*/ meltfptr[5] = ( /*!konst_0 */ meltfrout->tabval[0]);; - MELT_LOCATION ("warmelt-first.melt:2892:/ checksignal"); -#line 2892 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2803:/ checksignal"); +#line 2803 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = -#line 2892 "warmelt-first.melt" /**::expr::**/ +#line 2803 "warmelt-first.melt" /**::expr::**/ (( /*_.CONTENV__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:2892:/ cond"); -#line 2892 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2803:/ cond"); +#line 2803 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2892 +#line 2803 /*^block */ -#line 2892 +#line 2803 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2894:/ checksignal"); -#line 2894 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2805:/ checksignal"); +#line 2805 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2894 +#line 2805 /*cond */ if ( /*_.PARENV__V6*/ meltfptr[5]) /*then */ { /*^cond.then */ -#line 2894 +#line 2805 /*^block */ -#line 2894 +#line 2805 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2895:/ getslot"); -#line 2895 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2806:/ getslot"); +#line 2806 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -3479,7 +3479,7 @@ lab_endgetargs:; { /*^locexp */ -#line 2895 +#line 2806 warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("exporting value too early with null environment container"), @@ -3490,22 +3490,22 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2894:/ clear"); -#line 2894 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2805:/ clear"); +#line 2805 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V8*/ meltfptr[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:2896:/ quasiblock"); -#line 2896 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2807:/ quasiblock"); +#line 2807 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2896:/ locexp"); -#line 2896 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2807:/ locexp"); +#line 2807 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3516,11 +3516,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2896 +#line 2807 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:2893:/ quasiblock"); -#line 2893 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2804:/ quasiblock"); +#line 2804 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V10*/ meltfptr[9] = /*_.RETURN___V9*/ meltfptr[7];; @@ -3529,56 +3529,56 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2892:/ clear"); -#line 2892 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2803:/ clear"); +#line 2803 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V9*/ meltfptr[7] = 0; /*^clear */ -#line 2892 +#line 2803 /*clear *//*_.PROGN___V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 2892 +#line 2803 /*_.IF___V7*/ meltfptr[6] = NULL;; } ; -#line 2898 "warmelt-first.melt" /**::cppif::**/ +#line 2809 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2898:/ cppif.then"); -#line 2898 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2809:/ cppif.then"); +#line 2809 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2898 +#line 2809 /*anyblock */ { /*^checksignal */ -#line 2898 +#line 2809 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 2898 "warmelt-first.melt" /**::expr::**/ +#line 2809 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:2898:/ cond"); -#line 2898 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2809:/ cond"); +#line 2809 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2898 +#line 2809 /*_.IFELSE___V12*/ meltfptr[9] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2898:/ cond.else"); -#line 2898 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2809:/ cond.else"); +#line 2809 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2898 +#line 2809 /*anyblock */ { @@ -3587,11 +3587,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2898 +#line 2809 melt_assert_failed (("check sym"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2898) ? (2898) : __LINE__, __FUNCTION__); + (2809) ? (2809) : __LINE__, __FUNCTION__); ; } ; @@ -3606,54 +3606,54 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2898:/ clear"); -#line 2898 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2809:/ clear"); +#line 2809 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2898 +#line 2809 /*clear *//*_.IFELSE___V12*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2898 +#line 2809 /*_.IFCPP___V11*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2899 "warmelt-first.melt" /**::cppif::**/ +#line 2810 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2899:/ cppif.then"); -#line 2899 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2810:/ cppif.then"); +#line 2810 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2899 +#line 2810 /*anyblock */ { /*^checksignal */ -#line 2899 +#line 2810 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 2899 "warmelt-first.melt" /**::expr::**/ +#line 2810 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CONTENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_REFERENCE */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-first.melt:2899:/ cond"); -#line 2899 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2810:/ cond"); +#line 2810 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2899 +#line 2810 /*_.IFELSE___V14*/ meltfptr[13] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2899:/ cond.else"); -#line 2899 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2810:/ cond.else"); +#line 2810 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2899 +#line 2810 /*anyblock */ { @@ -3662,11 +3662,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2899 +#line 2810 melt_assert_failed (("check contenv"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2899) ? (2899) : __LINE__, __FUNCTION__); + (2810) ? (2810) : __LINE__, __FUNCTION__); ; } ; @@ -3681,26 +3681,26 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2899:/ clear"); -#line 2899 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2810:/ clear"); +#line 2810 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2899 +#line 2810 /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2899 +#line 2810 /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2900:/ quasiblock"); -#line 2900 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2811:/ quasiblock"); +#line 2811 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 2900 +#line 2811 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CONTENV__V4*/ meltfptr[3]) /*=obj*/ ; @@ -3708,46 +3708,46 @@ lab_endgetargs:; /*_.ENV__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:2901:/ checksignal"); -#line 2901 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2812:/ checksignal"); +#line 2812 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2901 +#line 2812 MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[1] = -#line 2901 "warmelt-first.melt" /**::expr::**/ +#line 2812 "warmelt-first.melt" /**::expr::**/ (( /*_.ENV__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:2901:/ cond"); -#line 2901 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2812:/ cond"); +#line 2812 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2901 +#line 2812 /*_.IF___V17*/ meltfptr[16] = /*_.PARENV__V6*/ meltfptr[5];; } else { - MELT_LOCATION ("warmelt-first.melt:2901:/ cond.else"); -#line 2901 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2812:/ cond.else"); +#line 2812 "warmelt-first.melt" /**::cond.else::**/ /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-first.melt:2901:/ cond"); -#line 2901 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2812:/ cond"); +#line 2812 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_.IF___V17*/ meltfptr[16]) /*then */ { /*^cond.then */ -#line 2901 +#line 2812 /*^block */ -#line 2901 +#line 2812 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2903:/ getslot"); -#line 2903 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2814:/ getslot"); +#line 2814 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -3758,7 +3758,7 @@ lab_endgetargs:; { /*^locexp */ -#line 2903 +#line 2814 inform (UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ("exporting value too early with null environment"), @@ -3766,15 +3766,15 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V19*/ meltfptr[18]))); } ; - MELT_LOCATION ("warmelt-first.melt:2904:/ quasiblock"); -#line 2904 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2815:/ quasiblock"); +#line 2815 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2904:/ locexp"); -#line 2904 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2815:/ locexp"); +#line 2815 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3785,11 +3785,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2904 +#line 2815 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:2902:/ quasiblock"); -#line 2902 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2813:/ quasiblock"); +#line 2813 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -3798,59 +3798,59 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2901:/ clear"); -#line 2901 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2812:/ clear"); +#line 2812 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V19*/ meltfptr[18] = 0; /*^clear */ -#line 2901 +#line 2812 /*clear *//*_.RETURN___V20*/ meltfptr[19] = 0; /*^clear */ -#line 2901 +#line 2812 /*clear *//*_.PROGN___V21*/ meltfptr[20] = 0; } ; } else { /*^cond.else */ -#line 2901 +#line 2812 /*_.IF___V18*/ meltfptr[17] = NULL;; } ; -#line 2906 "warmelt-first.melt" /**::cppif::**/ +#line 2817 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2906:/ cppif.then"); -#line 2906 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2817:/ cppif.then"); +#line 2817 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2906 +#line 2817 /*anyblock */ { /*^checksignal */ -#line 2906 +#line 2817 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[4] = -#line 2906 "warmelt-first.melt" /**::expr::**/ +#line 2817 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V16*/ meltfptr[15]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-first.melt:2906:/ cond"); -#line 2906 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2817:/ cond"); +#line 2817 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2906 +#line 2817 /*_.IFELSE___V23*/ meltfptr[19] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2906:/ cond.else"); -#line 2906 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2817:/ cond.else"); +#line 2817 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2906 +#line 2817 /*anyblock */ { @@ -3859,11 +3859,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2906 +#line 2817 melt_assert_failed (("check good env"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2906) ? (2906) : __LINE__, __FUNCTION__); + (2817) ? (2817) : __LINE__, __FUNCTION__); ; } ; @@ -3878,51 +3878,51 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[18] = /*_.IFELSE___V23*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2906:/ clear"); -#line 2906 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2817:/ clear"); +#line 2817 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L5*/ meltfnum[4] = 0; /*^clear */ -#line 2906 +#line 2817 /*clear *//*_.IFELSE___V23*/ meltfptr[19] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2906 +#line 2817 /*_.IFCPP___V22*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2907:/ quasiblock"); -#line 2907 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2818:/ quasiblock"); +#line 2818 "warmelt-first.melt" /**::quasiblock::**/ - MELT_LOCATION ("warmelt-first.melt:2908:/ checksignal"); -#line 2908 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2819:/ checksignal"); +#line 2819 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 2908 +#line 2819 /*cond */ if ( /*_.PARENV__V6*/ meltfptr[5]) /*then */ { /*^cond.then */ -#line 2908 +#line 2819 /*^block */ -#line 2908 +#line 2819 /*anyblock */ { /*^checksignal */ -#line 2908 +#line 2819 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2908 +#line 2819 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2908 +#line 2819 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.SYM__V2*/ meltfptr[1]; /*_.FIND_ENV__V26*/ meltfptr[25] = @@ -3937,29 +3937,29 @@ lab_endgetargs:; /*_.FIND_ENV__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2908:/ clear"); -#line 2908 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2819:/ clear"); +#line 2819 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIND_ENV__V26*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ -#line 2908 +#line 2819 /*_.PREVBIND__V25*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-first.melt:2909:/ checksignal"); -#line 2909 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2820:/ checksignal"); +#line 2820 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2909 +#line 2820 /*^rawallocobj */ -#line 2909 +#line 2820 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -3972,7 +3972,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 2909 +#line 2820 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -3982,7 +3982,7 @@ lab_endgetargs:; ( /*_.SYM__V2*/ meltfptr[1]), "BINDER"); ; /*^putslot */ -#line 2909 +#line 2820 /*putslot */ melt_assertmsg ("putslot checkobj @VBIND_VALUE", melt_magic_discr ((melt_ptr_t) @@ -3992,8 +3992,8 @@ lab_endgetargs:; ( /*_.VAL__V3*/ meltfptr[2]), "VBIND_VALUE"); ; /*_.VALBIND__V27*/ meltfptr[25] = /*_.INST__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-first.melt:2914:/ getslot"); -#line 2914 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2825:/ getslot"); +#line 2825 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4001,58 +4001,58 @@ lab_endgetargs:; /*_.SYMNAM__V29*/ meltfptr[28] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:2917:/ checksignal"); -#line 2917 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2828:/ checksignal"); +#line 2828 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[4] = -#line 2917 "warmelt-first.melt" /**::expr::**/ +#line 2828 "warmelt-first.melt" /**::expr::**/ (( /*_.PREVBIND__V25*/ meltfptr[19]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:2917:/ cond"); -#line 2917 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2828:/ cond"); +#line 2828 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2917 +#line 2828 /*_.IFELSE___V30*/ meltfptr[29] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2917:/ cond.else"); -#line 2917 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2828:/ cond.else"); +#line 2828 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2917 +#line 2828 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2918:/ checksignal"); -#line 2918 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ checksignal"); +#line 2829 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2918 +#line 2829 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = -#line 2919 "warmelt-first.melt" /**::expr::**/ +#line 2830 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_SELECTOR_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-first.melt:2918:/ cond"); -#line 2918 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ cond"); +#line 2829 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ -#line 2918 +#line 2829 /*^block */ -#line 2918 +#line 2829 /*anyblock */ { /*_#IS_A__L9*/ meltfnum[8] = -#line 2920 "warmelt-first.melt" /**::expr::**/ +#line 2831 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SELECTOR */ @@ -4063,34 +4063,34 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2918:/ clear"); -#line 2918 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ clear"); +#line 2829 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; } ; } else { /*^cond.else */ -#line 2918 +#line 2829 /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION ("warmelt-first.melt:2918:/ cond"); -#line 2918 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ cond"); +#line 2829 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L8*/ meltfnum[7]) /*then */ { /*^cond.then */ -#line 2918 +#line 2829 /*^block */ -#line 2918 +#line 2829 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2921:/ locexp"); -#line 2921 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2832:/ locexp"); +#line 2832 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("not exporting previous bound selector"), @@ -4099,15 +4099,15 @@ lab_endgetargs:; meltfptr[28]))); } ; - MELT_LOCATION ("warmelt-first.melt:2922:/ quasiblock"); -#line 2922 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2833:/ quasiblock"); +#line 2833 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2922:/ locexp"); -#line 2922 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2833:/ locexp"); +#line 2833 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4118,11 +4118,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2922 +#line 2833 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:2918:/ quasiblock"); -#line 2918 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ quasiblock"); +#line 2829 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V33*/ meltfptr[32] = @@ -4133,50 +4133,50 @@ lab_endgetargs:; /*_.PROGN___V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2918:/ clear"); -#line 2918 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ clear"); +#line 2829 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V32*/ meltfptr[31] = 0; /*^clear */ -#line 2918 +#line 2829 /*clear *//*_.PROGN___V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ -#line 2918 +#line 2829 /*^block */ -#line 2918 +#line 2829 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2923:/ checksignal"); -#line 2923 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ checksignal"); +#line 2834 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2923 +#line 2834 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[8] = -#line 2924 "warmelt-first.melt" /**::expr::**/ +#line 2835 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_INSTANCE_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-first.melt:2923:/ cond"); -#line 2923 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ cond"); +#line 2834 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ -#line 2923 +#line 2834 /*^block */ -#line 2923 +#line 2834 /*anyblock */ { /*_#IS_OBJECT__L12*/ meltfnum[11] = -#line 2925 "warmelt-first.melt" /**::expr::**/ +#line 2836 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT);; @@ -4186,34 +4186,34 @@ lab_endgetargs:; /*_#IS_OBJECT__L12*/ meltfnum[11];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2923:/ clear"); -#line 2923 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ clear"); +#line 2834 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L12*/ meltfnum[11] = 0; } ; } else { /*^cond.else */ -#line 2923 +#line 2834 /*_#IF___L11*/ meltfnum[10] = 0;; } ; - MELT_LOCATION ("warmelt-first.melt:2923:/ cond"); -#line 2923 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ cond"); +#line 2834 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L11*/ meltfnum[10]) /*then */ { /*^cond.then */ -#line 2923 +#line 2834 /*^block */ -#line 2923 +#line 2834 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2926:/ locexp"); -#line 2926 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2837:/ locexp"); +#line 2837 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("not exporting previous bound instance"), @@ -4222,15 +4222,15 @@ lab_endgetargs:; meltfptr[28]))); } ; - MELT_LOCATION ("warmelt-first.melt:2927:/ quasiblock"); -#line 2927 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2838:/ quasiblock"); +#line 2838 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2927:/ locexp"); -#line 2927 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2838:/ locexp"); +#line 2838 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -4242,11 +4242,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2927 +#line 2838 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:2923:/ quasiblock"); -#line 2923 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ quasiblock"); +#line 2834 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V36*/ meltfptr[35] = @@ -4257,51 +4257,51 @@ lab_endgetargs:; /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2923:/ clear"); -#line 2923 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ clear"); +#line 2834 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V35*/ meltfptr[32] = 0; /*^clear */ -#line 2923 +#line 2834 /*clear *//*_.PROGN___V36*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ -#line 2923 +#line 2834 /*^block */ -#line 2923 +#line 2834 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2928:/ checksignal"); -#line 2928 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ checksignal"); +#line 2839 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2928 +#line 2839 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = -#line 2929 "warmelt-first.melt" /**::expr::**/ +#line 2840 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-first.melt:2928:/ cond"); -#line 2928 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ cond"); +#line 2839 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ -#line 2928 +#line 2839 /*^block */ -#line 2928 +#line 2839 /*anyblock */ { /*_#IS_A__L15*/ meltfnum[14] = -#line 2930 "warmelt-first.melt" /**::expr::**/ +#line 2841 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2]), @@ -4312,35 +4312,35 @@ lab_endgetargs:; /*_#IS_A__L15*/ meltfnum[14];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2928:/ clear"); -#line 2928 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ clear"); +#line 2839 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L15*/ meltfnum[14] = 0; } ; } else { /*^cond.else */ -#line 2928 +#line 2839 /*_#IF___L14*/ meltfnum[13] = 0;; } ; - MELT_LOCATION ("warmelt-first.melt:2928:/ cond"); -#line 2928 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ cond"); +#line 2839 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L14*/ meltfnum[13]) /*then */ { /*^cond.then */ -#line 2928 +#line 2839 /*^block */ -#line 2928 +#line 2839 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2931:/ locexp"); -#line 2931 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2842:/ locexp"); +#line 2842 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -4351,16 +4351,16 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2932:/ quasiblock"); -#line 2932 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2843:/ quasiblock"); +#line 2843 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-first.melt:2932:/ locexp"); -#line 2932 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2843:/ locexp"); +#line 2843 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -4373,12 +4373,12 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2932 +#line 2843 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2928:/ quasiblock"); -#line 2928 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2839:/ quasiblock"); +#line 2839 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V39*/ meltfptr[38] = @@ -4389,52 +4389,52 @@ lab_endgetargs:; /*_.PROGN___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2928:/ clear"); -#line 2928 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ clear"); +#line 2839 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V38*/ meltfptr[35] = 0; /*^clear */ -#line 2928 +#line 2839 /*clear *//*_.PROGN___V39*/ meltfptr[38] = 0; } ; } else { /*^cond.else */ -#line 2928 +#line 2839 /*^block */ -#line 2928 +#line 2839 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2933:/ checksignal"); -#line 2933 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2844:/ checksignal"); +#line 2844 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2933 +#line 2844 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[14] = -#line 2934 "warmelt-first.melt" /**::expr::**/ +#line 2845 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_FUNCTION_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-first.melt:2933:/ cond"); -#line 2933 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2844:/ cond"); +#line 2844 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ -#line 2933 +#line 2844 /*^block */ -#line 2933 +#line 2844 /*anyblock */ { /*_#IS_CLOSURE__L18*/ meltfnum[17] = -#line 2935 "warmelt-first.melt" /**::expr::**/ +#line 2846 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2])) == @@ -4446,8 +4446,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2933:/ clear"); -#line 2933 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2844:/ clear"); +#line 2844 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L18*/ meltfnum[17] = 0; } @@ -4455,27 +4455,27 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2933 +#line 2844 /*_#IF___L17*/ meltfnum[16] = 0;; } ; - MELT_LOCATION ("warmelt-first.melt:2933:/ cond"); -#line 2933 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2844:/ cond"); +#line 2844 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L17*/ meltfnum[16]) /*then */ { /*^cond.then */ -#line 2933 +#line 2844 /*^block */ -#line 2933 +#line 2844 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2936:/ locexp"); -#line 2936 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2847:/ locexp"); +#line 2847 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -4485,16 +4485,16 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2937:/ quasiblock"); -#line 2937 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2848:/ quasiblock"); +#line 2848 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-first.melt:2937:/ locexp"); -#line 2937 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2848:/ locexp"); +#line 2848 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -4507,12 +4507,12 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2937 +#line 2848 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2933:/ quasiblock"); -#line 2933 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2844:/ quasiblock"); +#line 2844 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V42*/ meltfptr[41] = @@ -4524,12 +4524,12 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2933:/ clear"); -#line 2933 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2844:/ clear"); +#line 2844 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V41*/ meltfptr[38] = 0; /*^clear */ -#line 2933 +#line 2844 /*clear *//*_.PROGN___V42*/ meltfptr[41] = 0; } @@ -4537,42 +4537,42 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2933 +#line 2844 /*^block */ -#line 2933 +#line 2844 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2938:/ checksignal"); -#line 2938 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2849:/ checksignal"); +#line 2849 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2938 +#line 2849 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L19*/ meltfnum[17] = -#line 2939 "warmelt-first.melt" /**::expr::**/ +#line 2850 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[12])));; MELT_LOCATION - ("warmelt-first.melt:2938:/ cond"); -#line 2938 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2849:/ cond"); +#line 2849 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ -#line 2938 +#line 2849 /*^block */ -#line 2938 +#line 2849 /*anyblock */ { /*_#IS_A__L21*/ meltfnum[20] = -#line 2940 "warmelt-first.melt" /**::expr::**/ +#line 2851 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2]), @@ -4584,8 +4584,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2938:/ clear"); -#line 2938 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2849:/ clear"); +#line 2849 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L21*/ meltfnum[20] = 0; } @@ -4593,28 +4593,28 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2938 +#line 2849 /*_#IF___L20*/ meltfnum[19] = 0;; } ; MELT_LOCATION - ("warmelt-first.melt:2938:/ cond"); -#line 2938 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2849:/ cond"); +#line 2849 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L20*/ meltfnum[19]) /*then */ { /*^cond.then */ -#line 2938 +#line 2849 /*^block */ -#line 2938 +#line 2849 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2941:/ locexp"); -#line 2941 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2852:/ locexp"); +#line 2852 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -4623,16 +4623,16 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2942:/ quasiblock"); -#line 2942 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2853:/ quasiblock"); +#line 2853 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-first.melt:2942:/ locexp"); -#line 2942 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2853:/ locexp"); +#line 2853 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -4646,12 +4646,12 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2942 +#line 2853 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2938:/ quasiblock"); -#line 2938 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2849:/ quasiblock"); +#line 2849 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V45*/ meltfptr[44] = @@ -4663,12 +4663,12 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2938:/ clear"); -#line 2938 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2849:/ clear"); +#line 2849 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V44*/ meltfptr[41] = 0; /*^clear */ -#line 2938 +#line 2849 /*clear *//*_.PROGN___V45*/ meltfptr[44] = 0; } @@ -4676,40 +4676,40 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2938 +#line 2849 /*^block */ -#line 2938 +#line 2849 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2943:/ checksignal"); -#line 2943 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2854:/ checksignal"); +#line 2854 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2943 +#line 2854 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L22*/ meltfnum[20] = -#line 2944 "warmelt-first.melt" /**::expr::**/ +#line 2855 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[14])));; MELT_LOCATION - ("warmelt-first.melt:2943:/ cond"); -#line 2943 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2854:/ cond"); +#line 2854 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ -#line 2943 +#line 2854 /*^block */ -#line 2943 +#line 2854 /*anyblock */ { /*_#IS_A__L24*/ meltfnum[23] = -#line 2945 "warmelt-first.melt" /**::expr::**/ +#line 2856 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[13])));; /*^compute */ @@ -4718,8 +4718,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2943:/ clear"); -#line 2943 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2854:/ clear"); +#line 2854 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L24*/ meltfnum[23] = 0; } @@ -4727,28 +4727,28 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2943 +#line 2854 /*_#IF___L23*/ meltfnum[22] = 0;; } ; MELT_LOCATION - ("warmelt-first.melt:2943:/ cond"); -#line 2943 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2854:/ cond"); +#line 2854 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L23*/ meltfnum[22]) /*then */ { /*^cond.then */ -#line 2943 +#line 2854 /*^block */ -#line 2943 +#line 2854 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2946:/ locexp"); -#line 2946 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2857:/ locexp"); +#line 2857 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -4757,8 +4757,8 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2947:/ quasiblock"); -#line 2947 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2858:/ quasiblock"); +#line 2858 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = @@ -4766,8 +4766,8 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-first.melt:2947:/ locexp"); -#line 2947 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2858:/ locexp"); +#line 2858 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -4781,12 +4781,12 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2947 +#line 2858 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2943:/ quasiblock"); -#line 2943 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2854:/ quasiblock"); +#line 2854 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V48*/ meltfptr[47] = @@ -4801,12 +4801,12 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2943:/ clear"); -#line 2943 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2854:/ clear"); +#line 2854 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V47*/ meltfptr[44] = 0; /*^clear */ -#line 2943 +#line 2854 /*clear *//*_.PROGN___V48*/ meltfptr[47] = 0; } @@ -4814,40 +4814,40 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2943 +#line 2854 /*^block */ -#line 2943 +#line 2854 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2949:/ checksignal"); -#line 2949 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2860:/ checksignal"); +#line 2860 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 2949 +#line 2860 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L25*/ meltfnum[23] = -#line 2950 "warmelt-first.melt" /**::expr::**/ +#line 2861 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_INSTANCE_BINDING */ meltfrout->tabval[8])));; MELT_LOCATION - ("warmelt-first.melt:2949:/ cond"); -#line 2949 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2860:/ cond"); +#line 2860 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L25*/ meltfnum[23]) /*then */ { /*^cond.then */ -#line 2949 +#line 2860 /*^block */ -#line 2949 +#line 2860 /*anyblock */ { /*_#IS_OBJECT__L27*/ meltfnum[26] = -#line 2951 "warmelt-first.melt" /**::expr::**/ +#line 2862 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.VAL__V3*/ @@ -4862,8 +4862,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2949:/ clear"); -#line 2949 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2860:/ clear"); +#line 2860 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L27*/ meltfnum[26] = 0; } @@ -4871,29 +4871,29 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2949 +#line 2860 /*_#IF___L26*/ meltfnum[25] = 0;; } ; MELT_LOCATION - ("warmelt-first.melt:2949:/ cond"); -#line 2949 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2860:/ cond"); +#line 2860 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L26*/ meltfnum[25]) /*then */ { /*^cond.then */ -#line 2949 +#line 2860 /*^block */ -#line 2949 +#line 2860 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2952:/ locexp"); -#line 2952 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2863:/ locexp"); +#line 2863 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -4904,8 +4904,8 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2953:/ quasiblock"); -#line 2953 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2864:/ quasiblock"); +#line 2864 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ @@ -4913,8 +4913,8 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-first.melt:2953:/ locexp"); -#line 2953 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2864:/ locexp"); +#line 2864 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -4928,13 +4928,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2953 +#line 2864 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2949:/ quasiblock"); -#line 2949 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2860:/ quasiblock"); +#line 2860 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V51*/ @@ -4950,12 +4950,12 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2949:/ clear"); -#line 2949 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2860:/ clear"); +#line 2860 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V50*/ meltfptr[47] = 0; /*^clear */ -#line 2949 +#line 2860 /*clear *//*_.PROGN___V51*/ meltfptr[50] = 0; } @@ -4963,41 +4963,41 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2949 +#line 2860 /*^block */ -#line 2949 +#line 2860 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2955:/ checksignal"); -#line 2955 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2866:/ checksignal"); +#line 2866 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L28*/ meltfnum[26] = -#line 2955 "warmelt-first.melt" /**::expr::**/ +#line 2866 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V25*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[5])));; MELT_LOCATION - ("warmelt-first.melt:2955:/ cond"); -#line 2955 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2866:/ cond"); +#line 2866 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L28*/ meltfnum[26]) /*then */ { /*^cond.then */ -#line 2955 +#line 2866 /*^block */ -#line 2955 +#line 2866 /*anyblock */ { MELT_LOCATION - ("warmelt-first.melt:2956:/ quasiblock"); -#line 2956 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2867:/ quasiblock"); +#line 2867 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 2956 +#line 2867 { melt_ptr_t slot = NULL, obj = @@ -5014,7 +5014,7 @@ lab_endgetargs:; ; /*_.PREVDISCR__V55*/ meltfptr[54] = -#line 2957 "warmelt-first.melt" /**::expr::**/ +#line 2868 "warmelt-first.melt" /**::expr::**/ ((melt_ptr_t) (melt_discr ((melt_ptr_t) @@ -5023,7 +5023,7 @@ lab_endgetargs:; /*_.CURDISCR__V56*/ meltfptr[55] = -#line 2958 "warmelt-first.melt" /**::expr::**/ +#line 2869 "warmelt-first.melt" /**::expr::**/ ((melt_ptr_t) (melt_discr ((melt_ptr_t) @@ -5031,32 +5031,32 @@ lab_endgetargs:; meltfptr [2]))));; MELT_LOCATION - ("warmelt-first.melt:2960:/ checksignal"); -#line 2960 "warmelt-first.melt" /**::checksignal::**/ + ("warmelt-first.melt:2871:/ checksignal"); +#line 2871 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#__L29*/ meltfnum[28] = -#line 2960 "warmelt-first.melt" /**::expr::**/ +#line 2871 "warmelt-first.melt" /**::expr::**/ (( /*_.PREVDISCR__V55*/ meltfptr[54]) == ( /*_.CURDISCR__V56*/ meltfptr[55]));; MELT_LOCATION - ("warmelt-first.melt:2960:/ cond"); -#line 2960 "warmelt-first.melt" /**::cond::**/ + ("warmelt-first.melt:2871:/ cond"); +#line 2871 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 2960 +#line 2871 /*^block */ -#line 2960 +#line 2871 /*anyblock */ { { MELT_LOCATION - ("warmelt-first.melt:2962:/ locexp"); -#line 2962 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2873:/ locexp"); +#line 2873 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -5066,8 +5066,8 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2964:/ getslot"); -#line 2964 "warmelt-first.melt" /**::getslot::**/ + ("warmelt-first.melt:2875:/ getslot"); +#line 2875 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = @@ -5090,8 +5090,8 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-first.melt:2963:/ locexp"); -#line 2963 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2874:/ locexp"); +#line 2874 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, @@ -5101,8 +5101,8 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-first.melt:2965:/ quasiblock"); -#line 2965 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2876:/ quasiblock"); +#line 2876 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ @@ -5111,8 +5111,8 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-first.melt:2965:/ locexp"); -#line 2965 "warmelt-first.melt" /**::locexp::**/ + ("warmelt-first.melt:2876:/ locexp"); +#line 2876 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5124,14 +5124,14 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2965 +#line 2876 ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-first.melt:2961:/ quasiblock"); -#line 2961 "warmelt-first.melt" /**::quasiblock::**/ + ("warmelt-first.melt:2872:/ quasiblock"); +#line 2872 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V60*/ @@ -5151,18 +5151,18 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2960:/ clear"); -#line 2960 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2871:/ clear"); +#line 2871 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V58*/ meltfptr [57] = 0; /*^clear */ -#line 2960 +#line 2871 /*clear *//*_.RETURN___V59*/ meltfptr [58] = 0; /*^clear */ -#line 2960 +#line 2871 /*clear *//*_.PROGN___V60*/ meltfptr [59] = 0; @@ -5171,7 +5171,7 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2960 +#line 2871 /*_.IF___V57*/ meltfptr @@ -5186,24 +5186,24 @@ lab_endgetargs:; meltfptr[56];; MELT_LOCATION - ("warmelt-first.melt:2956:/ clear"); -#line 2956 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2867:/ clear"); +#line 2867 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVAL__V54*/ meltfptr[53] = 0; /*^clear */ -#line 2956 +#line 2867 /*clear *//*_.PREVDISCR__V55*/ meltfptr[54] = 0; /*^clear */ -#line 2956 +#line 2867 /*clear *//*_.CURDISCR__V56*/ meltfptr[55] = 0; /*^clear */ -#line 2956 +#line 2867 /*clear *//*_#__L29*/ meltfnum[28] = 0; /*^clear */ -#line 2956 +#line 2867 /*clear *//*_.IF___V57*/ meltfptr[56] = 0; /*_.IFELSE___V52*/ @@ -5213,8 +5213,8 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2955:/ clear"); -#line 2955 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2866:/ clear"); +#line 2866 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V53*/ meltfptr[50] = 0; } @@ -5222,7 +5222,7 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2955 +#line 2866 /*_.IFELSE___V52*/ meltfptr @@ -5238,12 +5238,12 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2949:/ clear"); -#line 2949 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2860:/ clear"); +#line 2860 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L28*/ meltfnum[26] = 0; /*^clear */ -#line 2949 +#line 2860 /*clear *//*_.IFELSE___V52*/ meltfptr[47] = 0; } @@ -5257,16 +5257,16 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2943:/ clear"); -#line 2943 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2854:/ clear"); +#line 2854 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L25*/ meltfnum[23] = 0; /*^clear */ -#line 2943 +#line 2854 /*clear *//*_#IF___L26*/ meltfnum[25] = 0; /*^clear */ -#line 2943 +#line 2854 /*clear *//*_.IFELSE___V49*/ meltfptr[44] = 0; } @@ -5278,16 +5278,16 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2938:/ clear"); -#line 2938 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2849:/ clear"); +#line 2849 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L22*/ meltfnum[20] = 0; /*^clear */ -#line 2938 +#line 2849 /*clear *//*_#IF___L23*/ meltfnum[22] = 0; /*^clear */ -#line 2938 +#line 2849 /*clear *//*_.IFELSE___V46*/ meltfptr[41] = 0; } @@ -5299,14 +5299,14 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-first.melt:2933:/ clear"); -#line 2933 "warmelt-first.melt" /**::clear::**/ + ("warmelt-first.melt:2844:/ clear"); +#line 2844 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L19*/ meltfnum[17] = 0; /*^clear */ -#line 2933 +#line 2844 /*clear *//*_#IF___L20*/ meltfnum[19] = 0; /*^clear */ -#line 2933 +#line 2844 /*clear *//*_.IFELSE___V43*/ meltfptr[38] = 0; } @@ -5317,14 +5317,14 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2928:/ clear"); -#line 2928 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2839:/ clear"); +#line 2839 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L16*/ meltfnum[14] = 0; /*^clear */ -#line 2928 +#line 2839 /*clear *//*_#IF___L17*/ meltfnum[16] = 0; /*^clear */ -#line 2928 +#line 2839 /*clear *//*_.IFELSE___V40*/ meltfptr[35] = 0; } ; @@ -5334,14 +5334,14 @@ lab_endgetargs:; /*_.IFELSE___V37*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2923:/ clear"); -#line 2923 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2834:/ clear"); +#line 2834 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ -#line 2923 +#line 2834 /*clear *//*_#IF___L14*/ meltfnum[13] = 0; /*^clear */ -#line 2923 +#line 2834 /*clear *//*_.IFELSE___V37*/ meltfptr[32] = 0; } ; @@ -5351,14 +5351,14 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2918:/ clear"); -#line 2918 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2829:/ clear"); +#line 2829 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L10*/ meltfnum[8] = 0; /*^clear */ -#line 2918 +#line 2829 /*clear *//*_#IF___L11*/ meltfnum[10] = 0; /*^clear */ -#line 2918 +#line 2829 /*clear *//*_.IFELSE___V34*/ meltfptr[31] = 0; } ; @@ -5367,53 +5367,53 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2917:/ clear"); -#line 2917 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2828:/ clear"); +#line 2828 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ -#line 2917 +#line 2828 /*clear *//*_#IF___L8*/ meltfnum[7] = 0; /*^clear */ -#line 2917 +#line 2828 /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0; } ; } ; -#line 2968 "warmelt-first.melt" /**::cppif::**/ +#line 2879 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2968:/ cppif.then"); -#line 2968 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2879:/ cppif.then"); +#line 2879 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2968 +#line 2879 /*anyblock */ { /*^checksignal */ -#line 2968 +#line 2879 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L30*/ meltfnum[28] = -#line 2968 "warmelt-first.melt" /**::expr::**/ +#line 2879 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VALBIND__V27*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_ANY_BINDING */ meltfrout->tabval[15])));; - MELT_LOCATION ("warmelt-first.melt:2968:/ cond"); -#line 2968 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2879:/ cond"); +#line 2879 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L30*/ meltfnum[28]) /*then */ { /*^cond.then */ -#line 2968 +#line 2879 /*_.IFELSE___V62*/ meltfptr[58] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2968:/ cond.else"); -#line 2968 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2879:/ cond.else"); +#line 2879 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2968 +#line 2879 /*anyblock */ { @@ -5422,11 +5422,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2968 +#line 2879 melt_assert_failed (("check valbind"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2968) ? (2968) : __LINE__, __FUNCTION__); + (2879) ? (2879) : __LINE__, __FUNCTION__); ; } ; @@ -5441,32 +5441,32 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[57] = /*_.IFELSE___V62*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2968:/ clear"); -#line 2968 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2879:/ clear"); +#line 2879 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L30*/ meltfnum[28] = 0; /*^clear */ -#line 2968 +#line 2879 /*clear *//*_.IFELSE___V62*/ meltfptr[58] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2968 +#line 2879 /*_.IFCPP___V61*/ meltfptr[57] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2969:/ checksignal"); -#line 2969 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2880:/ checksignal"); +#line 2880 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2969 +#line 2880 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2969 +#line 2880 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALBIND__V27*/ meltfptr[25]; /*_.PUT_ENV__V63*/ meltfptr[59] = @@ -5477,15 +5477,15 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:2970:/ quasiblock"); -#line 2970 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2881:/ quasiblock"); +#line 2881 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2970:/ locexp"); -#line 2970 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2881:/ locexp"); +#line 2881 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5496,84 +5496,84 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2970 +#line 2881 ; /*finalret */ goto labend_rout; /*_.LET___V24*/ meltfptr[20] = /*_.RETURN___V64*/ meltfptr[53];; - MELT_LOCATION ("warmelt-first.melt:2907:/ clear"); -#line 2907 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2818:/ clear"); +#line 2818 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVBIND__V25*/ meltfptr[19] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.VALBIND__V27*/ meltfptr[25] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.SYMNAM__V29*/ meltfptr[28] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_#NULL__L6*/ meltfnum[4] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.IFCPP___V61*/ meltfptr[57] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.PUT_ENV__V63*/ meltfptr[59] = 0; /*^clear */ -#line 2907 +#line 2818 /*clear *//*_.RETURN___V64*/ meltfptr[53] = 0; /*_.LET___V15*/ meltfptr[13] = /*_.LET___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-first.melt:2900:/ clear"); -#line 2900 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2811:/ clear"); +#line 2811 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.ENV__V16*/ meltfptr[15] = 0; /*^clear */ -#line 2900 +#line 2811 /*clear *//*_#NULL__L4*/ meltfnum[1] = 0; /*^clear */ -#line 2900 +#line 2811 /*clear *//*_.IF___V17*/ meltfptr[16] = 0; /*^clear */ -#line 2900 +#line 2811 /*clear *//*_.IF___V18*/ meltfptr[17] = 0; /*^clear */ -#line 2900 +#line 2811 /*clear *//*_.IFCPP___V22*/ meltfptr[18] = 0; /*^clear */ -#line 2900 +#line 2811 /*clear *//*_.LET___V24*/ meltfptr[20] = 0; /*_.LET___V5*/ meltfptr[4] = /*_.LET___V15*/ meltfptr[13];; - MELT_LOCATION ("warmelt-first.melt:2891:/ clear"); -#line 2891 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2802:/ clear"); +#line 2802 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PARENV__V6*/ meltfptr[5] = 0; /*^clear */ -#line 2891 +#line 2802 /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2891 +#line 2802 /*clear *//*_.IF___V7*/ meltfptr[6] = 0; /*^clear */ -#line 2891 +#line 2802 /*clear *//*_.IFCPP___V11*/ meltfptr[7] = 0; /*^clear */ -#line 2891 +#line 2802 /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; /*^clear */ -#line 2891 +#line 2802 /*clear *//*_.LET___V15*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-first.melt:2890:/ quasiblock"); -#line 2890 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2801:/ quasiblock"); +#line 2801 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-first.melt:2890:/ locexp"); -#line 2890 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2801:/ locexp"); +#line 2801 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5584,13 +5584,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2890 +#line 2801 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2890 +#line 2801 /*clear *//*_.LET___V5*/ meltfptr[4] = 0; } @@ -5609,7 +5609,7 @@ labend_rout: } /*end meltrout_10_warmelt_first_INITVALUE_EXPORTER */ -#line 2975 "warmelt-first.melt" /**::proc::**/ +#line 2886 "warmelt-first.melt" /**::proc::**/ @@ -5689,13 +5689,13 @@ meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:2975:/ getarg"); -#line 2975 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2886:/ getarg"); +#line 2886 "warmelt-first.melt" /**::getarg::**/ /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 2975 +#line 2886 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PARENV__V3*/ meltfptr[2] = @@ -5706,14 +5706,14 @@ meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 2975 +#line 2886 if (meltxargdescr_[1] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[1].meltbp_cstring; /*getarg#3 */ /*^getarg */ -#line 2975 +#line 2886 if (meltxargdescr_[2] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o1 = meltxargtab_[2].meltbp_cstring; @@ -5722,44 +5722,44 @@ meltrout_11_warmelt_first_INITVALUE_IMPORTER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 2975 +#line 2886 /*anyblock*/ { { - MELT_LOCATION ("warmelt-first.melt:2976:/ locexp"); -#line 2977 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2887:/ locexp"); +#line 2888 "warmelt-first.melt" /**::locexp::**/ /* ENSUREMODNAM__1 */ if (! /*_?*/ meltfram__.loc_CSTRING__o1) /*_?*/ meltfram__.loc_CSTRING__o1 = "???"; ; } ; - MELT_LOCATION ("warmelt-first.melt:2978:/ checksignal"); -#line 2978 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2889:/ checksignal"); +#line 2889 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = -#line 2978 "warmelt-first.melt" /**::expr::**/ +#line 2889 "warmelt-first.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:2978:/ cond"); -#line 2978 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2889:/ cond"); +#line 2889 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 2978 +#line 2889 /*^block */ -#line 2978 +#line 2889 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:2981:/ locexp"); -#line 2987 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2892:/ locexp"); +#line 2898 "warmelt-first.melt" /**::locexp::**/ /* ERRFAILIMPORT__1 */ if ( /*_?*/ meltfram__.loc_CSTRING__o0) error ("MELT [%s]: imported symbol %s not found", @@ -5771,15 +5771,15 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-first.melt:2988:/ quasiblock"); -#line 2988 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2899:/ quasiblock"); +#line 2899 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:2988:/ locexp"); -#line 2988 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2899:/ locexp"); +#line 2899 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5790,11 +5790,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2988 +#line 2899 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:2979:/ quasiblock"); -#line 2979 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2890:/ quasiblock"); +#line 2890 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V6*/ meltfptr[5] = /*_.RETURN___V5*/ meltfptr[4];; @@ -5803,56 +5803,56 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.PROGN___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2978:/ clear"); -#line 2978 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2889:/ clear"); +#line 2889 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V5*/ meltfptr[4] = 0; /*^clear */ -#line 2978 +#line 2889 /*clear *//*_.PROGN___V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ -#line 2978 +#line 2889 /*_.IF___V4*/ meltfptr[3] = NULL;; } ; -#line 2990 "warmelt-first.melt" /**::cppif::**/ +#line 2901 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2990:/ cppif.then"); -#line 2990 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2901:/ cppif.then"); +#line 2901 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2990 +#line 2901 /*anyblock */ { /*^checksignal */ -#line 2990 +#line 2901 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[1] = -#line 2990 "warmelt-first.melt" /**::expr::**/ +#line 2901 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:2990:/ cond"); -#line 2990 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2901:/ cond"); +#line 2901 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2990 +#line 2901 /*_.IFELSE___V8*/ meltfptr[5] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2990:/ cond.else"); -#line 2990 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2901:/ cond.else"); +#line 2901 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2990 +#line 2901 /*anyblock */ { @@ -5861,11 +5861,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2990 +#line 2901 melt_assert_failed (("check sym"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2990) ? (2990) : __LINE__, __FUNCTION__); + (2901) ? (2901) : __LINE__, __FUNCTION__); ; } ; @@ -5880,54 +5880,54 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[4] = /*_.IFELSE___V8*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2990:/ clear"); -#line 2990 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2901:/ clear"); +#line 2901 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ -#line 2990 +#line 2901 /*clear *//*_.IFELSE___V8*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2990 +#line 2901 /*_.IFCPP___V7*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 2991 "warmelt-first.melt" /**::cppif::**/ +#line 2902 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2991:/ cppif.then"); -#line 2991 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2902:/ cppif.then"); +#line 2902 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2991 +#line 2902 /*anyblock */ { /*^checksignal */ -#line 2991 +#line 2902 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[1] = -#line 2991 "warmelt-first.melt" /**::expr::**/ +#line 2902 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.PARENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:2991:/ cond"); -#line 2991 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2902:/ cond"); +#line 2902 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2991 +#line 2902 /*_.IFELSE___V10*/ meltfptr[9] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2991:/ cond.else"); -#line 2991 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2902:/ cond.else"); +#line 2902 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2991 +#line 2902 /*anyblock */ { @@ -5936,11 +5936,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2991 +#line 2902 melt_assert_failed (("check parenv"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2991) ? (2991) : __LINE__, __FUNCTION__); + (2902) ? (2902) : __LINE__, __FUNCTION__); ; } ; @@ -5955,36 +5955,36 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2991:/ clear"); -#line 2991 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2902:/ clear"); +#line 2902 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ -#line 2991 +#line 2902 /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2991 +#line 2902 /*_.IFCPP___V9*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:2992:/ quasiblock"); -#line 2992 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2903:/ quasiblock"); +#line 2903 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 2992 +#line 2903 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 2992 +#line 2903 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 2992 +#line 2903 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.SYM__V2*/ meltfptr[1]; /*_.VALBIND__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t) @@ -5994,34 +5994,34 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:2994:/ checksignal"); -#line 2994 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2905:/ checksignal"); +#line 2905 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L4*/ meltfnum[1] = -#line 2994 "warmelt-first.melt" /**::expr::**/ +#line 2905 "warmelt-first.melt" /**::expr::**/ !melt_is_instance_of ((melt_ptr_t) ( /*_.VALBIND__V12*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-first.melt:2994:/ cond"); -#line 2994 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2905:/ cond"); +#line 2905 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_NOT_A__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 2994 +#line 2905 /*^block */ -#line 2994 +#line 2905 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:2995:/ quasiblock"); -#line 2995 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2906:/ quasiblock"); +#line 2906 "warmelt-first.melt" /**::quasiblock::**/ /*^cond */ -#line 2995 +#line 2906 /*cond */ if ( -#line 2995 "warmelt-first.melt" /**::expr::**/ +#line 2906 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), @@ -6029,9 +6029,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2995 +#line 2906 /*^getslot */ -#line 2995 +#line 2906 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6042,7 +6042,7 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2995 +#line 2906 /*_.SYMNAM__V15*/ meltfptr[14] = NULL;; } @@ -6050,13 +6050,13 @@ lab_endgetargs:; /*^compute */ /*_.BINDISCR__V16*/ meltfptr[15] = -#line 2996 "warmelt-first.melt" /**::expr::**/ +#line 2907 "warmelt-first.melt" /**::expr::**/ ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.VALBIND__V12*/ meltfptr[11]))));; - MELT_LOCATION ("warmelt-first.melt:2997:/ cond"); -#line 2997 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2908:/ cond"); +#line 2908 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( -#line 2997 "warmelt-first.melt" /**::expr::**/ +#line 2908 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.BINDISCR__V16*/ @@ -6065,9 +6065,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 2997 +#line 2908 /*^getslot */ -#line 2997 +#line 2908 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -6079,45 +6079,45 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 2997 +#line 2908 /*_.BINDISCRNAM__V17*/ meltfptr[16] = NULL;; } ; -#line 2999 "warmelt-first.melt" /**::cppif::**/ +#line 2910 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:2999:/ cppif.then"); -#line 2999 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2910:/ cppif.then"); +#line 2910 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 2999 +#line 2910 /*anyblock */ { /*^checksignal */ -#line 2999 +#line 2910 MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = -#line 2999 "warmelt-first.melt" /**::expr::**/ +#line 2910 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.SYMNAM__V15*/ meltfptr[14])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-first.melt:2999:/ cond"); -#line 2999 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2910:/ cond"); +#line 2910 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 2999 +#line 2910 /*_.IFELSE___V19*/ meltfptr[18] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:2999:/ cond.else"); -#line 2999 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2910:/ cond.else"); +#line 2910 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 2999 +#line 2910 /*anyblock */ { @@ -6126,11 +6126,11 @@ lab_endgetargs:; { /*^locexp */ -#line 2999 +#line 2910 melt_assert_failed (("check symnam"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (2999) ? (2999) : __LINE__, + (2910) ? (2910) : __LINE__, __FUNCTION__); ; } @@ -6146,24 +6146,24 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2999:/ clear"); -#line 2999 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2910:/ clear"); +#line 2910 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0; /*^clear */ -#line 2999 +#line 2910 /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 2999 +#line 2910 /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-first.melt:3001:/ locexp"); -#line 3007 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2912:/ locexp"); +#line 2918 "warmelt-first.melt" /**::locexp::**/ /* ERRBADIMPORT__1 start */ { const char *ERRBADIMPORT__1_str = @@ -6178,15 +6178,15 @@ lab_endgetargs:; } /* ERRBADIMPORT__1 end */ ; } ; - MELT_LOCATION ("warmelt-first.melt:3008:/ quasiblock"); -#line 3008 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2919:/ quasiblock"); +#line 2919 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3008:/ locexp"); -#line 3008 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2919:/ locexp"); +#line 2919 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6197,76 +6197,76 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3008 +#line 2919 ; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[13] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION ("warmelt-first.melt:2995:/ clear"); -#line 2995 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2906:/ clear"); +#line 2906 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.SYMNAM__V15*/ meltfptr[14] = 0; /*^clear */ -#line 2995 +#line 2906 /*clear *//*_.BINDISCR__V16*/ meltfptr[15] = 0; /*^clear */ -#line 2995 +#line 2906 /*clear *//*_.BINDISCRNAM__V17*/ meltfptr[16] = 0; /*^clear */ -#line 2995 +#line 2906 /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; /*^clear */ -#line 2995 +#line 2906 /*clear *//*_.RETURN___V20*/ meltfptr[18] = 0; /*_.IF___V13*/ meltfptr[12] = /*_.LET___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:2994:/ clear"); -#line 2994 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2905:/ clear"); +#line 2905 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V14*/ meltfptr[13] = 0; } ; } else { /*^cond.else */ -#line 2994 +#line 2905 /*_.IF___V13*/ meltfptr[12] = NULL;; } ; -#line 3010 "warmelt-first.melt" /**::cppif::**/ +#line 2921 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3010:/ cppif.then"); -#line 3010 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2921:/ cppif.then"); +#line 2921 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3010 +#line 2921 /*anyblock */ { /*^checksignal */ -#line 3010 +#line 2921 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[4] = -#line 3010 "warmelt-first.melt" /**::expr::**/ +#line 2921 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.VALBIND__V12*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-first.melt:3010:/ cond"); -#line 3010 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2921:/ cond"); +#line 2921 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3010 +#line 2921 /*_.IFELSE___V22*/ meltfptr[15] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3010:/ cond.else"); -#line 3010 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2921:/ cond.else"); +#line 2921 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3010 +#line 2921 /*anyblock */ { @@ -6275,11 +6275,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3010 +#line 2921 melt_assert_failed (("check valbind"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3010) ? (3010) : __LINE__, __FUNCTION__); + (2921) ? (2921) : __LINE__, __FUNCTION__); ; } ; @@ -6294,22 +6294,22 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[14] = /*_.IFELSE___V22*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3010:/ clear"); -#line 3010 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2921:/ clear"); +#line 2921 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3010 +#line 2921 /*clear *//*_.IFELSE___V22*/ meltfptr[15] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3010 +#line 2921 /*_.IFCPP___V21*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3011:/ getslot"); -#line 3011 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2922:/ getslot"); +#line 2922 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.VALBIND__V12*/ meltfptr[11]) /*=obj*/ ; @@ -6318,18 +6318,18 @@ lab_endgetargs:; }; ; /*^checksignal */ -#line 3011 +#line 2922 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3011 +#line 2922 /*_.RETVAL___V1*/ meltfptr[0] = /*_.VBIND_VALUE__V23*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-first.melt:3011:/ locexp"); -#line 3011 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2922:/ locexp"); +#line 2922 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6340,42 +6340,42 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3011 +#line 2922 ; /*finalret */ goto labend_rout; /*_.LET___V11*/ meltfptr[9] = /*_.RETURN___V24*/ meltfptr[17];; - MELT_LOCATION ("warmelt-first.melt:2992:/ clear"); -#line 2992 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2903:/ clear"); +#line 2903 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.VALBIND__V12*/ meltfptr[11] = 0; /*^clear */ -#line 2992 +#line 2903 /*clear *//*_#IS_NOT_A__L4*/ meltfnum[1] = 0; /*^clear */ -#line 2992 +#line 2903 /*clear *//*_.IF___V13*/ meltfptr[12] = 0; /*^clear */ -#line 2992 +#line 2903 /*clear *//*_.IFCPP___V21*/ meltfptr[14] = 0; /*^clear */ -#line 2992 +#line 2903 /*clear *//*_.VBIND_VALUE__V23*/ meltfptr[16] = 0; /*^clear */ -#line 2992 +#line 2903 /*clear *//*_.RETURN___V24*/ meltfptr[17] = 0; - MELT_LOCATION ("warmelt-first.melt:2975:/ checksignal"); -#line 2975 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2886:/ checksignal"); +#line 2886 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 2975 +#line 2886 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V11*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-first.melt:2975:/ locexp"); -#line 2975 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2886:/ locexp"); +#line 2886 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6386,25 +6386,25 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 2975 +#line 2886 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 2975 +#line 2886 /*clear *//*_#IS_NOT_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 2975 +#line 2886 /*clear *//*_.IF___V4*/ meltfptr[3] = 0; /*^clear */ -#line 2975 +#line 2886 /*clear *//*_.IFCPP___V7*/ meltfptr[4] = 0; /*^clear */ -#line 2975 +#line 2886 /*clear *//*_.IFCPP___V9*/ meltfptr[5] = 0; /*^clear */ -#line 2975 +#line 2886 /*clear *//*_.LET___V11*/ meltfptr[9] = 0; } @@ -6423,7 +6423,7 @@ labend_rout: } /*end meltrout_11_warmelt_first_INITVALUE_IMPORTER */ -#line 3015 "warmelt-first.melt" /**::proc::**/ +#line 2926 "warmelt-first.melt" /**::proc::**/ @@ -6501,13 +6501,13 @@ meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3015:/ getarg"); -#line 3015 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2926:/ getarg"); +#line 2926 "warmelt-first.melt" /**::getarg::**/ /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3015 +#line 2926 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ meltfptr[2] = @@ -6517,7 +6517,7 @@ meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3015 +#line 2926 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.CONTENV__V4*/ meltfptr[3] = @@ -6530,44 +6530,44 @@ meltrout_12_warmelt_first_INITMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3015 +#line 2926 /*anyblock*/ { -#line 3016 "warmelt-first.melt" /**::cppif::**/ +#line 2927 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3016:/ cppif.then"); -#line 3016 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2927:/ cppif.then"); +#line 2927 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3016 +#line 2927 /*anyblock */ { /*^checksignal */ -#line 3016 +#line 2927 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3016 "warmelt-first.melt" /**::expr::**/ +#line 2927 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:3016:/ cond"); -#line 3016 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2927:/ cond"); +#line 2927 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3016 +#line 2927 /*_.IFELSE___V6*/ meltfptr[5] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3016:/ cond.else"); -#line 3016 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2927:/ cond.else"); +#line 2927 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3016 +#line 2927 /*anyblock */ { @@ -6576,11 +6576,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3016 +#line 2927 melt_assert_failed (("check sym"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3016) ? (3016) : __LINE__, __FUNCTION__); + (2927) ? (2927) : __LINE__, __FUNCTION__); ; } ; @@ -6595,55 +6595,55 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3016:/ clear"); -#line 3016 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2927:/ clear"); +#line 2927 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3016 +#line 2927 /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3016 +#line 2927 /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3017:/ checksignal"); -#line 3017 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2928:/ checksignal"); +#line 2928 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[0] = -#line 3017 "warmelt-first.melt" /**::expr::**/ +#line 2928 "warmelt-first.melt" /**::expr::**/ (( /*_.CONTENV__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3017:/ cond"); -#line 3017 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2928:/ cond"); +#line 2928 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3017 +#line 2928 /*^block */ -#line 3017 +#line 2928 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3019:/ checksignal"); -#line 3019 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2930:/ checksignal"); +#line 2930 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3019 +#line 2930 /*cond */ if (( /*!konst_1 */ meltfrout->tabval[1])) /*then */ { /*^cond.then */ -#line 3019 +#line 2930 /*^block */ -#line 3019 +#line 2930 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3021:/ getslot"); -#line 3021 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2932:/ getslot"); +#line 2932 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6653,8 +6653,8 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:3020:/ locexp"); -#line 3020 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2931:/ locexp"); +#line 2931 "warmelt-first.melt" /**::locexp::**/ warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("exporting macro too early with null environment container"), @@ -6665,22 +6665,22 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3019:/ clear"); -#line 3019 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2930:/ clear"); +#line 2930 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V8*/ meltfptr[7] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3022:/ quasiblock"); -#line 3022 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2933:/ quasiblock"); +#line 2933 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3022:/ locexp"); -#line 3022 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2933:/ locexp"); +#line 2933 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6691,11 +6691,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3022 +#line 2933 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:3018:/ quasiblock"); -#line 3018 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2929:/ quasiblock"); +#line 2929 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V10*/ meltfptr[9] = /*_.RETURN___V9*/ meltfptr[7];; @@ -6704,56 +6704,56 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[5] = /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3017:/ clear"); -#line 3017 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2928:/ clear"); +#line 2928 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V9*/ meltfptr[7] = 0; /*^clear */ -#line 3017 +#line 2928 /*clear *//*_.PROGN___V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3017 +#line 2928 /*_.IF___V7*/ meltfptr[5] = NULL;; } ; -#line 3024 "warmelt-first.melt" /**::cppif::**/ +#line 2935 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3024:/ cppif.then"); -#line 3024 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2935:/ cppif.then"); +#line 2935 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3024 +#line 2935 /*anyblock */ { /*^checksignal */ -#line 3024 +#line 2935 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[2] = -#line 3024 "warmelt-first.melt" /**::expr::**/ +#line 2935 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CONTENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_REFERENCE */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-first.melt:3024:/ cond"); -#line 3024 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2935:/ cond"); +#line 2935 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 3024 +#line 2935 /*_.IFELSE___V12*/ meltfptr[9] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3024:/ cond.else"); -#line 3024 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2935:/ cond.else"); +#line 2935 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3024 +#line 2935 /*anyblock */ { @@ -6762,11 +6762,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3024 +#line 2935 melt_assert_failed (("check contenv"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3024) ? (3024) : __LINE__, __FUNCTION__); + (2935) ? (2935) : __LINE__, __FUNCTION__); ; } ; @@ -6781,26 +6781,26 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3024:/ clear"); -#line 3024 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2935:/ clear"); +#line 2935 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ -#line 3024 +#line 2935 /*clear *//*_.IFELSE___V12*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3024 +#line 2935 /*_.IFCPP___V11*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3025:/ quasiblock"); -#line 3025 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2936:/ quasiblock"); +#line 2936 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3025 +#line 2936 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CONTENV__V4*/ meltfptr[3]) /*=obj*/ ; @@ -6808,26 +6808,26 @@ lab_endgetargs:; /*_.ENV__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3026:/ checksignal"); -#line 3026 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2937:/ checksignal"); +#line 2937 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[2] = -#line 3026 "warmelt-first.melt" /**::expr::**/ +#line 2937 "warmelt-first.melt" /**::expr::**/ (( /*_.ENV__V14*/ meltfptr[13]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3026:/ cond"); -#line 3026 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2937:/ cond"); +#line 2937 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 3026 +#line 2937 /*^block */ -#line 3026 +#line 2937 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3029:/ getslot"); -#line 3029 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2940:/ getslot"); +#line 2940 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6837,8 +6837,8 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:3028:/ locexp"); -#line 3028 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2939:/ locexp"); +#line 2939 "warmelt-first.melt" /**::locexp::**/ inform (UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ("exporting macro too early with null environment"), @@ -6846,15 +6846,15 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V16*/ meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-first.melt:3030:/ quasiblock"); -#line 3030 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2941:/ quasiblock"); +#line 2941 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3030:/ locexp"); -#line 3030 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2941:/ locexp"); +#line 2941 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6865,11 +6865,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3030 +#line 2941 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:3027:/ quasiblock"); -#line 3027 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2938:/ quasiblock"); +#line 2938 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -6878,59 +6878,59 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3026:/ clear"); -#line 3026 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2937:/ clear"); +#line 2937 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3026 +#line 2937 /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ -#line 3026 +#line 2937 /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 3026 +#line 2937 /*_.IF___V15*/ meltfptr[14] = NULL;; } ; -#line 3032 "warmelt-first.melt" /**::cppif::**/ +#line 2943 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3032:/ cppif.then"); -#line 3032 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2943:/ cppif.then"); +#line 2943 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3032 +#line 2943 /*anyblock */ { /*^checksignal */ -#line 3032 +#line 2943 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[4] = -#line 3032 "warmelt-first.melt" /**::expr::**/ +#line 2943 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V14*/ meltfptr[13]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-first.melt:3032:/ cond"); -#line 3032 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2943:/ cond"); +#line 2943 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3032 +#line 2943 /*_.IFELSE___V20*/ meltfptr[16] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3032:/ cond.else"); -#line 3032 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2943:/ cond.else"); +#line 2943 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3032 +#line 2943 /*anyblock */ { @@ -6939,11 +6939,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3032 +#line 2943 melt_assert_failed (("check env"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3032) ? (3032) : __LINE__, __FUNCTION__); + (2943) ? (2943) : __LINE__, __FUNCTION__); ; } ; @@ -6958,53 +6958,53 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3032:/ clear"); -#line 3032 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2943:/ clear"); +#line 2943 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3032 +#line 2943 /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3032 +#line 2943 /*_.IFCPP___V19*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3033 "warmelt-first.melt" /**::cppif::**/ +#line 2944 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3033:/ cppif.then"); -#line 3033 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2944:/ cppif.then"); +#line 2944 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3033 +#line 2944 /*anyblock */ { /*^checksignal */ -#line 3033 +#line 2944 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L6*/ meltfnum[4] = -#line 3033 "warmelt-first.melt" /**::expr::**/ +#line 2944 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.VAL__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3033:/ cond"); -#line 3033 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2944:/ cond"); +#line 2944 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3033 +#line 2944 /*_.IFELSE___V22*/ meltfptr[16] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3033:/ cond.else"); -#line 3033 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2944:/ cond.else"); +#line 2944 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3033 +#line 2944 /*anyblock */ { @@ -7013,11 +7013,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3033 +#line 2944 melt_assert_failed (("check val is closure"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3033) ? (3033) : __LINE__, __FUNCTION__); + (2944) ? (2944) : __LINE__, __FUNCTION__); ; } ; @@ -7032,34 +7032,34 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.IFELSE___V22*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3033:/ clear"); -#line 3033 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2944:/ clear"); +#line 2944 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3033 +#line 2944 /*clear *//*_.IFELSE___V22*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3033 +#line 2944 /*_.IFCPP___V21*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3034:/ quasiblock"); -#line 3034 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2945:/ quasiblock"); +#line 2945 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3034 +#line 2945 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3034 +#line 2945 /*^rawallocobj */ -#line 3034 +#line 2945 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -7072,7 +7072,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3034 +#line 2945 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -7082,7 +7082,7 @@ lab_endgetargs:; ( /*_.SYM__V2*/ meltfptr[1]), "BINDER"); ; /*^putslot */ -#line 3034 +#line 2945 /*putslot */ melt_assertmsg ("putslot checkobj @MBIND_EXPANSER", melt_magic_discr ((melt_ptr_t) @@ -7092,18 +7092,18 @@ lab_endgetargs:; ( /*_.VAL__V3*/ meltfptr[2]), "MBIND_EXPANSER"); ; /*_.MACBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-first.melt:3039:/ checksignal"); -#line 3039 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2950:/ checksignal"); +#line 2950 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3039 +#line 2950 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3039 +#line 2950 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.MACBIND__V24*/ meltfptr[23]; /*_.PUT_ENV__V26*/ meltfptr[25] = @@ -7114,15 +7114,15 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3040:/ quasiblock"); -#line 3040 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2951:/ quasiblock"); +#line 2951 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3040:/ locexp"); -#line 3040 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2951:/ locexp"); +#line 2951 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7133,53 +7133,53 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3040 +#line 2951 ; /*finalret */ goto labend_rout; /*_.LET___V23*/ meltfptr[16] = /*_.RETURN___V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-first.melt:3034:/ clear"); -#line 3034 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2945:/ clear"); +#line 2945 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MACBIND__V24*/ meltfptr[23] = 0; /*^clear */ -#line 3034 +#line 2945 /*clear *//*_.PUT_ENV__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3034 +#line 2945 /*clear *//*_.RETURN___V27*/ meltfptr[26] = 0; /*_.LET___V13*/ meltfptr[9] = /*_.LET___V23*/ meltfptr[16];; - MELT_LOCATION ("warmelt-first.melt:3025:/ clear"); -#line 3025 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2936:/ clear"); +#line 2936 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.ENV__V14*/ meltfptr[13] = 0; /*^clear */ -#line 3025 +#line 2936 /*clear *//*_#NULL__L4*/ meltfnum[2] = 0; /*^clear */ -#line 3025 +#line 2936 /*clear *//*_.IF___V15*/ meltfptr[14] = 0; /*^clear */ -#line 3025 +#line 2936 /*clear *//*_.IFCPP___V19*/ meltfptr[15] = 0; /*^clear */ -#line 3025 +#line 2936 /*clear *//*_.IFCPP___V21*/ meltfptr[17] = 0; /*^clear */ -#line 3025 +#line 2936 /*clear *//*_.LET___V23*/ meltfptr[16] = 0; - MELT_LOCATION ("warmelt-first.melt:3015:/ checksignal"); -#line 3015 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2926:/ checksignal"); +#line 2926 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3015 +#line 2926 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-first.melt:3015:/ locexp"); -#line 3015 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2926:/ locexp"); +#line 2926 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7190,25 +7190,25 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3015 +#line 2926 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3015 +#line 2926 /*clear *//*_.IFCPP___V5*/ meltfptr[4] = 0; /*^clear */ -#line 3015 +#line 2926 /*clear *//*_#NULL__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3015 +#line 2926 /*clear *//*_.IF___V7*/ meltfptr[5] = 0; /*^clear */ -#line 3015 +#line 2926 /*clear *//*_.IFCPP___V11*/ meltfptr[7] = 0; /*^clear */ -#line 3015 +#line 2926 /*clear *//*_.LET___V13*/ meltfptr[9] = 0; } @@ -7227,7 +7227,7 @@ labend_rout: } /*end meltrout_12_warmelt_first_INITMACRO_EXPORTER */ -#line 3044 "warmelt-first.melt" /**::proc::**/ +#line 2955 "warmelt-first.melt" /**::proc::**/ @@ -7305,13 +7305,13 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3044:/ getarg"); -#line 3044 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:2955:/ getarg"); +#line 2955 "warmelt-first.melt" /**::getarg::**/ /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3044 +#line 2955 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MACVAL__V3*/ meltfptr[2] = @@ -7322,7 +7322,7 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3044 +#line 2955 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.PATVAL__V4*/ meltfptr[3] = @@ -7333,7 +7333,7 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, /*getarg#3 */ /*^getarg */ -#line 3044 +#line 2955 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.CONTENV__V5*/ meltfptr[4] = @@ -7346,44 +7346,44 @@ meltrout_13_warmelt_first_INITPATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3044 +#line 2955 /*anyblock*/ { -#line 3045 "warmelt-first.melt" /**::cppif::**/ +#line 2956 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3045:/ cppif.then"); -#line 3045 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2956:/ cppif.then"); +#line 2956 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3045 +#line 2956 /*anyblock */ { /*^checksignal */ -#line 3045 +#line 2956 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3045 "warmelt-first.melt" /**::expr::**/ +#line 2956 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:3045:/ cond"); -#line 3045 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2956:/ cond"); +#line 2956 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3045 +#line 2956 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3045:/ cond.else"); -#line 3045 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2956:/ cond.else"); +#line 2956 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3045 +#line 2956 /*anyblock */ { @@ -7392,11 +7392,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3045 +#line 2956 melt_assert_failed (("check sym"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3045) ? (3045) : __LINE__, __FUNCTION__); + (2956) ? (2956) : __LINE__, __FUNCTION__); ; } ; @@ -7411,47 +7411,47 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3045:/ clear"); -#line 3045 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2956:/ clear"); +#line 2956 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3045 +#line 2956 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3045 +#line 2956 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3046:/ checksignal"); -#line 3046 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2957:/ checksignal"); +#line 2957 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[0] = -#line 3046 "warmelt-first.melt" /**::expr::**/ +#line 2957 "warmelt-first.melt" /**::expr::**/ (( /*_.CONTENV__V5*/ meltfptr[4]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3046:/ cond"); -#line 3046 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2957:/ cond"); +#line 2957 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3046 +#line 2957 /*^block */ -#line 3046 +#line 2957 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3051:/ quasiblock"); -#line 3051 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2962:/ quasiblock"); +#line 2962 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3051:/ locexp"); -#line 3051 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2962:/ locexp"); +#line 2962 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7462,11 +7462,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3051 +#line 2962 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:3047:/ quasiblock"); -#line 3047 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2958:/ quasiblock"); +#line 2958 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V10*/ meltfptr[9] = /*_.RETURN___V9*/ meltfptr[8];; @@ -7475,56 +7475,56 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[6] = /*_.PROGN___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3046:/ clear"); -#line 3046 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2957:/ clear"); +#line 2957 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V9*/ meltfptr[8] = 0; /*^clear */ -#line 3046 +#line 2957 /*clear *//*_.PROGN___V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3046 +#line 2957 /*_.IF___V8*/ meltfptr[6] = NULL;; } ; -#line 3053 "warmelt-first.melt" /**::cppif::**/ +#line 2964 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3053:/ cppif.then"); -#line 3053 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2964:/ cppif.then"); +#line 2964 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3053 +#line 2964 /*anyblock */ { /*^checksignal */ -#line 3053 +#line 2964 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[2] = -#line 3053 "warmelt-first.melt" /**::expr::**/ +#line 2964 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.CONTENV__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_REFERENCE */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:3053:/ cond"); -#line 3053 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2964:/ cond"); +#line 2964 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 3053 +#line 2964 /*_.IFELSE___V12*/ meltfptr[9] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3053:/ cond.else"); -#line 3053 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2964:/ cond.else"); +#line 2964 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3053 +#line 2964 /*anyblock */ { @@ -7533,11 +7533,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3053 +#line 2964 melt_assert_failed (("check contenv"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3053) ? (3053) : __LINE__, __FUNCTION__); + (2964) ? (2964) : __LINE__, __FUNCTION__); ; } ; @@ -7552,26 +7552,26 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[8] = /*_.IFELSE___V12*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3053:/ clear"); -#line 3053 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2964:/ clear"); +#line 2964 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ -#line 3053 +#line 2964 /*clear *//*_.IFELSE___V12*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3053 +#line 2964 /*_.IFCPP___V11*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3054:/ quasiblock"); -#line 3054 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2965:/ quasiblock"); +#line 2965 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3054 +#line 2965 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CONTENV__V5*/ meltfptr[4]) /*=obj*/ ; @@ -7579,26 +7579,26 @@ lab_endgetargs:; /*_.ENV__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3055:/ checksignal"); -#line 3055 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2966:/ checksignal"); +#line 2966 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[2] = -#line 3055 "warmelt-first.melt" /**::expr::**/ +#line 2966 "warmelt-first.melt" /**::expr::**/ (( /*_.ENV__V14*/ meltfptr[13]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3055:/ cond"); -#line 3055 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2966:/ cond"); +#line 2966 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 3055 +#line 2966 /*^block */ -#line 3055 +#line 2966 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3058:/ getslot"); -#line 3058 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:2969:/ getslot"); +#line 2969 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -7608,8 +7608,8 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:3057:/ locexp"); -#line 3057 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2968:/ locexp"); +#line 2968 "warmelt-first.melt" /**::locexp::**/ inform (UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ("exporting patmacro too early with null environment"), @@ -7617,15 +7617,15 @@ lab_endgetargs:; ( /*_.NAMED_NAME__V16*/ meltfptr[15]))); } ; - MELT_LOCATION ("warmelt-first.melt:3059:/ quasiblock"); -#line 3059 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2970:/ quasiblock"); +#line 2970 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3059:/ locexp"); -#line 3059 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2970:/ locexp"); +#line 2970 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7636,11 +7636,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3059 +#line 2970 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:3056:/ quasiblock"); -#line 3056 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2967:/ quasiblock"); +#line 2967 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -7649,59 +7649,59 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3055:/ clear"); -#line 3055 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2966:/ clear"); +#line 2966 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.NAMED_NAME__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3055 +#line 2966 /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ -#line 3055 +#line 2966 /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; } ; } else { /*^cond.else */ -#line 3055 +#line 2966 /*_.IF___V15*/ meltfptr[14] = NULL;; } ; -#line 3061 "warmelt-first.melt" /**::cppif::**/ +#line 2972 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3061:/ cppif.then"); -#line 3061 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2972:/ cppif.then"); +#line 2972 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3061 +#line 2972 /*anyblock */ { /*^checksignal */ -#line 3061 +#line 2972 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[4] = -#line 3061 "warmelt-first.melt" /**::expr::**/ +#line 2972 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V14*/ meltfptr[13]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-first.melt:3061:/ cond"); -#line 3061 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2972:/ cond"); +#line 2972 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3061 +#line 2972 /*_.IFELSE___V20*/ meltfptr[16] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3061:/ cond.else"); -#line 3061 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2972:/ cond.else"); +#line 2972 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3061 +#line 2972 /*anyblock */ { @@ -7710,11 +7710,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3061 +#line 2972 melt_assert_failed (("check env"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3061) ? (3061) : __LINE__, __FUNCTION__); + (2972) ? (2972) : __LINE__, __FUNCTION__); ; } ; @@ -7729,53 +7729,53 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3061:/ clear"); -#line 3061 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2972:/ clear"); +#line 2972 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L5*/ meltfnum[4] = 0; /*^clear */ -#line 3061 +#line 2972 /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3061 +#line 2972 /*_.IFCPP___V19*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3062 "warmelt-first.melt" /**::cppif::**/ +#line 2973 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3062:/ cppif.then"); -#line 3062 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2973:/ cppif.then"); +#line 2973 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3062 +#line 2973 /*anyblock */ { /*^checksignal */ -#line 3062 +#line 2973 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L6*/ meltfnum[4] = -#line 3062 "warmelt-first.melt" /**::expr::**/ +#line 2973 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MACVAL__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3062:/ cond"); -#line 3062 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2973:/ cond"); +#line 2973 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3062 +#line 2973 /*_.IFELSE___V22*/ meltfptr[16] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3062:/ cond.else"); -#line 3062 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2973:/ cond.else"); +#line 2973 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3062 +#line 2973 /*anyblock */ { @@ -7784,11 +7784,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3062 +#line 2973 melt_assert_failed (("check macval is closure"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3062) ? (3062) : __LINE__, __FUNCTION__); + (2973) ? (2973) : __LINE__, __FUNCTION__); ; } ; @@ -7803,53 +7803,53 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.IFELSE___V22*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3062:/ clear"); -#line 3062 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2973:/ clear"); +#line 2973 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L6*/ meltfnum[4] = 0; /*^clear */ -#line 3062 +#line 2973 /*clear *//*_.IFELSE___V22*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3062 +#line 2973 /*_.IFCPP___V21*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; -#line 3063 "warmelt-first.melt" /**::cppif::**/ +#line 2974 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3063:/ cppif.then"); -#line 3063 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:2974:/ cppif.then"); +#line 2974 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3063 +#line 2974 /*anyblock */ { /*^checksignal */ -#line 3063 +#line 2974 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L7*/ meltfnum[4] = -#line 3063 "warmelt-first.melt" /**::expr::**/ +#line 2974 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.PATVAL__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3063:/ cond"); -#line 3063 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:2974:/ cond"); +#line 2974 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L7*/ meltfnum[4]) /*then */ { /*^cond.then */ -#line 3063 +#line 2974 /*_.IFELSE___V24*/ meltfptr[23] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3063:/ cond.else"); -#line 3063 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:2974:/ cond.else"); +#line 2974 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3063 +#line 2974 /*anyblock */ { @@ -7858,11 +7858,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3063 +#line 2974 melt_assert_failed (("check patval is closure"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3063) ? (3063) : __LINE__, __FUNCTION__); + (2974) ? (2974) : __LINE__, __FUNCTION__); ; } ; @@ -7877,34 +7877,34 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[16] = /*_.IFELSE___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3063:/ clear"); -#line 3063 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2974:/ clear"); +#line 2974 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L7*/ meltfnum[4] = 0; /*^clear */ -#line 3063 +#line 2974 /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3063 +#line 2974 /*_.IFCPP___V23*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3064:/ quasiblock"); -#line 3064 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2975:/ quasiblock"); +#line 2975 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3064 +#line 2975 MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3064 +#line 2975 /*^rawallocobj */ -#line 3064 +#line 2975 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -7917,7 +7917,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3064 +#line 2975 /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) @@ -7927,7 +7927,7 @@ lab_endgetargs:; ( /*_.SYM__V2*/ meltfptr[1]), "BINDER"); ; /*^putslot */ -#line 3064 +#line 2975 /*putslot */ melt_assertmsg ("putslot checkobj @MBIND_EXPANSER", melt_magic_discr ((melt_ptr_t) @@ -7937,7 +7937,7 @@ lab_endgetargs:; ( /*_.MACVAL__V3*/ meltfptr[2]), "MBIND_EXPANSER"); ; /*^putslot */ -#line 3064 +#line 2975 /*putslot */ melt_assertmsg ("putslot checkobj @PATBIND_EXPANSER", melt_magic_discr ((melt_ptr_t) @@ -7948,18 +7948,18 @@ lab_endgetargs:; "PATBIND_EXPANSER"); ; /*_.MACBIND__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-first.melt:3070:/ checksignal"); -#line 3070 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2981:/ checksignal"); +#line 2981 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3070 +#line 2981 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3070 +#line 2981 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.MACBIND__V26*/ meltfptr[25]; /*_.PUT_ENV__V28*/ meltfptr[27] = @@ -7970,15 +7970,15 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3071:/ quasiblock"); -#line 3071 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:2982:/ quasiblock"); +#line 2982 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3071:/ locexp"); -#line 3071 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2982:/ locexp"); +#line 2982 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7989,56 +7989,56 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3071 +#line 2982 ; /*finalret */ goto labend_rout; /*_.LET___V25*/ meltfptr[23] = /*_.RETURN___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-first.melt:3064:/ clear"); -#line 3064 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2975:/ clear"); +#line 2975 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MACBIND__V26*/ meltfptr[25] = 0; /*^clear */ -#line 3064 +#line 2975 /*clear *//*_.PUT_ENV__V28*/ meltfptr[27] = 0; /*^clear */ -#line 3064 +#line 2975 /*clear *//*_.RETURN___V29*/ meltfptr[28] = 0; /*_.LET___V13*/ meltfptr[9] = /*_.LET___V25*/ meltfptr[23];; - MELT_LOCATION ("warmelt-first.melt:3054:/ clear"); -#line 3054 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:2965:/ clear"); +#line 2965 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.ENV__V14*/ meltfptr[13] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_#NULL__L4*/ meltfnum[2] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_.IF___V15*/ meltfptr[14] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_.IFCPP___V19*/ meltfptr[15] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_.IFCPP___V21*/ meltfptr[17] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_.IFCPP___V23*/ meltfptr[16] = 0; /*^clear */ -#line 3054 +#line 2965 /*clear *//*_.LET___V25*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-first.melt:3044:/ checksignal"); -#line 3044 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:2955:/ checksignal"); +#line 2955 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3044 +#line 2955 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-first.melt:3044:/ locexp"); -#line 3044 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:2955:/ locexp"); +#line 2955 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8049,25 +8049,25 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3044 +#line 2955 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3044 +#line 2955 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ -#line 3044 +#line 2955 /*clear *//*_#NULL__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3044 +#line 2955 /*clear *//*_.IF___V8*/ meltfptr[6] = 0; /*^clear */ -#line 3044 +#line 2955 /*clear *//*_.IFCPP___V11*/ meltfptr[8] = 0; /*^clear */ -#line 3044 +#line 2955 /*clear *//*_.LET___V13*/ meltfptr[9] = 0; } @@ -8086,7 +8086,7 @@ labend_rout: } /*end meltrout_13_warmelt_first_INITPATMACRO_EXPORTER */ -#line 3094 "warmelt-first.melt" /**::proc::**/ +#line 3005 "warmelt-first.melt" /**::proc::**/ @@ -8166,26 +8166,26 @@ meltrout_14_warmelt_first_INIT_EXITFINALIZER (meltclosure_ptr_t meltclosp_, goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-first.melt:3094:/ block"); -#line 3094 "warmelt-first.melt" /**::block::**/ + MELT_LOCATION ("warmelt-first.melt:3005:/ block"); +#line 3005 "warmelt-first.melt" /**::block::**/ /*anyblock*/ { { - MELT_LOCATION ("warmelt-first.melt:3096:/ locexp"); -#line 3097 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3007:/ locexp"); +#line 3008 "warmelt-first.melt" /**::locexp::**/ debugeprintf ("init_exitfinalizer INITSTARTCHK__1 start clock %ld", (long) clock ()); ; } ; - MELT_LOCATION ("warmelt-first.melt:3098:/ quasiblock"); -#line 3098 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3009:/ quasiblock"); +#line 3009 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3098 +#line 3009 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -8195,8 +8195,8 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3099:/ getslot"); -#line 3099 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:3010:/ getslot"); +#line 3010 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -8207,19 +8207,19 @@ lab_endgetargs:; }; ; /*_.REVLASTLIST__V4*/ meltfptr[3] = -#line 3100 "warmelt-first.melt" /**::expr::**/ +#line 3011 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3101:/ checksignal"); -#line 3101 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3012:/ checksignal"); +#line 3012 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3101 +#line 3012 /*^rawallocobj */ -#line 3101 +#line 3012 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -8248,19 +8248,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-first.melt:3107:/ locexp"); -#line 3108 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3018:/ locexp"); +#line 3019 "warmelt-first.melt" /**::locexp::**/ debugeprintf ("init_exitfinalizer FIRSTROUTCHK__1 firstproc=%p", (void *) /*_.FIRSTPROC__V8*/ meltfptr[7]); ; } ; - MELT_LOCATION ("warmelt-first.melt:3109:/ quasiblock"); -#line 3109 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3020:/ quasiblock"); +#line 3020 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3109 +#line 3020 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RESCONT__V5*/ meltfptr[4]) /*=obj*/ ; @@ -8268,18 +8268,18 @@ lab_endgetargs:; /*_.PREVRES__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3110:/ checksignal"); -#line 3110 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3021:/ checksignal"); +#line 3021 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3110 +#line 3021 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3110 +#line 3021 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!FINAL_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -8291,16 +8291,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3112:/ checksignal"); -#line 3112 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3023:/ checksignal"); +#line 3023 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3112 +#line 3023 /*^putslot */ -#line 3112 +#line 3023 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -8311,16 +8311,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3112 +#line 3023 meltgc_touch ( /*_.RESCONT__V5*/ meltfptr[4]); ; - MELT_LOCATION ("warmelt-first.melt:3109:/ clear"); -#line 3109 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3020:/ clear"); +#line 3020 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V9*/ meltfptr[8] = 0; /*^clear */ -#line 3109 +#line 3020 /*clear *//*_.NEXTRES__V10*/ meltfptr[9] = 0; } /* end foreach_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V7*/ meltfptr[6] = NULL; @@ -8329,11 +8329,11 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-first.melt:3104:/ clear"); -#line 3104 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3015:/ clear"); +#line 3015 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.CURPAIR__V7*/ meltfptr[6] = 0; /*^clear */ -#line 3104 +#line 3015 /*clear *//*_.FIRSTPROC__V8*/ meltfptr[7] = 0; } /*endciterblock FOREACH_IN_LIST */ ; @@ -8353,37 +8353,37 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-first.melt:3118:/ locexp"); -#line 3119 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3029:/ locexp"); +#line 3030 "warmelt-first.melt" /**::locexp::**/ debugeprintf ("init_exitfinalizer LASTREVCHK__1 lastproc=%p", (void *) /*_.LASTPROC__V12*/ meltfptr[9]); ; } ; - MELT_LOCATION ("warmelt-first.melt:3120:/ checksignal"); -#line 3120 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3031:/ checksignal"); +#line 3031 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3120 "warmelt-first.melt" /**::expr::**/ +#line 3031 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V12*/ meltfptr[9])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3120:/ cond"); -#line 3120 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3031:/ cond"); +#line 3031 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3120 +#line 3031 /*^block */ -#line 3120 +#line 3031 /*anyblock */ { { /*^locexp */ -#line 3120 +#line 3031 meltgc_prepend_list ((melt_ptr_t) ( /*_.REVLASTLIST__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.LASTPROC__V12*/ @@ -8402,14 +8402,14 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-first.melt:3115:/ clear"); -#line 3115 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3026:/ clear"); +#line 3026 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.CURPAIR__V11*/ meltfptr[8] = 0; /*^clear */ -#line 3115 +#line 3026 /*clear *//*_.LASTPROC__V12*/ meltfptr[9] = 0; /*^clear */ -#line 3115 +#line 3026 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } /*endciterblock FOREACH_IN_LIST */ ; @@ -8429,19 +8429,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-first.melt:3125:/ locexp"); -#line 3126 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3036:/ locexp"); +#line 3037 "warmelt-first.melt" /**::locexp::**/ debugeprintf ("init_exitfinalizer LASTREVPROCCHK__1 lastproc=%p", (void *) /*_.LASTPROC__V14*/ meltfptr[13]); ; } ; - MELT_LOCATION ("warmelt-first.melt:3127:/ quasiblock"); -#line 3127 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3038:/ quasiblock"); +#line 3038 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3127 +#line 3038 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RESCONT__V5*/ meltfptr[4]) /*=obj*/ ; @@ -8449,18 +8449,18 @@ lab_endgetargs:; /*_.PREVRES__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3128:/ checksignal"); -#line 3128 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3039:/ checksignal"); +#line 3039 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3128 +#line 3039 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3128 +#line 3039 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!FINAL_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -8472,16 +8472,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3130:/ checksignal"); -#line 3130 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3041:/ checksignal"); +#line 3041 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3130 +#line 3041 /*^putslot */ -#line 3130 +#line 3041 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -8492,16 +8492,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3130 +#line 3041 meltgc_touch ( /*_.RESCONT__V5*/ meltfptr[4]); ; - MELT_LOCATION ("warmelt-first.melt:3127:/ clear"); -#line 3127 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3038:/ clear"); +#line 3038 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V15*/ meltfptr[14] = 0; /*^clear */ -#line 3127 +#line 3038 /*clear *//*_.NEXTRES__V16*/ meltfptr[15] = 0; } /* end foreach_in_list meltcit3__EACHLIST */ /*_.CURPAIR__V13*/ meltfptr[12] = NULL; @@ -8510,38 +8510,38 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-first.melt:3122:/ clear"); -#line 3122 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3033:/ clear"); +#line 3033 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.CURPAIR__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3122 +#line 3033 /*clear *//*_.LASTPROC__V14*/ meltfptr[13] = 0; } /*endciterblock FOREACH_IN_LIST */ ; { - MELT_LOCATION ("warmelt-first.melt:3133:/ locexp"); -#line 3134 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3044:/ locexp"); +#line 3045 "warmelt-first.melt" /**::locexp::**/ debugeprintf ("init_exitfinalizer INITENDCHK__1 start clock %ld", (long) clock ()); ; } ; - MELT_LOCATION ("warmelt-first.melt:3098:/ clear"); -#line 3098 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3009:/ clear"); +#line 3009 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ -#line 3098 +#line 3009 /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3098 +#line 3009 /*clear *//*_.REVLASTLIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3098 +#line 3009 /*clear *//*_.RESCONT__V5*/ meltfptr[4] = 0; - MELT_LOCATION ("warmelt-first.melt:3094:/ checksignal"); -#line 3094 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3005:/ checksignal"); +#line 3005 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -8562,7 +8562,7 @@ labend_rout: } /*end meltrout_14_warmelt_first_INIT_EXITFINALIZER */ -#line 3138 "warmelt-first.melt" /**::proc::**/ +#line 3049 "warmelt-first.melt" /**::proc::**/ @@ -8637,24 +8637,24 @@ meltrout_15_warmelt_first_AT_EXIT_FIRST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3138:/ getarg"); -#line 3138 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3049:/ getarg"); +#line 3049 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3138 +#line 3049 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3141:/ quasiblock"); -#line 3141 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3052:/ quasiblock"); +#line 3052 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3141 +#line 3052 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -8664,29 +8664,29 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3143:/ checksignal"); -#line 3143 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3054:/ checksignal"); +#line 3054 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3143 "warmelt-first.melt" /**::expr::**/ +#line 3054 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3143:/ cond"); -#line 3143 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3054:/ cond"); +#line 3054 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3143 +#line 3054 /*^block */ -#line 3143 +#line 3054 /*anyblock */ { { /*^locexp */ -#line 3143 +#line 3054 meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -8698,11 +8698,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3141:/ clear"); -#line 3141 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3052:/ clear"); +#line 3052 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3141 +#line 3052 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -8722,7 +8722,7 @@ labend_rout: } /*end meltrout_15_warmelt_first_AT_EXIT_FIRST */ -#line 3146 "warmelt-first.melt" /**::proc::**/ +#line 3057 "warmelt-first.melt" /**::proc::**/ @@ -8797,24 +8797,24 @@ meltrout_16_warmelt_first_AT_EXIT_LAST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3146:/ getarg"); -#line 3146 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3057:/ getarg"); +#line 3057 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3146 +#line 3057 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3149:/ quasiblock"); -#line 3149 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3060:/ quasiblock"); +#line 3060 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3149 +#line 3060 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -8824,29 +8824,29 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3151:/ checksignal"); -#line 3151 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3062:/ checksignal"); +#line 3062 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3151 "warmelt-first.melt" /**::expr::**/ +#line 3062 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3151:/ cond"); -#line 3151 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3062:/ cond"); +#line 3062 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3151 +#line 3062 /*^block */ -#line 3151 +#line 3062 /*anyblock */ { { /*^locexp */ -#line 3151 +#line 3062 meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -8858,11 +8858,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3149:/ clear"); -#line 3149 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3060:/ clear"); +#line 3060 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3149 +#line 3060 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -8882,7 +8882,7 @@ labend_rout: } /*end meltrout_16_warmelt_first_AT_EXIT_LAST */ -#line 3163 "warmelt-first.melt" /**::proc::**/ +#line 3074 "warmelt-first.melt" /**::proc::**/ @@ -8961,20 +8961,20 @@ meltrout_17_warmelt_first_END_MELT_PASS_RUNNER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3163:/ getarg"); -#line 3163 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3074:/ getarg"); +#line 3074 "warmelt-first.melt" /**::getarg::**/ /*_.NOARG__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3163 +#line 3074 if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; /*getarg#2 */ /*^getarg */ -#line 3163 +#line 3074 if (meltxargdescr_[1] != MELTBPAR_LONG) goto lab_endgetargs; /*_#PASSNUMBER__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; @@ -8983,16 +8983,16 @@ meltrout_17_warmelt_first_END_MELT_PASS_RUNNER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3163 +#line 3074 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3164:/ quasiblock"); -#line 3164 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3075:/ quasiblock"); +#line 3075 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3164 +#line 3075 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -9002,8 +9002,8 @@ lab_endgetargs:; /*_.FIRSTLIST__V4*/ meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3165:/ getslot"); -#line 3165 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:3076:/ getslot"); +#line 3076 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -9014,19 +9014,19 @@ lab_endgetargs:; }; ; /*_.REVLASTLIST__V6*/ meltfptr[5] = -#line 3166 "warmelt-first.melt" /**::expr::**/ +#line 3077 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3167:/ checksignal"); -#line 3167 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3078:/ checksignal"); +#line 3078 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3167 +#line 3078 /*^rawallocobj */ -#line 3167 +#line 3078 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -9042,26 +9042,26 @@ lab_endgetargs:; /*^compute */ /*_.VALPASSNAME__V9*/ meltfptr[8] = -#line 3168 "warmelt-first.melt" /**::expr::**/ +#line 3079 "warmelt-first.melt" /**::expr::**/ (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), ( /*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute */ /*_.VALPASSNUMBER__V10*/ meltfptr[9] = -#line 3169 "warmelt-first.melt" /**::expr::**/ +#line 3080 "warmelt-first.melt" /**::expr::**/ (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[4])), ( /*_#PASSNUMBER__L1*/ meltfnum[0])));; - MELT_LOCATION ("warmelt-first.melt:3173:/ checksignal"); -#line 3173 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3084:/ checksignal"); +#line 3084 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3173 +#line 3084 /*cond */ if ( -#line 3173 "warmelt-first.melt" /**::expr::**/ +#line 3084 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])), @@ -9069,14 +9069,14 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3173 +#line 3084 /*^block */ -#line 3173 +#line 3084 /*anyblock */ { /*^putslot */ -#line 3173 +#line 3084 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_FIRST", melt_magic_discr ((melt_ptr_t) @@ -9086,7 +9086,7 @@ lab_endgetargs:; (( /*nil */ NULL)), "DELQU_FIRST"); ; /*^putslot */ -#line 3173 +#line 3084 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_LAST", melt_magic_discr ((melt_ptr_t) @@ -9096,7 +9096,7 @@ lab_endgetargs:; (( /*nil */ NULL)), "DELQU_LAST"); ; /*^touch */ -#line 3173 +#line 3084 meltgc_touch (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])); ; @@ -9105,12 +9105,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3180:/ quasiblock"); -#line 3180 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3091:/ quasiblock"); +#line 3091 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3180 +#line 3091 /*newclosure *//*_.LAMBDA___V12*/ meltfptr[11] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -9119,7 +9119,7 @@ lab_endgetargs:; tabval[7])), (3)); ; /*^putclosedv */ -#line 3180 +#line 3091 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9133,7 +9133,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V7*/ meltfptr[6]); ; /*^putclosedv */ -#line 3180 +#line 3091 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9147,7 +9147,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.VALPASSNAME__V9*/ meltfptr[8]); ; /*^putclosedv */ -#line 3180 +#line 3091 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9161,18 +9161,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.VALPASSNUMBER__V10*/ meltfptr[9]); ; /*_.LAMBDA___V11*/ meltfptr[10] = /*_.LAMBDA___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:3178:/ checksignal"); -#line 3178 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3089:/ checksignal"); +#line 3089 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3178 +#line 3089 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3178 +#line 3089 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V11*/ meltfptr[10]; /*_.LIST_EVERY__V13*/ meltfptr[12] = @@ -9183,12 +9183,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3189:/ quasiblock"); -#line 3189 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3100:/ quasiblock"); +#line 3100 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3189 +#line 3100 /*newclosure *//*_.LAMBDA___V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -9197,7 +9197,7 @@ lab_endgetargs:; tabval[8])), (1)); ; /*^putclosedv */ -#line 3189 +#line 3100 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9211,18 +9211,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.REVLASTLIST__V6*/ meltfptr[5]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-first.melt:3187:/ checksignal"); -#line 3187 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3098:/ checksignal"); +#line 3098 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3187 +#line 3098 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3187 +#line 3098 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V14*/ meltfptr[13]; /*_.LIST_EVERY__V16*/ meltfptr[15] = @@ -9233,12 +9233,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3194:/ quasiblock"); -#line 3194 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3105:/ quasiblock"); +#line 3105 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3194 +#line 3105 /*newclosure *//*_.LAMBDA___V18*/ meltfptr[17] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -9247,7 +9247,7 @@ lab_endgetargs:; tabval[9])), (3)); ; /*^putclosedv */ -#line 3194 +#line 3105 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9261,7 +9261,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V7*/ meltfptr[6]); ; /*^putclosedv */ -#line 3194 +#line 3105 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9275,7 +9275,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.VALPASSNAME__V9*/ meltfptr[8]); ; /*^putclosedv */ -#line 3194 +#line 3105 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -9289,18 +9289,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.VALPASSNUMBER__V10*/ meltfptr[9]); ; /*_.LAMBDA___V17*/ meltfptr[16] = /*_.LAMBDA___V18*/ meltfptr[17];; - MELT_LOCATION ("warmelt-first.melt:3192:/ checksignal"); -#line 3192 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3103:/ checksignal"); +#line 3103 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3192 +#line 3103 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3192 +#line 3103 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V17*/ meltfptr[16]; /*_.LIST_EVERY__V19*/ meltfptr[18] = @@ -9313,51 +9313,51 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.LIST_EVERY__V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-first.melt:3164:/ clear"); -#line 3164 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3075:/ clear"); +#line 3075 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LASTLIST__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.REVLASTLIST__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.RESCONT__V7*/ meltfptr[6] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.VALPASSNAME__V9*/ meltfptr[8] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.VALPASSNUMBER__V10*/ meltfptr[9] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LAMBDA___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LIST_EVERY__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LIST_EVERY__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LAMBDA___V17*/ meltfptr[16] = 0; /*^clear */ -#line 3164 +#line 3075 /*clear *//*_.LIST_EVERY__V19*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-first.melt:3163:/ quasiblock"); -#line 3163 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3074:/ quasiblock"); +#line 3074 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:3163:/ locexp"); -#line 3163 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3074:/ locexp"); +#line 3074 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9368,13 +9368,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3163 +#line 3074 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3163 +#line 3074 /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } @@ -9393,7 +9393,7 @@ labend_rout: } /*end meltrout_17_warmelt_first_END_MELT_PASS_RUNNER */ -#line 3180 "warmelt-first.melt" /**::proc::**/ +#line 3091 "warmelt-first.melt" /**::proc::**/ @@ -9468,24 +9468,24 @@ meltrout_18_warmelt_first_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3180:/ getarg"); -#line 3180 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3091:/ getarg"); +#line 3091 "warmelt-first.melt" /**::getarg::**/ /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3180 +#line 3091 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3181:/ quasiblock"); -#line 3181 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3092:/ quasiblock"); +#line 3092 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3181 +#line 3092 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -9493,22 +9493,22 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3182:/ checksignal"); -#line 3182 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3093:/ checksignal"); +#line 3093 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3182 +#line 3093 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3182 +#line 3093 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*~VALPASSNAME */ meltfclos->tabval[1]); /*^apply.arg */ -#line 3182 +#line 3093 argtab[1].meltbp_aptr = (melt_ptr_t *) & ( /*~VALPASSNUMBER */ meltfclos->tabval[2]); /*_.NEXTRES__V4*/ meltfptr[3] = @@ -9518,16 +9518,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3184:/ checksignal"); -#line 3184 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3095:/ checksignal"); +#line 3095 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3184 +#line 3095 /*^putslot */ -#line 3184 +#line 3095 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -9538,16 +9538,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3184 +#line 3095 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3181:/ clear"); -#line 3181 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3092:/ clear"); +#line 3092 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3181 +#line 3092 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -9567,7 +9567,7 @@ labend_rout: } /*end meltrout_18_warmelt_first_LAMBDA___1__ */ -#line 3189 "warmelt-first.melt" /**::proc::**/ +#line 3100 "warmelt-first.melt" /**::proc::**/ @@ -9642,41 +9642,41 @@ meltrout_19_warmelt_first_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3189:/ getarg"); -#line 3189 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3100:/ getarg"); +#line 3100 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3189 +#line 3100 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3190:/ checksignal"); -#line 3190 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3101:/ checksignal"); +#line 3101 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3190 "warmelt-first.melt" /**::expr::**/ +#line 3101 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3190:/ cond"); -#line 3190 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3101:/ cond"); +#line 3101 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3190 +#line 3101 /*^block */ -#line 3190 +#line 3101 /*anyblock */ { { /*^locexp */ -#line 3190 +#line 3101 meltgc_prepend_list ((melt_ptr_t) (( /*~REVLASTLIST */ meltfclos->tabval[0])), (melt_ptr_t) ( /*_.LASTPROC__V2*/ @@ -9690,8 +9690,8 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3189:/ clear"); -#line 3189 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3100:/ clear"); +#line 3100 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -9710,7 +9710,7 @@ labend_rout: } /*end meltrout_19_warmelt_first_LAMBDA___2__ */ -#line 3194 "warmelt-first.melt" /**::proc::**/ +#line 3105 "warmelt-first.melt" /**::proc::**/ @@ -9785,24 +9785,24 @@ meltrout_20_warmelt_first_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3194:/ getarg"); -#line 3194 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3105:/ getarg"); +#line 3105 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3194 +#line 3105 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3195:/ quasiblock"); -#line 3195 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3106:/ quasiblock"); +#line 3106 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3195 +#line 3106 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -9810,22 +9810,22 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3196:/ checksignal"); -#line 3196 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3107:/ checksignal"); +#line 3107 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3196 +#line 3107 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3196 +#line 3107 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*~VALPASSNAME */ meltfclos->tabval[1]); /*^apply.arg */ -#line 3196 +#line 3107 argtab[1].meltbp_aptr = (melt_ptr_t *) & ( /*~VALPASSNUMBER */ meltfclos->tabval[2]); /*_.NEXTRES__V4*/ meltfptr[3] = @@ -9835,16 +9835,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3198:/ checksignal"); -#line 3198 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3109:/ checksignal"); +#line 3109 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3198 +#line 3109 /*^putslot */ -#line 3198 +#line 3109 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -9855,16 +9855,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3198 +#line 3109 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3195:/ clear"); -#line 3195 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3106:/ clear"); +#line 3106 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3195 +#line 3106 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -9884,7 +9884,7 @@ labend_rout: } /*end meltrout_20_warmelt_first_LAMBDA___3__ */ -#line 3203 "warmelt-first.melt" /**::proc::**/ +#line 3114 "warmelt-first.melt" /**::proc::**/ @@ -9963,24 +9963,24 @@ meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3203:/ getarg"); -#line 3203 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3114:/ getarg"); +#line 3114 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3203 +#line 3114 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3209:/ quasiblock"); -#line 3209 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3120:/ quasiblock"); +#line 3120 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3209 +#line 3120 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -9990,46 +9990,46 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3211:/ checksignal"); -#line 3211 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3122:/ checksignal"); +#line 3122 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = -#line 3211 "warmelt-first.melt" /**::expr::**/ +#line 3122 "warmelt-first.melt" /**::expr::**/ (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3211:/ cond"); -#line 3211 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3122:/ cond"); +#line 3122 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3211 +#line 3122 /*^block */ -#line 3211 +#line 3122 /*anyblock */ { /*_.MAKE_LIST__V4*/ meltfptr[3] = -#line 3213 "warmelt-first.melt" /**::expr::**/ +#line 3124 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3213:/ compute"); -#line 3213 "warmelt-first.melt" /**::compute::**/ + MELT_LOCATION ("warmelt-first.melt:3124:/ compute"); +#line 3124 "warmelt-first.melt" /**::compute::**/ /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-first.melt:3214:/ checksignal"); -#line 3214 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3125:/ checksignal"); +#line 3125 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = -#line 3217 "warmelt-first.melt" /**::expr::**/ +#line 3128 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3214:/ cond"); -#line 3214 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3125:/ cond"); +#line 3125 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( -#line 3214 "warmelt-first.melt" /**::expr::**/ +#line 3125 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])), @@ -10037,14 +10037,14 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3214 +#line 3125 /*^block */ -#line 3214 +#line 3125 /*anyblock */ { /*^putslot */ -#line 3214 +#line 3125 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_FIRST", melt_magic_discr ((melt_ptr_t) @@ -10052,7 +10052,7 @@ lab_endgetargs:; melt_putfield_object ((( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])), (2), ( /*_.FIRSTLIST__V3*/ meltfptr[2]), "DELQU_FIRST"); ; /*^putslot */ -#line 3214 +#line 3125 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_LAST", melt_magic_discr ((melt_ptr_t) @@ -10060,7 +10060,7 @@ lab_endgetargs:; melt_putfield_object ((( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])), (3), ( /*_.MAKE_LIST__V6*/ meltfptr[5]), "DELQU_LAST"); ; /*^touch */ -#line 3214 +#line 3125 meltgc_touch (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[0])); ; @@ -10069,14 +10069,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3218:/ checksignal"); -#line 3218 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3129:/ checksignal"); +#line 3129 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3218 +#line 3129 /*cond */ if ( -#line 3218 "warmelt-first.melt" /**::expr::**/ +#line 3129 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ @@ -10085,14 +10085,14 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3218 +#line 3129 /*^block */ -#line 3218 +#line 3129 /*anyblock */ { /*^putslot */ -#line 3218 +#line 3129 /*putslot */ melt_assertmsg ("putslot checkobj @SYSDATA_MELTPASS_AFTER_HOOK", @@ -10106,7 +10106,7 @@ lab_endgetargs:; "SYSDATA_MELTPASS_AFTER_HOOK"); ; /*^touch */ -#line 3218 +#line 3129 meltgc_touch (( /*!INITIAL_SYSTEM_DATA */ meltfrout-> tabval[3])); ; @@ -10115,48 +10115,48 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3212:/ quasiblock"); -#line 3212 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3123:/ quasiblock"); +#line 3123 "warmelt-first.melt" /**::quasiblock::**/ /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3211:/ clear"); -#line 3211 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3122:/ clear"); +#line 3122 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3211 +#line 3122 /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; /*^clear */ -#line 3211 +#line 3122 /*clear *//*_.MAKE_LIST__V6*/ meltfptr[5] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3221:/ checksignal"); -#line 3221 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3132:/ checksignal"); +#line 3132 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[1] = -#line 3221 "warmelt-first.melt" /**::expr::**/ +#line 3132 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3221:/ cond"); -#line 3221 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3132:/ cond"); +#line 3132 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3221 +#line 3132 /*^block */ -#line 3221 +#line 3132 /*anyblock */ { { /*^locexp */ -#line 3221 +#line 3132 meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -10168,14 +10168,14 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3209:/ clear"); -#line 3209 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3120:/ clear"); +#line 3120 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3209 +#line 3120 /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3209 +#line 3120 /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[1] = 0; /*epilog */ } @@ -10195,7 +10195,7 @@ labend_rout: } /*end meltrout_21_warmelt_first_AT_END_MELT_PASS_FIRST */ -#line 3224 "warmelt-first.melt" /**::proc::**/ +#line 3135 "warmelt-first.melt" /**::proc::**/ @@ -10273,24 +10273,24 @@ meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3224:/ getarg"); -#line 3224 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3135:/ getarg"); +#line 3135 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3224 +#line 3135 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3228:/ quasiblock"); -#line 3228 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3139:/ quasiblock"); +#line 3139 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3228 +#line 3139 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -10300,46 +10300,46 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3230:/ checksignal"); -#line 3230 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3141:/ checksignal"); +#line 3141 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = -#line 3230 "warmelt-first.melt" /**::expr::**/ +#line 3141 "warmelt-first.melt" /**::expr::**/ (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-first.melt:3230:/ cond"); -#line 3230 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3141:/ cond"); +#line 3141 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3230 +#line 3141 /*^block */ -#line 3230 +#line 3141 /*anyblock */ { /*_.MAKE_LIST__V4*/ meltfptr[3] = -#line 3232 "warmelt-first.melt" /**::expr::**/ +#line 3143 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3232:/ compute"); -#line 3232 "warmelt-first.melt" /**::compute::**/ + MELT_LOCATION ("warmelt-first.melt:3143:/ compute"); +#line 3143 "warmelt-first.melt" /**::compute::**/ /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-first.melt:3233:/ checksignal"); -#line 3233 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3144:/ checksignal"); +#line 3144 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = -#line 3235 "warmelt-first.melt" /**::expr::**/ +#line 3146 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3233:/ cond"); -#line 3233 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3144:/ cond"); +#line 3144 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( -#line 3233 "warmelt-first.melt" /**::expr::**/ +#line 3144 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[2])), @@ -10347,14 +10347,14 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3233 +#line 3144 /*^block */ -#line 3233 +#line 3144 /*anyblock */ { /*^putslot */ -#line 3233 +#line 3144 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_FIRST", melt_magic_discr ((melt_ptr_t) @@ -10362,7 +10362,7 @@ lab_endgetargs:; melt_putfield_object ((( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[2])), (2), ( /*_.MAKE_LIST__V6*/ meltfptr[5]), "DELQU_FIRST"); ; /*^putslot */ -#line 3233 +#line 3144 /*putslot */ melt_assertmsg ("putslot checkobj @DELQU_LAST", melt_magic_discr ((melt_ptr_t) @@ -10370,7 +10370,7 @@ lab_endgetargs:; melt_putfield_object ((( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[2])), (3), ( /*_.LASTLIST__V3*/ meltfptr[2]), "DELQU_LAST"); ; /*^touch */ -#line 3233 +#line 3144 meltgc_touch (( /*!END_MELT_PASS_EXECUTION_DELAYED_QUEUE */ meltfrout->tabval[2])); ; @@ -10379,14 +10379,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3237:/ checksignal"); -#line 3237 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3148:/ checksignal"); +#line 3148 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3237 +#line 3148 /*cond */ if ( -#line 3237 "warmelt-first.melt" /**::expr::**/ +#line 3148 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ @@ -10395,14 +10395,14 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3237 +#line 3148 /*^block */ -#line 3237 +#line 3148 /*anyblock */ { /*^putslot */ -#line 3237 +#line 3148 /*putslot */ melt_assertmsg ("putslot checkobj @SYSDATA_MELTPASS_AFTER_HOOK", @@ -10416,7 +10416,7 @@ lab_endgetargs:; "SYSDATA_MELTPASS_AFTER_HOOK"); ; /*^touch */ -#line 3237 +#line 3148 meltgc_touch (( /*!INITIAL_SYSTEM_DATA */ meltfrout-> tabval[4])); ; @@ -10425,48 +10425,48 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3231:/ quasiblock"); -#line 3231 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3142:/ quasiblock"); +#line 3142 "warmelt-first.melt" /**::quasiblock::**/ /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3230:/ clear"); -#line 3230 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3141:/ clear"); +#line 3141 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3230 +#line 3141 /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; /*^clear */ -#line 3230 +#line 3141 /*clear *//*_.MAKE_LIST__V6*/ meltfptr[5] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3240:/ checksignal"); -#line 3240 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3151:/ checksignal"); +#line 3151 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[1] = -#line 3240 "warmelt-first.melt" /**::expr::**/ +#line 3151 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3240:/ cond"); -#line 3240 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3151:/ cond"); +#line 3151 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3240 +#line 3151 /*^block */ -#line 3240 +#line 3151 /*anyblock */ { { /*^locexp */ -#line 3240 +#line 3151 meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -10478,14 +10478,14 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3228:/ clear"); -#line 3228 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3139:/ clear"); +#line 3139 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3228 +#line 3139 /*clear *//*_#NULL__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3228 +#line 3139 /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[1] = 0; /*epilog */ } @@ -10505,7 +10505,7 @@ labend_rout: } /*end meltrout_22_warmelt_first_AT_END_MELT_PASS_LAST */ -#line 3251 "warmelt-first.melt" /**::proc::**/ +#line 3162 "warmelt-first.melt" /**::proc::**/ @@ -10583,17 +10583,17 @@ meltrout_23_warmelt_first_INIT_UNITSTARTER (meltclosure_ptr_t meltclosp_, goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-first.melt:3251:/ block"); -#line 3251 "warmelt-first.melt" /**::block::**/ + MELT_LOCATION ("warmelt-first.melt:3162:/ block"); +#line 3162 "warmelt-first.melt" /**::block::**/ /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3252:/ quasiblock"); -#line 3252 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3163:/ quasiblock"); +#line 3163 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3252 +#line 3163 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -10603,8 +10603,8 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3253:/ getslot"); -#line 3253 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:3164:/ getslot"); +#line 3164 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -10615,19 +10615,19 @@ lab_endgetargs:; }; ; /*_.REVLASTLIST__V5*/ meltfptr[4] = -#line 3254 "warmelt-first.melt" /**::expr::**/ +#line 3165 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3255:/ checksignal"); -#line 3255 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3166:/ checksignal"); +#line 3166 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3255 +#line 3166 /*^rawallocobj */ -#line 3255 +#line 3166 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -10640,12 +10640,12 @@ lab_endgetargs:; }; ; /*_.RESCONT__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-first.melt:3260:/ quasiblock"); -#line 3260 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3171:/ quasiblock"); +#line 3171 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3260 +#line 3171 /*newclosure *//*_.LAMBDA___V9*/ meltfptr[8] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -10654,7 +10654,7 @@ lab_endgetargs:; tabval[5])), (1)); ; /*^putclosedv */ -#line 3260 +#line 3171 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -10668,18 +10668,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V6*/ meltfptr[5]); ; /*_.LAMBDA___V8*/ meltfptr[7] = /*_.LAMBDA___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-first.melt:3258:/ checksignal"); -#line 3258 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3169:/ checksignal"); +#line 3169 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3258 +#line 3169 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3258 +#line 3169 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V8*/ meltfptr[7]; /*_.LIST_EVERY__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) @@ -10689,12 +10689,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3269:/ quasiblock"); -#line 3269 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3180:/ quasiblock"); +#line 3180 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3269 +#line 3180 /*newclosure *//*_.LAMBDA___V12*/ meltfptr[11] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -10703,7 +10703,7 @@ lab_endgetargs:; tabval[6])), (1)); ; /*^putclosedv */ -#line 3269 +#line 3180 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -10717,18 +10717,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.REVLASTLIST__V5*/ meltfptr[4]); ; /*_.LAMBDA___V11*/ meltfptr[10] = /*_.LAMBDA___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:3267:/ checksignal"); -#line 3267 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3178:/ checksignal"); +#line 3178 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3267 +#line 3178 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3267 +#line 3178 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V11*/ meltfptr[10]; /*_.LIST_EVERY__V13*/ meltfptr[12] = @@ -10739,12 +10739,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3274:/ quasiblock"); -#line 3274 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3185:/ quasiblock"); +#line 3185 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3274 +#line 3185 /*newclosure *//*_.LAMBDA___V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -10753,7 +10753,7 @@ lab_endgetargs:; tabval[8])), (1)); ; /*^putclosedv */ -#line 3274 +#line 3185 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -10767,18 +10767,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V6*/ meltfptr[5]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-first.melt:3272:/ checksignal"); -#line 3272 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3183:/ checksignal"); +#line 3183 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3272 +#line 3183 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3272 +#line 3183 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V14*/ meltfptr[13]; /*_.LIST_EVERY__V16*/ meltfptr[15] = @@ -10791,45 +10791,45 @@ lab_endgetargs:; ; /*_.LET___V2*/ meltfptr[1] = /*_.LIST_EVERY__V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-first.melt:3252:/ clear"); -#line 3252 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3163:/ clear"); +#line 3163 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LASTLIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.REVLASTLIST__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.RESCONT__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LAMBDA___V8*/ meltfptr[7] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LIST_EVERY__V10*/ meltfptr[9] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LAMBDA___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LIST_EVERY__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ -#line 3252 +#line 3163 /*clear *//*_.LIST_EVERY__V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-first.melt:3251:/ quasiblock"); -#line 3251 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3162:/ quasiblock"); +#line 3162 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-first.melt:3251:/ locexp"); -#line 3251 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3162:/ locexp"); +#line 3162 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10840,13 +10840,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3251 +#line 3162 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3251 +#line 3162 /*clear *//*_.LET___V2*/ meltfptr[1] = 0; } @@ -10865,7 +10865,7 @@ labend_rout: } /*end meltrout_23_warmelt_first_INIT_UNITSTARTER */ -#line 3260 "warmelt-first.melt" /**::proc::**/ +#line 3171 "warmelt-first.melt" /**::proc::**/ @@ -10940,24 +10940,24 @@ meltrout_24_warmelt_first_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3260:/ getarg"); -#line 3260 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3171:/ getarg"); +#line 3171 "warmelt-first.melt" /**::getarg::**/ /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3260 +#line 3171 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3261:/ quasiblock"); -#line 3261 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3172:/ quasiblock"); +#line 3172 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3261 +#line 3172 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -10965,18 +10965,18 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3262:/ checksignal"); -#line 3262 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3173:/ checksignal"); +#line 3173 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3262 +#line 3173 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3262 +#line 3173 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!START_UNIT_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -10987,16 +10987,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3264:/ checksignal"); -#line 3264 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3175:/ checksignal"); +#line 3175 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3264 +#line 3175 /*^putslot */ -#line 3264 +#line 3175 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -11007,16 +11007,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3264 +#line 3175 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3261:/ clear"); -#line 3261 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3172:/ clear"); +#line 3172 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3261 +#line 3172 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -11036,7 +11036,7 @@ labend_rout: } /*end meltrout_24_warmelt_first_LAMBDA___4__ */ -#line 3269 "warmelt-first.melt" /**::proc::**/ +#line 3180 "warmelt-first.melt" /**::proc::**/ @@ -11111,41 +11111,41 @@ meltrout_25_warmelt_first_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3269:/ getarg"); -#line 3269 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3180:/ getarg"); +#line 3180 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3269 +#line 3180 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3270:/ checksignal"); -#line 3270 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3181:/ checksignal"); +#line 3181 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3270 "warmelt-first.melt" /**::expr::**/ +#line 3181 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3270:/ cond"); -#line 3270 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3181:/ cond"); +#line 3181 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3270 +#line 3181 /*^block */ -#line 3270 +#line 3181 /*anyblock */ { { /*^locexp */ -#line 3270 +#line 3181 meltgc_prepend_list ((melt_ptr_t) (( /*~REVLASTLIST */ meltfclos->tabval[0])), (melt_ptr_t) ( /*_.LASTPROC__V2*/ @@ -11159,8 +11159,8 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3269:/ clear"); -#line 3269 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3180:/ clear"); +#line 3180 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -11179,7 +11179,7 @@ labend_rout: } /*end meltrout_25_warmelt_first_LAMBDA___5__ */ -#line 3274 "warmelt-first.melt" /**::proc::**/ +#line 3185 "warmelt-first.melt" /**::proc::**/ @@ -11254,24 +11254,24 @@ meltrout_26_warmelt_first_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3274:/ getarg"); -#line 3274 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3185:/ getarg"); +#line 3185 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3274 +#line 3185 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3275:/ quasiblock"); -#line 3275 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3186:/ quasiblock"); +#line 3186 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3275 +#line 3186 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -11279,18 +11279,18 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3276:/ checksignal"); -#line 3276 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3187:/ checksignal"); +#line 3187 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3276 +#line 3187 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3276 +#line 3187 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!START_UNIT_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -11301,16 +11301,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3278:/ checksignal"); -#line 3278 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3189:/ checksignal"); +#line 3189 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3278 +#line 3189 /*^putslot */ -#line 3278 +#line 3189 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -11321,16 +11321,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3278 +#line 3189 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3275:/ clear"); -#line 3275 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3186:/ clear"); +#line 3186 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3275 +#line 3186 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -11350,7 +11350,7 @@ labend_rout: } /*end meltrout_26_warmelt_first_LAMBDA___6__ */ -#line 3283 "warmelt-first.melt" /**::proc::**/ +#line 3194 "warmelt-first.melt" /**::proc::**/ @@ -11428,24 +11428,24 @@ meltrout_27_warmelt_first_AT_START_UNIT_FIRST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3283:/ getarg"); -#line 3283 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3194:/ getarg"); +#line 3194 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3283 +#line 3194 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3285:/ quasiblock"); -#line 3285 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3196:/ quasiblock"); +#line 3196 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3285 +#line 3196 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -11455,29 +11455,29 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3287:/ checksignal"); -#line 3287 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3198:/ checksignal"); +#line 3198 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3287 "warmelt-first.melt" /**::expr::**/ +#line 3198 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3287:/ cond"); -#line 3287 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3198:/ cond"); +#line 3198 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3287 +#line 3198 /*^block */ -#line 3287 +#line 3198 /*anyblock */ { { /*^locexp */ -#line 3287 +#line 3198 meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -11489,11 +11489,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3285:/ clear"); -#line 3285 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3196:/ clear"); +#line 3196 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3285 +#line 3196 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -11513,7 +11513,7 @@ labend_rout: } /*end meltrout_27_warmelt_first_AT_START_UNIT_FIRST */ -#line 3290 "warmelt-first.melt" /**::proc::**/ +#line 3201 "warmelt-first.melt" /**::proc::**/ @@ -11591,24 +11591,24 @@ meltrout_28_warmelt_first_AT_START_UNIT_LAST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3290:/ getarg"); -#line 3290 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3201:/ getarg"); +#line 3201 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3290 +#line 3201 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3292:/ quasiblock"); -#line 3292 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3203:/ quasiblock"); +#line 3203 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3292 +#line 3203 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -11618,29 +11618,29 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3294:/ checksignal"); -#line 3294 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3205:/ checksignal"); +#line 3205 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3294 "warmelt-first.melt" /**::expr::**/ +#line 3205 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3294:/ cond"); -#line 3294 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3205:/ cond"); +#line 3205 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3294 +#line 3205 /*^block */ -#line 3294 +#line 3205 /*anyblock */ { { /*^locexp */ -#line 3294 +#line 3205 meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -11652,11 +11652,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3292:/ clear"); -#line 3292 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3203:/ clear"); +#line 3203 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3292 +#line 3203 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -11676,7 +11676,7 @@ labend_rout: } /*end meltrout_28_warmelt_first_AT_START_UNIT_LAST */ -#line 3305 "warmelt-first.melt" /**::proc::**/ +#line 3216 "warmelt-first.melt" /**::proc::**/ @@ -11756,17 +11756,17 @@ meltrout_29_warmelt_first_INIT_UNITFINISHER (meltclosure_ptr_t meltclosp_, goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-first.melt:3305:/ block"); -#line 3305 "warmelt-first.melt" /**::block::**/ + MELT_LOCATION ("warmelt-first.melt:3216:/ block"); +#line 3216 "warmelt-first.melt" /**::block::**/ /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3306:/ quasiblock"); -#line 3306 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3217:/ quasiblock"); +#line 3217 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3306 +#line 3217 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -11776,8 +11776,8 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3307:/ getslot"); -#line 3307 "warmelt-first.melt" /**::getslot::**/ + MELT_LOCATION ("warmelt-first.melt:3218:/ getslot"); +#line 3218 "warmelt-first.melt" /**::getslot::**/ { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -11788,19 +11788,19 @@ lab_endgetargs:; }; ; /*_.REVLASTLIST__V5*/ meltfptr[4] = -#line 3308 "warmelt-first.melt" /**::expr::**/ +#line 3219 "warmelt-first.melt" /**::expr::**/ (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-first.melt:3309:/ checksignal"); -#line 3309 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3220:/ checksignal"); +#line 3220 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3309 +#line 3220 /*^rawallocobj */ -#line 3309 +#line 3220 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -11813,12 +11813,12 @@ lab_endgetargs:; }; ; /*_.RESCONT__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-first.melt:3314:/ quasiblock"); -#line 3314 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3225:/ quasiblock"); +#line 3225 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3314 +#line 3225 /*newclosure *//*_.LAMBDA___V9*/ meltfptr[8] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -11827,7 +11827,7 @@ lab_endgetargs:; tabval[5])), (1)); ; /*^putclosedv */ -#line 3314 +#line 3225 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -11841,18 +11841,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V6*/ meltfptr[5]); ; /*_.LAMBDA___V8*/ meltfptr[7] = /*_.LAMBDA___V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-first.melt:3312:/ checksignal"); -#line 3312 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3223:/ checksignal"); +#line 3223 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3312 +#line 3223 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3312 +#line 3223 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V8*/ meltfptr[7]; /*_.LIST_EVERY__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) @@ -11862,12 +11862,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3323:/ quasiblock"); -#line 3323 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3234:/ quasiblock"); +#line 3234 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3323 +#line 3234 /*newclosure *//*_.LAMBDA___V12*/ meltfptr[11] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -11876,7 +11876,7 @@ lab_endgetargs:; tabval[6])), (1)); ; /*^putclosedv */ -#line 3323 +#line 3234 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -11890,18 +11890,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.REVLASTLIST__V5*/ meltfptr[4]); ; /*_.LAMBDA___V11*/ meltfptr[10] = /*_.LAMBDA___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-first.melt:3321:/ checksignal"); -#line 3321 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3232:/ checksignal"); +#line 3232 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3321 +#line 3232 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3321 +#line 3232 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V11*/ meltfptr[10]; /*_.LIST_EVERY__V13*/ meltfptr[12] = @@ -11912,12 +11912,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3328:/ quasiblock"); -#line 3328 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3239:/ quasiblock"); +#line 3239 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3328 +#line 3239 /*newclosure *//*_.LAMBDA___V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -11926,7 +11926,7 @@ lab_endgetargs:; tabval[8])), (1)); ; /*^putclosedv */ -#line 3328 +#line 3239 /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) @@ -11940,18 +11940,18 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RESCONT__V6*/ meltfptr[5]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-first.melt:3326:/ checksignal"); -#line 3326 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3237:/ checksignal"); +#line 3237 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3326 +#line 3237 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3326 +#line 3237 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V14*/ meltfptr[13]; /*_.LIST_EVERY__V16*/ meltfptr[15] = @@ -11964,45 +11964,45 @@ lab_endgetargs:; ; /*_.LET___V2*/ meltfptr[1] = /*_.LIST_EVERY__V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-first.melt:3306:/ clear"); -#line 3306 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3217:/ clear"); +#line 3217 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LASTLIST__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.REVLASTLIST__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.RESCONT__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LAMBDA___V8*/ meltfptr[7] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LIST_EVERY__V10*/ meltfptr[9] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LAMBDA___V11*/ meltfptr[10] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LIST_EVERY__V13*/ meltfptr[12] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ -#line 3306 +#line 3217 /*clear *//*_.LIST_EVERY__V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-first.melt:3305:/ quasiblock"); -#line 3305 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3216:/ quasiblock"); +#line 3216 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-first.melt:3305:/ locexp"); -#line 3305 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3216:/ locexp"); +#line 3216 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12013,13 +12013,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3305 +#line 3216 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3305 +#line 3216 /*clear *//*_.LET___V2*/ meltfptr[1] = 0; } @@ -12038,7 +12038,7 @@ labend_rout: } /*end meltrout_29_warmelt_first_INIT_UNITFINISHER */ -#line 3314 "warmelt-first.melt" /**::proc::**/ +#line 3225 "warmelt-first.melt" /**::proc::**/ @@ -12113,24 +12113,24 @@ meltrout_30_warmelt_first_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3314:/ getarg"); -#line 3314 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3225:/ getarg"); +#line 3225 "warmelt-first.melt" /**::getarg::**/ /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3314 +#line 3225 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3315:/ quasiblock"); -#line 3315 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3226:/ quasiblock"); +#line 3226 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3315 +#line 3226 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -12138,18 +12138,18 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3316:/ checksignal"); -#line 3316 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3227:/ checksignal"); +#line 3227 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3316 +#line 3227 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3316 +#line 3227 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!FINISH_UNIT_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -12160,16 +12160,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3318:/ checksignal"); -#line 3318 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3229:/ checksignal"); +#line 3229 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3318 +#line 3229 /*^putslot */ -#line 3318 +#line 3229 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -12180,16 +12180,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3318 +#line 3229 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3315:/ clear"); -#line 3315 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3226:/ clear"); +#line 3226 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3315 +#line 3226 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -12209,7 +12209,7 @@ labend_rout: } /*end meltrout_30_warmelt_first_LAMBDA___7__ */ -#line 3323 "warmelt-first.melt" /**::proc::**/ +#line 3234 "warmelt-first.melt" /**::proc::**/ @@ -12284,41 +12284,41 @@ meltrout_31_warmelt_first_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3323:/ getarg"); -#line 3323 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3234:/ getarg"); +#line 3234 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3323 +#line 3234 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3324:/ checksignal"); -#line 3324 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3235:/ checksignal"); +#line 3235 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3324 "warmelt-first.melt" /**::expr::**/ +#line 3235 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3324:/ cond"); -#line 3324 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3235:/ cond"); +#line 3235 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3324 +#line 3235 /*^block */ -#line 3324 +#line 3235 /*anyblock */ { { /*^locexp */ -#line 3324 +#line 3235 meltgc_prepend_list ((melt_ptr_t) (( /*~REVLASTLIST */ meltfclos->tabval[0])), (melt_ptr_t) ( /*_.LASTPROC__V2*/ @@ -12332,8 +12332,8 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3323:/ clear"); -#line 3323 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3234:/ clear"); +#line 3234 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -12352,7 +12352,7 @@ labend_rout: } /*end meltrout_31_warmelt_first_LAMBDA___8__ */ -#line 3328 "warmelt-first.melt" /**::proc::**/ +#line 3239 "warmelt-first.melt" /**::proc::**/ @@ -12427,24 +12427,24 @@ meltrout_32_warmelt_first_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3328:/ getarg"); -#line 3328 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3239:/ getarg"); +#line 3239 "warmelt-first.melt" /**::getarg::**/ /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3328 +#line 3239 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3329:/ quasiblock"); -#line 3329 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3240:/ quasiblock"); +#line 3240 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3329 +#line 3240 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~RESCONT */ meltfclos->tabval[0])) /*=obj*/ ; @@ -12452,18 +12452,18 @@ lab_endgetargs:; /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3330:/ checksignal"); -#line 3330 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3241:/ checksignal"); +#line 3241 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3330 +#line 3241 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3330 +#line 3241 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!FINISH_UNIT_DELAYED_QUEUE */ meltfrout-> tabval[0]); @@ -12474,16 +12474,16 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3332:/ checksignal"); -#line 3332 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3243:/ checksignal"); +#line 3243 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3332 +#line 3243 /*^putslot */ -#line 3332 +#line 3243 /*putslot */ melt_assertmsg ("putslot checkobj @REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) @@ -12494,16 +12494,16 @@ lab_endgetargs:; "REFERENCED_VALUE"); ; /*^touch */ -#line 3332 +#line 3243 meltgc_touch (( /*~RESCONT */ meltfclos->tabval[0])); ; - MELT_LOCATION ("warmelt-first.melt:3329:/ clear"); -#line 3329 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3240:/ clear"); +#line 3240 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.PREVRES__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3329 +#line 3240 /*clear *//*_.NEXTRES__V4*/ meltfptr[3] = 0; /*epilog */ } @@ -12523,7 +12523,7 @@ labend_rout: } /*end meltrout_32_warmelt_first_LAMBDA___9__ */ -#line 3337 "warmelt-first.melt" /**::proc::**/ +#line 3248 "warmelt-first.melt" /**::proc::**/ @@ -12601,24 +12601,24 @@ meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3337:/ getarg"); -#line 3337 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3248:/ getarg"); +#line 3248 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3337 +#line 3248 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3340:/ quasiblock"); -#line 3340 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3251:/ quasiblock"); +#line 3251 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3340 +#line 3251 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -12628,29 +12628,29 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3342:/ checksignal"); -#line 3342 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3253:/ checksignal"); +#line 3253 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3342 "warmelt-first.melt" /**::expr::**/ +#line 3253 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3342:/ cond"); -#line 3342 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3253:/ cond"); +#line 3253 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3342 +#line 3253 /*^block */ -#line 3342 +#line 3253 /*anyblock */ { { /*^locexp */ -#line 3342 +#line 3253 meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -12662,11 +12662,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3340:/ clear"); -#line 3340 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3251:/ clear"); +#line 3251 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3340 +#line 3251 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -12686,7 +12686,7 @@ labend_rout: } /*end meltrout_33_warmelt_first_AT_FINISH_UNIT_FIRST */ -#line 3345 "warmelt-first.melt" /**::proc::**/ +#line 3256 "warmelt-first.melt" /**::proc::**/ @@ -12764,24 +12764,24 @@ meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3345:/ getarg"); -#line 3345 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3256:/ getarg"); +#line 3256 "warmelt-first.melt" /**::getarg::**/ /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3345 +#line 3256 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3348:/ quasiblock"); -#line 3348 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3259:/ quasiblock"); +#line 3259 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3348 +#line 3259 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -12791,29 +12791,29 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3350:/ checksignal"); -#line 3350 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3261:/ checksignal"); +#line 3261 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = -#line 3350 "warmelt-first.melt" /**::expr::**/ +#line 3261 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3350:/ cond"); -#line 3350 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3261:/ cond"); +#line 3261 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3350 +#line 3261 /*^block */ -#line 3350 +#line 3261 /*anyblock */ { { /*^locexp */ -#line 3350 +#line 3261 meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); @@ -12825,11 +12825,11 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-first.melt:3348:/ clear"); -#line 3348 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3259:/ clear"); +#line 3259 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ -#line 3348 +#line 3259 /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; /*epilog */ } @@ -12849,7 +12849,7 @@ labend_rout: } /*end meltrout_34_warmelt_first_AT_FINISH_UNIT_LAST */ -#line 3367 "warmelt-first.melt" /**::proc::**/ +#line 3278 "warmelt-first.melt" /**::proc::**/ @@ -12928,13 +12928,13 @@ meltrout_35_warmelt_first_INIT_OPTIONSETTER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3367:/ getarg"); -#line 3367 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3278:/ getarg"); +#line 3278 "warmelt-first.melt" /**::getarg::**/ /*_.OPTSYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3367 +#line 3278 if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; @@ -12943,16 +12943,16 @@ meltrout_35_warmelt_first_INIT_OPTIONSETTER (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3367 +#line 3278 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3368:/ quasiblock"); -#line 3368 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3279:/ quasiblock"); +#line 3279 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3368 +#line 3279 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -12963,16 +12963,16 @@ lab_endgetargs:; }; ; /*_.OPTDEC__V5*/ meltfptr[4] = -#line 3369 "warmelt-first.melt" /**::expr::**/ +#line 3280 "warmelt-first.melt" /**::expr::**/ /*mapobject_get */ melt_get_mapobjects ((meltmapobjects_ptr_t) ( /*_.OPTMAP__V4*/ meltfptr[3]), (meltobject_ptr_t) ( /*_.OPTSYMB__V2*/ meltfptr[1]));; - MELT_LOCATION ("warmelt-first.melt:3370:/ cond"); -#line 3370 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3281:/ cond"); +#line 3281 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( -#line 3370 "warmelt-first.melt" /**::expr::**/ +#line 3281 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTSYMB__V2*/ meltfptr[1]), @@ -12981,9 +12981,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3370 +#line 3281 /*^getslot */ -#line 3370 +#line 3281 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.OPTSYMB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -12994,45 +12994,45 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3370 +#line 3281 /*_.OPTNAME__V6*/ meltfptr[5] = NULL;; } ; -#line 3372 "warmelt-first.melt" /**::cppif::**/ +#line 3283 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3372:/ cppif.then"); -#line 3372 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:3283:/ cppif.then"); +#line 3283 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3372 +#line 3283 /*anyblock */ { /*^checksignal */ -#line 3372 +#line 3283 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3372 "warmelt-first.melt" /**::expr::**/ +#line 3283 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-first.melt:3372:/ cond"); -#line 3372 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3283:/ cond"); +#line 3283 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3372 +#line 3283 /*_.IFELSE___V8*/ meltfptr[7] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3372:/ cond.else"); -#line 3372 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:3283:/ cond.else"); +#line 3283 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3372 +#line 3283 /*anyblock */ { @@ -13041,11 +13041,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3372 +#line 3283 melt_assert_failed (("check optsymb"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3372) ? (3372) : __LINE__, __FUNCTION__); + (3283) ? (3283) : __LINE__, __FUNCTION__); ; } ; @@ -13060,43 +13060,43 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3372:/ clear"); -#line 3372 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3283:/ clear"); +#line 3283 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3372 +#line 3283 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3372 +#line 3283 /*_.IFCPP___V7*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3373:/ checksignal"); -#line 3373 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3284:/ checksignal"); +#line 3284 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3373 +#line 3284 /*cond */ if ( /*_.OPTDEC__V5*/ meltfptr[4]) /*then */ { /*^cond.then */ -#line 3373 +#line 3284 /*^block */ -#line 3373 +#line 3284 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3374:/ quasiblock"); -#line 3374 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3285:/ quasiblock"); +#line 3285 "warmelt-first.melt" /**::quasiblock::**/ /*^cond */ -#line 3374 +#line 3285 /*cond */ if ( -#line 3374 "warmelt-first.melt" /**::expr::**/ +#line 3285 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTDEC__V5*/ meltfptr[4]), @@ -13104,9 +13104,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3374 +#line 3285 /*^getslot */ -#line 3374 +#line 3285 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.OPTDEC__V5*/ meltfptr[4]) /*=obj*/ ; @@ -13117,45 +13117,45 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3374 +#line 3285 /*_.OPTFUN__V11*/ meltfptr[10] = NULL;; } ; -#line 3376 "warmelt-first.melt" /**::cppif::**/ +#line 3287 "warmelt-first.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-first.melt:3376:/ cppif.then"); -#line 3376 "warmelt-first.melt" /**::cppif.then::**/ + MELT_LOCATION ("warmelt-first.melt:3287:/ cppif.then"); +#line 3287 "warmelt-first.melt" /**::cppif.then::**/ /*^block */ -#line 3376 +#line 3287 /*anyblock */ { /*^checksignal */ -#line 3376 +#line 3287 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L2*/ meltfnum[0] = -#line 3376 "warmelt-first.melt" /**::expr::**/ +#line 3287 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTDEC__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_OPTION_DESCRIPTOR */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-first.melt:3376:/ cond"); -#line 3376 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3287:/ cond"); +#line 3287 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3376 +#line 3287 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-first.melt:3376:/ cond.else"); -#line 3376 "warmelt-first.melt" /**::cond.else::**/ + MELT_LOCATION ("warmelt-first.melt:3287:/ cond.else"); +#line 3287 "warmelt-first.melt" /**::cond.else::**/ /*^block */ -#line 3376 +#line 3287 /*anyblock */ { @@ -13164,11 +13164,11 @@ lab_endgetargs:; { /*^locexp */ -#line 3376 +#line 3287 melt_assert_failed (("check optdec"), ("warmelt-first.melt") ? ("warmelt-first.melt") : __FILE__, - (3376) ? (3376) : __LINE__, + (3287) ? (3287) : __LINE__, __FUNCTION__); ; } @@ -13184,36 +13184,36 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3376:/ clear"); -#line 3376 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3287:/ clear"); +#line 3287 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ -#line 3376 +#line 3287 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ -#line 3376 +#line 3287 /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-first.melt:3377:/ quasiblock"); -#line 3377 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3288:/ quasiblock"); +#line 3288 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3377 +#line 3288 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3377 +#line 3288 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3377 +#line 3288 argtab[0].meltbp_cstring = /*_?*/ meltfram__.loc_CSTRING__o0; /*_.OPTRES__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) @@ -13223,19 +13223,19 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3379:/ checksignal"); -#line 3379 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3290:/ checksignal"); +#line 3290 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3379 +#line 3290 /*_.RETVAL___V1*/ meltfptr[0] = /*_.OPTRES__V15*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-first.melt:3379:/ locexp"); -#line 3379 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3290:/ locexp"); +#line 3290 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13246,65 +13246,65 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3379 +#line 3290 ; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-first.melt:3377:/ clear"); -#line 3377 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3288:/ clear"); +#line 3288 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTRES__V15*/ meltfptr[14] = 0; /*^clear */ -#line 3377 +#line 3288 /*clear *//*_.RETURN___V16*/ meltfptr[15] = 0; /*_.LET___V10*/ meltfptr[9] = /*_.LET___V14*/ meltfptr[12];; - MELT_LOCATION ("warmelt-first.melt:3374:/ clear"); -#line 3374 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3285:/ clear"); +#line 3285 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTFUN__V11*/ meltfptr[10] = 0; /*^clear */ -#line 3374 +#line 3285 /*clear *//*_.IFCPP___V12*/ meltfptr[11] = 0; /*^clear */ -#line 3374 +#line 3285 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; /*_.IFELSE___V9*/ meltfptr[7] = /*_.LET___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3373:/ clear"); -#line 3373 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3284:/ clear"); +#line 3284 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ -#line 3373 +#line 3284 /*^block */ -#line 3373 +#line 3284 /*anyblock */ { { - MELT_LOCATION ("warmelt-first.melt:3382:/ locexp"); -#line 3383 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3293:/ locexp"); +#line 3294 "warmelt-first.melt" /**::locexp::**/ warning (0, "unrecognized MELT option %s. Use -f[plugin-arg-]melt-option=help", melt_string_str ((melt_ptr_t) /*_.OPTNAME__V6*/ meltfptr[5])); } ; - MELT_LOCATION ("warmelt-first.melt:3384:/ quasiblock"); -#line 3384 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3295:/ quasiblock"); +#line 3295 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-first.melt:3384:/ locexp"); -#line 3384 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3295:/ locexp"); +#line 3295 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13315,11 +13315,11 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3384 +#line 3295 ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-first.melt:3380:/ quasiblock"); -#line 3380 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3291:/ quasiblock"); +#line 3291 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[15] = /*_.RETURN___V17*/ meltfptr[14];; @@ -13328,11 +13328,11 @@ lab_endgetargs:; /*_.IFELSE___V9*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3373:/ clear"); -#line 3373 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3284:/ clear"); +#line 3284 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.RETURN___V17*/ meltfptr[14] = 0; /*^clear */ -#line 3373 +#line 3284 /*clear *//*_.PROGN___V18*/ meltfptr[15] = 0; } ; @@ -13340,30 +13340,30 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.IFELSE___V9*/ meltfptr[7];; - MELT_LOCATION ("warmelt-first.melt:3368:/ clear"); -#line 3368 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3279:/ clear"); +#line 3279 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTMAP__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3368 +#line 3279 /*clear *//*_.OPTDEC__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3368 +#line 3279 /*clear *//*_.OPTNAME__V6*/ meltfptr[5] = 0; /*^clear */ -#line 3368 +#line 3279 /*clear *//*_.IFCPP___V7*/ meltfptr[6] = 0; /*^clear */ -#line 3368 +#line 3279 /*clear *//*_.IFELSE___V9*/ meltfptr[7] = 0; - MELT_LOCATION ("warmelt-first.melt:3367:/ quasiblock"); -#line 3367 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3278:/ quasiblock"); +#line 3278 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:3367:/ locexp"); -#line 3367 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3278:/ locexp"); +#line 3278 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13374,13 +13374,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3367 +#line 3278 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3367 +#line 3278 /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } @@ -13399,7 +13399,7 @@ labend_rout: } /*end meltrout_35_warmelt_first_INIT_OPTIONSETTER */ -#line 3387 "warmelt-first.melt" /**::proc::**/ +#line 3298 "warmelt-first.melt" /**::proc::**/ @@ -13475,13 +13475,13 @@ meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3387:/ getarg"); -#line 3387 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3298:/ getarg"); +#line 3298 "warmelt-first.melt" /**::getarg::**/ /*_.OPTSYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3387 +#line 3298 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.OPTHELP__V3*/ meltfptr[2] = @@ -13492,7 +13492,7 @@ meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, /*getarg#2 */ /*^getarg */ -#line 3387 +#line 3298 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.OPTFUN__V4*/ meltfptr[3] = @@ -13505,55 +13505,55 @@ meltrout_36_warmelt_first_REGISTER_OPTION (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3387 +#line 3298 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3390:/ checksignal"); -#line 3390 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ checksignal"); +#line 3301 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^checksignal */ -#line 3390 +#line 3301 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3390 "warmelt-first.melt" /**::expr::**/ +#line 3301 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTSYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-first.melt:3390:/ cond"); -#line 3390 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ cond"); +#line 3301 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3390 +#line 3301 /*^block */ -#line 3390 +#line 3301 /*anyblock */ { /*^checksignal */ -#line 3390 +#line 3301 MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[2] = -#line 3391 "warmelt-first.melt" /**::expr::**/ +#line 3302 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.OPTHELP__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-first.melt:3390:/ cond"); -#line 3390 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ cond"); +#line 3301 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ -#line 3390 +#line 3301 /*^block */ -#line 3390 +#line 3301 /*anyblock */ { /*_#IS_CLOSURE__L5*/ meltfnum[4] = -#line 3392 "warmelt-first.melt" /**::expr::**/ +#line 3303 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.OPTFUN__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; @@ -13562,15 +13562,15 @@ lab_endgetargs:; /*_#IF___L4*/ meltfnum[3] = /*_#IS_CLOSURE__L5*/ meltfnum[4];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3390:/ clear"); -#line 3390 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ clear"); +#line 3301 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[4] = 0; } ; } else { /*^cond.else */ -#line 3390 +#line 3301 /*_#IF___L4*/ meltfnum[3] = 0;; } @@ -13580,39 +13580,39 @@ lab_endgetargs:; /*_#IF___L2*/ meltfnum[1] = /*_#IF___L4*/ meltfnum[3];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3390:/ clear"); -#line 3390 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ clear"); +#line 3301 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_STRING__L3*/ meltfnum[2] = 0; /*^clear */ -#line 3390 +#line 3301 /*clear *//*_#IF___L4*/ meltfnum[3] = 0; } ; } else { /*^cond.else */ -#line 3390 +#line 3301 /*_#IF___L2*/ meltfnum[1] = 0;; } ; - MELT_LOCATION ("warmelt-first.melt:3390:/ cond"); -#line 3390 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3301:/ cond"); +#line 3301 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IF___L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3390 +#line 3301 /*^block */ -#line 3390 +#line 3301 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3393:/ quasiblock"); -#line 3393 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3304:/ quasiblock"); +#line 3304 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3393 +#line 3304 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -13622,16 +13622,16 @@ lab_endgetargs:; /*_.OPTMAP__V5*/ meltfptr[4] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3394:/ checksignal"); -#line 3394 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3305:/ checksignal"); +#line 3305 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3394 +#line 3305 /*^rawallocobj */ -#line 3394 +#line 3305 /*rawallocobj */ { melt_ptr_t newobj = 0; @@ -13642,7 +13642,7 @@ lab_endgetargs:; }; ; /*^putslot */ -#line 3394 +#line 3305 /*putslot */ melt_assertmsg ("putslot checkobj @OPTDESC_NAME", melt_magic_discr ((melt_ptr_t) @@ -13653,7 +13653,7 @@ lab_endgetargs:; "OPTDESC_NAME"); ; /*^putslot */ -#line 3394 +#line 3305 /*putslot */ melt_assertmsg ("putslot checkobj @OPTDESC_FUN", melt_magic_discr ((melt_ptr_t) @@ -13664,7 +13664,7 @@ lab_endgetargs:; "OPTDESC_FUN"); ; /*^putslot */ -#line 3394 +#line 3305 /*putslot */ melt_assertmsg ("putslot checkobj @OPTDESC_HELP", melt_magic_discr ((melt_ptr_t) @@ -13677,8 +13677,8 @@ lab_endgetargs:; /*_.OPTDESC__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-first.melt:3399:/ locexp"); -#line 3399 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3310:/ locexp"); +#line 3310 "warmelt-first.melt" /**::locexp::**/ meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.OPTMAP__V5*/ meltfptr[4]), (meltobject_ptr_t) ( /*_.OPTSYMB__V2*/ @@ -13688,11 +13688,11 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-first.melt:3393:/ clear"); -#line 3393 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3304:/ clear"); +#line 3304 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTMAP__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3393 +#line 3304 /*clear *//*_.OPTDESC__V6*/ meltfptr[5] = 0; /*epilog */ } @@ -13701,11 +13701,11 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3387:/ clear"); -#line 3387 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3298:/ clear"); +#line 3298 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3387 +#line 3298 /*clear *//*_#IF___L2*/ meltfnum[1] = 0; } @@ -13724,7 +13724,7 @@ labend_rout: } /*end meltrout_36_warmelt_first_REGISTER_OPTION */ -#line 3402 "warmelt-first.melt" /**::proc::**/ +#line 3313 "warmelt-first.melt" /**::proc::**/ @@ -13803,13 +13803,13 @@ meltrout_37_warmelt_first_OPTION_HELPER_FUN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3402:/ getarg"); -#line 3402 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3313:/ getarg"); +#line 3313 "warmelt-first.melt" /**::getarg::**/ /*_.HELPSYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3402 +#line 3313 if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto lab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; @@ -13818,16 +13818,16 @@ meltrout_37_warmelt_first_OPTION_HELPER_FUN (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3402 +#line 3313 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3403:/ quasiblock"); -#line 3403 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3314:/ quasiblock"); +#line 3314 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3403 +#line 3314 { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -13837,23 +13837,23 @@ lab_endgetargs:; /*_.OPTMAP__V4*/ meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-first.melt:3404:/ checksignal"); -#line 3404 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3315:/ checksignal"); +#line 3315 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ -#line 3404 +#line 3315 /*cond */ if ( /*_?*/ meltfram__.loc_CSTRING__o0) /*then */ { /*^cond.then */ -#line 3404 +#line 3315 /*^block */ -#line 3404 +#line 3315 /*anyblock */ { /*_.GET_RAW_SYMBOL__V6*/ meltfptr[5] = -#line 3404 "warmelt-first.melt" /**::expr::**/ +#line 3315 "warmelt-first.melt" /**::expr::**/ meltgc_named_symbol ((const char *) /*_?*/ meltfram__. loc_CSTRING__o0, MELT_GET);; /*^compute */ @@ -13861,15 +13861,15 @@ lab_endgetargs:; /*_.SYMB__V5*/ meltfptr[4] = /*_.GET_RAW_SYMBOL__V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3404:/ clear"); -#line 3404 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3315:/ clear"); +#line 3315 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.GET_RAW_SYMBOL__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ -#line 3404 +#line 3315 /*_.SYMB__V5*/ meltfptr[4] = NULL;; } @@ -13877,37 +13877,37 @@ lab_endgetargs:; /*^compute */ /*_.OPTD__V7*/ meltfptr[5] = -#line 3405 "warmelt-first.melt" /**::expr::**/ +#line 3316 "warmelt-first.melt" /**::expr::**/ /*mapobject_get */ melt_get_mapobjects ((meltmapobjects_ptr_t) ( /*_.OPTMAP__V4*/ meltfptr[3]), (meltobject_ptr_t) ( /*_.SYMB__V5*/ meltfptr[4]));; - MELT_LOCATION ("warmelt-first.melt:3408:/ checksignal"); -#line 3408 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3319:/ checksignal"); +#line 3319 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = -#line 3408 "warmelt-first.melt" /**::expr::**/ +#line 3319 "warmelt-first.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.OPTD__V7*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_OPTION_DESCRIPTOR */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-first.melt:3408:/ cond"); -#line 3408 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3319:/ cond"); +#line 3319 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3408 +#line 3319 /*^block */ -#line 3408 +#line 3319 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3409:/ quasiblock"); -#line 3409 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3320:/ quasiblock"); +#line 3320 "warmelt-first.melt" /**::quasiblock::**/ /*^getslot */ -#line 3409 +#line 3320 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.OPTD__V7*/ meltfptr[5]) /*=obj*/ ; @@ -13917,27 +13917,27 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-first.melt:3412:/ locexp"); -#line 3414 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3323:/ locexp"); +#line 3325 "warmelt-first.melt" /**::locexp::**/ inform (UNKNOWN_LOCATION, "MELT help for option %s : %s", /*_?*/ meltfram__.loc_CSTRING__o0, melt_string_str ((melt_ptr_t) /*_.OPTHELP__V10*/ meltfptr[9])); } ; - MELT_LOCATION ("warmelt-first.melt:3415:/ checksignal"); -#line 3415 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3326:/ checksignal"); +#line 3326 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3415 +#line 3326 /*_.RETVAL___V1*/ meltfptr[0] = /*_.HELPSYMB__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-first.melt:3415:/ locexp"); -#line 3415 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3326:/ locexp"); +#line 3326 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13948,45 +13948,45 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3415 +#line 3326 ; /*finalret */ goto labend_rout; /*_.LET___V9*/ meltfptr[8] = /*_.RETURN___V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-first.melt:3409:/ clear"); -#line 3409 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3320:/ clear"); +#line 3320 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTHELP__V10*/ meltfptr[9] = 0; /*^clear */ -#line 3409 +#line 3320 /*clear *//*_.RETURN___V11*/ meltfptr[10] = 0; /*_.IFELSE___V8*/ meltfptr[7] = /*_.LET___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3408:/ clear"); -#line 3408 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3319:/ clear"); +#line 3319 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V9*/ meltfptr[8] = 0; } ; } else { /*^cond.else */ -#line 3408 +#line 3319 /*^block */ -#line 3408 +#line 3319 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3418:/ quasiblock"); -#line 3418 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3329:/ quasiblock"); +#line 3329 "warmelt-first.melt" /**::quasiblock::**/ /*^checksignal */ -#line 3418 +#line 3329 MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3418 +#line 3329 /*apply */ { /*_.SORTEDSYMBTUP__V13*/ meltfptr[10] = @@ -13998,12 +13998,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-first.melt:3420:/ quasiblock"); -#line 3420 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3331:/ quasiblock"); +#line 3331 "warmelt-first.melt" /**::quasiblock::**/ /*^newclosure */ -#line 3420 +#line 3331 /*newclosure *//*_.LAMBDA___V15*/ meltfptr[14] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) @@ -14014,18 +14014,18 @@ lab_endgetargs:; (0)); ; /*_.LAMBDA___V14*/ meltfptr[8] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-first.melt:3419:/ checksignal"); -#line 3419 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3330:/ checksignal"); +#line 3330 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3419 +#line 3330 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3419 +#line 3330 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LAMBDA___V14*/ meltfptr[8]; /*_.SORTEDNAMETUP__V16*/ meltfptr[15] = @@ -14037,13 +14037,13 @@ lab_endgetargs:; } ; /*_#NBSYMB__L2*/ meltfnum[1] = -#line 3422 "warmelt-first.melt" /**::expr::**/ +#line 3333 "warmelt-first.melt" /**::expr::**/ (melt_multiple_length ((melt_ptr_t) ( /*_.SORTEDSYMBTUP__V13*/ meltfptr[10])));; { - MELT_LOCATION ("warmelt-first.melt:3426:/ locexp"); -#line 3441 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3337:/ locexp"); +#line 3352 "warmelt-first.melt" /**::locexp::**/ /* option_helper_fun INFORMOPTION__1 start */ { int i = 0; @@ -14074,19 +14074,19 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-first.melt:3442:/ checksignal"); -#line 3442 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3353:/ checksignal"); +#line 3353 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ -#line 3442 +#line 3353 /*_.RETVAL___V1*/ meltfptr[0] = /*_.HELPSYMB__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-first.melt:3442:/ locexp"); -#line 3442 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3353:/ locexp"); +#line 3353 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14097,28 +14097,28 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3442 +#line 3353 ; /*finalret */ goto labend_rout; /*_.LET___V12*/ meltfptr[9] = /*_.RETURN___V17*/ meltfptr[16];; - MELT_LOCATION ("warmelt-first.melt:3418:/ clear"); -#line 3418 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3329:/ clear"); +#line 3329 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.SORTEDSYMBTUP__V13*/ meltfptr[10] = 0; /*^clear */ -#line 3418 +#line 3329 /*clear *//*_.LAMBDA___V14*/ meltfptr[8] = 0; /*^clear */ -#line 3418 +#line 3329 /*clear *//*_.SORTEDNAMETUP__V16*/ meltfptr[15] = 0; /*^clear */ -#line 3418 +#line 3329 /*clear *//*_#NBSYMB__L2*/ meltfnum[1] = 0; /*^clear */ -#line 3418 +#line 3329 /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; - MELT_LOCATION ("warmelt-first.melt:3417:/ quasiblock"); -#line 3417 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3328:/ quasiblock"); +#line 3328 "warmelt-first.melt" /**::quasiblock::**/ /*_.PROGN___V18*/ meltfptr[10] = /*_.LET___V12*/ meltfptr[9];; @@ -14127,11 +14127,11 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3408:/ clear"); -#line 3408 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3319:/ clear"); +#line 3319 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.LET___V12*/ meltfptr[9] = 0; /*^clear */ -#line 3408 +#line 3319 /*clear *//*_.PROGN___V18*/ meltfptr[10] = 0; } ; @@ -14139,30 +14139,30 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.IFELSE___V8*/ meltfptr[7];; - MELT_LOCATION ("warmelt-first.melt:3403:/ clear"); -#line 3403 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3314:/ clear"); +#line 3314 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.OPTMAP__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3403 +#line 3314 /*clear *//*_.SYMB__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3403 +#line 3314 /*clear *//*_.OPTD__V7*/ meltfptr[5] = 0; /*^clear */ -#line 3403 +#line 3314 /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ -#line 3403 +#line 3314 /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; - MELT_LOCATION ("warmelt-first.melt:3402:/ quasiblock"); -#line 3402 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3313:/ quasiblock"); +#line 3313 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:3402:/ locexp"); -#line 3402 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3313:/ locexp"); +#line 3313 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14173,13 +14173,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3402 +#line 3313 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3402 +#line 3313 /*clear *//*_.LET___V3*/ meltfptr[2] = 0; } @@ -14198,7 +14198,7 @@ labend_rout: } /*end meltrout_37_warmelt_first_OPTION_HELPER_FUN */ -#line 3420 "warmelt-first.melt" /**::proc::**/ +#line 3331 "warmelt-first.melt" /**::proc::**/ @@ -14273,22 +14273,22 @@ meltrout_38_warmelt_first_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3420:/ getarg"); -#line 3420 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3331:/ getarg"); +#line 3331 "warmelt-first.melt" /**::getarg::**/ /*_.SY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ -#line 3420 +#line 3331 /*anyblock*/ { /*^cond */ -#line 3420 +#line 3331 /*cond */ if ( -#line 3420 "warmelt-first.melt" /**::expr::**/ +#line 3331 "warmelt-first.melt" /**::expr::**/ /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.SY__V2*/ meltfptr[1]), @@ -14297,9 +14297,9 @@ lab_endgetargs:; ) /*then */ { /*^cond.then */ -#line 3420 +#line 3331 /*^getslot */ -#line 3420 +#line 3331 { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SY__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14310,20 +14310,20 @@ lab_endgetargs:; } else { /*^cond.else */ -#line 3420 +#line 3331 /*_.NAMED_NAME__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-first.melt:3420:/ quasiblock"); -#line 3420 "warmelt-first.melt" /**::quasiblock::**/ + MELT_LOCATION ("warmelt-first.melt:3331:/ quasiblock"); +#line 3331 "warmelt-first.melt" /**::quasiblock::**/ /*_.RETVAL___V1*/ meltfptr[0] = /*_.NAMED_NAME__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-first.melt:3420:/ locexp"); -#line 3420 "warmelt-first.melt" /**::locexp::**/ + MELT_LOCATION ("warmelt-first.melt:3331:/ locexp"); +#line 3331 "warmelt-first.melt" /**::locexp::**/ /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14334,13 +14334,13 @@ lab_endgetargs:; } ; /*^finalreturn */ -#line 3420 +#line 3331 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ -#line 3420 +#line 3331 /*clear *//*_.NAMED_NAME__V3*/ meltfptr[2] = 0; } @@ -14359,7 +14359,7 @@ labend_rout: } /*end meltrout_38_warmelt_first_LAMBDA___10__ */ -#line 3501 "warmelt-first.melt" /**::proc::**/ +#line 3412 "warmelt-first.melt" /**::proc::**/ @@ -14435,13 +14435,13 @@ meltrout_39_warmelt_first_MAPOBJECT_EVERY (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-first.melt:3501:/ getarg"); -#line 3501 "warmelt-first.melt" /**::getarg::**/ + MELT_LOCATION ("warmelt-first.melt:3412:/ getarg"); +#line 3412 "warmelt-first.melt" /**::getarg::**/ /*_.MAP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ -#line 3501 +#line 3412 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.F__V3*/ meltfptr[2] = @@ -14453,46 +14453,46 @@ meltrout_39_warmelt_first_MAPOBJECT_EVERY (meltclosure_ptr_t meltclosp_, lab_endgetargs:; /*body*/ /*^block*/ -#line 3501 +#line 3412 /*anyblock*/ { - MELT_LOCATION ("warmelt-first.melt:3505:/ checksignal"); -#line 3505 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3416:/ checksignal"); +#line 3416 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MAPOBJECT__L1*/ meltfnum[0] = -#line 3505 "warmelt-first.melt" /**::expr::**/ +#line 3416 "warmelt-first.melt" /**::expr::**/ /*is_mapobject: */ (melt_magic_discr ((melt_ptr_t) ( /*_.MAP__V2*/ meltfptr[1])) == MELTOBMAG_MAPOBJECTS);; - MELT_LOCATION ("warmelt-first.melt:3505:/ cond"); -#line 3505 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3416:/ cond"); +#line 3416 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_MAPOBJECT__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ -#line 3505 +#line 3416 /*^block */ -#line 3505 +#line 3416 /*anyblock */ { - MELT_LOCATION ("warmelt-first.melt:3506:/ checksignal"); -#line 3506 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3417:/ checksignal"); +#line 3417 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[1] = -#line 3506 "warmelt-first.melt" /**::expr::**/ +#line 3417 "warmelt-first.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.F__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-first.melt:3506:/ cond"); -#line 3506 "warmelt-first.melt" /**::cond::**/ + MELT_LOCATION ("warmelt-first.melt:3417:/ cond"); +#line 3417 "warmelt-first.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ -#line 3506 +#line 3417 /*^block */ -#line 3506 +#line 3417 /*anyblock */ { @@ -14531,18 +14531,18 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-first.melt:3510:/ checksignal"); -#line 3510 "warmelt-first.melt" /**::checksignal::**/ + MELT_LOCATION ("warmelt-first.melt:3421:/ checksignal"); +#line 3421 "warmelt-first.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ -#line 3510 +#line 3421 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ -#line 3510 +#line 3421 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CURVAL__V5*/ meltfptr[4]; /*_.F__V6*/ meltfptr[5] = @@ -14562,14 +14562,14 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-first.melt:3507:/ clear"); -#line 3507 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3418:/ clear"); +#line 3418 "warmelt-first.melt" /**::clear::**/ /*clear *//*_.CURAT__V4*/ meltfptr[3] = 0; /*^clear */ -#line 3507 +#line 3418 /*clear *//*_.CURVAL__V5*/ meltfptr[4] = 0; /*^clear */ -#line 3507 +#line 3418 /*clear *//*_.F__V6*/ meltfptr[5] = 0; } /*endciterblock FOREACH_IN_MAPOBJECT */ ; @@ -14580,8 +14580,8 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3505:/ clear"); -#line 3505 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3416:/ clear"); +#line 3416 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[1] = 0; } ; @@ -14589,8 +14589,8 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-first.melt:3501:/ clear"); -#line 3501 "warmelt-first.melt" /**::clear::**/ + MELT_LOCATION ("warmelt-first.melt:3412:/ clear"); +#line 3412 "warmelt-first.melt" /**::clear::**/ /*clear *//*_#IS_MAPOBJECT__L1*/ meltfnum[0] = 0; } |