Anubis / Anubis

Commit 53870d7463f3899017e739192082ba518db3a09e

Authored by David René
1 parent f3d972c6

[+] add the creation of udp broadcast socket

Showing 9 changed files with 1909 additions and 1729 deletions   Show diff stats
Inline Side-by-side
anubis_dev/compiler/src/Win32/compiler.rc
  Show/Hide comments   View file @53870d7
@@ -28,8 +28,8 @@ LANGUAGE LANG_FRENCH, SUBLANG_FRENCH @@ -28,8 +28,8 @@ LANGUAGE LANG_FRENCH, SUBLANG_FRENCH
28 // 28 //
29 29
30 VS_VERSION_INFO VERSIONINFO 30 VS_VERSION_INFO VERSIONINFO
31 - FILEVERSION 1,7,15,0  
32 - PRODUCTVERSION 1,7,15,0 31 + FILEVERSION 1,7,16,0
  32 + PRODUCTVERSION 1,7,16,0
33 FILEFLAGSMASK 0x3fL 33 FILEFLAGSMASK 0x3fL
34 #ifdef _DEBUG 34 #ifdef _DEBUG
35 FILEFLAGS 0x1L 35 FILEFLAGS 0x1L
@@ -47,14 +47,14 @@ BEGIN @@ -47,14 +47,14 @@ BEGIN
47 VALUE "Comments", "\0" 47 VALUE "Comments", "\0"
48 VALUE "CompanyName", "Alain Prouté\0" 48 VALUE "CompanyName", "Alain Prouté\0"
49 VALUE "FileDescription", "anubis\0" 49 VALUE "FileDescription", "anubis\0"
50 - VALUE "FileVersion", "1, 7, 15, 0, 0\0"" 50 + VALUE "FileVersion", "1, 7, 16, 0, 0\0""
51 VALUE "InternalName", "anubis\0" 51 VALUE "InternalName", "anubis\0"
52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0" 52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0"
53 VALUE "LegalTrademarks", "\0" 53 VALUE "LegalTrademarks", "\0"
54 VALUE "OriginalFilename", "anubis.exe\0" 54 VALUE "OriginalFilename", "anubis.exe\0"
55 VALUE "PrivateBuild", "\0" 55 VALUE "PrivateBuild", "\0"
56 VALUE "ProductName", "Anubis Compiler\0" 56 VALUE "ProductName", "Anubis Compiler\0"
57 - VALUE "ProductVersion", "1, 7, 15, 0, 0\0"" 57 + VALUE "ProductVersion", "1, 7, 16, 0, 0\0""
58 VALUE "SpecialBuild", "\0" 58 VALUE "SpecialBuild", "\0"
59 END 59 END
60 END 60 END
anubis_dev/compiler/src/predef.aux
  Show/Hide comments   View file @53870d7
@@ -2749,13 +2749,31 @@ nil), @@ -2749,13 +2749,31 @@ nil),
2749 nil, 2749 nil,
2750 no_term); 2750 no_term);
2751 2751
2752 -new_op_scheme(17708572,1, 2752 +new_op_scheme(17709084,1,
2753 new_string("Create_UDP_Client_Socket_Result"), 2753 new_string("Create_UDP_Client_Socket_Result"),
2754 cons(new_string("create_udp_client_socket"), 2754 cons(new_string("create_udp_client_socket"),
2755 nil), 2755 nil),
2756 nil, 2756 nil,
2757 no_term); 2757 no_term);
2758 2758
  2759 +new_op_scheme(17713678,0,
  2760 +cons(app_ts,
  2761 +cons(new_string("Maybe"),
  2762 +cons(cons(type_RWAddr,
  2763 +new_string("Int8")),
  2764 +nil))),
  2765 +cons(new_string("£create_udp_client_broadcast_socket"),
  2766 +nil),
  2767 +nil,
  2768 +no_term);
  2769 +
  2770 +new_op_scheme(17715740,1,
  2771 +new_string("Create_UDP_Client_Socket_Result"),
  2772 +cons(new_string("create_udp_client_broadcast_socket"),
  2773 +nil),
  2774 +nil,
  2775 +no_term);
  2776 +
2759 new_type_scheme(new_integer(0),0, 2777 new_type_scheme(new_integer(0),0,
2760 new_string("UDP_Send_Result"), 2778 new_string("UDP_Send_Result"),
2761 nil, 2779 nil,
@@ -2767,7 +2785,7 @@ nil), @@ -2767,7 +2785,7 @@ nil),
2767 nil), 2785 nil),
2768 nil)),0,1); 2786 nil)),0,1);
2769 2787
2770 -new_op_scheme(17719836,1, 2788 +new_op_scheme(17727004,1,
2771 new_string("UDP_Send_Result"), 2789 new_string("UDP_Send_Result"),
2772 cons(new_string("udp_send"), 2790 cons(new_string("udp_send"),
2773 nil), 2791 nil),
@@ -2815,7 +2833,7 @@ new_string("ip_port")), @@ -2815,7 +2833,7 @@ new_string("ip_port")),
2815 nil))))), 2833 nil))))),
2816 nil))),0,1); 2834 nil))),0,1);
2817 2835
2818 -new_op_scheme(17735708,1, 2836 +new_op_scheme(17742876,1,
2819 new_string("UDP_Receive_Result"), 2837 new_string("UDP_Receive_Result"),
2820 cons(new_string("udp_receive"), 2838 cons(new_string("udp_receive"),
2821 nil), 2839 nil),
@@ -2859,7 +2877,7 @@ noname), @@ -2859,7 +2877,7 @@ noname),
2859 nil)), 2877 nil)),
2860 nil)))),0,1); 2878 nil)))),0,1);
2861 2879
2862 -new_op_scheme(17748494,0, 2880 +new_op_scheme(17755662,0,
2863 new_string("£Create_UDP_Server_Socket_Result"), 2881 new_string("£Create_UDP_Server_Socket_Result"),
2864 cons(new_string("£create_udp_server_socket"), 2882 cons(new_string("£create_udp_server_socket"),
2865 nil), 2883 nil),
@@ -2870,7 +2888,7 @@ new_string("ip_port")), @@ -2870,7 +2888,7 @@ new_string("ip_port")),
2870 nil)), 2888 nil)),
2871 no_term); 2889 no_term);
2872 2890
2873 -new_op_scheme(17754126,0, 2891 +new_op_scheme(17761294,0,
2874 new_string("One"), 2892 new_string("One"),
2875 cons(new_string("£run_udp_server"), 2893 cons(new_string("£run_udp_server"),
2876 nil), 2894 nil),
@@ -2917,7 +2935,7 @@ noname), @@ -2917,7 +2935,7 @@ noname),
2917 nil)), 2935 nil)),
2918 nil)))),0,1); 2936 nil)))),0,1);
2919 2937
2920 -new_op_scheme(17779228,1, 2938 +new_op_scheme(17786396,1,
2921 cons(type_Var, 2939 cons(type_Var,
2922 new_utvar("T")), 2940 new_utvar("T")),
2923 cons(new_string("var"), 2941 cons(new_string("var"),
@@ -2927,7 +2945,7 @@ new_string("init")), @@ -2927,7 +2945,7 @@ new_string("init")),
2927 nil), 2945 nil),
2928 no_term); 2946 no_term);
2929 2947
2930 -new_op_scheme(17780252,1, 2948 +new_op_scheme(17787420,1,
2931 new_string("Start_UDP_Server_Result"), 2949 new_string("Start_UDP_Server_Result"),
2932 cons(new_string("start_udp_server"), 2950 cons(new_string("start_udp_server"),
2933 nil), 2951 nil),
@@ -2954,7 +2972,7 @@ new_string("notify")), @@ -2954,7 +2972,7 @@ new_string("notify")),
2954 nil))))), 2972 nil))))),
2955 no_term); 2973 no_term);
2956 2974
2957 -new_op_scheme(17795100,1, 2975 +new_op_scheme(17802268,1,
2958 new_string("Bool"), 2976 new_string("Bool"),
2959 cons(new_string("is_down"), 2977 cons(new_string("is_down"),
2960 nil), 2978 nil),
@@ -2963,7 +2981,7 @@ new_string("server")), @@ -2963,7 +2981,7 @@ new_string("server")),
2963 nil), 2981 nil),
2964 no_term); 2982 no_term);
2965 2983
2966 -new_op_scheme(17800732,1, 2984 +new_op_scheme(17807900,1,
2967 new_string("One"), 2985 new_string("One"),
2968 cons(new_string("shutdown"), 2986 cons(new_string("shutdown"),
2969 nil), 2987 nil),
@@ -2972,7 +2990,7 @@ new_string("server")), @@ -2972,7 +2990,7 @@ new_string("server")),
2972 nil), 2990 nil),
2973 no_term); 2991 no_term);
2974 2992
2975 -new_op_scheme(17814044,1, 2993 +new_op_scheme(17821212,1,
2976 cons(app_ts, 2994 cons(app_ts,
2977 cons(new_string("Maybe"), 2995 cons(new_string("Maybe"),
2978 cons(new_string("Int8"), 2996 cons(new_string("Int8"),
@@ -2994,7 +3012,7 @@ new_string("operands")), @@ -2994,7 +3012,7 @@ new_string("operands")),
2994 nil))), 3012 nil))),
2995 no_term); 3013 no_term);
2996 3014
2997 -new_op_scheme(17825820,1, 3015 +new_op_scheme(17832988,1,
2998 cons(app_ts, 3016 cons(app_ts,
2999 cons(new_string("Maybe"), 3017 cons(new_string("Maybe"),
3000 cons(new_string("Int8"), 3018 cons(new_string("Int8"),
@@ -3011,7 +3029,7 @@ new_string("operands")), @@ -3011,7 +3029,7 @@ new_string("operands")),
3011 nil)), 3029 nil)),
3012 no_term); 3030 no_term);
3013 3031
3014 -new_op_scheme(17829916,1, 3032 +new_op_scheme(17837084,1,
3015 cons(app_ts, 3033 cons(app_ts,
3016 cons(new_string("Maybe"), 3034 cons(new_string("Maybe"),
3017 cons(new_string("Int8"), 3035 cons(new_string("Int8"),
@@ -3050,7 +3068,7 @@ noname), @@ -3050,7 +3068,7 @@ noname),
3050 nil))))), 3068 nil))))),
3051 nil),0,1); 3069 nil),0,1);
3052 3070
3053 -new_op_scheme(17855516,1, 3071 +new_op_scheme(17862684,1,
3054 cons(app_ts, 3072 cons(app_ts,
3055 cons(new_string("Maybe"), 3073 cons(new_string("Maybe"),
3056 cons(new_string("ExecuteControl"), 3074 cons(new_string("ExecuteControl"),
@@ -3088,7 +3106,7 @@ new_string("code")), @@ -3088,7 +3106,7 @@ new_string("code")),
3088 nil)), 3106 nil)),
3089 nil))),0,1); 3107 nil))),0,1);
3090 3108
3091 -new_op_scheme(17871388,1, 3109 +new_op_scheme(17878556,1,
3092 new_string("ExecuteStatus"), 3110 new_string("ExecuteStatus"),
3093 cons(new_string("check_execute_status"), 3111 cons(new_string("check_execute_status"),
3094 nil), 3112 nil),
@@ -3097,7 +3115,7 @@ new_string("ec")), @@ -3097,7 +3115,7 @@ new_string("ec")),
3097 nil), 3115 nil),
3098 no_term); 3116 no_term);
3099 3117
3100 -new_op_scheme(17879580,1, 3118 +new_op_scheme(17886748,1,
3101 type_Int32, 3119 type_Int32,
3102 cons(new_string("random"), 3120 cons(new_string("random"),
3103 nil), 3121 nil),
@@ -3106,7 +3124,7 @@ new_string("n")), @@ -3106,7 +3124,7 @@ new_string("n")),
3106 nil), 3124 nil),
3107 no_term); 3125 no_term);
3108 3126
3109 -new_op_scheme(17891868,1, 3127 +new_op_scheme(17899036,1,
3110 cons(type_Var, 3128 cons(type_Var,
3111 new_utvar("T")), 3129 new_utvar("T")),
3112 cons(new_string("var"), 3130 cons(new_string("var"),
@@ -3116,7 +3134,7 @@ new_string("init")), @@ -3116,7 +3134,7 @@ new_string("init")),
3116 nil), 3134 nil),
3117 no_term); 3135 no_term);
3118 3136
3119 -new_op_scheme(17940508,1, 3137 +new_op_scheme(17947676,1,
3120 type_Int32, 3138 type_Int32,
3121 cons(new_string("var_id"), 3139 cons(new_string("var_id"),
3122 nil), 3140 nil),
@@ -3126,7 +3144,7 @@ new_string("v")), @@ -3126,7 +3144,7 @@ new_string("v")),
3126 nil), 3144 nil),
3127 no_term); 3145 no_term);
3128 3146
3129 -new_op_scheme(17948174,0, 3147 +new_op_scheme(17955342,0,
3130 cons(type_MVar, 3148 cons(type_MVar,
3131 new_utvar("T")), 3149 new_utvar("T")),
3132 cons(new_string("£mvar"), 3150 cons(new_string("£mvar"),
@@ -3140,7 +3158,7 @@ new_string("bw")), @@ -3140,7 +3158,7 @@ new_string("bw")),
3140 nil))), 3158 nil))),
3141 no_term); 3159 no_term);
3142 3160
3143 -new_op_scheme(17951260,1, 3161 +new_op_scheme(17958428,1,
3144 cons(type_MVar, 3162 cons(type_MVar,
3145 new_utvar("T")), 3163 new_utvar("T")),
3146 cons(new_string("mvar"), 3164 cons(new_string("mvar"),
@@ -3152,7 +3170,7 @@ new_string("init")), @@ -3152,7 +3170,7 @@ new_string("init")),
3152 nil)), 3170 nil)),
3153 no_term); 3171 no_term);
3154 3172
3155 -new_op_scheme(17972764,1, 3173 +new_op_scheme(17979932,1,
3156 type_Int32, 3174 type_Int32,
3157 cons(new_string("length"), 3175 cons(new_string("length"),
3158 nil), 3176 nil),
@@ -3162,7 +3180,7 @@ new_string("mv")), @@ -3162,7 +3180,7 @@ new_string("mv")),
3162 nil), 3180 nil),
3163 no_term); 3181 no_term);
3164 3182
3165 -new_op_scheme(17976348,1, 3183 +new_op_scheme(17983516,1,
3166 cons(type_MVar, 3184 cons(type_MVar,
3167 new_utvar("T")), 3185 new_utvar("T")),
3168 cons(new_string("+"), 3186 cons(new_string("+"),
@@ -3176,7 +3194,7 @@ new_string("mv2")), @@ -3176,7 +3194,7 @@ new_string("mv2")),
3176 nil)), 3194 nil)),
3177 no_term); 3195 no_term);
3178 3196
3179 -new_op_scheme(17980444,1, 3197 +new_op_scheme(17987612,1,
3180 type_Int32, 3198 type_Int32,
3181 cons(new_string("mvar_id"), 3199 cons(new_string("mvar_id"),
3182 nil), 3200 nil),
@@ -3205,7 +3223,7 @@ new_string("£index")), @@ -3205,7 +3223,7 @@ new_string("£index")),
3205 nil)))), 3223 nil)))),
3206 nil),0,1); 3224 nil),0,1);
3207 3225
3208 -new_op_scheme(17993756,1, 3226 +new_op_scheme(18000924,1,
3209 cons(app_ts, 3227 cons(app_ts,
3210 cons(new_string("MonitoringTicket"), 3228 cons(new_string("MonitoringTicket"),
3211 cons(new_utvar("T"), 3229 cons(new_utvar("T"),
@@ -3223,7 +3241,7 @@ new_string("monitor")), @@ -3223,7 +3241,7 @@ new_string("monitor")),
3223 nil)), 3241 nil)),
3224 no_term); 3242 no_term);
3225 3243
3226 -new_op_scheme(18035228,1, 3244 +new_op_scheme(18042396,1,
3227 type_Int32, 3245 type_Int32,
3228 cons(new_string("now"), 3246 cons(new_string("now"),
3229 nil), 3247 nil),
@@ -3242,7 +3260,7 @@ new_string("microseconds")), @@ -3242,7 +3260,7 @@ new_string("microseconds")),
3242 nil))), 3260 nil))),
3243 nil),0,1); 3261 nil),0,1);
3244 3262
3245 -new_op_scheme(18039836,1, 3263 +new_op_scheme(18047004,1,
3246 new_string("UTime"), 3264 new_string("UTime"),
3247 cons(new_string("now"), 3265 cons(new_string("now"),
3248 nil), 3266 nil),
@@ -3275,7 +3293,7 @@ new_string("daylight_saving_time")), @@ -3275,7 +3293,7 @@ new_string("daylight_saving_time")),
3275 nil)))))))))), 3293 nil)))))))))),
3276 nil),0,1); 3294 nil),0,1);
3277 3295
3278 -new_op_scheme(18052124,1, 3296 +new_op_scheme(18059292,1,
3279 new_string("Date_and_Time"), 3297 new_string("Date_and_Time"),
3280 cons(new_string("convert_time"), 3298 cons(new_string("convert_time"),
3281 nil), 3299 nil),
@@ -3284,7 +3302,7 @@ new_string("t")), @@ -3284,7 +3302,7 @@ new_string("t")),
3284 nil), 3302 nil),
3285 no_term); 3303 no_term);
3286 3304
3287 -new_op_scheme(18052636,1, 3305 +new_op_scheme(18059804,1,
3288 type_Int32, 3306 type_Int32,
3289 cons(new_string("convert_time"), 3307 cons(new_string("convert_time"),
3290 nil), 3308 nil),
@@ -3293,7 +3311,7 @@ new_string("d")), @@ -3293,7 +3311,7 @@ new_string("d")),
3293 nil), 3311 nil),
3294 no_term); 3312 no_term);
3295 3313
3296 -new_op_scheme(18055708,1, 3314 +new_op_scheme(18062876,1,
3297 new_string("One"), 3315 new_string("One"),
3298 cons(new_string("set_time"), 3316 cons(new_string("set_time"),
3299 nil), 3317 nil),
@@ -3302,7 +3320,7 @@ new_string("time")), @@ -3302,7 +3320,7 @@ new_string("time")),
3302 nil), 3320 nil),
3303 no_term); 3321 no_term);
3304 3322
3305 -new_op_scheme(18059804,1, 3323 +new_op_scheme(18066972,1,
3306 new_string("One"), 3324 new_string("One"),
3307 cons(new_string("set_time_zone"), 3325 cons(new_string("set_time_zone"),
3308 nil), 3326 nil),
@@ -3311,7 +3329,7 @@ new_string("time_zone_name")), @@ -3311,7 +3329,7 @@ new_string("time_zone_name")),
3311 nil), 3329 nil),
3312 no_term); 3330 no_term);
3313 3331
3314 -new_op_scheme(18065948,1, 3332 +new_op_scheme(18073116,1,
3315 new_string("One"), 3333 new_string("One"),
3316 cons(new_string("print"), 3334 cons(new_string("print"),
3317 nil), 3335 nil),
@@ -3320,7 +3338,7 @@ new_string("s")), @@ -3320,7 +3338,7 @@ new_string("s")),
3320 nil), 3338 nil),
3321 no_term); 3339 no_term);
3322 3340
3323 -new_op_scheme(18069518,0, 3341 +new_op_scheme(18076686,0,
3324 new_string("One"), 3342 new_string("One"),
3325 cons(new_string("print"), 3343 cons(new_string("print"),
3326 nil), 3344 nil),
@@ -3334,7 +3352,7 @@ new_string("from")), @@ -3334,7 +3352,7 @@ new_string("from")),
3334 nil))), 3352 nil))),
3335 no_term); 3353 no_term);
3336 3354
3337 -new_op_scheme(18078748,1, 3355 +new_op_scheme(18085916,1,
3338 new_string("One"), 3356 new_string("One"),
3339 cons(new_string("print"), 3357 cons(new_string("print"),
3340 nil), 3358 nil),
@@ -3346,7 +3364,7 @@ new_string("s")), @@ -3346,7 +3364,7 @@ new_string("s")),
3346 nil)), 3364 nil)),
3347 no_term); 3365 no_term);
3348 3366
3349 -new_op_scheme(18082844,1, 3367 +new_op_scheme(18090012,1,
3350 new_string("One"), 3368 new_string("One"),
3351 cons(new_string("print"), 3369 cons(new_string("print"),
3352 nil), 3370 nil),
@@ -3355,7 +3373,7 @@ new_string("n")), @@ -3355,7 +3373,7 @@ new_string("n")),
3355 nil), 3373 nil),
3356 no_term); 3374 no_term);
3357 3375
3358 -new_op_scheme(18086428,1, 3376 +new_op_scheme(18093596,1,
3359 new_string("Bool"), 3377 new_string("Bool"),
3360 cons(new_string("&"), 3378 cons(new_string("&"),
3361 nil), 3379 nil),
@@ -3366,7 +3384,7 @@ new_string("y")), @@ -3366,7 +3384,7 @@ new_string("y")),
3366 nil)), 3384 nil)),
3367 no_term); 3385 no_term);
3368 3386
3369 -new_op_scheme(18088476,1, 3387 +new_op_scheme(18095644,1,
3370 cons(app_ts, 3388 cons(app_ts,
3371 cons(new_string("List"), 3389 cons(new_string("List"),
3372 cons(new_utvar("T"), 3390 cons(new_utvar("T"),
@@ -3386,7 +3404,7 @@ new_string("l2")), @@ -3386,7 +3404,7 @@ new_string("l2")),
3386 nil)), 3404 nil)),
3387 no_term); 3405 no_term);
3388 3406
3389 -new_op_scheme(18095132,1, 3407 +new_op_scheme(18102300,1,
3390 cons(app_ts, 3408 cons(app_ts,
3391 cons(new_string("List"), 3409 cons(new_string("List"),
3392 cons(new_utvar("T"), 3410 cons(new_utvar("T"),
@@ -3401,7 +3419,7 @@ new_string("l")), @@ -3401,7 +3419,7 @@ new_string("l")),
3401 nil), 3419 nil),
3402 no_term); 3420 no_term);
3403 3421
3404 -new_op_scheme(18098716,1, 3422 +new_op_scheme(18105884,1,
3405 cons(app_ts, 3423 cons(app_ts,
3406 cons(new_string("List"), 3424 cons(new_string("List"),
3407 cons(new_utvar("T"), 3425 cons(new_utvar("T"),
@@ -3421,7 +3439,7 @@ new_string("l2")), @@ -3421,7 +3439,7 @@ new_string("l2")),
3421 nil)), 3439 nil)),
3422 no_term); 3440 no_term);
3423 3441
3424 -new_op_scheme(18104860,1, 3442 +new_op_scheme(18112028,1,
3425 new_string("Bool"), 3443 new_string("Bool"),
3426 cons(new_string("member"), 3444 cons(new_string("member"),
3427 nil), 3445 nil),
@@ -3435,7 +3453,7 @@ new_string("x")), @@ -3435,7 +3453,7 @@ new_string("x")),
3435 nil)), 3453 nil)),
3436 no_term); 3454 no_term);
3437 3455
3438 -new_op_scheme(18118684,1, 3456 +new_op_scheme(18125852,1,
3439 cons(app_ts, 3457 cons(app_ts,
3440 cons(new_string("List"), 3458 cons(new_string("List"),
3441 cons(new_utvar("B"), 3459 cons(new_utvar("B"),
@@ -3455,7 +3473,7 @@ new_string("l")), @@ -3455,7 +3473,7 @@ new_string("l")),
3455 nil)), 3473 nil)),
3456 no_term); 3474 no_term);
3457 3475
3458 -new_op_scheme(18130972,1, 3476 +new_op_scheme(18138140,1,
3459 type_String, 3477 type_String,
3460 cons(new_string("get_password"), 3478 cons(new_string("get_password"),
3461 nil), 3479 nil),
@@ -3509,7 +3527,7 @@ new_string("module")), @@ -3509,7 +3527,7 @@ new_string("module")),
3509 nil)), 3527 nil)),
3510 nil))))),0,1); 3528 nil))))),0,1);
3511 3529
3512 -new_op_scheme(18150428,1, 3530 +new_op_scheme(18157596,1,
3513 cons(app_ts, 3531 cons(app_ts,
3514 cons(new_string("LoadModuleResult"), 3532 cons(new_string("LoadModuleResult"),
3515 cons(new_utvar("T"), 3533 cons(new_utvar("T"),
@@ -3521,7 +3539,7 @@ new_string("module_name")), @@ -3521,7 +3539,7 @@ new_string("module_name")),
3521 nil), 3539 nil),
3522 no_term); 3540 no_term);
3523 3541
3524 -new_op_scheme(18179100,1, 3542 +new_op_scheme(18186268,1,
3525 type_ByteArray, 3543 type_ByteArray,
3526 cons(new_string("serialize"), 3544 cons(new_string("serialize"),
3527 nil), 3545 nil),
@@ -3530,7 +3548,7 @@ new_string("d")), @@ -3530,7 +3548,7 @@ new_string("d")),
3530 nil), 3548 nil),
3531 no_term); 3549 no_term);
3532 3550
3533 -new_op_scheme(18181660,1, 3551 +new_op_scheme(18188828,1,
3534 cons(app_ts, 3552 cons(app_ts,
3535 cons(new_string("Maybe"), 3553 cons(new_string("Maybe"),
3536 cons(new_utvar("T"), 3554 cons(new_utvar("T"),
@@ -3576,7 +3594,7 @@ noname), @@ -3576,7 +3594,7 @@ noname),
3576 nil)), 3594 nil)),
3577 nil)))),0,1); 3595 nil)))),0,1);
3578 3596
3579 -new_op_scheme(18214940,1, 3597 +new_op_scheme(18222108,1,
3580 new_string("SaveResult"), 3598 new_string("SaveResult"),
3581 cons(new_string("save"), 3599 cons(new_string("save"),
3582 nil), 3600 nil),
@@ -3587,7 +3605,7 @@ new_string("file_name")), @@ -3587,7 +3605,7 @@ new_string("file_name")),
3587 nil)), 3605 nil)),
3588 no_term); 3606 no_term);
3589 3607
3590 -new_op_scheme(18221596,1, 3608 +new_op_scheme(18228764,1,
3591 cons(app_ts, 3609 cons(app_ts,
3592 cons(new_string("RetrieveResult"), 3610 cons(new_string("RetrieveResult"),
3593 cons(new_utvar("T"), 3611 cons(new_utvar("T"),
@@ -3599,7 +3617,7 @@ new_string("file_name")), @@ -3599,7 +3617,7 @@ new_string("file_name")),
3599 nil), 3617 nil),
3600 no_term); 3618 no_term);
3601 3619
3602 -new_op_scheme(18256398,0, 3620 +new_op_scheme(18263566,0,
3603 type_ByteArray, 3621 type_ByteArray,
3604 cons(new_string("£md5"), 3622 cons(new_string("£md5"),
3605 nil), 3623 nil),
@@ -3608,7 +3626,7 @@ new_string("s")), @@ -3608,7 +3626,7 @@ new_string("s")),
3608 nil), 3626 nil),
3609 no_term); 3627 no_term);
3610 3628
3611 -new_op_scheme(18256910,0, 3629 +new_op_scheme(18264078,0,
3612 type_ByteArray, 3630 type_ByteArray,
3613 cons(new_string("£sha1"), 3631 cons(new_string("£sha1"),
3614 nil), 3632 nil),
@@ -3617,7 +3635,7 @@ new_string("s")), @@ -3617,7 +3635,7 @@ new_string("s")),
3617 nil), 3635 nil),
3618 no_term); 3636 no_term);
3619 3637
3620 -new_op_scheme(18258972,1, 3638 +new_op_scheme(18266140,1,
3621 type_ByteArray, 3639 type_ByteArray,
3622 cons(new_string("md5"), 3640 cons(new_string("md5"),
3623 nil), 3641 nil),
@@ -3626,7 +3644,7 @@ new_string("d")), @@ -3626,7 +3644,7 @@ new_string("d")),
3626 nil), 3644 nil),
3627 no_term); 3645 no_term);
3628 3646
3629 -new_op_scheme(18259484,1, 3647 +new_op_scheme(18266652,1,
3630 type_ByteArray, 3648 type_ByteArray,
3631 cons(new_string("sha1"), 3649 cons(new_string("sha1"),
3632 nil), 3650 nil),
@@ -3645,7 +3663,7 @@ noname), @@ -3645,7 +3663,7 @@ noname),
3645 nil)), 3663 nil)),
3646 nil),0,1); 3664 nil),0,1);
3647 3665
3648 -new_op_scheme(18273806,0, 3666 +new_op_scheme(18280974,0,
3649 new_string("£BlowfishKey"), 3667 new_string("£BlowfishKey"),
3650 cons(new_string("£create_blowfish_key"), 3668 cons(new_string("£create_blowfish_key"),
3651 nil), 3669 nil),
@@ -3654,7 +3672,7 @@ new_string("key")), @@ -3654,7 +3672,7 @@ new_string("key")),
3654 nil), 3672 nil),
3655 no_term); 3673 no_term);
3656 3674
3657 -new_op_scheme(18278414,0, 3675 +new_op_scheme(18285582,0,
3658 new_string("One"), 3676 new_string("One"),
3659 cons(new_string("£blowfish_encrypt_block"), 3677 cons(new_string("£blowfish_encrypt_block"),
3660 nil), 3678 nil),
@@ -3669,7 +3687,7 @@ new_string("offset")), @@ -3669,7 +3687,7 @@ new_string("offset")),
3669 nil)))), 3687 nil)))),
3670 no_term); 3688 no_term);
3671 3689
3672 -new_op_scheme(18283534,0, 3690 +new_op_scheme(18290702,0,
3673 new_string("One"), 3691 new_string("One"),
3674 cons(new_string("£blowfish_decrypt_block"), 3692 cons(new_string("£blowfish_decrypt_block"),
3675 nil), 3693 nil),
@@ -3684,7 +3702,7 @@ new_string("offset")), @@ -3684,7 +3702,7 @@ new_string("offset")),
3684 nil)))), 3702 nil)))),
3685 no_term); 3703 no_term);
3686 3704
3687 -new_op_scheme(18288654,0, 3705 +new_op_scheme(18295822,0,
3688 type_ByteArray, 3706 type_ByteArray,
3689 cons(new_string("£make_blowfish_dest_for_encryption"), 3707 cons(new_string("£make_blowfish_dest_for_encryption"),
3690 nil), 3708 nil),
@@ -3693,7 +3711,7 @@ new_string("size")), @@ -3693,7 +3711,7 @@ new_string("size")),
3693 nil), 3711 nil),
3694 no_term); 3712 no_term);
3695 3713
3696 -new_op_scheme(18296334,0, 3714 +new_op_scheme(18303502,0,
3697 new_string("Int8"), 3715 new_string("Int8"),
3698 cons(new_string("£bytes_in_last_block"), 3716 cons(new_string("£bytes_in_last_block"),
3699 nil), 3717 nil),
@@ -3702,7 +3720,7 @@ new_string("s")), @@ -3702,7 +3720,7 @@ new_string("s")),
3702 nil), 3720 nil),
3703 no_term); 3721 no_term);
3704 3722
3705 -new_op_scheme(18300942,0, 3723 +new_op_scheme(18308110,0,
3706 type_ByteArray, 3724 type_ByteArray,
3707 cons(new_string("£blowfish_encrypt"), 3725 cons(new_string("£blowfish_encrypt"),
3708 nil), 3726 nil),
@@ -3717,7 +3735,7 @@ new_string("i")), @@ -3717,7 +3735,7 @@ new_string("i")),
3717 nil)))), 3735 nil)))),
3718 no_term); 3736 no_term);
3719 3737
3720 -new_op_scheme(18308622,0, 3738 +new_op_scheme(18315790,0,
3721 type_ByteArray, 3739 type_ByteArray,
3722 cons(new_string("£blowfish_decrypt"), 3740 cons(new_string("£blowfish_decrypt"),
3723 nil), 3741 nil),
@@ -3732,7 +3750,7 @@ new_string("i")), @@ -3732,7 +3750,7 @@ new_string("i")),
3732 nil)))), 3750 nil)))),
3733 no_term); 3751 no_term);
3734 3752
3735 -new_op_scheme(18317852,1, 3753 +new_op_scheme(18325020,1,
3736 type_ByteArray, 3754 type_ByteArray,
3737 cons(new_string("blowfish_encrypt"), 3755 cons(new_string("blowfish_encrypt"),
3738 nil), 3756 nil),
@@ -3743,7 +3761,7 @@ new_string("datum")), @@ -3743,7 +3761,7 @@ new_string("datum")),
3743 nil)), 3761 nil)),
3744 no_term); 3762 no_term);
3745 3763
3746 -new_op_scheme(18322972,1, 3764 +new_op_scheme(18330140,1,
3747 cons(app_ts, 3765 cons(app_ts,
3748 cons(new_string("Maybe"), 3766 cons(new_string("Maybe"),
3749 cons(new_utvar("T"), 3767 cons(new_utvar("T"),
@@ -3803,7 +3821,7 @@ noname), @@ -3803,7 +3821,7 @@ noname),
3803 nil)), 3821 nil)),
3804 nil),0,1); 3822 nil),0,1);
3805 3823
3806 -new_op_scheme(18371086,0, 3824 +new_op_scheme(18378254,0,
3807 type_String, 3825 type_String,
3808 cons(new_string("£to_string"), 3826 cons(new_string("£to_string"),
3809 nil), 3827 nil),
@@ -3813,7 +3831,7 @@ new_string("ptr")), @@ -3813,7 +3831,7 @@ new_string("ptr")),
3813 nil), 3831 nil),
3814 no_term); 3832 no_term);
3815 3833
3816 -new_op_scheme(18374172,1, 3834 +new_op_scheme(18381340,1,
3817 type_String, 3835 type_String,
3818 cons(new_string("to_string"), 3836 cons(new_string("to_string"),
3819 nil), 3837 nil),
@@ -3842,7 +3860,7 @@ nil), @@ -3842,7 +3860,7 @@ nil),
3842 nil), 3860 nil),
3843 nil))))),0,1); 3861 nil))))),0,1);
3844 3862
3845 -new_op_scheme(18384910,0, 3863 +new_op_scheme(18392078,0,
3846 new_string("Result_trust_X509_for_ever"), 3864 new_string("Result_trust_X509_for_ever"),
3847 cons(new_string("£trust_for_ever"), 3865 cons(new_string("£trust_for_ever"),
3848 nil), 3866 nil),
@@ -3852,7 +3870,7 @@ new_string("ptr")), @@ -3852,7 +3870,7 @@ new_string("ptr")),
3852 nil), 3870 nil),
3853 no_term); 3871 no_term);
3854 3872
3855 -new_op_scheme(18387996,1, 3873 +new_op_scheme(18395164,1,
3856 new_string("Result_trust_X509_for_ever"), 3874 new_string("Result_trust_X509_for_ever"),
3857 cons(new_string("trust_for_ever"), 3875 cons(new_string("trust_for_ever"),
3858 nil), 3876 nil),
@@ -3878,7 +3896,7 @@ noname), @@ -3878,7 +3896,7 @@ noname),
3878 nil)), 3896 nil)),
3879 nil))),0,1); 3897 nil))),0,1);
3880 3898
3881 -new_op_scheme(18401806,0, 3899 +new_op_scheme(18408974,0,
3882 new_string("£SSL_client_wrap_Result"), 3900 new_string("£SSL_client_wrap_Result"),
3883 cons(new_string("£ssl_client_wrap"), 3901 cons(new_string("£ssl_client_wrap"),
3884 nil), 3902 nil),
@@ -3888,7 +3906,7 @@ new_string("tcp_conn")), @@ -3888,7 +3906,7 @@ new_string("tcp_conn")),
3888 nil), 3906 nil),
3889 no_term); 3907 no_term);
3890 3908
3891 -new_op_scheme(18405902,0, 3909 +new_op_scheme(18413070,0,
3892 new_string("Bool"), 3910 new_string("Bool"),
3893 cons(new_string("£check_certificate_chain"), 3911 cons(new_string("£check_certificate_chain"),
3894 nil), 3912 nil),
@@ -3900,7 +3918,7 @@ new_string("server_name")), @@ -3900,7 +3918,7 @@ new_string("server_name")),
3900 nil)), 3918 nil)),
3901 no_term); 3919 no_term);
3902 3920
3903 -new_op_scheme(18409486,0, 3921 +new_op_scheme(18416654,0,
3904 cons(app_ts, 3922 cons(app_ts,
3905 cons(new_string("Maybe"), 3923 cons(new_string("Maybe"),
3906 cons(new_string("X509"), 3924 cons(new_string("X509"),
@@ -3913,7 +3931,7 @@ new_string("ssl_obj")), @@ -3913,7 +3931,7 @@ new_string("ssl_obj")),
3913 nil), 3931 nil),
3914 no_term); 3932 no_term);
3915 3933
3916 -new_op_scheme(18413596,1, 3934 +new_op_scheme(18420764,1,
3917 cons(app_ts, 3935 cons(app_ts,
3918 cons(new_string("Result"), 3936 cons(new_string("Result"),
3919 cons(new_string("SSLConnectError"), 3937 cons(new_string("SSLConnectError"),
@@ -3938,7 +3956,7 @@ new_string("accept_policy")), @@ -3938,7 +3956,7 @@ new_string("accept_policy")),
3938 nil)))), 3956 nil)))),
3939 no_term); 3957 no_term);
3940 3958
3941 -new_op_scheme(18434076,1, 3959 +new_op_scheme(18441244,1,
3942 cons(app_ts, 3960 cons(app_ts,
3943 cons(new_string("Maybe"), 3961 cons(new_string("Maybe"),
3944 cons(type_ByteArray, 3962 cons(type_ByteArray,
@@ -3954,7 +3972,7 @@ new_string("timeout")), @@ -3954,7 +3972,7 @@ new_string("timeout")),
3954 nil))), 3972 nil))),
3955 no_term); 3973 no_term);
3956 3974
3957 -new_op_scheme(18438172,1, 3975 +new_op_scheme(18445340,1,
3958 cons(app_ts, 3976 cons(app_ts,
3959 cons(new_string("Maybe"), 3977 cons(new_string("Maybe"),
3960 cons(type_String, 3978 cons(type_String,
@@ -3970,7 +3988,7 @@ new_string("timeout")), @@ -3970,7 +3988,7 @@ new_string("timeout")),
3970 nil))), 3988 nil))),
3971 no_term); 3989 no_term);
3972 3990
3973 -new_op_scheme(18444316,1, 3991 +new_op_scheme(18451484,1,
3974 cons(app_ts, 3992 cons(app_ts,
3975 cons(new_string("Maybe"), 3993 cons(new_string("Maybe"),
3976 cons(type_Int32, 3994 cons(type_Int32,
@@ -3984,7 +4002,7 @@ new_string("data")), @@ -3984,7 +4002,7 @@ new_string("data")),
3984 nil)), 4002 nil)),
3985 no_term); 4003 no_term);
3986 4004
3987 -new_op_scheme(18447900,1, 4005 +new_op_scheme(18455068,1,
3988 cons(app_ts, 4006 cons(app_ts,
3989 cons(new_string("Maybe"), 4007 cons(new_string("Maybe"),
3990 cons(type_Int32, 4008 cons(type_Int32,
@@ -3998,7 +4016,7 @@ new_string("data")), @@ -3998,7 +4016,7 @@ new_string("data")),
3998 nil)), 4016 nil)),
3999 no_term); 4017 no_term);
4000 4018
4001 -new_op_scheme(18462734,0, 4019 +new_op_scheme(18469902,0,
4002 cons(app_ts, 4020 cons(app_ts,
4003 cons(new_string("Maybe"), 4021 cons(new_string("Maybe"),
4004 cons(cons(type_struct_ptr, 4022 cons(cons(type_struct_ptr,
@@ -4012,7 +4030,7 @@ new_string("tcp_conn")), @@ -4012,7 +4030,7 @@ new_string("tcp_conn")),
4012 nil), 4030 nil),
4013 no_term); 4031 no_term);
4014 4032
4015 -new_op_scheme(18466318,0, 4033 +new_op_scheme(18473486,0,
4016 new_string("One"), 4034 new_string("One"),
4017 cons(new_string("£handle_ssl_request"), 4035 cons(new_string("£handle_ssl_request"),
4018 nil), 4036 nil),
@@ -4029,7 +4047,7 @@ new_string("handler")), @@ -4029,7 +4047,7 @@ new_string("handler")),
4029 nil))), 4047 nil))),
4030 no_term); 4048 no_term);
4031 4049
4032 -new_op_scheme(18473486,0, 4050 +new_op_scheme(18480654,0,
4033 new_string("One"), 4051 new_string("One"),
4034 cons(new_string("£run_ssl_server"), 4052 cons(new_string("£run_ssl_server"),
4035 nil), 4053 nil),
@@ -4050,7 +4068,7 @@ new_string("notify")), @@ -4050,7 +4068,7 @@ new_string("notify")),
4050 nil)))), 4068 nil)))),
4051 no_term); 4069 no_term);
4052 4070
4053 -new_op_scheme(18485788,1, 4071 +new_op_scheme(18492956,1,
4054 new_string("StartServerResult"), 4072 new_string("StartServerResult"),
4055 cons(new_string("start_ssl_server"), 4073 cons(new_string("start_ssl_server"),
4056 nil), 4074 nil),
@@ -4076,7 +4094,7 @@ new_string("notify")), @@ -4076,7 +4094,7 @@ new_string("notify")),
4076 nil))))), 4094 nil))))),
4077 no_term); 4095 no_term);
4078 4096
4079 -new_op_scheme(18500124,1, 4097 +new_op_scheme(18507292,1,
4080 cons(app_ts, 4098 cons(app_ts,
4081 cons(new_string("£Tuple2"), 4099 cons(new_string("£Tuple2"),
4082 cons(type_Int32, 4100 cons(type_Int32,
@@ -4089,7 +4107,7 @@ new_string("connection")), @@ -4089,7 +4107,7 @@ new_string("connection")),
4089 nil), 4107 nil),
4090 no_term); 4108 no_term);
4091 4109
4092 -new_op_scheme(18501148,1, 4110 +new_op_scheme(18508316,1,
4093 cons(app_ts, 4111 cons(app_ts,
4094 cons(new_string("£Tuple2"), 4112 cons(new_string("£Tuple2"),
4095 cons(type_Int32, 4113 cons(type_Int32,
@@ -4102,7 +4120,7 @@ new_string("connection")), @@ -4102,7 +4120,7 @@ new_string("connection")),
4102 nil), 4120 nil),
4103 no_term); 4121 no_term);
4104 4122
4105 -new_op_scheme(18509838,0, 4123 +new_op_scheme(18517006,0,
4106 type_Int32, 4124 type_Int32,
4107 cons(new_string("£simple_hash"), 4125 cons(new_string("£simple_hash"),
4108 nil), 4126 nil),
@@ -4113,7 +4131,7 @@ new_string("b")), @@ -4113,7 +4131,7 @@ new_string("b")),
4113 nil)), 4131 nil)),
4114 no_term); 4132 no_term);
4115 4133
4116 -new_op_scheme(18511900,1, 4134 +new_op_scheme(18519068,1,
4117 type_Int32, 4135 type_Int32,
4118 cons(new_string("simple_hash"), 4136 cons(new_string("simple_hash"),
4119 nil), 4137 nil),
@@ -4152,7 +4170,7 @@ noname), @@ -4152,7 +4170,7 @@ noname),
4152 nil)))), 4170 nil)))),
4153 nil),0,1); 4171 nil),0,1);
4154 4172
4155 -new_op_scheme(18544156,1, 4173 +new_op_scheme(18551324,1,
4156 new_string("RGBAImage"), 4174 new_string("RGBAImage"),
4157 cons(new_string("create_rgba_image"), 4175 cons(new_string("create_rgba_image"),
4158 nil), 4176 nil),
@@ -4165,7 +4183,7 @@ new_string("background")), @@ -4165,7 +4183,7 @@ new_string("background")),
4165 nil))), 4183 nil))),
4166 no_term); 4184 no_term);
4167 4185
4168 -new_op_scheme(18546204,1, 4186 +new_op_scheme(18553372,1,
4169 new_string("BitMapImage"), 4187 new_string("BitMapImage"),
4170 cons(new_string("create_bitmap_image"), 4188 cons(new_string("create_bitmap_image"),
4171 nil), 4189 nil),
@@ -4178,7 +4196,7 @@ new_string("background")), @@ -4178,7 +4196,7 @@ new_string("background")),
4178 nil))), 4196 nil))),
4179 no_term); 4197 no_term);
4180 4198
4181 -new_op_scheme(18555932,1, 4199 +new_op_scheme(18563100,1,
4182 new_string("One"), 4200 new_string("One"),
4183 cons(new_string("draw_pixel"), 4201 cons(new_string("draw_pixel"),
4184 nil), 4202 nil),
@@ -4207,7 +4225,7 @@ nil), @@ -4207,7 +4225,7 @@ nil),
4207 nil), 4225 nil),
4208 nil))),0,1); 4226 nil))),0,1);
4209 4227
4210 -new_op_scheme(18579484,1, 4228 +new_op_scheme(18586652,1,
4211 new_string("One"), 4229 new_string("One"),
4212 cons(new_string("draw_pixel"), 4230 cons(new_string("draw_pixel"),
4213 nil), 4231 nil),
@@ -4222,7 +4240,7 @@ new_string("how")), @@ -4222,7 +4240,7 @@ new_string("how")),
4222 nil)))), 4240 nil)))),
4223 no_term); 4241 no_term);
4224 4242
4225 -new_op_scheme(18592796,1, 4243 +new_op_scheme(18599964,1,
4226 new_string("RGBA"), 4244 new_string("RGBA"),
4227 cons(new_string("get_pixel"), 4245 cons(new_string("get_pixel"),
4228 nil), 4246 nil),
@@ -4235,7 +4253,7 @@ new_string("y")), @@ -4235,7 +4253,7 @@ new_string("y")),
4235 nil))), 4253 nil))),
4236 no_term); 4254 no_term);
4237 4255
4238 -new_op_scheme(18598428,1, 4256 +new_op_scheme(18605596,1,
4239 new_string("Bit"), 4257 new_string("Bit"),
4240 cons(new_string("get_pixel"), 4258 cons(new_string("get_pixel"),
4241 nil), 4259 nil),
@@ -4264,7 +4282,7 @@ new_string("v")), @@ -4264,7 +4282,7 @@ new_string("v")),
4264 nil))))), 4282 nil))))),
4265 nil),0,1); 4283 nil),0,1);
4266 4284
4267 -new_op_scheme(18626076,1, 4285 +new_op_scheme(18633244,1,
4268 new_string("One"), 4286 new_string("One"),
4269 cons(new_string("draw_rectangle"), 4287 cons(new_string("draw_rectangle"),
4270 nil), 4288 nil),
@@ -4277,7 +4295,7 @@ new_string("color_of_rectangle")), @@ -4277,7 +4295,7 @@ new_string("color_of_rectangle")),
4277 nil))), 4295 nil))),
4278 no_term); 4296 no_term);
4279 4297
4280 -new_op_scheme(18632220,1, 4298 +new_op_scheme(18639388,1,
4281 new_string("One"), 4299 new_string("One"),
4282 cons(new_string("draw_rectangle"), 4300 cons(new_string("draw_rectangle"),
4283 nil), 4301 nil),
@@ -4319,7 +4337,7 @@ nil), @@ -4319,7 +4337,7 @@ nil),
4319 nil), 4337 nil),
4320 nil)))))))),0,1); 4338 nil)))))))),0,1);
4321 4339
4322 -new_op_scheme(18689564,1, 4340 +new_op_scheme(18696732,1,
4323 new_string("One"), 4341 new_string("One"),
4324 cons(new_string("crop_and_encrust"), 4342 cons(new_string("crop_and_encrust"),
4325 nil), 4343 nil),
@@ -4338,7 +4356,7 @@ new_string("t")), @@ -4338,7 +4356,7 @@ new_string("t")),
4338 nil)))))), 4356 nil)))))),
4339 no_term); 4357 no_term);
4340 4358
4341 -new_op_scheme(18695708,1, 4359 +new_op_scheme(18702876,1,
4342 new_string("One"), 4360 new_string("One"),
4343 cons(new_string("crop_and_encrust"), 4361 cons(new_string("crop_and_encrust"),
4344 nil), 4362 nil),
@@ -4359,7 +4377,7 @@ new_string("t")), @@ -4359,7 +4377,7 @@ new_string("t")),
4359 nil))))))), 4377 nil))))))),
4360 no_term); 4378 no_term);
4361 4379
4362 -new_op_scheme(18704412,1, 4380 +new_op_scheme(18711580,1,
4363 new_string("One"), 4381 new_string("One"),
4364 cons(new_string("crop_and_encrust"), 4382 cons(new_string("crop_and_encrust"),
4365 nil), 4383 nil),
@@ -4391,7 +4409,7 @@ noname), @@ -4391,7 +4409,7 @@ noname),
4391 nil)), 4409 nil)),
4392 nil),0,1); 4410 nil),0,1);
4393 4411
4394 -new_op_scheme(18753052,1, 4412 +new_op_scheme(18760220,1,
4395 cons(app_ts, 4413 cons(app_ts,
4396 cons(new_string("Maybe"), 4414 cons(new_string("Maybe"),
4397 cons(new_string("SystemFont"), 4415 cons(new_string("SystemFont"),
@@ -4403,7 +4421,7 @@ new_string("font_name")), @@ -4403,7 +4421,7 @@ new_string("font_name")),
4403 nil), 4421 nil),
4404 no_term); 4422 no_term);
4405 4423
4406 -new_op_scheme(18773020,1, 4424 +new_op_scheme(18780188,1,
4407 type_Int32, 4425 type_Int32,
4408 cons(new_string("draw_system_character"), 4426 cons(new_string("draw_system_character"),
4409 nil), 4427 nil),
@@ -4424,7 +4442,7 @@ new_string("character_color")), @@ -4424,7 +4442,7 @@ new_string("character_color")),
4424 nil))))))), 4442 nil))))))),
4425 no_term); 4443 no_term);
4426 4444
4427 -new_op_scheme(18779164,1, 4445 +new_op_scheme(18786332,1,
4428 type_Int32, 4446 type_Int32,
4429 cons(new_string("draw_system_character"), 4447 cons(new_string("draw_system_character"),
4430 nil), 4448 nil),
@@ -4461,7 +4479,7 @@ new_string("depth")), @@ -4461,7 +4479,7 @@ new_string("depth")),
4461 nil))))), 4479 nil))))),
4462 nil),0,1); 4480 nil),0,1);
4463 4481
4464 -new_op_scheme(18796060,1, 4482 +new_op_scheme(18803228,1,
4465 new_string("SystemFontInfo"), 4483 new_string("SystemFontInfo"),
4466 cons(new_string("get_font_info"), 4484 cons(new_string("get_font_info"),
4467 nil), 4485 nil),
@@ -4484,7 +4502,7 @@ new_string("width")), @@ -4484,7 +4502,7 @@ new_string("width")),
4484 nil)))), 4502 nil)))),
4485 nil),0,1); 4503 nil),0,1);
4486 4504
4487 -new_op_scheme(18801180,1, 4505 +new_op_scheme(18808348,1,
4488 new_string("SystemCharacterInfo"), 4506 new_string("SystemCharacterInfo"),
4489 cons(new_string("get_char_info"), 4507 cons(new_string("get_char_info"),
4490 nil), 4508 nil),
@@ -4506,7 +4524,7 @@ noname), @@ -4506,7 +4524,7 @@ noname),
4506 nil)), 4524 nil)),
4507 nil),0,1); 4525 nil),0,1);
4508 4526
4509 -new_op_scheme(18812444,1, 4527 +new_op_scheme(18819612,1,
4510 cons(app_ts, 4528 cons(app_ts,
4511 cons(new_string("£Tuple2"), 4529 cons(new_string("£Tuple2"),
4512 cons(type_Int32, 4530 cons(type_Int32,
@@ -4519,7 +4537,7 @@ new_string("im")), @@ -4519,7 +4537,7 @@ new_string("im")),
4519 nil), 4537 nil),
4520 no_term); 4538 no_term);
4521 4539
4522 -new_op_scheme(18817052,1, 4540 +new_op_scheme(18824220,1,
4523 new_string("HostImage"), 4541 new_string("HostImage"),
4524 cons(new_string("to_host_image"), 4542 cons(new_string("to_host_image"),
4525 nil), 4543 nil),
@@ -4530,7 +4548,7 @@ new_string("reduction_factor")), @@ -4530,7 +4548,7 @@ new_string("reduction_factor")),
4530 nil)), 4548 nil)),
4531 no_term); 4549 no_term);
4532 4550
4533 -new_op_scheme(18821148,1, 4551 +new_op_scheme(18828316,1,
4534 new_string("One"), 4552 new_string("One"),
4535 cons(new_string("draw_pixel"), 4553 cons(new_string("draw_pixel"),
4536 nil), 4554 nil),
@@ -4545,7 +4563,7 @@ new_string("color")), @@ -4545,7 +4563,7 @@ new_string("color")),
4545 nil)))), 4563 nil)))),
4546 no_term); 4564 no_term);
4547 4565
4548 -new_op_scheme(18826268,1, 4566 +new_op_scheme(18833436,1,
4549 new_string("One"), 4567 new_string("One"),
4550 cons(new_string("draw_rectangle"), 4568 cons(new_string("draw_rectangle"),
4551 nil), 4569 nil),
@@ -4558,7 +4576,7 @@ new_string("color_of_rectangle")), @@ -4558,7 +4576,7 @@ new_string("color_of_rectangle")),
4558 nil))), 4576 nil))),
4559 no_term); 4577 no_term);
4560 4578
4561 -new_op_scheme(18830876,1, 4579 +new_op_scheme(18838044,1,
4562 type_Int32, 4580 type_Int32,
4563 cons(new_string("draw_system_character"), 4581 cons(new_string("draw_system_character"),
4564 nil), 4582 nil),
@@ -4606,7 +4624,7 @@ new_string("samples")), @@ -4606,7 +4624,7 @@ new_string("samples")),
4606 nil))))), 4624 nil))))),
4607 nil),0,1); 4625 nil),0,1);
4608 4626
4609 -new_op_scheme(18857500,1, 4627 +new_op_scheme(18864668,1,
4610 new_string("HostImage"), 4628 new_string("HostImage"),
4611 cons(new_string("to_host_image"), 4629 cons(new_string("to_host_image"),
4612 nil), 4630 nil),
@@ -4617,7 +4635,7 @@ new_string("reducing_factor")), @@ -4617,7 +4635,7 @@ new_string("reducing_factor")),
4617 nil)), 4635 nil)),
4618 no_term); 4636 no_term);
4619 4637
4620 -new_op_scheme(18869788,1, 4638 +new_op_scheme(18876956,1,
4621 new_string("RGBAImage"), 4639 new_string("RGBAImage"),
4622 cons(new_string("to_RGBA"), 4640 cons(new_string("to_RGBA"),
4623 nil), 4641 nil),
@@ -4628,7 +4646,7 @@ new_string("reducing_factor")), @@ -4628,7 +4646,7 @@ new_string("reducing_factor")),
4628 nil)), 4646 nil)),
4629 no_term); 4647 no_term);
4630 4648
4631 -new_op_scheme(18874396,1, 4649 +new_op_scheme(18881564,1,
4632 new_string("JPEG_BitMapImage"), 4650 new_string("JPEG_BitMapImage"),
4633 cons(new_string("to_JPEG"), 4651 cons(new_string("to_JPEG"),
4634 nil), 4652 nil),
@@ -4649,7 +4667,7 @@ new_string("jpeg_error_mgr")), @@ -4649,7 +4667,7 @@ new_string("jpeg_error_mgr")),
4649 nil))), 4667 nil))),
4650 nil),0,1); 4668 nil),0,1);
4651 4669
4652 -new_op_scheme(18884110,0, 4670 +new_op_scheme(18891278,0,
4653 cons(app_ts, 4671 cons(app_ts,
4654 cons(new_string("Maybe"), 4672 cons(new_string("Maybe"),
4655 cons(new_string("£JPEG_compress_info"), 4673 cons(new_string("£JPEG_compress_info"),
@@ -4670,7 +4688,7 @@ new_string("output_file")), @@ -4670,7 +4688,7 @@ new_string("output_file")),
4670 nil))))), 4688 nil))))),
4671 no_term); 4689 no_term);
4672 4690
4673 -new_op_scheme(18890766,0, 4691 +new_op_scheme(18897934,0,
4674 new_string("One"), 4692 new_string("One"),
4675 cons(new_string("£jpeg_write_scanline"), 4693 cons(new_string("£jpeg_write_scanline"),
4676 nil), 4694 nil),
@@ -4683,7 +4701,7 @@ new_string("start")), @@ -4683,7 +4701,7 @@ new_string("start")),
4683 nil))), 4701 nil))),
4684 no_term); 4702 no_term);
4685 4703
4686 -new_op_scheme(18896398,0, 4704 +new_op_scheme(18903566,0,
4687 new_string("One"), 4705 new_string("One"),
4688 cons(new_string("£jpeg_write_scanlines"), 4706 cons(new_string("£jpeg_write_scanlines"),
4689 nil), 4707 nil),
@@ -4700,7 +4718,7 @@ new_string("i")), @@ -4700,7 +4718,7 @@ new_string("i")),
4700 nil))))), 4718 nil))))),
4701 no_term); 4719 no_term);
4702 4720
4703 -new_op_scheme(18904078,0, 4721 +new_op_scheme(18911246,0,
4704 new_string("One"), 4722 new_string("One"),
4705 cons(new_string("£jpeg_finish_compress"), 4723 cons(new_string("£jpeg_finish_compress"),
4706 nil), 4724 nil),
@@ -4723,7 +4741,7 @@ nil), @@ -4723,7 +4741,7 @@ nil),
4723 nil), 4741 nil),
4724 nil))),0,1); 4742 nil))),0,1);
4725 4743
4726 -new_op_scheme(18911772,1, 4744 +new_op_scheme(18918940,1,
4727 new_string("Result_JPEG_write"), 4745 new_string("Result_JPEG_write"),
4728 cons(new_string("write_image_to_JPEG_file"), 4746 cons(new_string("write_image_to_JPEG_file"),
4729 nil), 4747 nil),
@@ -4748,7 +4766,7 @@ new_string("jpeg_error_mgr")), @@ -4748,7 +4766,7 @@ new_string("jpeg_error_mgr")),
4748 nil))), 4766 nil))),
4749 nil),0,1); 4767 nil),0,1);
4750 4768
4751 -new_op_scheme(18929166,0, 4769 +new_op_scheme(18936334,0,
4752 cons(app_ts, 4770 cons(app_ts,
4753 cons(new_string("Maybe"), 4771 cons(new_string("Maybe"),
4754 cons(new_string("£JPEG_decompress_info"), 4772 cons(new_string("£JPEG_decompress_info"),
@@ -4778,7 +4796,7 @@ noname), @@ -4778,7 +4796,7 @@ noname),
4778 nil)))), 4796 nil)))),
4779 nil),0,1); 4797 nil),0,1);
4780 4798
4781 -new_op_scheme(18933774,0, 4799 +new_op_scheme(18940942,0,
4782 cons(app_ts, 4800 cons(app_ts,
4783 cons(new_string("£Tuple3"), 4801 cons(new_string("£Tuple3"),
4784 cons(type_Int32, 4802 cons(type_Int32,
@@ -4792,7 +4810,7 @@ new_string("cinfo")), @@ -4792,7 +4810,7 @@ new_string("cinfo")),
4792 nil), 4810 nil),
4793 no_term); 4811 no_term);
4794 4812
4795 -new_op_scheme(18939406,0, 4813 +new_op_scheme(18946574,0,
4796 cons(app_ts, 4814 cons(app_ts,
4797 cons(new_string("Maybe"), 4815 cons(new_string("Maybe"),
4798 cons(new_string("One"), 4816 cons(new_string("One"),
@@ -4808,7 +4826,7 @@ new_string("offset")), @@ -4808,7 +4826,7 @@ new_string("offset")),
4808 nil))), 4826 nil))),
4809 no_term); 4827 no_term);
4810 4828
4811 -new_op_scheme(18945038,0, 4829 +new_op_scheme(18952206,0,
4812 new_string("One"), 4830 new_string("One"),
4813 cons(new_string("£jpeg_read_scanlines"), 4831 cons(new_string("£jpeg_read_scanlines"),
4814 nil), 4832 nil),
@@ -4825,7 +4843,7 @@ new_string("offset")), @@ -4825,7 +4843,7 @@ new_string("offset")),
4825 nil))))), 4843 nil))))),
4826 no_term); 4844 no_term);
4827 4845
4828 -new_op_scheme(18954766,0, 4846 +new_op_scheme(18961934,0,
4829 new_string("One"), 4847 new_string("One"),
4830 cons(new_string("£jpeg_finish_decompress"), 4848 cons(new_string("£jpeg_finish_decompress"),
4831 nil), 4849 nil),
@@ -4850,7 +4868,7 @@ noname), @@ -4850,7 +4868,7 @@ noname),
4850 nil)), 4868 nil)),
4851 nil))),0,1); 4869 nil))),0,1);
4852 4870
4853 -new_op_scheme(18962460,1, 4871 +new_op_scheme(18969628,1,
4854 new_string("Result_JPEG_read"), 4872 new_string("Result_JPEG_read"),
4855 cons(new_string("read_image_from_JPEG_file"), 4873 cons(new_string("read_image_from_JPEG_file"),
4856 nil), 4874 nil),
@@ -5090,7 +5108,7 @@ new_string("£gc")), @@ -5090,7 +5108,7 @@ new_string("£gc")),
5090 nil))), 5108 nil))),
5091 nil),0,1); 5109 nil),0,1);
5092 5110
5093 -new_op_scheme(19025948,1, 5111 +new_op_scheme(19033116,1,
5094 cons(app_ts, 5112 cons(app_ts,
5095 cons(new_string("£Tuple2"), 5113 cons(new_string("£Tuple2"),
5096 cons(type_Int32, 5114 cons(type_Int32,
@@ -5103,7 +5121,7 @@ new_string("hw")), @@ -5103,7 +5121,7 @@ new_string("hw")),
5103 nil), 5121 nil),
5104 no_term); 5122 no_term);
5105 5123
5106 -new_op_scheme(19031068,1, 5124 +new_op_scheme(19038236,1,
5107 new_string("One"), 5125 new_string("One"),
5108 cons(new_string("resize"), 5126 cons(new_string("resize"),
5109 nil), 5127 nil),
@@ -5116,7 +5134,7 @@ new_string("height")), @@ -5116,7 +5134,7 @@ new_string("height")),
5116 nil))), 5134 nil))),
5117 no_term); 5135 no_term);
5118 5136
5119 -new_op_scheme(19037724,1, 5137 +new_op_scheme(19044892,1,
5120 cons(app_ts, 5138 cons(app_ts,
5121 cons(new_string("£Tuple2"), 5139 cons(new_string("£Tuple2"),
5122 cons(type_Int32, 5140 cons(type_Int32,
@@ -5127,7 +5145,7 @@ nil), @@ -5127,7 +5145,7 @@ nil),
5127 nil, 5145 nil,
5128 no_term); 5146 no_term);
5129 5147
5130 -new_op_scheme(19041820,1, 5148 +new_op_scheme(19048988,1,
5131 new_string("One"), 5149 new_string("One"),
5132 cons(new_string("change_title"), 5150 cons(new_string("change_title"),
5133 nil), 5151 nil),
@@ -5138,7 +5156,7 @@ new_string("new_title")), @@ -5138,7 +5156,7 @@ new_string("new_title")),
5138 nil)), 5156 nil)),
5139 no_term); 5157 no_term);
5140 5158
5141 -new_op_scheme(19049998,0, 5159 +new_op_scheme(19057166,0,
5142 new_string("Bool"), 5160 new_string("Bool"),
5143 cons(new_string("£window_event_pending"), 5161 cons(new_string("£window_event_pending"),
5144 nil), 5162 nil),
@@ -5148,7 +5166,7 @@ new_string("handle")), @@ -5148,7 +5166,7 @@ new_string("handle")),
5148 nil), 5166 nil),
5149 no_term); 5167 no_term);
5150 5168
5151 -new_op_scheme(19055630,0, 5169 +new_op_scheme(19062798,0,
5152 cons(app_ts, 5170 cons(app_ts,
5153 cons(new_string("HostWindowEvent"), 5171 cons(new_string("HostWindowEvent"),
5154 cons(new_utvar("E"), 5172 cons(new_utvar("E"),
@@ -5161,7 +5179,7 @@ new_string("handle")), @@ -5161,7 +5179,7 @@ new_string("handle")),
5161 nil), 5179 nil),
5162 no_term); 5180 no_term);
5163 5181
5164 -new_op_scheme(19063310,0, 5182 +new_op_scheme(19070478,0,
5165 cons(app_ts, 5183 cons(app_ts,
5166 cons(new_string("List"), 5184 cons(new_string("List"),
5167 cons(cons(app_ts, 5185 cons(cons(app_ts,
@@ -5179,7 +5197,7 @@ new_string("max")), @@ -5179,7 +5197,7 @@ new_string("max")),
5179 nil)), 5197 nil)),
5180 no_term); 5198 no_term);
5181 5199
5182 -new_op_scheme(19072526,0, 5200 +new_op_scheme(19079694,0,
5183 new_string("Bool"), 5201 new_string("Bool"),
5184 cons(new_string("£default_host_window_handling"), 5202 cons(new_string("£default_host_window_handling"),
5185 nil), 5203 nil),
@@ -5222,7 +5240,7 @@ new_string("event_handler")), @@ -5222,7 +5240,7 @@ new_string("event_handler")),
5222 nil))))), 5240 nil))))),
5223 no_term); 5241 no_term);
5224 5242
5225 -new_op_scheme(19079182,0, 5243 +new_op_scheme(19086350,0,
5226 new_string("One"), 5244 new_string("One"),
5227 cons(new_string("£begin_paint"), 5245 cons(new_string("£begin_paint"),
5228 nil), 5246 nil),
@@ -5231,7 +5249,7 @@ new_string("window")), @@ -5231,7 +5249,7 @@ new_string("window")),
5231 nil), 5249 nil),
5232 no_term); 5250 no_term);
5233 5251
5234 -new_op_scheme(19082766,0, 5252 +new_op_scheme(19089934,0,
5235 new_string("One"), 5253 new_string("One"),
5236 cons(new_string("£end_paint"), 5254 cons(new_string("£end_paint"),
5237 nil), 5255 nil),
@@ -5240,7 +5258,7 @@ new_string("window")), @@ -5240,7 +5258,7 @@ new_string("window")),
5240 nil), 5258 nil),
5241 no_term); 5259 no_term);
5242 5260
5243 -new_op_scheme(19086862,0, 5261 +new_op_scheme(19094030,0,
5244 new_string("Bool"), 5262 new_string("Bool"),
5245 cons(new_string("£handle_host_window_events"), 5263 cons(new_string("£handle_host_window_events"),
5246 nil), 5264 nil),
@@ -5278,7 +5296,7 @@ new_string("eh")), @@ -5278,7 +5296,7 @@ new_string("eh")),
5278 nil)))), 5296 nil)))),
5279 no_term); 5297 no_term);
5280 5298
5281 -new_op_scheme(19103758,0, 5299 +new_op_scheme(19110926,0,
5282 new_string("Bool"), 5300 new_string("Bool"),
5283 cons(new_string("£default_host_window_handling"), 5301 cons(new_string("£default_host_window_handling"),
5284 nil), 5302 nil),
@@ -5321,7 +5339,7 @@ new_string("event_handler")), @@ -5321,7 +5339,7 @@ new_string("event_handler")),
5321 nil))))), 5339 nil))))),
5322 no_term); 5340 no_term);
5323 5341
5324 -new_op_scheme(19115036,1, 5342 +new_op_scheme(19122204,1,
5325 new_string("One"), 5343 new_string("One"),
5326 cons(new_string("generic_host_window_handler"), 5344 cons(new_string("generic_host_window_handler"),
5327 nil), 5345 nil),
@@ -5379,7 +5397,7 @@ nil), @@ -5379,7 +5397,7 @@ nil),
5379 nil), 5397 nil),
5380 nil)),0,1); 5398 nil)),0,1);
5381 5399
5382 -new_op_scheme(19130382,0, 5400 +new_op_scheme(19137550,0,
5383 cons(app_ts, 5401 cons(app_ts,
5384 cons(new_string("Maybe"), 5402 cons(new_string("Maybe"),
5385 cons(cons(app_ts, 5403 cons(cons(app_ts,
@@ -5407,7 +5425,7 @@ new_string("sort")), @@ -5407,7 +5425,7 @@ new_string("sort")),
5407 nil)))))), 5425 nil)))))),
5408 no_term); 5426 no_term);
5409 5427
5410 -new_op_scheme(19138588,1, 5428 +new_op_scheme(19145756,1,
5411 cons(app_ts, 5429 cons(app_ts,
5412 cons(new_string("Maybe"), 5430 cons(new_string("Maybe"),
5413 cons(new_string("HostWindow"), 5431 cons(new_string("HostWindow"),
@@ -5461,7 +5479,7 @@ new_string("compress")), @@ -5461,7 +5479,7 @@ new_string("compress")),
5461 nil)))))), 5479 nil)))))),
5462 no_term); 5480 no_term);
5463 5481
5464 -new_op_scheme(19154972,1, 5482 +new_op_scheme(19162140,1,
5465 new_string("One"), 5483 new_string("One"),
5466 cons(new_string("show"), 5484 cons(new_string("show"),
5467 nil), 5485 nil),
@@ -5470,7 +5488,7 @@ new_string("win")), @@ -5470,7 +5488,7 @@ new_string("win")),
5470 nil), 5488 nil),
5471 no_term); 5489 no_term);
5472 5490
5473 -new_op_scheme(19159068,1, 5491 +new_op_scheme(19166236,1,
5474 new_string("One"), 5492 new_string("One"),
5475 cons(new_string("hide"), 5493 cons(new_string("hide"),
5476 nil), 5494 nil),
@@ -5479,7 +5497,7 @@ new_string("win")), @@ -5479,7 +5497,7 @@ new_string("win")),
5479 nil), 5497 nil),
5480 no_term); 5498 no_term);
5481 5499
5482 -new_op_scheme(19168796,1, 5500 +new_op_scheme(19175964,1,
5483 new_string("Bool"), 5501 new_string("Bool"),
5484 cons(new_string("queue_event"), 5502 cons(new_string("queue_event"),
5485 nil), 5503 nil),
@@ -5493,7 +5511,7 @@ new_string("e")), @@ -5493,7 +5511,7 @@ new_string("e")),
5493 nil)), 5511 nil)),
5494 no_term); 5512 no_term);
5495 5513
5496 -new_op_scheme(19179036,1, 5514 +new_op_scheme(19186204,1,
5497 new_string("One"), 5515 new_string("One"),
5498 cons(new_string("paint_rectangle"), 5516 cons(new_string("paint_rectangle"),
5499 nil), 5517 nil),
@@ -5506,7 +5524,7 @@ new_string("color")), @@ -5506,7 +5524,7 @@ new_string("color")),
5506 nil))), 5524 nil))),
5507 no_term); 5525 no_term);
5508 5526
5509 -new_op_scheme(19184668,1, 5527 +new_op_scheme(19191836,1,
5510 new_string("One"), 5528 new_string("One"),
5511 cons(new_string("paint_rectangle"), 5529 cons(new_string("paint_rectangle"),
5512 nil), 5530 nil),
@@ -5519,7 +5537,7 @@ new_string("color")), @@ -5519,7 +5537,7 @@ new_string("color")),
5519 nil))), 5537 nil))),
5520 no_term); 5538 no_term);
5521 5539
5522 -new_op_scheme(19202076,1, 5540 +new_op_scheme(19209244,1,
5523 new_string("One"), 5541 new_string("One"),
5524 cons(new_string("paint_image"), 5542 cons(new_string("paint_image"),
5525 nil), 5543 nil),
@@ -5536,7 +5554,7 @@ new_string("image")), @@ -5536,7 +5554,7 @@ new_string("image")),
5536 nil))))), 5554 nil))))),
5537 no_term); 5555 no_term);
5538 5556
5539 -new_op_scheme(19208732,1, 5557 +new_op_scheme(19215900,1,
5540 new_string("One"), 5558 new_string("One"),
5541 cons(new_string("paint_image"), 5559 cons(new_string("paint_image"),
5542 nil), 5560 nil),
@@ -5553,7 +5571,7 @@ new_string("image")), @@ -5553,7 +5571,7 @@ new_string("image")),
5553 nil))))), 5571 nil))))),
5554 no_term); 5572 no_term);
5555 5573
5556 -new_op_scheme(19214876,1, 5574 +new_op_scheme(19222044,1,
5557 new_string("One"), 5575 new_string("One"),
5558 cons(new_string("map_to_host_window"), 5576 cons(new_string("map_to_host_window"),
5559 nil), 5577 nil),
@@ -5601,7 +5619,7 @@ noname), @@ -5601,7 +5619,7 @@ noname),
5601 nil)), 5619 nil)),
5602 nil),0,1); 5620 nil),0,1);
5603 5621
5604 -new_op_scheme(19240988,1, 5622 +new_op_scheme(19248156,1,
5605 cons(app_ts, 5623 cons(app_ts,
5606 cons(new_string("Result"), 5624 cons(new_string("Result"),
5607 cons(new_string("SQLite3Error"), 5625 cons(new_string("SQLite3Error"),
@@ -5694,7 +5712,7 @@ new_string("cursor")), @@ -5694,7 +5712,7 @@ new_string("cursor")),
5694 nil)))), 5712 nil)))),
5695 nil),0,1); 5713 nil),0,1);
5696 5714
5697 -new_op_scheme(19272220,1, 5715 +new_op_scheme(19279388,1,
5698 cons(app_ts, 5716 cons(app_ts,
5699 cons(new_string("Result"), 5717 cons(new_string("Result"),
5700 cons(new_string("SQLite3Error"), 5718 cons(new_string("SQLite3Error"),
@@ -5712,7 +5730,7 @@ new_string("sql_command")), @@ -5712,7 +5730,7 @@ new_string("sql_command")),
5712 nil)), 5730 nil)),
5713 no_term); 5731 no_term);
5714 5732
5715 -new_op_scheme(19290638,0, 5733 +new_op_scheme(19297806,0,
5716 cons(type_struct_ptr, 5734 cons(type_struct_ptr,
5717 new_integer(8)), 5735 new_integer(8)),
5718 cons(new_string("£sqlite3_open"), 5736 cons(new_string("£sqlite3_open"),
@@ -5722,7 +5740,7 @@ new_string("filename")), @@ -5722,7 +5740,7 @@ new_string("filename")),
5722 nil), 5740 nil),
5723 no_term); 5741 no_term);
5724 5742
5725 -new_op_scheme(19294222,0, 5743 +new_op_scheme(19301390,0,
5726 type_Int32, 5744 type_Int32,
5727 cons(new_string("£sqlite3_errcode"), 5745 cons(new_string("£sqlite3_errcode"),
5728 nil), 5746 nil),
@@ -5732,7 +5750,7 @@ new_string("s")), @@ -5732,7 +5750,7 @@ new_string("s")),
5732 nil), 5750 nil),
5733 no_term); 5751 no_term);
5734 5752
5735 -new_op_scheme(19297806,0, 5753 +new_op_scheme(19304974,0,
5736 type_String, 5754 type_String,
5737 cons(new_string("£sqlite3_errmsg"), 5755 cons(new_string("£sqlite3_errmsg"),
5738 nil), 5756 nil),
@@ -5742,7 +5760,7 @@ new_string("s")), @@ -5742,7 +5760,7 @@ new_string("s")),
5742 nil), 5760 nil),
5743 no_term); 5761 no_term);
5744 5762
5745 -new_op_scheme(19301916,1, 5763 +new_op_scheme(19309084,1,
5746 cons(app_ts, 5764 cons(app_ts,
5747 cons(new_string("Result"), 5765 cons(new_string("Result"),
5748 cons(new_string("SQLite3Error"), 5766 cons(new_string("SQLite3Error"),
@@ -5775,7 +5793,7 @@ nil), @@ -5775,7 +5793,7 @@ nil),
5775 nil), 5793 nil),
5776 nil))))),0,1); 5794 nil))))),0,1);
5777 5795
5778 -new_op_scheme(19312142,0, 5796 +new_op_scheme(19319310,0,
5779 new_string("£SQLite3DatumType"), 5797 new_string("£SQLite3DatumType"),
5780 cons(new_string("£get_cell_type"), 5798 cons(new_string("£get_cell_type"),
5781 nil), 5799 nil),
@@ -5787,7 +5805,7 @@ new_string("iCol")), @@ -5787,7 +5805,7 @@ new_string("iCol")),
5787 nil)), 5805 nil)),
5788 no_term); 5806 no_term);
5789 5807
5790 -new_op_scheme(19316750,0, 5808 +new_op_scheme(19323918,0,
5791 type_String, 5809 type_String,
5792 cons(new_string("£get_cell_name"), 5810 cons(new_string("£get_cell_name"),
5793 nil), 5811 nil),
@@ -5799,7 +5817,7 @@ new_string("iCol")), @@ -5799,7 +5817,7 @@ new_string("iCol")),
5799 nil)), 5817 nil)),
5800 no_term); 5818 no_term);
5801 5819
5802 -new_op_scheme(19321358,0, 5820 +new_op_scheme(19328526,0,
5803 type_Int32, 5821 type_Int32,
5804 cons(new_string("£sqlite3_column_int"), 5822 cons(new_string("£sqlite3_column_int"),
5805 nil), 5823 nil),
@@ -5811,7 +5829,7 @@ new_string("iCol")), @@ -5811,7 +5829,7 @@ new_string("iCol")),
5811 nil)), 5829 nil)),
5812 no_term); 5830 no_term);
5813 5831
5814 -new_op_scheme(19325454,0, 5832 +new_op_scheme(19332622,0,
5815 type_Float, 5833 type_Float,
5816 cons(new_string("£sqlite3_column_double"), 5834 cons(new_string("£sqlite3_column_double"),
5817 nil), 5835 nil),
@@ -5823,7 +5841,7 @@ new_string("iCol")), @@ -5823,7 +5841,7 @@ new_string("iCol")),
5823 nil)), 5841 nil)),
5824 no_term); 5842 no_term);
5825 5843
5826 -new_op_scheme(19329550,0, 5844 +new_op_scheme(19336718,0,
5827 type_String, 5845 type_String,
5828 cons(new_string("£sqlite3_column_text"), 5846 cons(new_string("£sqlite3_column_text"),
5829 nil), 5847 nil),
@@ -5835,7 +5853,7 @@ new_string("iCol")), @@ -5835,7 +5853,7 @@ new_string("iCol")),
5835 nil)), 5853 nil)),
5836 no_term); 5854 no_term);
5837 5855
5838 -new_op_scheme(19333646,0, 5856 +new_op_scheme(19340814,0,
5839 type_ByteArray, 5857 type_ByteArray,
5840 cons(new_string("£sqlite3_column_blob"), 5858 cons(new_string("£sqlite3_column_blob"),
5841 nil), 5859 nil),
@@ -5847,7 +5865,7 @@ new_string("iCol")), @@ -5847,7 +5865,7 @@ new_string("iCol")),
5847 nil)), 5865 nil)),
5848 no_term); 5866 no_term);
5849 5867
5850 -new_op_scheme(19337742,0, 5868 +new_op_scheme(19344910,0,
5851 new_string("SQLite3Datum"), 5869 new_string("SQLite3Datum"),
5852 cons(new_string("£get_cell_value"), 5870 cons(new_string("£get_cell_value"),
5853 nil), 5871 nil),
@@ -5859,7 +5877,7 @@ new_string("iCol")), @@ -5859,7 +5877,7 @@ new_string("iCol")),
5859 nil)), 5877 nil)),
5860 no_term); 5878 no_term);
5861 5879
5862 -new_op_scheme(19345422,0, 5880 +new_op_scheme(19352590,0,
5863 cons(functype, 5881 cons(functype,
5864 cons(cons(type_Int32, 5882 cons(cons(type_Int32,
5865 nil), 5883 nil),
@@ -5874,7 +5892,7 @@ new_string("column_count")), @@ -5874,7 +5892,7 @@ new_string("column_count")),
5874 nil)), 5892 nil)),
5875 no_term); 5893 no_term);
5876 5894
5877 -new_op_scheme(19351054,0, 5895 +new_op_scheme(19358222,0,
5878 cons(functype, 5896 cons(functype,
5879 cons(cons(type_Int32, 5897 cons(cons(type_Int32,
5880 nil), 5898 nil),
@@ -5889,7 +5907,7 @@ new_string("column_count")), @@ -5889,7 +5907,7 @@ new_string("column_count")),
5889 nil)), 5907 nil)),
5890 no_term); 5908 no_term);
5891 5909
5892 -new_op_scheme(19357198,0, 5910 +new_op_scheme(19364366,0,
5893 type_Int32, 5911 type_Int32,
5894 cons(new_string("£column_count"), 5912 cons(new_string("£column_count"),
5895 nil), 5913 nil),
@@ -5913,7 +5931,7 @@ nil), @@ -5913,7 +5931,7 @@ nil),
5913 nil), 5931 nil),
5914 nil))),0,1); 5932 nil))),0,1);
5915 5933
5916 -new_op_scheme(19363342,0, 5934 +new_op_scheme(19370510,0,
5917 new_string("£SQLite3NextRowResult"), 5935 new_string("£SQLite3NextRowResult"),
5918 cons(new_string("£go_to_next_row"), 5936 cons(new_string("£go_to_next_row"),
5919 nil), 5937 nil),
@@ -5923,7 +5941,7 @@ new_string("stmt")), @@ -5923,7 +5941,7 @@ new_string("stmt")),
5923 nil), 5941 nil),
5924 no_term); 5942 no_term);
5925 5943
5926 -new_op_scheme(19366926,0, 5944 +new_op_scheme(19374094,0,
5927 cons(functype, 5945 cons(functype,
5928 cons(cons(new_string("SQLite3HeadersOrRow"), 5946 cons(cons(new_string("SQLite3HeadersOrRow"),
5929 nil), 5947 nil),
@@ -5942,7 +5960,7 @@ new_string("first")), @@ -5942,7 +5960,7 @@ new_string("first")),
5942 nil))), 5960 nil))),
5943 no_term); 5961 no_term);
5944 5962
5945 -new_op_scheme(19379214,0, 5963 +new_op_scheme(19386382,0,
5946 cons(app_ts, 5964 cons(app_ts,
5947 cons(new_string("Result"), 5965 cons(new_string("Result"),
5948 cons(type_Int32, 5966 cons(type_Int32,
@@ -5959,7 +5977,7 @@ new_string("sql_command")), @@ -5959,7 +5977,7 @@ new_string("sql_command")),
5959 nil)), 5977 nil)),
5960 no_term); 5978 no_term);
5961 5979
5962 -new_op_scheme(19383836,1, 5980 +new_op_scheme(19391004,1,
5963 cons(app_ts, 5981 cons(app_ts,
5964 cons(new_string("Result"), 5982 cons(new_string("Result"),
5965 cons(new_string("SQLite3Error"), 5983 cons(new_string("SQLite3Error"),
anubis_dev/compiler/src/predef_npd.aux
  Show/Hide comments   View file @53870d7
@@ -1307,7 +1307,7 @@ nil), @@ -1307,7 +1307,7 @@ nil),
1307 cons(new_integer(8561175), 1307 cons(new_integer(8561175),
1308 cons(alert, 1308 cons(alert,
1309 cons(new_integer(8561181), 1309 cons(new_integer(8561181),
1310 -new_string("D:\Develop\Anubis\Trunc\anubis_dev\compiler\src/../../library/predefined.anubis"))))), 1310 +new_string("C:\Anubis_dev\anubis_dev\compiler\src/../../library/predefined.anubis"))))),
1311 cons(cons(cons(new_string("success"), 1311 cons(cons(cons(new_string("success"),
1312 cons(new_string("i"), 1312 cons(new_string("i"),
1313 nil)), 1313 nil)),
@@ -4009,38 +4009,89 @@ cons(new_integer(8853773), @@ -4009,38 +4009,89 @@ cons(new_integer(8853773),
4009 cons(create_udp_client_socket, 4009 cons(create_udp_client_socket,
4010 nil)))); 4010 nil))));
4011 4011
4012 -new_op_scheme(17708572,1, 4012 +new_op_scheme(17709084,1,
4013 new_string("Create_UDP_Client_Socket_Result"), 4013 new_string("Create_UDP_Client_Socket_Result"),
4014 cons(new_string("create_udp_client_socket"), 4014 cons(new_string("create_udp_client_socket"),
4015 nil), 4015 nil),
4016 nil, 4016 nil,
4017 cons(cond, 4017 cons(cond,
4018 -cons(new_integer(8855046), 4018 +cons(new_integer(8855302),
4019 cons(cons(symbol, 4019 cons(cons(symbol,
4020 -cons(new_integer(8855072), 4020 +cons(new_integer(8855328),
4021 new_string("£create_udp_client_socket"))), 4021 new_string("£create_udp_client_socket"))),
4022 cons(cons(cons(new_string("failure"), 4022 cons(cons(cons(new_string("failure"),
4023 nil), 4023 nil),
4024 -cons(new_integer(8855577), 4024 +cons(new_integer(8855833),
4025 cons(symbol, 4025 cons(symbol,
4026 -cons(new_integer(8855602), 4026 +cons(new_integer(8855858),
4027 new_string("cannot_create_the_socket"))))), 4027 new_string("cannot_create_the_socket"))))),
4028 cons(cons(cons(new_string("success"), 4028 cons(cons(cons(new_string("success"),
4029 cons(new_string("a"), 4029 cons(new_string("a"),
4030 nil)), 4030 nil)),
4031 -cons(new_integer(8855833), 4031 +cons(new_integer(8856089),
  4032 +cons(app,
  4033 +cons(new_integer(8856093),
  4034 +cons(cons(symbol,
  4035 +cons(new_integer(8856092),
  4036 +new_string("ok"))),
  4037 +cons(cons(app,
  4038 +cons(new_integer(8856105),
  4039 +cons(cons(symbol,
  4040 +cons(new_integer(8856104),
  4041 +new_string("£udp_socket"))),
  4042 +cons(cons(symbol,
  4043 +cons(new_integer(8856106),
  4044 +new_string("a"))),
  4045 +nil)))),
  4046 +nil)))))),
  4047 +nil))))));
  4048 +
  4049 +new_op_scheme(17713678,0,
  4050 +cons(app_ts,
  4051 +cons(new_string("Maybe"),
  4052 +cons(cons(type_RWAddr,
  4053 +new_string("Int8")),
  4054 +nil))),
  4055 +cons(new_string("£create_udp_client_broadcast_socket"),
  4056 +nil),
  4057 +nil,
  4058 +cons(avm,
  4059 +cons(new_integer(8857357),
  4060 +cons(create_udp_client_broadcast_socket,
  4061 +nil))));
  4062 +
  4063 +new_op_scheme(17715740,1,
  4064 +new_string("Create_UDP_Client_Socket_Result"),
  4065 +cons(new_string("create_udp_client_broadcast_socket"),
  4066 +nil),
  4067 +nil,
  4068 +cons(cond,
  4069 +cons(new_integer(8858630),
  4070 +cons(cons(symbol,
  4071 +cons(new_integer(8858666),
  4072 +new_string("£create_udp_client_broadcast_socket"))),
  4073 +cons(cons(cons(new_string("failure"),
  4074 +nil),
  4075 +cons(new_integer(8859161),
  4076 +cons(symbol,
  4077 +cons(new_integer(8859186),
  4078 +new_string("cannot_create_the_socket"))))),
  4079 +cons(cons(cons(new_string("success"),
  4080 +cons(new_string("a"),
  4081 +nil)),
  4082 +cons(new_integer(8859417),
4032 cons(app, 4083 cons(app,
4033 -cons(new_integer(8855837), 4084 +cons(new_integer(8859421),
4034 cons(cons(symbol, 4085 cons(cons(symbol,
4035 -cons(new_integer(8855836), 4086 +cons(new_integer(8859420),
4036 new_string("ok"))), 4087 new_string("ok"))),
4037 cons(cons(app, 4088 cons(cons(app,
4038 -cons(new_integer(8855849), 4089 +cons(new_integer(8859433),
4039 cons(cons(symbol, 4090 cons(cons(symbol,
4040 -cons(new_integer(8855848), 4091 +cons(new_integer(8859432),
4041 new_string("£udp_socket"))), 4092 new_string("£udp_socket"))),
4042 cons(cons(symbol, 4093 cons(cons(symbol,
4043 -cons(new_integer(8855850), 4094 +cons(new_integer(8859434),
4044 new_string("a"))), 4095 new_string("a"))),
4045 nil)))), 4096 nil)))),
4046 nil)))))), 4097 nil)))))),
@@ -4057,7 +4108,7 @@ nil), @@ -4057,7 +4108,7 @@ nil),
4057 nil), 4108 nil),
4058 nil)),0,1); 4109 nil)),0,1);
4059 4110
4060 -new_op_scheme(17719836,1, 4111 +new_op_scheme(17727004,1,
4061 new_string("UDP_Send_Result"), 4112 new_string("UDP_Send_Result"),
4062 cons(new_string("udp_send"), 4113 cons(new_string("udp_send"),
4063 nil), 4114 nil),
@@ -4071,7 +4122,7 @@ cons(cons(type_ByteArray, @@ -4071,7 +4122,7 @@ cons(cons(type_ByteArray,
4071 new_string("data")), 4122 new_string("data")),
4072 nil)))), 4123 nil)))),
4073 cons(avm, 4124 cons(avm,
4074 -cons(new_integer(8861710), 4125 +cons(new_integer(8865294),
4075 cons(udp_send, 4126 cons(udp_send,
4076 nil)))); 4127 nil))));
4077 4128
@@ -4108,7 +4159,7 @@ new_string("ip_port")), @@ -4108,7 +4159,7 @@ new_string("ip_port")),
4108 nil))))), 4159 nil))))),
4109 nil))),0,1); 4160 nil))),0,1);
4110 4161
4111 -new_op_scheme(17735708,1, 4162 +new_op_scheme(17742876,1,
4112 new_string("UDP_Receive_Result"), 4163 new_string("UDP_Receive_Result"),
4113 cons(new_string("udp_receive"), 4164 cons(new_string("udp_receive"),
4114 nil), 4165 nil),
@@ -4120,7 +4171,7 @@ cons(cons(type_Int32, @@ -4120,7 +4171,7 @@ cons(cons(type_Int32,
4120 new_string("timeout")), 4171 new_string("timeout")),
4121 nil))), 4172 nil))),
4122 cons(avm, 4173 cons(avm,
4123 -cons(new_integer(8869390), 4174 +cons(new_integer(8872974),
4124 cons(udp_receive, 4175 cons(udp_receive,
4125 nil)))); 4176 nil))));
4126 4177
@@ -4155,7 +4206,7 @@ noname), @@ -4155,7 +4206,7 @@ noname),
4155 nil)), 4206 nil)),
4156 nil)))),0,1); 4207 nil)))),0,1);
4157 4208
4158 -new_op_scheme(17748494,0, 4209 +new_op_scheme(17755662,0,
4159 new_string("£Create_UDP_Server_Socket_Result"), 4210 new_string("£Create_UDP_Server_Socket_Result"),
4160 cons(new_string("£create_udp_server_socket"), 4211 cons(new_string("£create_udp_server_socket"),
4161 nil), 4212 nil),
@@ -4165,11 +4216,11 @@ cons(cons(type_Int32, @@ -4165,11 +4216,11 @@ cons(cons(type_Int32,
4165 new_string("ip_port")), 4216 new_string("ip_port")),
4166 nil)), 4217 nil)),
4167 cons(avm, 4218 cons(avm,
4168 -cons(new_integer(8875534), 4219 +cons(new_integer(8879118),
4169 cons(create_udp_server_socket, 4220 cons(create_udp_server_socket,
4170 nil)))); 4221 nil))));
4171 4222
4172 -new_op_scheme(17754126,0, 4223 +new_op_scheme(17761294,0,
4173 new_string("One"), 4224 new_string("One"),
4174 cons(new_string("£run_udp_server"), 4225 cons(new_string("£run_udp_server"),
4175 nil), 4226 nil),
@@ -4196,106 +4247,106 @@ new_string("One"))), @@ -4196,106 +4247,106 @@ new_string("One"))),
4196 new_string("notify")), 4247 new_string("notify")),
4197 nil))))), 4248 nil))))),
4198 cons(cond, 4249 cons(cond,
4199 -cons(new_integer(8880646), 4250 +cons(new_integer(8884230),
4200 cons(cons(of_type, 4251 cons(cons(of_type,
4201 -cons(new_integer(8880646), 4252 +cons(new_integer(8884230),
4202 cons(new_string("Bool"), 4253 cons(new_string("Bool"),
4203 cons(anb_read, 4254 cons(anb_read,
4204 -cons(new_integer(8880648), 4255 +cons(new_integer(8884232),
4205 cons(symbol, 4256 cons(symbol,
4206 -cons(new_integer(8880657), 4257 +cons(new_integer(8884241),
4207 new_string("state_var")))))))), 4258 new_string("state_var")))))))),
4208 cons(cons(cons(new_string("false"), 4259 cons(cons(cons(new_string("false"),
4209 nil), 4260 nil),
4210 -cons(new_integer(8883208), 4261 +cons(new_integer(8886792),
4211 cons(symbol, 4262 cons(symbol,
4212 -cons(new_integer(8883215), 4263 +cons(new_integer(8886799),
4213 new_string("unique"))))), 4264 new_string("unique"))))),
4214 cons(cons(cons(new_string("true"), 4265 cons(cons(cons(new_string("true"),
4215 nil), 4266 nil),
4216 -cons(new_integer(8880904), 4267 +cons(new_integer(8884488),
4217 cons(cond, 4268 cons(cond,
4218 -cons(new_integer(8880907), 4269 +cons(new_integer(8884491),
4219 cons(cons(app, 4270 cons(cons(app,
4220 -cons(new_integer(8880920), 4271 +cons(new_integer(8884504),
4221 cons(cons(symbol, 4272 cons(cons(symbol,
4222 -cons(new_integer(8880919), 4273 +cons(new_integer(8884503),
4223 new_string("udp_receive"))), 4274 new_string("udp_receive"))),
4224 cons(cons(symbol, 4275 cons(cons(symbol,
4225 -cons(new_integer(8880926), 4276 +cons(new_integer(8884510),
4226 new_string("socket"))), 4277 new_string("socket"))),
4227 cons(cons(symbol, 4278 cons(cons(symbol,
4228 -cons(new_integer(8880942), 4279 +cons(new_integer(8884526),
4229 new_string("max_packet_size"))), 4280 new_string("max_packet_size"))),
4230 cons(cons(integer_10, 4281 cons(cons(integer_10,
4231 -cons(new_integer(8880947), 4282 +cons(new_integer(8884531),
4232 cons(new_integer(3), 4283 cons(new_integer(3),
4233 cons(new_integer(232), 4284 cons(new_integer(232),
4234 nil)))), 4285 nil)))),
4235 nil)))))), 4286 nil)))))),
4236 cons(cons(cons(new_string("out_of_time"), 4287 cons(cons(cons(new_string("out_of_time"),
4237 nil), 4288 nil),
4238 -cons(new_integer(8881446), 4289 +cons(new_integer(8885030),
4239 cons(app, 4290 cons(app,
4240 -cons(new_integer(8881463), 4291 +cons(new_integer(8885047),
4241 cons(cons(symbol, 4292 cons(cons(symbol,
4242 -cons(new_integer(8881462), 4293 +cons(new_integer(8885046),
4243 new_string("£run_udp_server"))), 4294 new_string("£run_udp_server"))),
4244 cons(cons(symbol, 4295 cons(cons(symbol,
4245 -cons(new_integer(8881469), 4296 +cons(new_integer(8885053),
4246 new_string("socket"))), 4297 new_string("socket"))),
4247 cons(cons(symbol, 4298 cons(cons(symbol,
4248 -cons(new_integer(8881477), 4299 +cons(new_integer(8885061),
4249 new_string("handler"))), 4300 new_string("handler"))),
4250 cons(cons(symbol, 4301 cons(cons(symbol,
4251 -cons(new_integer(8881493), 4302 +cons(new_integer(8885077),
4252 new_string("max_packet_size"))), 4303 new_string("max_packet_size"))),
4253 cons(cons(symbol, 4304 cons(cons(symbol,
4254 -cons(new_integer(8881503), 4305 +cons(new_integer(8885087),
4255 new_string("state_var"))), 4306 new_string("state_var"))),
4256 cons(cons(symbol, 4307 cons(cons(symbol,
4257 -cons(new_integer(8881510), 4308 +cons(new_integer(8885094),
4258 new_string("notify"))), 4309 new_string("notify"))),
4259 nil)))))))))), 4310 nil)))))))))),
4260 cons(cons(cons(new_string("network_unreachable"), 4311 cons(cons(cons(new_string("network_unreachable"),
4261 nil), 4312 nil),
4262 -cons(new_integer(8881702), 4313 +cons(new_integer(8885286),
4263 cons(cond, 4314 cons(cond,
4264 -cons(new_integer(8881718), 4315 +cons(new_integer(8885302),
4265 cons(cons(of_type, 4316 cons(cons(of_type,
4266 -cons(new_integer(8881718), 4317 +cons(new_integer(8885302),
4267 cons(new_string("One"), 4318 cons(new_string("One"),
4268 cons(app, 4319 cons(app,
4269 -cons(new_integer(8881710), 4320 +cons(new_integer(8885294),
4270 cons(cons(symbol, 4321 cons(cons(symbol,
4271 -cons(new_integer(8881709), 4322 +cons(new_integer(8885293),
4272 new_string("notify"))), 4323 new_string("notify"))),
4273 cons(cons(symbol, 4324 cons(cons(symbol,
4274 -cons(new_integer(8881716), 4325 +cons(new_integer(8885300),
4275 new_string("unique"))), 4326 new_string("unique"))),
4276 nil))))))), 4327 nil))))))),
4277 cons(cons(cons(new_string("unique"), 4328 cons(cons(cons(new_string("unique"),
4278 nil), 4329 nil),
4279 -cons(new_integer(8881718), 4330 +cons(new_integer(8885302),
4280 cons(app, 4331 cons(app,
4281 -cons(new_integer(8881975), 4332 +cons(new_integer(8885559),
4282 cons(cons(symbol, 4333 cons(cons(symbol,
4283 -cons(new_integer(8881974), 4334 +cons(new_integer(8885558),
4284 new_string("£run_udp_server"))), 4335 new_string("£run_udp_server"))),
4285 cons(cons(symbol, 4336 cons(cons(symbol,
4286 -cons(new_integer(8881981), 4337 +cons(new_integer(8885565),
4287 new_string("socket"))), 4338 new_string("socket"))),
4288 cons(cons(symbol, 4339 cons(cons(symbol,
4289 -cons(new_integer(8881989), 4340 +cons(new_integer(8885573),
4290 new_string("handler"))), 4341 new_string("handler"))),
4291 cons(cons(symbol, 4342 cons(cons(symbol,
4292 -cons(new_integer(8882005), 4343 +cons(new_integer(8885589),
4293 new_string("max_packet_size"))), 4344 new_string("max_packet_size"))),
4294 cons(cons(symbol, 4345 cons(cons(symbol,
4295 -cons(new_integer(8882015), 4346 +cons(new_integer(8885599),
4296 new_string("state_var"))), 4347 new_string("state_var"))),
4297 cons(cons(symbol, 4348 cons(cons(symbol,
4298 -cons(new_integer(8882022), 4349 +cons(new_integer(8885606),
4299 new_string("notify"))), 4350 new_string("notify"))),
4300 nil)))))))))), 4351 nil)))))))))),
4301 nil)))))), 4352 nil)))))),
@@ -4305,49 +4356,49 @@ cons(new_string("trunc"), @@ -4305,49 +4356,49 @@ cons(new_string("trunc"),
4305 cons(new_string("ip_address"), 4356 cons(new_string("ip_address"),
4306 cons(new_string("ip_port"), 4357 cons(new_string("ip_port"),
4307 nil))))), 4358 nil))))),
4308 -cons(new_integer(8882227), 4359 +cons(new_integer(8885811),
4309 cons(delegate, 4360 cons(delegate,
4310 -cons(new_integer(8882455), 4361 +cons(new_integer(8886039),
4311 cons(cons(app, 4362 cons(cons(app,
4312 -cons(new_integer(8882464), 4363 +cons(new_integer(8886048),
4313 cons(cons(symbol, 4364 cons(cons(symbol,
4314 -cons(new_integer(8882463), 4365 +cons(new_integer(8886047),
4315 new_string("handler"))), 4366 new_string("handler"))),
4316 cons(cons(symbol, 4367 cons(cons(symbol,
4317 -cons(new_integer(8882470), 4368 +cons(new_integer(8886054),
4318 new_string("socket"))), 4369 new_string("socket"))),
4319 cons(cons(symbol, 4370 cons(cons(symbol,
4320 -cons(new_integer(8882475), 4371 +cons(new_integer(8886059),
4321 new_string("data"))), 4372 new_string("data"))),
4322 cons(cons(symbol, 4373 cons(cons(symbol,
4323 -cons(new_integer(8882481), 4374 +cons(new_integer(8886065),
4324 new_string("trunc"))), 4375 new_string("trunc"))),
4325 cons(cons(symbol, 4376 cons(cons(symbol,
4326 -cons(new_integer(8882492), 4377 +cons(new_integer(8886076),
4327 new_string("ip_address"))), 4378 new_string("ip_address"))),
4328 cons(cons(symbol, 4379 cons(cons(symbol,
4329 -cons(new_integer(8882500), 4380 +cons(new_integer(8886084),
4330 new_string("ip_port"))), 4381 new_string("ip_port"))),
4331 nil)))))))), 4382 nil)))))))),
4332 cons(app, 4383 cons(app,
4333 -cons(new_integer(8882719), 4384 +cons(new_integer(8886303),
4334 cons(cons(symbol, 4385 cons(cons(symbol,
4335 -cons(new_integer(8882718), 4386 +cons(new_integer(8886302),
4336 new_string("£run_udp_server"))), 4387 new_string("£run_udp_server"))),
4337 cons(cons(symbol, 4388 cons(cons(symbol,
4338 -cons(new_integer(8882725), 4389 +cons(new_integer(8886309),
4339 new_string("socket"))), 4390 new_string("socket"))),
4340 cons(cons(symbol, 4391 cons(cons(symbol,
4341 -cons(new_integer(8882733), 4392 +cons(new_integer(8886317),
4342 new_string("handler"))), 4393 new_string("handler"))),
4343 cons(cons(symbol, 4394 cons(cons(symbol,
4344 -cons(new_integer(8882749), 4395 +cons(new_integer(8886333),
4345 new_string("max_packet_size"))), 4396 new_string("max_packet_size"))),
4346 cons(cons(symbol, 4397 cons(cons(symbol,
4347 -cons(new_integer(8882759), 4398 +cons(new_integer(8886343),
4348 new_string("state_var"))), 4399 new_string("state_var"))),
4349 cons(cons(symbol, 4400 cons(cons(symbol,
4350 -cons(new_integer(8882766), 4401 +cons(new_integer(8886350),
4351 new_string("notify"))), 4402 new_string("notify"))),
4352 nil))))))))))))), 4403 nil))))))))))))),
4353 nil)))))))), 4404 nil)))))))),
@@ -4372,7 +4423,7 @@ noname), @@ -4372,7 +4423,7 @@ noname),
4372 nil)), 4423 nil)),
4373 nil)))),0,1); 4424 nil)))),0,1);
4374 4425
4375 -new_op_scheme(17779228,1, 4426 +new_op_scheme(17786396,1,
4376 cons(type_Var, 4427 cons(type_Var,
4377 new_utvar("T")), 4428 new_utvar("T")),
4378 cons(new_string("var"), 4429 cons(new_string("var"),
@@ -4382,7 +4433,7 @@ new_string("init")), @@ -4382,7 +4433,7 @@ new_string("init")),
4382 nil), 4433 nil),
4383 no_term); 4434 no_term);
4384 4435
4385 -new_op_scheme(17780252,1, 4436 +new_op_scheme(17787420,1,
4386 new_string("Start_UDP_Server_Result"), 4437 new_string("Start_UDP_Server_Result"),
4387 cons(new_string("start_udp_server"), 4438 cons(new_string("start_udp_server"),
4388 nil), 4439 nil),
@@ -4408,109 +4459,109 @@ new_string("One"))), @@ -4408,109 +4459,109 @@ new_string("One"))),
4408 new_string("notify")), 4459 new_string("notify")),
4409 nil))))), 4460 nil))))),
4410 cons(cond, 4461 cons(cond,
4411 -cons(new_integer(8893702), 4462 +cons(new_integer(8897286),
4412 cons(cons(app, 4463 cons(cons(app,
4413 -cons(new_integer(8893729), 4464 +cons(new_integer(8897313),
4414 cons(cons(symbol, 4465 cons(cons(symbol,
4415 -cons(new_integer(8893728), 4466 +cons(new_integer(8897312),
4416 new_string("£create_udp_server_socket"))), 4467 new_string("£create_udp_server_socket"))),
4417 cons(cons(symbol, 4468 cons(cons(symbol,
4418 -cons(new_integer(8893739), 4469 +cons(new_integer(8897323),
4419 new_string("ip_address"))), 4470 new_string("ip_address"))),
4420 cons(cons(symbol, 4471 cons(cons(symbol,
4421 -cons(new_integer(8893747), 4472 +cons(new_integer(8897331),
4422 new_string("ip_port"))), 4473 new_string("ip_port"))),
4423 nil))))), 4474 nil))))),
4424 cons(cons(cons(new_string("£cannot_create_the_socket"), 4475 cons(cons(cons(new_string("£cannot_create_the_socket"),
4425 nil), 4476 nil),
4426 -cons(new_integer(8894248), 4477 +cons(new_integer(8897832),
4427 cons(symbol, 4478 cons(symbol,
4428 -cons(new_integer(8894273), 4479 +cons(new_integer(8897857),
4429 new_string("cannot_create_the_socket"))))), 4480 new_string("cannot_create_the_socket"))))),
4430 cons(cons(cons(new_string("£cannot_bind_address_port"), 4481 cons(cons(cons(new_string("£cannot_bind_address_port"),
4431 nil), 4482 nil),
4432 -cons(new_integer(8894504), 4483 +cons(new_integer(8898088),
4433 cons(symbol, 4484 cons(symbol,
4434 -cons(new_integer(8894529), 4485 +cons(new_integer(8898113),
4435 new_string("cannot_bind_address_port"))))), 4486 new_string("cannot_bind_address_port"))))),
4436 cons(cons(cons(new_string("£access_denied"), 4487 cons(cons(cons(new_string("£access_denied"),
4437 nil), 4488 nil),
4438 -cons(new_integer(8894760), 4489 +cons(new_integer(8898344),
4439 cons(symbol, 4490 cons(symbol,
4440 -cons(new_integer(8894774), 4491 +cons(new_integer(8898358),
4441 new_string("access_denied"))))), 4492 new_string("access_denied"))))),
4442 cons(cons(cons(new_string("£ok"), 4493 cons(cons(cons(new_string("£ok"),
4443 cons(new_string("socket"), 4494 cons(new_string("socket"),
4444 nil)), 4495 nil)),
4445 -cons(new_integer(8895000), 4496 +cons(new_integer(8898584),
4446 cons(with, 4497 cons(with,
4447 -cons(new_integer(8895258), 4498 +cons(new_integer(8898842),
4448 cons(new_string("state_var"), 4499 cons(new_string("state_var"),
4449 cons(cons(app, 4500 cons(cons(app,
4450 -cons(new_integer(8895263), 4501 +cons(new_integer(8898847),
4451 cons(cons(symbol, 4502 cons(cons(symbol,
4452 -cons(new_integer(8895262), 4503 +cons(new_integer(8898846),
4453 new_string("var"))), 4504 new_string("var"))),
4454 cons(cons(of_type, 4505 cons(cons(of_type,
4455 -cons(new_integer(8895264), 4506 +cons(new_integer(8898848),
4456 cons(new_string("Bool"), 4507 cons(new_string("Bool"),
4457 cons(symbol, 4508 cons(symbol,
4458 -cons(new_integer(8895273), 4509 +cons(new_integer(8898857),
4459 new_string("true")))))), 4510 new_string("true")))))),
4460 nil)))), 4511 nil)))),
4461 cons(with, 4512 cons(with,
4462 -cons(new_integer(8895514), 4513 +cons(new_integer(8899098),
4463 cons(new_string("udp_socket"), 4514 cons(new_string("udp_socket"),
4464 cons(cons(app, 4515 cons(cons(app,
4465 -cons(new_integer(8895527), 4516 +cons(new_integer(8899111),
4466 cons(cons(symbol, 4517 cons(cons(symbol,
4467 -cons(new_integer(8895526), 4518 +cons(new_integer(8899110),
4468 new_string("£udp_socket"))), 4519 new_string("£udp_socket"))),
4469 cons(cons(symbol, 4520 cons(cons(symbol,
4470 -cons(new_integer(8895533), 4521 +cons(new_integer(8899117),
4471 new_string("socket"))), 4522 new_string("socket"))),
4472 nil)))), 4523 nil)))),
4473 cons(delegate, 4524 cons(delegate,
4474 -cons(new_integer(8895762), 4525 +cons(new_integer(8899346),
4475 cons(cons(app, 4526 cons(cons(app,
4476 -cons(new_integer(8895779), 4527 +cons(new_integer(8899363),
4477 cons(cons(symbol, 4528 cons(cons(symbol,
4478 -cons(new_integer(8895778), 4529 +cons(new_integer(8899362),
4479 new_string("£run_udp_server"))), 4530 new_string("£run_udp_server"))),
4480 cons(cons(symbol, 4531 cons(cons(symbol,
4481 -cons(new_integer(8895789), 4532 +cons(new_integer(8899373),
4482 new_string("udp_socket"))), 4533 new_string("udp_socket"))),
4483 cons(cons(symbol, 4534 cons(cons(symbol,
4484 -cons(new_integer(8895797), 4535 +cons(new_integer(8899381),
4485 new_string("handler"))), 4536 new_string("handler"))),
4486 cons(cons(symbol, 4537 cons(cons(symbol,
4487 -cons(new_integer(8895813), 4538 +cons(new_integer(8899397),
4488 new_string("max_packet_size"))), 4539 new_string("max_packet_size"))),
4489 cons(cons(symbol, 4540 cons(cons(symbol,
4490 -cons(new_integer(8895823), 4541 +cons(new_integer(8899407),
4491 new_string("state_var"))), 4542 new_string("state_var"))),
4492 cons(cons(symbol, 4543 cons(cons(symbol,
4493 -cons(new_integer(8895830), 4544 +cons(new_integer(8899414),
4494 new_string("notify"))), 4545 new_string("notify"))),
4495 nil)))))))), 4546 nil)))))))),
4496 cons(app, 4547 cons(app,
4497 -cons(new_integer(8896013), 4548 +cons(new_integer(8899597),
4498 cons(cons(symbol, 4549 cons(cons(symbol,
4499 -cons(new_integer(8896012), 4550 +cons(new_integer(8899596),
4500 new_string("ok"))), 4551 new_string("ok"))),
4501 cons(cons(app, 4552 cons(cons(app,
4502 -cons(new_integer(8896025), 4553 +cons(new_integer(8899609),
4503 cons(cons(symbol, 4554 cons(cons(symbol,
4504 -cons(new_integer(8896024), 4555 +cons(new_integer(8899608),
4505 new_string("£udp_server"))), 4556 new_string("£udp_server"))),
4506 cons(cons(symbol, 4557 cons(cons(symbol,
4507 -cons(new_integer(8896034), 4558 +cons(new_integer(8899618),
4508 new_string("state_var"))), 4559 new_string("state_var"))),
4509 nil)))), 4560 nil)))),
4510 nil))))))))))))))))), 4561 nil))))))))))))))))),
4511 nil)))))))); 4562 nil))))))));
4512 4563
4513 -new_op_scheme(17795100,1, 4564 +new_op_scheme(17802268,1,
4514 new_string("Bool"), 4565 new_string("Bool"),
4515 cons(new_string("is_down"), 4566 cons(new_string("is_down"),
4516 nil), 4567 nil),
@@ -4518,40 +4569,40 @@ cons(cons(new_string("UDP_Server"), @@ -4518,40 +4569,40 @@ cons(cons(new_string("UDP_Server"),
4518 new_string("server")), 4569 new_string("server")),
4519 nil), 4570 nil),
4520 cons(cond, 4571 cons(cond,
4521 -cons(new_integer(8898822), 4572 +cons(new_integer(8902406),
4522 cons(cons(symbol, 4573 cons(cons(symbol,
4523 -cons(new_integer(8898829), 4574 +cons(new_integer(8902413),
4524 new_string("server"))), 4575 new_string("server"))),
4525 cons(cons(cons(new_string("£udp_server"), 4576 cons(cons(cons(new_string("£udp_server"),
4526 cons(new_string("v"), 4577 cons(new_string("v"),
4527 nil)), 4578 nil)),
4528 -cons(new_integer(8898852), 4579 +cons(new_integer(8902436),
4529 cons(cond, 4580 cons(cond,
4530 -cons(new_integer(8899078), 4581 +cons(new_integer(8902662),
4531 cons(cons(of_type, 4582 cons(cons(of_type,
4532 -cons(new_integer(8899078), 4583 +cons(new_integer(8902662),
4533 cons(new_string("Bool"), 4584 cons(new_string("Bool"),
4534 cons(anb_read, 4585 cons(anb_read,
4535 -cons(new_integer(8899080), 4586 +cons(new_integer(8902664),
4536 cons(symbol, 4587 cons(symbol,
4537 -cons(new_integer(8899081), 4588 +cons(new_integer(8902665),
4538 new_string("v")))))))), 4589 new_string("v")))))))),
4539 cons(cons(cons(new_string("false"), 4590 cons(cons(cons(new_string("false"),
4540 nil), 4591 nil),
4541 -cons(new_integer(8899097), 4592 +cons(new_integer(8902681),
4542 cons(symbol, 4593 cons(symbol,
4543 -cons(new_integer(8899102), 4594 +cons(new_integer(8902686),
4544 new_string("true"))))), 4595 new_string("true"))))),
4545 cons(cons(cons(new_string("true"), 4596 cons(cons(cons(new_string("true"),
4546 nil), 4597 nil),
4547 -cons(new_integer(8899086), 4598 +cons(new_integer(8902670),
4548 cons(symbol, 4599 cons(symbol,
4549 -cons(new_integer(8899092), 4600 +cons(new_integer(8902676),
4550 new_string("false"))))), 4601 new_string("false"))))),
4551 nil))))))), 4602 nil))))))),
4552 nil))))); 4603 nil)))));
4553 4604
4554 -new_op_scheme(17800732,1, 4605 +new_op_scheme(17807900,1,
4555 new_string("One"), 4606 new_string("One"),
4556 cons(new_string("shutdown"), 4607 cons(new_string("shutdown"),
4557 nil), 4608 nil),
@@ -4559,25 +4610,25 @@ cons(cons(new_string("UDP_Server"), @@ -4559,25 +4610,25 @@ cons(cons(new_string("UDP_Server"),
4559 new_string("server")), 4610 new_string("server")),
4560 nil), 4611 nil),
4561 cons(cond, 4612 cons(cond,
4562 -cons(new_integer(8901638), 4613 +cons(new_integer(8905222),
4563 cons(cons(symbol, 4614 cons(cons(symbol,
4564 -cons(new_integer(8901645), 4615 +cons(new_integer(8905229),
4565 new_string("server"))), 4616 new_string("server"))),
4566 cons(cons(cons(new_string("£udp_server"), 4617 cons(cons(cons(new_string("£udp_server"),
4567 cons(new_string("v"), 4618 cons(new_string("v"),
4568 nil)), 4619 nil)),
4569 -cons(new_integer(8901668), 4620 +cons(new_integer(8905252),
4570 cons(anb_write, 4621 cons(anb_write,
4571 -cons(new_integer(8901896), 4622 +cons(new_integer(8905480),
4572 cons(cons(symbol, 4623 cons(cons(symbol,
4573 -cons(new_integer(8901893), 4624 +cons(new_integer(8905477),
4574 new_string("v"))), 4625 new_string("v"))),
4575 cons(symbol, 4626 cons(symbol,
4576 -cons(new_integer(8901902), 4627 +cons(new_integer(8905486),
4577 new_string("false")))))))), 4628 new_string("false")))))))),
4578 nil))))); 4629 nil)))));
4579 4630
4580 -new_op_scheme(17814044,1, 4631 +new_op_scheme(17821212,1,
4581 cons(app_ts, 4632 cons(app_ts,
4582 cons(new_string("Maybe"), 4633 cons(new_string("Maybe"),
4583 cons(new_string("Int8"), 4634 cons(new_string("Int8"),
@@ -4598,11 +4649,11 @@ nil))), @@ -4598,11 +4649,11 @@ nil))),
4598 new_string("operands")), 4649 new_string("operands")),
4599 nil))), 4650 nil))),
4600 cons(avm, 4651 cons(avm,
4601 -cons(new_integer(8908558), 4652 +cons(new_integer(8912142),
4602 cons(do_execute, 4653 cons(do_execute,
4603 nil)))); 4654 nil))));
4604 4655
4605 -new_op_scheme(17825820,1, 4656 +new_op_scheme(17832988,1,
4606 cons(app_ts, 4657 cons(app_ts,
4607 cons(new_string("Maybe"), 4658 cons(new_string("Maybe"),
4608 cons(new_string("Int8"), 4659 cons(new_string("Int8"),
@@ -4618,22 +4669,22 @@ nil))), @@ -4618,22 +4669,22 @@ nil))),
4618 new_string("operands")), 4669 new_string("operands")),
4619 nil)), 4670 nil)),
4620 cons(app, 4671 cons(app,
4621 -cons(new_integer(8914444), 4672 +cons(new_integer(8918028),
4622 cons(cons(symbol, 4673 cons(cons(symbol,
4623 -cons(new_integer(8914443), 4674 +cons(new_integer(8918027),
4624 new_string("execute"))), 4675 new_string("execute"))),
4625 cons(cons(symbol, 4676 cons(cons(symbol,
4626 -cons(new_integer(8914451), 4677 +cons(new_integer(8918035),
4627 new_string("failure"))), 4678 new_string("failure"))),
4628 cons(cons(symbol, 4679 cons(cons(symbol,
4629 -cons(new_integer(8914464), 4680 +cons(new_integer(8918048),
4630 new_string("program_name"))), 4681 new_string("program_name"))),
4631 cons(cons(symbol, 4682 cons(cons(symbol,
4632 -cons(new_integer(8914473), 4683 +cons(new_integer(8918057),
4633 new_string("operands"))), 4684 new_string("operands"))),
4634 nil))))))); 4685 nil)))))));
4635 4686
4636 -new_op_scheme(17829916,1, 4687 +new_op_scheme(17837084,1,
4637 cons(app_ts, 4688 cons(app_ts,
4638 cons(new_string("Maybe"), 4689 cons(new_string("Maybe"),
4639 cons(new_string("Int8"), 4690 cons(new_string("Int8"),
@@ -4651,24 +4702,24 @@ nil))), @@ -4651,24 +4702,24 @@ nil))),
4651 new_string("operands")), 4702 new_string("operands")),
4652 nil))), 4703 nil))),
4653 cons(app, 4704 cons(app,
4654 -cons(new_integer(8916748), 4705 +cons(new_integer(8920332),
4655 cons(cons(symbol, 4706 cons(cons(symbol,
4656 -cons(new_integer(8916747), 4707 +cons(new_integer(8920331),
4657 new_string("execute"))), 4708 new_string("execute"))),
4658 cons(cons(app, 4709 cons(cons(app,
4659 -cons(new_integer(8916756), 4710 +cons(new_integer(8920340),
4660 cons(cons(symbol, 4711 cons(cons(symbol,
4661 -cons(new_integer(8916755), 4712 +cons(new_integer(8920339),
4662 new_string("success"))), 4713 new_string("success"))),
4663 cons(cons(symbol, 4714 cons(cons(symbol,
4664 -cons(new_integer(8916775), 4715 +cons(new_integer(8920359),
4665 new_string("execution_directory"))), 4716 new_string("execution_directory"))),
4666 nil)))), 4717 nil)))),
4667 cons(cons(symbol, 4718 cons(cons(symbol,
4668 -cons(new_integer(8916789), 4719 +cons(new_integer(8920373),
4669 new_string("program_name"))), 4720 new_string("program_name"))),
4670 cons(cons(symbol, 4721 cons(cons(symbol,
4671 -cons(new_integer(8916798), 4722 +cons(new_integer(8920382),
4672 new_string("operands"))), 4723 new_string("operands"))),
4673 nil))))))); 4724 nil)))))));
4674 4725
@@ -4692,7 +4743,7 @@ noname), @@ -4692,7 +4743,7 @@ noname),
4692 nil))))), 4743 nil))))),
4693 nil),0,1); 4744 nil),0,1);
4694 4745
4695 -new_op_scheme(17855516,1, 4746 +new_op_scheme(17862684,1,
4696 cons(app_ts, 4747 cons(app_ts,
4697 cons(new_string("Maybe"), 4748 cons(new_string("Maybe"),
4698 cons(new_string("ExecuteControl"), 4749 cons(new_string("ExecuteControl"),
@@ -4713,7 +4764,7 @@ nil))), @@ -4713,7 +4764,7 @@ nil))),
4713 new_string("operands")), 4764 new_string("operands")),
4714 nil))), 4765 nil))),
4715 cons(avm, 4766 cons(avm,
4716 -cons(new_integer(8929294), 4767 +cons(new_integer(8932878),
4717 cons(do_execute_capture, 4768 cons(do_execute_capture,
4718 nil)))); 4769 nil))));
4719 4770
@@ -4733,7 +4784,7 @@ new_string("code")), @@ -4733,7 +4784,7 @@ new_string("code")),
4733 nil)), 4784 nil)),
4734 nil))),0,1); 4785 nil))),0,1);
4735 4786
4736 -new_op_scheme(17871388,1, 4787 +new_op_scheme(17878556,1,
4737 new_string("ExecuteStatus"), 4788 new_string("ExecuteStatus"),
4738 cons(new_string("check_execute_status"), 4789 cons(new_string("check_execute_status"),
4739 nil), 4790 nil),
@@ -4741,11 +4792,11 @@ cons(cons(new_string("ExecuteControl"), @@ -4741,11 +4792,11 @@ cons(cons(new_string("ExecuteControl"),
4741 new_string("ec")), 4792 new_string("ec")),
4742 nil), 4793 nil),
4743 cons(avm, 4794 cons(avm,
4744 -cons(new_integer(8936718), 4795 +cons(new_integer(8940302),
4745 cons(check_execute_status, 4796 cons(check_execute_status,
4746 nil)))); 4797 nil))));
4747 4798
4748 -new_op_scheme(17879580,1, 4799 +new_op_scheme(17886748,1,
4749 type_Int32, 4800 type_Int32,
4750 cons(new_string("random"), 4801 cons(new_string("random"),
4751 nil), 4802 nil),
@@ -4753,11 +4804,11 @@ cons(cons(type_Int32, @@ -4753,11 +4804,11 @@ cons(cons(type_Int32,
4753 new_string("n")), 4804 new_string("n")),
4754 nil), 4805 nil),
4755 cons(avm, 4806 cons(avm,
4756 -cons(new_integer(8939847), 4807 +cons(new_integer(8943431),
4757 cons(do_random, 4808 cons(do_random,
4758 nil)))); 4809 nil))));
4759 4810
4760 -new_op_scheme(17891868,1, 4811 +new_op_scheme(17899036,1,
4761 cons(type_Var, 4812 cons(type_Var,
4762 new_utvar("T")), 4813 new_utvar("T")),
4763 cons(new_string("var"), 4814 cons(new_string("var"),
@@ -4766,12 +4817,12 @@ cons(cons(new_utvar("T"), @@ -4766,12 +4817,12 @@ cons(cons(new_utvar("T"),
4766 new_string("init")), 4817 new_string("init")),
4767 nil), 4818 nil),
4768 cons(avm, 4819 cons(avm,
4769 -cons(new_integer(8945973), 4820 +cons(new_integer(8949557),
4770 cons(create_var, 4821 cons(create_var,
4771 cons(kill_next_instr, 4822 cons(kill_next_instr,
4772 nil))))); 4823 nil)))));
4773 4824
4774 -new_op_scheme(17940508,1, 4825 +new_op_scheme(17947676,1,
4775 type_Int32, 4826 type_Int32,
4776 cons(new_string("var_id"), 4827 cons(new_string("var_id"),
4777 nil), 4828 nil),
@@ -4780,11 +4831,11 @@ new_utvar("T")), @@ -4780,11 +4831,11 @@ new_utvar("T")),
4780 new_string("v")), 4831 new_string("v")),
4781 nil), 4832 nil),
4782 cons(avm, 4833 cons(avm,
4783 -cons(new_integer(8970306), 4834 +cons(new_integer(8973890),
4784 cons(var_id, 4835 cons(var_id,
4785 nil)))); 4836 nil))));
4786 4837
4787 -new_op_scheme(17948174,0, 4838 +new_op_scheme(17955342,0,
4788 cons(type_MVar, 4839 cons(type_MVar,
4789 new_utvar("T")), 4840 new_utvar("T")),
4790 cons(new_string("£mvar"), 4841 cons(new_string("£mvar"),
@@ -4797,14 +4848,14 @@ cons(cons(type_Int32, @@ -4797,14 +4848,14 @@ cons(cons(type_Int32,
4797 new_string("bw")), 4848 new_string("bw")),
4798 nil))), 4849 nil))),
4799 cons(avm, 4850 cons(avm,
4800 -cons(new_integer(8974346), 4851 +cons(new_integer(8977930),
4801 cons(create_mvar, 4852 cons(create_mvar,
4802 cons(kill_next_instr, 4853 cons(kill_next_instr,
4803 cons(kill_next_instr, 4854 cons(kill_next_instr,
4804 cons(kill_next_instr, 4855 cons(kill_next_instr,
4805 nil))))))); 4856 nil)))))));
4806 4857
4807 -new_op_scheme(17951260,1, 4858 +new_op_scheme(17958428,1,
4808 cons(type_MVar, 4859 cons(type_MVar,
4809 new_utvar("T")), 4860 new_utvar("T")),
4810 cons(new_string("mvar"), 4861 cons(new_string("mvar"),
@@ -4815,78 +4866,78 @@ cons(cons(new_utvar("T"), @@ -4815,78 +4866,78 @@ cons(cons(new_utvar("T"),
4815 new_string("init")), 4866 new_string("init")),
4816 nil)), 4867 nil)),
4817 cons(cond, 4868 cons(cond,
4818 -cons(new_integer(8977158), 4869 +cons(new_integer(8980742),
4819 cons(cons(of_type, 4870 cons(cons(of_type,
4820 -cons(new_integer(8977158), 4871 +cons(new_integer(8980742),
4821 cons(new_string("Bool"), 4872 cons(new_string("Bool"),
4822 cons(app, 4873 cons(app,
4823 -cons(new_integer(8977162), 4874 +cons(new_integer(8980746),
4824 cons(cons(symbol, 4875 cons(cons(symbol,
4825 -cons(new_integer(8977162), 4876 +cons(new_integer(8980746),
4826 new_string("<"))), 4877 new_string("<"))),
4827 cons(cons(symbol, 4878 cons(cons(symbol,
4828 -cons(new_integer(8977160), 4879 +cons(new_integer(8980744),
4829 new_string("n"))), 4880 new_string("n"))),
4830 cons(cons(integer_10, 4881 cons(cons(integer_10,
4831 -cons(new_integer(8977164), 4882 +cons(new_integer(8980748),
4832 cons(new_integer(1), 4883 cons(new_integer(1),
4833 nil))), 4884 nil))),
4834 nil)))))))), 4885 nil)))))))),
4835 cons(cons(cons(new_string("false"), 4886 cons(cons(cons(new_string("false"),
4836 nil), 4887 nil),
4837 -cons(new_integer(8977672), 4888 +cons(new_integer(8981256),
4838 cons(app, 4889 cons(app,
4839 -cons(new_integer(8977679), 4890 +cons(new_integer(8981263),
4840 cons(cons(symbol, 4891 cons(cons(symbol,
4841 -cons(new_integer(8977678), 4892 +cons(new_integer(8981262),
4842 new_string("£mvar"))), 4893 new_string("£mvar"))),
4843 cons(cons(symbol, 4894 cons(cons(symbol,
4844 -cons(new_integer(8977680), 4895 +cons(new_integer(8981264),
4845 new_string("n"))), 4896 new_string("n"))),
4846 cons(cons(vcopy, 4897 cons(cons(vcopy,
4847 -cons(new_integer(8977687), 4898 +cons(new_integer(8981271),
4848 cons(cons(app, 4899 cons(cons(app,
4849 -cons(new_integer(8977690), 4900 +cons(new_integer(8981274),
4850 cons(cons(symbol, 4901 cons(cons(symbol,
4851 -cons(new_integer(8977690), 4902 +cons(new_integer(8981274),
4852 new_string("-"))), 4903 new_string("-"))),
4853 cons(cons(symbol, 4904 cons(cons(symbol,
4854 -cons(new_integer(8977689), 4905 +cons(new_integer(8981273),
4855 new_string("n"))), 4906 new_string("n"))),
4856 cons(cons(integer_10, 4907 cons(cons(integer_10,
4857 -cons(new_integer(8977691), 4908 +cons(new_integer(8981275),
4858 cons(new_integer(1), 4909 cons(new_integer(1),
4859 nil))), 4910 nil))),
4860 nil))))), 4911 nil))))),
4861 cons(symbol, 4912 cons(symbol,
4862 -cons(new_integer(8977696), 4913 +cons(new_integer(8981280),
4863 new_string("init")))))), 4914 new_string("init")))))),
4864 cons(cons(bit_width, 4915 cons(cons(bit_width,
4865 -cons(new_integer(8977707), 4916 +cons(new_integer(8981291),
4866 new_utvar("T"))), 4917 new_utvar("T"))),
4867 nil)))))))), 4918 nil)))))))),
4868 cons(cons(cons(new_string("true"), 4919 cons(cons(cons(new_string("true"),
4869 nil), 4920 nil),
4870 -cons(new_integer(8977416), 4921 +cons(new_integer(8981000),
4871 cons(app, 4922 cons(app,
4872 -cons(new_integer(8977423), 4923 +cons(new_integer(8981007),
4873 cons(cons(symbol, 4924 cons(cons(symbol,
4874 -cons(new_integer(8977422), 4925 +cons(new_integer(8981006),
4875 new_string("£mvar"))), 4926 new_string("£mvar"))),
4876 cons(cons(integer_10, 4927 cons(cons(integer_10,
4877 -cons(new_integer(8977424), 4928 +cons(new_integer(8981008),
4878 cons(new_integer(1), 4929 cons(new_integer(1),
4879 nil))), 4930 nil))),
4880 cons(cons(symbol, 4931 cons(cons(symbol,
4881 -cons(new_integer(8977429), 4932 +cons(new_integer(8981013),
4882 new_string("init"))), 4933 new_string("init"))),
4883 cons(cons(bit_width, 4934 cons(cons(bit_width,
4884 -cons(new_integer(8977439), 4935 +cons(new_integer(8981023),
4885 new_utvar("T"))), 4936 new_utvar("T"))),
4886 nil)))))))), 4937 nil)))))))),
4887 nil)))))); 4938 nil))))));
4888 4939
4889 -new_op_scheme(17972764,1, 4940 +new_op_scheme(17979932,1,
4890 type_Int32, 4941 type_Int32,
4891 cons(new_string("length"), 4942 cons(new_string("length"),
4892 nil), 4943 nil),
@@ -4895,11 +4946,11 @@ new_utvar(&quot;T&quot;)), @@ -4895,11 +4946,11 @@ new_utvar(&quot;T&quot;)),
4895 new_string("mv")), 4946 new_string("mv")),
4896 nil), 4947 nil),
4897 cons(avm, 4948 cons(avm,
4898 -cons(new_integer(8986439), 4949 +cons(new_integer(8990023),
4899 cons(mvar_length, 4950 cons(mvar_length,
4900 nil)))); 4951 nil))));
4901 4952
4902 -new_op_scheme(17976348,1, 4953 +new_op_scheme(17983516,1,
4903 cons(type_MVar, 4954 cons(type_MVar,
4904 new_utvar("T")), 4955 new_utvar("T")),
4905 cons(new_string("+"), 4956 cons(new_string("+"),
@@ -4912,11 +4963,11 @@ new_utvar(&quot;T&quot;)), @@ -4912,11 +4963,11 @@ new_utvar(&quot;T&quot;)),
4912 new_string("mv2")), 4963 new_string("mv2")),
4913 nil)), 4964 nil)),
4914 cons(avm, 4965 cons(avm,
4915 -cons(new_integer(8988936), 4966 +cons(new_integer(8992520),
4916 cons(concat_mvar, 4967 cons(concat_mvar,
4917 nil)))); 4968 nil))));
4918 4969
4919 -new_op_scheme(17980444,1, 4970 +new_op_scheme(17987612,1,
4920 type_Int32, 4971 type_Int32,
4921 cons(new_string("mvar_id"), 4972 cons(new_string("mvar_id"),
4922 nil), 4973 nil),
@@ -4925,7 +4976,7 @@ new_utvar(&quot;T&quot;)), @@ -4925,7 +4976,7 @@ new_utvar(&quot;T&quot;)),
4925 new_string("mv")), 4976 new_string("mv")),
4926 nil), 4977 nil),
4927 cons(avm, 4978 cons(avm,
4928 -cons(new_integer(8990277), 4979 +cons(new_integer(8993861),
4929 cons(var_id, 4980 cons(var_id,
4930 nil)))); 4981 nil))));
4931 4982
@@ -4948,7 +4999,7 @@ new_string(&quot;£index&quot;)), @@ -4948,7 +4999,7 @@ new_string(&quot;£index&quot;)),
4948 nil)))), 4999 nil)))),
4949 nil),0,1); 5000 nil),0,1);
4950 5001
4951 -new_op_scheme(17993756,1, 5002 +new_op_scheme(18000924,1,
4952 cons(app_ts, 5003 cons(app_ts,
4953 cons(new_string("MonitoringTicket"), 5004 cons(new_string("MonitoringTicket"),
4954 cons(new_utvar("T"), 5005 cons(new_utvar("T"),
@@ -4965,20 +5016,20 @@ new_string(&quot;One&quot;))), @@ -4965,20 +5016,20 @@ new_string(&quot;One&quot;))),
4965 new_string("monitor")), 5016 new_string("monitor")),
4966 nil)), 5017 nil)),
4967 cons(avm, 5018 cons(avm,
4968 -cons(new_integer(8998158), 5019 +cons(new_integer(9001742),
4969 cons(register_monitor, 5020 cons(register_monitor,
4970 cons(pop2, 5021 cons(pop2,
4971 cons(kill_next_instr, 5022 cons(kill_next_instr,
4972 cons(kill_next_instr, 5023 cons(kill_next_instr,
4973 nil))))))); 5024 nil)))))));
4974 5025
4975 -new_op_scheme(18035228,1, 5026 +new_op_scheme(18042396,1,
4976 type_Int32, 5027 type_Int32,
4977 cons(new_string("now"), 5028 cons(new_string("now"),
4978 nil), 5029 nil),
4979 nil, 5030 nil,
4980 cons(avm, 5031 cons(avm,
4981 -cons(new_integer(9017670), 5032 +cons(new_integer(9021254),
4982 cons(now, 5033 cons(now,
4983 nil)))); 5034 nil))));
4984 5035
@@ -4994,13 +5045,13 @@ new_string(&quot;microseconds&quot;)), @@ -4994,13 +5045,13 @@ new_string(&quot;microseconds&quot;)),
4994 nil))), 5045 nil))),
4995 nil),0,1); 5046 nil),0,1);
4996 5047
4997 -new_op_scheme(18039836,1, 5048 +new_op_scheme(18047004,1,
4998 new_string("UTime"), 5049 new_string("UTime"),
4999 cons(new_string("now"), 5050 cons(new_string("now"),
5000 nil), 5051 nil),
5001 nil, 5052 nil,
5002 cons(avm, 5053 cons(avm,
5003 -cons(new_integer(9019974), 5054 +cons(new_integer(9023558),
5004 cons(now64, 5055 cons(now64,
5005 nil)))); 5056 nil))));
5006 5057
@@ -5030,7 +5081,7 @@ new_string(&quot;daylight_saving_time&quot;)), @@ -5030,7 +5081,7 @@ new_string(&quot;daylight_saving_time&quot;)),
5030 nil)))))))))), 5081 nil)))))))))),
5031 nil),0,1); 5082 nil),0,1);
5032 5083
5033 -new_op_scheme(18052124,1, 5084 +new_op_scheme(18059292,1,
5034 new_string("Date_and_Time"), 5085 new_string("Date_and_Time"),
5035 cons(new_string("convert_time"), 5086 cons(new_string("convert_time"),
5036 nil), 5087 nil),
@@ -5038,11 +5089,11 @@ cons(cons(type_Int32, @@ -5038,11 +5089,11 @@ cons(cons(type_Int32,
5038 new_string("t")), 5089 new_string("t")),
5039 nil), 5090 nil),
5040 cons(avm, 5091 cons(avm,
5041 -cons(new_integer(9026118), 5092 +cons(new_integer(9029702),
5042 cons(convert_time_from_int, 5093 cons(convert_time_from_int,
5043 nil)))); 5094 nil))));
5044 5095
5045 -new_op_scheme(18052636,1, 5096 +new_op_scheme(18059804,1,
5046 type_Int32, 5097 type_Int32,
5047 cons(new_string("convert_time"), 5098 cons(new_string("convert_time"),
5048 nil), 5099 nil),
@@ -5050,11 +5101,11 @@ cons(cons(new_string(&quot;Date_and_Time&quot;), @@ -5050,11 +5101,11 @@ cons(cons(new_string(&quot;Date_and_Time&quot;),
5050 new_string("d")), 5101 new_string("d")),
5051 nil), 5102 nil),
5052 cons(avm, 5103 cons(avm,
5053 -cons(new_integer(9026374), 5104 +cons(new_integer(9029958),
5054 cons(convert_time_to_int, 5105 cons(convert_time_to_int,
5055 nil)))); 5106 nil))));
5056 5107
5057 -new_op_scheme(18055708,1, 5108 +new_op_scheme(18062876,1,
5058 new_string("One"), 5109 new_string("One"),
5059 cons(new_string("set_time"), 5110 cons(new_string("set_time"),
5060 nil), 5111 nil),
@@ -5062,11 +5113,11 @@ cons(cons(new_string(&quot;UTime&quot;), @@ -5062,11 +5113,11 @@ cons(cons(new_string(&quot;UTime&quot;),
5062 new_string("time")), 5113 new_string("time")),
5063 nil), 5114 nil),
5064 cons(avm, 5115 cons(avm,
5065 -cons(new_integer(9027894), 5116 +cons(new_integer(9031478),
5066 cons(set_time, 5117 cons(set_time,
5067 nil)))); 5118 nil))));
5068 5119
5069 -new_op_scheme(18059804,1, 5120 +new_op_scheme(18066972,1,
5070 new_string("One"), 5121 new_string("One"),
5071 cons(new_string("set_time_zone"), 5122 cons(new_string("set_time_zone"),
5072 nil), 5123 nil),
@@ -5074,11 +5125,11 @@ cons(cons(type_String, @@ -5074,11 +5125,11 @@ cons(cons(type_String,
5074 new_string("time_zone_name")), 5125 new_string("time_zone_name")),
5075 nil), 5126 nil),
5076 cons(avm, 5127 cons(avm,
5077 -cons(new_integer(9029957), 5128 +cons(new_integer(9033541),
5078 cons(set_time_zone, 5129 cons(set_time_zone,
5079 nil)))); 5130 nil))));
5080 5131
5081 -new_op_scheme(18065948,1, 5132 +new_op_scheme(18073116,1,
5082 new_string("One"), 5133 new_string("One"),
5083 cons(new_string("print"), 5134 cons(new_string("print"),
5084 nil), 5135 nil),
@@ -5086,34 +5137,34 @@ cons(cons(type_String, @@ -5086,34 +5137,34 @@ cons(cons(type_String,
5086 new_string("s")), 5137 new_string("s")),
5087 nil), 5138 nil),
5088 cons(cond, 5139 cons(cond,
5089 -cons(new_integer(9034245), 5140 +cons(new_integer(9037829),
5090 cons(cons(of_type, 5141 cons(cons(of_type,
5091 -cons(new_integer(9034245), 5142 +cons(new_integer(9037829),
5092 cons(new_string("Bool"), 5143 cons(new_string("Bool"),
5093 cons(app, 5144 cons(app,
5094 -cons(new_integer(9034259), 5145 +cons(new_integer(9037843),
5095 cons(cons(symbol, 5146 cons(cons(symbol,
5096 -cons(new_integer(9034258), 5147 +cons(new_integer(9037842),
5097 new_string("print_string"))), 5148 new_string("print_string"))),
5098 cons(cons(symbol, 5149 cons(cons(symbol,
5099 -cons(new_integer(9034260), 5150 +cons(new_integer(9037844),
5100 new_string("s"))), 5151 new_string("s"))),
5101 nil))))))), 5152 nil))))))),
5102 cons(cons(cons(new_string("false"), 5153 cons(cons(cons(new_string("false"),
5103 nil), 5154 nil),
5104 -cons(new_integer(9034278), 5155 +cons(new_integer(9037862),
5105 cons(symbol, 5156 cons(symbol,
5106 -cons(new_integer(9034285), 5157 +cons(new_integer(9037869),
5107 new_string("unique"))))), 5158 new_string("unique"))))),
5108 cons(cons(cons(new_string("true"), 5159 cons(cons(cons(new_string("true"),
5109 nil), 5160 nil),
5110 -cons(new_integer(9034266), 5161 +cons(new_integer(9037850),
5111 cons(symbol, 5162 cons(symbol,
5112 -cons(new_integer(9034273), 5163 +cons(new_integer(9037857),
5113 new_string("unique"))))), 5164 new_string("unique"))))),
5114 nil)))))); 5165 nil))))));
5115 5166
5116 -new_op_scheme(18069518,0, 5167 +new_op_scheme(18076686,0,
5117 new_string("One"), 5168 new_string("One"),
5118 cons(new_string("print"), 5169 cons(new_string("print"),
5119 nil), 5170 nil),
@@ -5126,70 +5177,70 @@ cons(cons(type_Int32, @@ -5126,70 +5177,70 @@ cons(cons(type_Int32,
5126 new_string("from")), 5177 new_string("from")),
5127 nil))), 5178 nil))),
5128 cons(cond, 5179 cons(cond,
5129 -cons(new_integer(9036549), 5180 +cons(new_integer(9040133),
5130 cons(cons(app, 5181 cons(cons(app,
5131 -cons(new_integer(9036554), 5182 +cons(new_integer(9040138),
5132 cons(cons(symbol, 5183 cons(cons(symbol,
5133 -cons(new_integer(9036553), 5184 +cons(new_integer(9040137),
5134 new_string("nth"))), 5185 new_string("nth"))),
5135 cons(cons(symbol, 5186 cons(cons(symbol,
5136 -cons(new_integer(9036558), 5187 +cons(new_integer(9040142),
5137 new_string("from"))), 5188 new_string("from"))),
5138 cons(cons(symbol, 5189 cons(cons(symbol,
5139 -cons(new_integer(9036560), 5190 +cons(new_integer(9040144),
5140 new_string("s"))), 5191 new_string("s"))),
5141 nil))))), 5192 nil))))),
5142 cons(cons(cons(new_string("failure"), 5193 cons(cons(cons(new_string("failure"),
5143 nil), 5194 nil),
5144 -cons(new_integer(9037075), 5195 +cons(new_integer(9040659),
5145 cons(symbol, 5196 cons(symbol,
5146 -cons(new_integer(9037082), 5197 +cons(new_integer(9040666),
5147 new_string("unique"))))), 5198 new_string("unique"))))),
5148 cons(cons(cons(new_string("success"), 5199 cons(cons(cons(new_string("success"),
5149 cons(new_string("c"), 5200 cons(new_string("c"),
5150 nil)), 5201 nil)),
5151 -cons(new_integer(9037334), 5202 +cons(new_integer(9040918),
5152 cons(cond, 5203 cons(cond,
5153 -cons(new_integer(9037337), 5204 +cons(new_integer(9040921),
5154 cons(cons(anb_write, 5205 cons(cons(anb_write,
5155 -cons(new_integer(9037584), 5206 +cons(new_integer(9041168),
5156 cons(cons(symbol, 5207 cons(cons(symbol,
5157 -cons(new_integer(9037581), 5208 +cons(new_integer(9041165),
5158 new_string("file"))), 5209 new_string("file"))),
5159 cons(symbol, 5210 cons(symbol,
5160 -cons(new_integer(9037586), 5211 +cons(new_integer(9041170),
5161 new_string("c")))))), 5212 new_string("c")))))),
5162 cons(cons(cons(new_string("failure"), 5213 cons(cons(cons(new_string("failure"),
5163 nil), 5214 nil),
5164 -cons(new_integer(9038105), 5215 +cons(new_integer(9041689),
5165 cons(symbol, 5216 cons(symbol,
5166 -cons(new_integer(9038112), 5217 +cons(new_integer(9041696),
5167 new_string("unique"))))), 5218 new_string("unique"))))),
5168 cons(cons(cons(new_string("success"), 5219 cons(cons(cons(new_string("success"),
5169 cons(new_string("_"), 5220 cons(new_string("_"),
5170 nil)), 5221 nil)),
5171 -cons(new_integer(9038364), 5222 +cons(new_integer(9041948),
5172 cons(app, 5223 cons(app,
5173 -cons(new_integer(9038371), 5224 +cons(new_integer(9041955),
5174 cons(cons(symbol, 5225 cons(cons(symbol,
5175 -cons(new_integer(9038370), 5226 +cons(new_integer(9041954),
5176 new_string("print"))), 5227 new_string("print"))),
5177 cons(cons(symbol, 5228 cons(cons(symbol,
5178 -cons(new_integer(9038375), 5229 +cons(new_integer(9041959),
5179 new_string("file"))), 5230 new_string("file"))),
5180 cons(cons(symbol, 5231 cons(cons(symbol,
5181 -cons(new_integer(9038377), 5232 +cons(new_integer(9041961),
5182 new_string("s"))), 5233 new_string("s"))),
5183 cons(cons(app, 5234 cons(cons(app,
5184 -cons(new_integer(9038383), 5235 +cons(new_integer(9041967),
5185 cons(cons(symbol, 5236 cons(cons(symbol,
5186 -cons(new_integer(9038383), 5237 +cons(new_integer(9041967),
5187 new_string("+"))), 5238 new_string("+"))),
5188 cons(cons(symbol, 5239 cons(cons(symbol,
5189 -cons(new_integer(9038382), 5240 +cons(new_integer(9041966),
5190 new_string("from"))), 5241 new_string("from"))),
5191 cons(cons(integer_10, 5242 cons(cons(integer_10,
5192 -cons(new_integer(9038384), 5243 +cons(new_integer(9041968),
5193 cons(new_integer(1), 5244 cons(new_integer(1),
5194 nil))), 5245 nil))),
5195 nil))))), 5246 nil))))),
@@ -5197,7 +5248,7 @@ nil)))))))), @@ -5197,7 +5248,7 @@ nil)))))))),
5197 nil))))))), 5248 nil))))))),
5198 nil)))))); 5249 nil))))));
5199 5250
5200 -new_op_scheme(18078748,1, 5251 +new_op_scheme(18085916,1,
5201 new_string("One"), 5252 new_string("One"),
5202 cons(new_string("print"), 5253 cons(new_string("print"),
5203 nil), 5254 nil),
@@ -5208,22 +5259,22 @@ cons(cons(type_String, @@ -5208,22 +5259,22 @@ cons(cons(type_String,
5208 new_string("s")), 5259 new_string("s")),
5209 nil)), 5260 nil)),
5210 cons(app, 5261 cons(app,
5211 -cons(new_integer(9040905), 5262 +cons(new_integer(9044489),
5212 cons(cons(symbol, 5263 cons(cons(symbol,
5213 -cons(new_integer(9040904), 5264 +cons(new_integer(9044488),
5214 new_string("print"))), 5265 new_string("print"))),
5215 cons(cons(symbol, 5266 cons(cons(symbol,
5216 -cons(new_integer(9040909), 5267 +cons(new_integer(9044493),
5217 new_string("file"))), 5268 new_string("file"))),
5218 cons(cons(symbol, 5269 cons(cons(symbol,
5219 -cons(new_integer(9040911), 5270 +cons(new_integer(9044495),
5220 new_string("s"))), 5271 new_string("s"))),
5221 cons(cons(integer_10, 5272 cons(cons(integer_10,
5222 -cons(new_integer(9040913), 5273 +cons(new_integer(9044497),
5223 nil)), 5274 nil)),
5224 nil))))))); 5275 nil)))))));
5225 5276
5226 -new_op_scheme(18082844,1, 5277 +new_op_scheme(18090012,1,
5227 new_string("One"), 5278 new_string("One"),
5228 cons(new_string("print"), 5279 cons(new_string("print"),
5229 nil), 5280 nil),
@@ -5231,34 +5282,34 @@ cons(cons(type_Int32, @@ -5231,34 +5282,34 @@ cons(cons(type_Int32,
5231 new_string("n")), 5282 new_string("n")),
5232 nil), 5283 nil),
5233 cons(cond, 5284 cons(cond,
5234 -cons(new_integer(9042693), 5285 +cons(new_integer(9046277),
5235 cons(cons(of_type, 5286 cons(cons(of_type,
5236 -cons(new_integer(9042693), 5287 +cons(new_integer(9046277),
5237 cons(new_string("Bool"), 5288 cons(new_string("Bool"),
5238 cons(app, 5289 cons(app,
5239 -cons(new_integer(9042706), 5290 +cons(new_integer(9046290),
5240 cons(cons(symbol, 5291 cons(cons(symbol,
5241 -cons(new_integer(9042705), 5292 +cons(new_integer(9046289),
5242 new_string("print_int32"))), 5293 new_string("print_int32"))),
5243 cons(cons(symbol, 5294 cons(cons(symbol,
5244 -cons(new_integer(9042707), 5295 +cons(new_integer(9046291),
5245 new_string("n"))), 5296 new_string("n"))),
5246 nil))))))), 5297 nil))))))),
5247 cons(cons(cons(new_string("false"), 5298 cons(cons(cons(new_string("false"),
5248 nil), 5299 nil),
5249 -cons(new_integer(9042726), 5300 +cons(new_integer(9046310),
5250 cons(symbol, 5301 cons(symbol,
5251 -cons(new_integer(9042733), 5302 +cons(new_integer(9046317),
5252 new_string("unique"))))), 5303 new_string("unique"))))),
5253 cons(cons(cons(new_string("true"), 5304 cons(cons(cons(new_string("true"),
5254 nil), 5305 nil),
5255 -cons(new_integer(9042713), 5306 +cons(new_integer(9046297),
5256 cons(symbol, 5307 cons(symbol,
5257 -cons(new_integer(9042720), 5308 +cons(new_integer(9046304),
5258 new_string("unique"))))), 5309 new_string("unique"))))),
5259 nil)))))); 5310 nil))))));
5260 5311
5261 -new_op_scheme(18086428,1, 5312 +new_op_scheme(18093596,1,
5262 new_string("Bool"), 5313 new_string("Bool"),
5263 cons(new_string("&"), 5314 cons(new_string("&"),
5264 nil), 5315 nil),
@@ -5268,28 +5319,28 @@ cons(cons(new_string(&quot;Bool&quot;), @@ -5268,28 +5319,28 @@ cons(cons(new_string(&quot;Bool&quot;),
5268 new_string("y")), 5319 new_string("y")),
5269 nil)), 5320 nil)),
5270 cons(cond, 5321 cons(cond,
5271 -cons(new_integer(9043719), 5322 +cons(new_integer(9047303),
5272 cons(cons(of_type, 5323 cons(cons(of_type,
5273 -cons(new_integer(9043719), 5324 +cons(new_integer(9047303),
5274 cons(new_string("Bool"), 5325 cons(new_string("Bool"),
5275 cons(symbol, 5326 cons(symbol,
5276 -cons(new_integer(9043721), 5327 +cons(new_integer(9047305),
5277 new_string("x")))))), 5328 new_string("x")))))),
5278 cons(cons(cons(new_string("false"), 5329 cons(cons(cons(new_string("false"),
5279 nil), 5330 nil),
5280 -cons(new_integer(9043733), 5331 +cons(new_integer(9047317),
5281 cons(symbol, 5332 cons(symbol,
5282 -cons(new_integer(9043739), 5333 +cons(new_integer(9047323),
5283 new_string("false"))))), 5334 new_string("false"))))),
5284 cons(cons(cons(new_string("true"), 5335 cons(cons(cons(new_string("true"),
5285 nil), 5336 nil),
5286 -cons(new_integer(9043726), 5337 +cons(new_integer(9047310),
5287 cons(symbol, 5338 cons(symbol,
5288 -cons(new_integer(9043728), 5339 +cons(new_integer(9047312),
5289 new_string("y"))))), 5340 new_string("y"))))),
5290 nil)))))); 5341 nil))))));
5291 5342
5292 -new_op_scheme(18088476,1, 5343 +new_op_scheme(18095644,1,
5293 cons(app_ts, 5344 cons(app_ts,
5294 cons(new_string("List"), 5345 cons(new_string("List"),
5295 cons(new_utvar("T"), 5346 cons(new_utvar("T"),
@@ -5308,45 +5359,45 @@ nil))), @@ -5308,45 +5359,45 @@ nil))),
5308 new_string("l2")), 5359 new_string("l2")),
5309 nil)), 5360 nil)),
5310 cons(cond, 5361 cons(cond,
5311 -cons(new_integer(9045765), 5362 +cons(new_integer(9049349),
5312 cons(cons(symbol, 5363 cons(cons(symbol,
5313 -cons(new_integer(9045768), 5364 +cons(new_integer(9049352),
5314 new_string("l1"))), 5365 new_string("l1"))),
5315 cons(cons(cons(new_string("[]"), 5366 cons(cons(cons(new_string("[]"),
5316 nil), 5367 nil),
5317 -cons(new_integer(9046287), 5368 +cons(new_integer(9049871),
5318 cons(symbol, 5369 cons(symbol,
5319 -cons(new_integer(9046290), 5370 +cons(new_integer(9049874),
5320 new_string("l2"))))), 5371 new_string("l2"))))),
5321 cons(cons(cons(new_string("[.]"), 5372 cons(cons(cons(new_string("[.]"),
5322 cons(new_string("h"), 5373 cons(new_string("h"),
5323 cons(new_string("t"), 5374 cons(new_string("t"),
5324 nil))), 5375 nil))),
5325 -cons(new_integer(9046547), 5376 +cons(new_integer(9050131),
5326 cons(app, 5377 cons(app,
5327 -cons(new_integer(9046808), 5378 +cons(new_integer(9050392),
5328 cons(cons(symbol, 5379 cons(cons(symbol,
5329 -cons(new_integer(9046807), 5380 +cons(new_integer(9050391),
5330 new_string("reverse_append"))), 5381 new_string("reverse_append"))),
5331 cons(cons(symbol, 5382 cons(cons(symbol,
5332 -cons(new_integer(9046809), 5383 +cons(new_integer(9050393),
5333 new_string("t"))), 5384 new_string("t"))),
5334 cons(cons(app, 5385 cons(cons(app,
5335 -cons(new_integer(9046815), 5386 +cons(new_integer(9050399),
5336 cons(cons(symbol, 5387 cons(cons(symbol,
5337 -cons(new_integer(9046815), 5388 +cons(new_integer(9050399),
5338 new_string("[.]"))), 5389 new_string("[.]"))),
5339 cons(cons(symbol, 5390 cons(cons(symbol,
5340 -cons(new_integer(9046812), 5391 +cons(new_integer(9050396),
5341 new_string("h"))), 5392 new_string("h"))),
5342 cons(cons(symbol, 5393 cons(cons(symbol,
5343 -cons(new_integer(9046817), 5394 +cons(new_integer(9050401),
5344 new_string("l2"))), 5395 new_string("l2"))),
5345 nil))))), 5396 nil))))),
5346 nil))))))), 5397 nil))))))),
5347 nil)))))); 5398 nil))))));
5348 5399
5349 -new_op_scheme(18095132,1, 5400 +new_op_scheme(18102300,1,
5350 cons(app_ts, 5401 cons(app_ts,
5351 cons(new_string("List"), 5402 cons(new_string("List"),
5352 cons(new_utvar("T"), 5403 cons(new_utvar("T"),
@@ -5360,19 +5411,19 @@ nil))), @@ -5360,19 +5411,19 @@ nil))),
5360 new_string("l")), 5411 new_string("l")),
5361 nil), 5412 nil),
5362 cons(app, 5413 cons(app,
5363 -cons(new_integer(9048850), 5414 +cons(new_integer(9052434),
5364 cons(cons(symbol, 5415 cons(cons(symbol,
5365 -cons(new_integer(9048849), 5416 +cons(new_integer(9052433),
5366 new_string("reverse_append"))), 5417 new_string("reverse_append"))),
5367 cons(cons(symbol, 5418 cons(cons(symbol,
5368 -cons(new_integer(9048851), 5419 +cons(new_integer(9052435),
5369 new_string("l"))), 5420 new_string("l"))),
5370 cons(cons(symbol, 5421 cons(cons(symbol,
5371 -cons(new_integer(9048854), 5422 +cons(new_integer(9052438),
5372 new_string("[]"))), 5423 new_string("[]"))),
5373 nil)))))); 5424 nil))))));
5374 5425
5375 -new_op_scheme(18098716,1, 5426 +new_op_scheme(18105884,1,
5376 cons(app_ts, 5427 cons(app_ts,
5377 cons(new_string("List"), 5428 cons(new_string("List"),
5378 cons(new_utvar("T"), 5429 cons(new_utvar("T"),
@@ -5391,45 +5442,45 @@ nil))), @@ -5391,45 +5442,45 @@ nil))),
5391 new_string("l2")), 5442 new_string("l2")),
5392 nil)), 5443 nil)),
5393 cons(cond, 5444 cons(cond,
5394 -cons(new_integer(9050885), 5445 +cons(new_integer(9054469),
5395 cons(cons(symbol, 5446 cons(cons(symbol,
5396 -cons(new_integer(9050888), 5447 +cons(new_integer(9054472),
5397 new_string("l1"))), 5448 new_string("l1"))),
5398 cons(cons(cons(new_string("[]"), 5449 cons(cons(cons(new_string("[]"),
5399 nil), 5450 nil),
5400 -cons(new_integer(9051407), 5451 +cons(new_integer(9054991),
5401 cons(symbol, 5452 cons(symbol,
5402 -cons(new_integer(9051410), 5453 +cons(new_integer(9054994),
5403 new_string("l2"))))), 5454 new_string("l2"))))),
5404 cons(cons(cons(new_string("[.]"), 5455 cons(cons(cons(new_string("[.]"),
5405 cons(new_string("h"), 5456 cons(new_string("h"),
5406 cons(new_string("t"), 5457 cons(new_string("t"),
5407 nil))), 5458 nil))),
5408 -cons(new_integer(9051667), 5459 +cons(new_integer(9055251),
5409 cons(app, 5460 cons(app,
5410 -cons(new_integer(9051673), 5461 +cons(new_integer(9055257),
5411 cons(cons(symbol, 5462 cons(cons(symbol,
5412 -cons(new_integer(9051673), 5463 +cons(new_integer(9055257),
5413 new_string("[.]"))), 5464 new_string("[.]"))),
5414 cons(cons(symbol, 5465 cons(cons(symbol,
5415 -cons(new_integer(9051670), 5466 +cons(new_integer(9055254),
5416 new_string("h"))), 5467 new_string("h"))),
5417 cons(cons(app, 5468 cons(cons(app,
5418 -cons(new_integer(9051680), 5469 +cons(new_integer(9055264),
5419 cons(cons(symbol, 5470 cons(cons(symbol,
5420 -cons(new_integer(9051679), 5471 +cons(new_integer(9055263),
5421 new_string("append"))), 5472 new_string("append"))),
5422 cons(cons(symbol, 5473 cons(cons(symbol,
5423 -cons(new_integer(9051681), 5474 +cons(new_integer(9055265),
5424 new_string("t"))), 5475 new_string("t"))),
5425 cons(cons(symbol, 5476 cons(cons(symbol,
5426 -cons(new_integer(9051684), 5477 +cons(new_integer(9055268),
5427 new_string("l2"))), 5478 new_string("l2"))),
5428 nil))))), 5479 nil))))),
5429 nil))))))), 5480 nil))))))),
5430 nil)))))); 5481 nil))))));
5431 5482
5432 -new_op_scheme(18104860,1, 5483 +new_op_scheme(18112028,1,
5433 new_string("Bool"), 5484 new_string("Bool"),
5434 cons(new_string("member"), 5485 cons(new_string("member"),
5435 nil), 5486 nil),
@@ -5442,63 +5493,63 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -5442,63 +5493,63 @@ cons(cons(new_utvar(&quot;T&quot;),
5442 new_string("x")), 5493 new_string("x")),
5443 nil)), 5494 nil)),
5444 cons(cond, 5495 cons(cond,
5445 -cons(new_integer(9054214), 5496 +cons(new_integer(9057798),
5446 cons(cons(symbol, 5497 cons(cons(symbol,
5447 -cons(new_integer(9054216), 5498 +cons(new_integer(9057800),
5448 new_string("l"))), 5499 new_string("l"))),
5449 cons(cons(cons(new_string("[]"), 5500 cons(cons(cons(new_string("[]"),
5450 nil), 5501 nil),
5451 -cons(new_integer(9054735), 5502 +cons(new_integer(9058319),
5452 cons(symbol, 5503 cons(symbol,
5453 -cons(new_integer(9054741), 5504 +cons(new_integer(9058325),
5454 new_string("false"))))), 5505 new_string("false"))))),
5455 cons(cons(cons(new_string("[.]"), 5506 cons(cons(cons(new_string("[.]"),
5456 cons(new_string("first"), 5507 cons(new_string("first"),
5457 cons(new_string("others"), 5508 cons(new_string("others"),
5458 nil))), 5509 nil))),
5459 -cons(new_integer(9055004), 5510 +cons(new_integer(9058588),
5460 cons(cond, 5511 cons(cond,
5461 -cons(new_integer(9055243), 5512 +cons(new_integer(9058827),
5462 cons(cons(of_type, 5513 cons(cons(of_type,
5463 -cons(new_integer(9055243), 5514 +cons(new_integer(9058827),
5464 cons(new_string("Bool"), 5515 cons(new_string("Bool"),
5465 cons(app, 5516 cons(app,
5466 -cons(new_integer(9055247), 5517 +cons(new_integer(9058831),
5467 cons(cons(symbol, 5518 cons(cons(symbol,
5468 -cons(new_integer(9055247), 5519 +cons(new_integer(9058831),
5469 new_string("="))), 5520 new_string("="))),
5470 cons(cons(symbol, 5521 cons(cons(symbol,
5471 -cons(new_integer(9055245), 5522 +cons(new_integer(9058829),
5472 new_string("x"))), 5523 new_string("x"))),
5473 cons(cons(symbol, 5524 cons(cons(symbol,
5474 -cons(new_integer(9055253), 5525 +cons(new_integer(9058837),
5475 new_string("first"))), 5526 new_string("first"))),
5476 nil)))))))), 5527 nil)))))))),
5477 cons(cons(cons(new_string("false"), 5528 cons(cons(cons(new_string("false"),
5478 nil), 5529 nil),
5479 -cons(new_integer(9055757), 5530 +cons(new_integer(9059341),
5480 cons(app, 5531 cons(app,
5481 -cons(new_integer(9055765), 5532 +cons(new_integer(9059349),
5482 cons(cons(symbol, 5533 cons(cons(symbol,
5483 -cons(new_integer(9055764), 5534 +cons(new_integer(9059348),
5484 new_string("member"))), 5535 new_string("member"))),
5485 cons(cons(symbol, 5536 cons(cons(symbol,
5486 -cons(new_integer(9055771), 5537 +cons(new_integer(9059355),
5487 new_string("others"))), 5538 new_string("others"))),
5488 cons(cons(symbol, 5539 cons(cons(symbol,
5489 -cons(new_integer(9055773), 5540 +cons(new_integer(9059357),
5490 new_string("x"))), 5541 new_string("x"))),
5491 nil))))))), 5542 nil))))))),
5492 cons(cons(cons(new_string("true"), 5543 cons(cons(cons(new_string("true"),
5493 nil), 5544 nil),
5494 -cons(new_integer(9055501), 5545 +cons(new_integer(9059085),
5495 cons(symbol, 5546 cons(symbol,
5496 -cons(new_integer(9055506), 5547 +cons(new_integer(9059090),
5497 new_string("true"))))), 5548 new_string("true"))))),
5498 nil))))))), 5549 nil))))))),
5499 nil)))))); 5550 nil))))));
5500 5551
5501 -new_op_scheme(18118684,1, 5552 +new_op_scheme(18125852,1,
5502 cons(app_ts, 5553 cons(app_ts,
5503 cons(new_string("List"), 5554 cons(new_string("List"),
5504 cons(new_utvar("B"), 5555 cons(new_utvar("B"),
@@ -5517,63 +5568,63 @@ nil))), @@ -5517,63 +5568,63 @@ nil))),
5517 new_string("l")), 5568 new_string("l")),
5518 nil)), 5569 nil)),
5519 cons(cond, 5570 cons(cond,
5520 -cons(new_integer(9060869), 5571 +cons(new_integer(9064453),
5521 cons(cons(symbol, 5572 cons(cons(symbol,
5522 -cons(new_integer(9060871), 5573 +cons(new_integer(9064455),
5523 new_string("l"))), 5574 new_string("l"))),
5524 cons(cons(cons(new_string("[]"), 5575 cons(cons(cons(new_string("[]"),
5525 nil), 5576 nil),
5526 -cons(new_integer(9061391), 5577 +cons(new_integer(9064975),
5527 cons(symbol, 5578 cons(symbol,
5528 -cons(new_integer(9061395), 5579 +cons(new_integer(9064979),
5529 new_string("[]"))))), 5580 new_string("[]"))))),
5530 cons(cons(cons(new_string("[.]"), 5581 cons(cons(cons(new_string("[.]"),
5531 cons(new_string("first_arg"), 5582 cons(new_string("first_arg"),
5532 cons(new_string("others_args"), 5583 cons(new_string("others_args"),
5533 nil))), 5584 nil))),
5534 -cons(new_integer(9061669), 5585 +cons(new_integer(9065253),
5535 cons(with, 5586 cons(with,
5536 -cons(new_integer(9061905), 5587 +cons(new_integer(9065489),
5537 cons(new_string("x"), 5588 cons(new_string("x"),
5538 cons(cons(app, 5589 cons(cons(app,
5539 -cons(new_integer(9061908), 5590 +cons(new_integer(9065492),
5540 cons(cons(symbol, 5591 cons(cons(symbol,
5541 -cons(new_integer(9061907), 5592 +cons(new_integer(9065491),
5542 new_string("f"))), 5593 new_string("f"))),
5543 cons(cons(symbol, 5594 cons(cons(symbol,
5544 -cons(new_integer(9061917), 5595 +cons(new_integer(9065501),
5545 new_string("first_arg"))), 5596 new_string("first_arg"))),
5546 nil)))), 5597 nil)))),
5547 cons(app, 5598 cons(app,
5548 -cons(new_integer(9062416), 5599 +cons(new_integer(9066000),
5549 cons(cons(symbol, 5600 cons(cons(symbol,
5550 -cons(new_integer(9062416), 5601 +cons(new_integer(9066000),
5551 new_string("[.]"))), 5602 new_string("[.]"))),
5552 cons(cons(symbol, 5603 cons(cons(symbol,
5553 -cons(new_integer(9062413), 5604 +cons(new_integer(9065997),
5554 new_string("x"))), 5605 new_string("x"))),
5555 cons(cons(app, 5606 cons(cons(app,
5556 -cons(new_integer(9062420), 5607 +cons(new_integer(9066004),
5557 cons(cons(symbol, 5608 cons(cons(symbol,
5558 -cons(new_integer(9062419), 5609 +cons(new_integer(9066003),
5559 new_string("map"))), 5610 new_string("map"))),
5560 cons(cons(symbol, 5611 cons(cons(symbol,
5561 -cons(new_integer(9062421), 5612 +cons(new_integer(9066005),
5562 new_string("f"))), 5613 new_string("f"))),
5563 cons(cons(symbol, 5614 cons(cons(symbol,
5564 -cons(new_integer(9062433), 5615 +cons(new_integer(9066017),
5565 new_string("others_args"))), 5616 new_string("others_args"))),
5566 nil))))), 5617 nil))))),
5567 nil))))))))))), 5618 nil))))))))))),
5568 nil)))))); 5619 nil))))));
5569 5620
5570 -new_op_scheme(18130972,1, 5621 +new_op_scheme(18138140,1,
5571 type_String, 5622 type_String,
5572 cons(new_string("get_password"), 5623 cons(new_string("get_password"),
5573 nil), 5624 nil),
5574 nil, 5625 nil,
5575 cons(avm, 5626 cons(avm,
5576 -cons(new_integer(9065539), 5627 +cons(new_integer(9069123),
5577 cons(get_password, 5628 cons(get_password,
5578 nil)))); 5629 nil))));
5579 5630
@@ -5624,7 +5675,7 @@ new_string(&quot;module&quot;)), @@ -5624,7 +5675,7 @@ new_string(&quot;module&quot;)),
5624 nil)), 5675 nil)),
5625 nil))))),0,1); 5676 nil))))),0,1);
5626 5677
5627 -new_op_scheme(18150428,1, 5678 +new_op_scheme(18157596,1,
5628 cons(app_ts, 5679 cons(app_ts,
5629 cons(new_string("LoadModuleResult"), 5680 cons(new_string("LoadModuleResult"),
5630 cons(new_utvar("T"), 5681 cons(new_utvar("T"),
@@ -5635,12 +5686,12 @@ cons(cons(type_String, @@ -5635,12 +5686,12 @@ cons(cons(type_String,
5635 new_string("module_name")), 5686 new_string("module_name")),
5636 nil), 5687 nil),
5637 cons(load_module, 5688 cons(load_module,
5638 -cons(new_integer(9075508), 5689 +cons(new_integer(9079092),
5639 cons(symbol, 5690 cons(symbol,
5640 -cons(new_integer(9075520), 5691 +cons(new_integer(9079104),
5641 new_string("module_name")))))); 5692 new_string("module_name"))))));
5642 5693
5643 -new_op_scheme(18179100,1, 5694 +new_op_scheme(18186268,1,
5644 type_ByteArray, 5695 type_ByteArray,
5645 cons(new_string("serialize"), 5696 cons(new_string("serialize"),
5646 nil), 5697 nil),
@@ -5648,12 +5699,12 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -5648,12 +5699,12 @@ cons(cons(new_utvar(&quot;T&quot;),
5648 new_string("d")), 5699 new_string("d")),
5649 nil), 5700 nil),
5650 cons(serialize, 5701 cons(serialize,
5651 -cons(new_integer(9089609), 5702 +cons(new_integer(9093193),
5652 cons(symbol, 5703 cons(symbol,
5653 -cons(new_integer(9089611), 5704 +cons(new_integer(9093195),
5654 new_string("d")))))); 5705 new_string("d"))))));
5655 5706
5656 -new_op_scheme(18181660,1, 5707 +new_op_scheme(18188828,1,
5657 cons(app_ts, 5708 cons(app_ts,
5658 cons(new_string("Maybe"), 5709 cons(new_string("Maybe"),
5659 cons(new_utvar("T"), 5710 cons(new_utvar("T"),
@@ -5664,9 +5715,9 @@ cons(cons(type_ByteArray, @@ -5664,9 +5715,9 @@ cons(cons(type_ByteArray,
5664 new_string("s")), 5715 new_string("s")),
5665 nil), 5716 nil),
5666 cons(unserialize, 5717 cons(unserialize,
5667 -cons(new_integer(9090891), 5718 +cons(new_integer(9094475),
5668 cons(symbol, 5719 cons(symbol,
5669 -cons(new_integer(9090893), 5720 +cons(new_integer(9094477),
5670 new_string("s")))))); 5721 new_string("s"))))));
5671 5722
5672 new_type_scheme(new_integer(0),0, 5723 new_type_scheme(new_integer(0),0,
@@ -5703,7 +5754,7 @@ noname), @@ -5703,7 +5754,7 @@ noname),
5703 nil)), 5754 nil)),
5704 nil)))),0,1); 5755 nil)))),0,1);
5705 5756
5706 -new_op_scheme(18214940,1, 5757 +new_op_scheme(18222108,1,
5707 new_string("SaveResult"), 5758 new_string("SaveResult"),
5708 cons(new_string("save"), 5759 cons(new_string("save"),
5709 nil), 5760 nil),
@@ -5713,47 +5764,47 @@ cons(cons(type_String, @@ -5713,47 +5764,47 @@ cons(cons(type_String,
5713 new_string("file_name")), 5764 new_string("file_name")),
5714 nil)), 5765 nil)),
5715 cons(cond, 5766 cons(cond,
5716 -cons(new_integer(9108997), 5767 +cons(new_integer(9112581),
5717 cons(cons(app, 5768 cons(cons(app,
5718 -cons(new_integer(9109012), 5769 +cons(new_integer(9112596),
5719 cons(cons(symbol, 5770 cons(cons(symbol,
5720 -cons(new_integer(9109011), 5771 +cons(new_integer(9112595),
5721 new_string("write_to_file"))), 5772 new_string("write_to_file"))),
5722 cons(cons(symbol, 5773 cons(cons(symbol,
5723 -cons(new_integer(9109021), 5774 +cons(new_integer(9112605),
5724 new_string("file_name"))), 5775 new_string("file_name"))),
5725 cons(cons(app, 5776 cons(cons(app,
5726 -cons(new_integer(9109032), 5777 +cons(new_integer(9112616),
5727 cons(cons(symbol, 5778 cons(cons(symbol,
5728 -cons(new_integer(9109031), 5779 +cons(new_integer(9112615),
5729 new_string("serialize"))), 5780 new_string("serialize"))),
5730 cons(cons(symbol, 5781 cons(cons(symbol,
5731 -cons(new_integer(9109037), 5782 +cons(new_integer(9112621),
5732 new_string("datum"))), 5783 new_string("datum"))),
5733 nil)))), 5784 nil)))),
5734 nil))))), 5785 nil))))),
5735 cons(cons(cons(new_string("cannot_open_file"), 5786 cons(cons(cons(new_string("cannot_open_file"),
5736 nil), 5787 nil),
5737 -cons(new_integer(9109537), 5788 +cons(new_integer(9113121),
5738 cons(symbol, 5789 cons(symbol,
5739 -cons(new_integer(9109554), 5790 +cons(new_integer(9113138),
5740 new_string("cannot_open_file"))))), 5791 new_string("cannot_open_file"))))),
5741 cons(cons(cons(new_string("write_error"), 5792 cons(cons(cons(new_string("write_error"),
5742 cons(new_string("n"), 5793 cons(new_string("n"),
5743 nil)), 5794 nil)),
5744 -cons(new_integer(9109793), 5795 +cons(new_integer(9113377),
5745 cons(symbol, 5796 cons(symbol,
5746 -cons(new_integer(9109805), 5797 +cons(new_integer(9113389),
5747 new_string("write_error"))))), 5798 new_string("write_error"))))),
5748 cons(cons(cons(new_string("ok"), 5799 cons(cons(cons(new_string("ok"),
5749 nil), 5800 nil),
5750 -cons(new_integer(9110049), 5801 +cons(new_integer(9113633),
5751 cons(symbol, 5802 cons(symbol,
5752 -cons(new_integer(9110052), 5803 +cons(new_integer(9113636),
5753 new_string("ok"))))), 5804 new_string("ok"))))),
5754 nil))))))); 5805 nil)))))));
5755 5806
5756 -new_op_scheme(18221596,1, 5807 +new_op_scheme(18228764,1,
5757 cons(app_ts, 5808 cons(app_ts,
5758 cons(new_string("RetrieveResult"), 5809 cons(new_string("RetrieveResult"),
5759 cons(new_utvar("T"), 5810 cons(new_utvar("T"),
@@ -5764,73 +5815,73 @@ cons(cons(type_String, @@ -5764,73 +5815,73 @@ cons(cons(type_String,
5764 new_string("file_name")), 5815 new_string("file_name")),
5765 nil), 5816 nil),
5766 cons(cond, 5817 cons(cond,
5767 -cons(new_integer(9112069), 5818 +cons(new_integer(9115653),
5768 cons(cons(app, 5819 cons(cons(app,
5769 -cons(new_integer(9112085), 5820 +cons(new_integer(9115669),
5770 cons(cons(symbol, 5821 cons(cons(symbol,
5771 -cons(new_integer(9112084), 5822 +cons(new_integer(9115668),
5772 new_string("read_from_file"))), 5823 new_string("read_from_file"))),
5773 cons(cons(symbol, 5824 cons(cons(symbol,
5774 -cons(new_integer(9112094), 5825 +cons(new_integer(9115678),
5775 new_string("file_name"))), 5826 new_string("file_name"))),
5776 nil)))), 5827 nil)))),
5777 cons(cons(cons(new_string("cannot_find_file"), 5828 cons(cons(cons(new_string("cannot_find_file"),
5778 nil), 5829 nil),
5779 -cons(new_integer(9112608), 5830 +cons(new_integer(9116192),
5780 cons(symbol, 5831 cons(symbol,
5781 -cons(new_integer(9112625), 5832 +cons(new_integer(9116209),
5782 new_string("cannot_find_file"))))), 5833 new_string("cannot_find_file"))))),
5783 cons(cons(cons(new_string("read_error"), 5834 cons(cons(cons(new_string("read_error"),
5784 cons(new_string("ba"), 5835 cons(new_string("ba"),
5785 nil)), 5836 nil)),
5786 -cons(new_integer(9112864), 5837 +cons(new_integer(9116448),
5787 cons(symbol, 5838 cons(symbol,
5788 -cons(new_integer(9112875), 5839 +cons(new_integer(9116459),
5789 new_string("read_error"))))), 5840 new_string("read_error"))))),
5790 cons(cons(cons(new_string("ok"), 5841 cons(cons(cons(new_string("ok"),
5791 cons(new_string("ba"), 5842 cons(new_string("ba"),
5792 nil)), 5843 nil)),
5793 -cons(new_integer(9113120), 5844 +cons(new_integer(9116704),
5794 cons(cond, 5845 cons(cond,
5795 -cons(new_integer(9113355), 5846 +cons(new_integer(9116939),
5796 cons(cons(of_type, 5847 cons(cons(of_type,
5797 -cons(new_integer(9113357), 5848 +cons(new_integer(9116941),
5798 cons(cons(app_ts, 5849 cons(cons(app_ts,
5799 cons(new_string("Maybe"), 5850 cons(new_string("Maybe"),
5800 cons(new_utvar("T"), 5851 cons(new_utvar("T"),
5801 nil))), 5852 nil))),
5802 cons(app, 5853 cons(app,
5803 -cons(new_integer(9113379), 5854 +cons(new_integer(9116963),
5804 cons(cons(symbol, 5855 cons(cons(symbol,
5805 -cons(new_integer(9113378), 5856 +cons(new_integer(9116962),
5806 new_string("unserialize"))), 5857 new_string("unserialize"))),
5807 cons(cons(symbol, 5858 cons(cons(symbol,
5808 -cons(new_integer(9113381), 5859 +cons(new_integer(9116965),
5809 new_string("ba"))), 5860 new_string("ba"))),
5810 nil))))))), 5861 nil))))))),
5811 cons(cons(cons(new_string("failure"), 5862 cons(cons(cons(new_string("failure"),
5812 nil), 5863 nil),
5813 -cons(new_integer(9113885), 5864 +cons(new_integer(9117469),
5814 cons(symbol, 5865 cons(symbol,
5815 -cons(new_integer(9113896), 5866 +cons(new_integer(9117480),
5816 new_string("type_error"))))), 5867 new_string("type_error"))))),
5817 cons(cons(cons(new_string("success"), 5868 cons(cons(cons(new_string("success"),
5818 cons(new_string("d"), 5869 cons(new_string("d"),
5819 nil)), 5870 nil)),
5820 -cons(new_integer(9114141), 5871 +cons(new_integer(9117725),
5821 cons(app, 5872 cons(app,
5822 -cons(new_integer(9114145), 5873 +cons(new_integer(9117729),
5823 cons(cons(symbol, 5874 cons(cons(symbol,
5824 -cons(new_integer(9114144), 5875 +cons(new_integer(9117728),
5825 new_string("ok"))), 5876 new_string("ok"))),
5826 cons(cons(symbol, 5877 cons(cons(symbol,
5827 -cons(new_integer(9114146), 5878 +cons(new_integer(9117730),
5828 new_string("d"))), 5879 new_string("d"))),
5829 nil)))))), 5880 nil)))))),
5830 nil))))))), 5881 nil))))))),
5831 nil))))))); 5882 nil)))))));
5832 5883
5833 -new_op_scheme(18256398,0, 5884 +new_op_scheme(18263566,0,
5834 type_ByteArray, 5885 type_ByteArray,
5835 cons(new_string("£md5"), 5886 cons(new_string("£md5"),
5836 nil), 5887 nil),
@@ -5838,11 +5889,11 @@ cons(cons(type_ByteArray, @@ -5838,11 +5889,11 @@ cons(cons(type_ByteArray,
5838 new_string("s")), 5889 new_string("s")),
5839 nil), 5890 nil),
5840 cons(avm, 5891 cons(avm,
5841 -cons(new_integer(9128246), 5892 +cons(new_integer(9131830),
5842 cons(md5_hash, 5893 cons(md5_hash,
5843 nil)))); 5894 nil))));
5844 5895
5845 -new_op_scheme(18256910,0, 5896 +new_op_scheme(18264078,0,
5846 type_ByteArray, 5897 type_ByteArray,
5847 cons(new_string("£sha1"), 5898 cons(new_string("£sha1"),
5848 nil), 5899 nil),
@@ -5850,11 +5901,11 @@ cons(cons(type_ByteArray, @@ -5850,11 +5901,11 @@ cons(cons(type_ByteArray,
5850 new_string("s")), 5901 new_string("s")),
5851 nil), 5902 nil),
5852 cons(avm, 5903 cons(avm,
5853 -cons(new_integer(9128502), 5904 +cons(new_integer(9132086),
5854 cons(sha1_hash, 5905 cons(sha1_hash,
5855 nil)))); 5906 nil))));
5856 5907
5857 -new_op_scheme(18258972,1, 5908 +new_op_scheme(18266140,1,
5858 type_ByteArray, 5909 type_ByteArray,
5859 cons(new_string("md5"), 5910 cons(new_string("md5"),
5860 nil), 5911 nil),
@@ -5862,22 +5913,22 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -5862,22 +5913,22 @@ cons(cons(new_utvar(&quot;T&quot;),
5862 new_string("d")), 5913 new_string("d")),
5863 nil), 5914 nil),
5864 cons(app, 5915 cons(app,
5865 -cons(new_integer(9129538), 5916 +cons(new_integer(9133122),
5866 cons(cons(symbol, 5917 cons(cons(symbol,
5867 -cons(new_integer(9129537), 5918 +cons(new_integer(9133121),
5868 new_string("£md5"))), 5919 new_string("£md5"))),
5869 cons(cons(app, 5920 cons(cons(app,
5870 -cons(new_integer(9129548), 5921 +cons(new_integer(9133132),
5871 cons(cons(symbol, 5922 cons(cons(symbol,
5872 -cons(new_integer(9129547), 5923 +cons(new_integer(9133131),
5873 new_string("serialize"))), 5924 new_string("serialize"))),
5874 cons(cons(symbol, 5925 cons(cons(symbol,
5875 -cons(new_integer(9129549), 5926 +cons(new_integer(9133133),
5876 new_string("d"))), 5927 new_string("d"))),
5877 nil)))), 5928 nil)))),
5878 nil))))); 5929 nil)))));
5879 5930
5880 -new_op_scheme(18259484,1, 5931 +new_op_scheme(18266652,1,
5881 type_ByteArray, 5932 type_ByteArray,
5882 cons(new_string("sha1"), 5933 cons(new_string("sha1"),
5883 nil), 5934 nil),
@@ -5885,17 +5936,17 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -5885,17 +5936,17 @@ cons(cons(new_utvar(&quot;T&quot;),
5885 new_string("d")), 5936 new_string("d")),
5886 nil), 5937 nil),
5887 cons(app, 5938 cons(app,
5888 -cons(new_integer(9129795), 5939 +cons(new_integer(9133379),
5889 cons(cons(symbol, 5940 cons(cons(symbol,
5890 -cons(new_integer(9129794), 5941 +cons(new_integer(9133378),
5891 new_string("£sha1"))), 5942 new_string("£sha1"))),
5892 cons(cons(app, 5943 cons(cons(app,
5893 -cons(new_integer(9129805), 5944 +cons(new_integer(9133389),
5894 cons(cons(symbol, 5945 cons(cons(symbol,
5895 -cons(new_integer(9129804), 5946 +cons(new_integer(9133388),
5896 new_string("serialize"))), 5947 new_string("serialize"))),
5897 cons(cons(symbol, 5948 cons(cons(symbol,
5898 -cons(new_integer(9129806), 5949 +cons(new_integer(9133390),
5899 new_string("d"))), 5950 new_string("d"))),
5900 nil)))), 5951 nil)))),
5901 nil))))); 5952 nil)))));
@@ -5910,7 +5961,7 @@ noname), @@ -5910,7 +5961,7 @@ noname),
5910 nil)), 5961 nil)),
5911 nil),0,1); 5962 nil),0,1);
5912 5963
5913 -new_op_scheme(18273806,0, 5964 +new_op_scheme(18280974,0,
5914 new_string("£BlowfishKey"), 5965 new_string("£BlowfishKey"),
5915 cons(new_string("£create_blowfish_key"), 5966 cons(new_string("£create_blowfish_key"),
5916 nil), 5967 nil),
@@ -5918,11 +5969,11 @@ cons(cons(type_String, @@ -5918,11 +5969,11 @@ cons(cons(type_String,
5918 new_string("key")), 5969 new_string("key")),
5919 nil), 5970 nil),
5920 cons(avm, 5971 cons(avm,
5921 -cons(new_integer(9137933), 5972 +cons(new_integer(9141517),
5922 cons(create_blowfish_key, 5973 cons(create_blowfish_key,
5923 nil)))); 5974 nil))));
5924 5975
5925 -new_op_scheme(18278414,0, 5976 +new_op_scheme(18285582,0,
5926 new_string("One"), 5977 new_string("One"),
5927 cons(new_string("£blowfish_encrypt_block"), 5978 cons(new_string("£blowfish_encrypt_block"),
5928 nil), 5979 nil),
@@ -5936,11 +5987,11 @@ cons(cons(type_Int32, @@ -5936,11 +5987,11 @@ cons(cons(type_Int32,
5936 new_string("offset")), 5987 new_string("offset")),
5937 nil)))), 5988 nil)))),
5938 cons(avm, 5989 cons(avm,
5939 -cons(new_integer(9141255), 5990 +cons(new_integer(9144839),
5940 cons(blowfish_encrypt_block, 5991 cons(blowfish_encrypt_block,
5941 nil)))); 5992 nil))));
5942 5993
5943 -new_op_scheme(18283534,0, 5994 +new_op_scheme(18290702,0,
5944 new_string("One"), 5995 new_string("One"),
5945 cons(new_string("£blowfish_decrypt_block"), 5996 cons(new_string("£blowfish_decrypt_block"),
5946 nil), 5997 nil),
@@ -5954,11 +6005,11 @@ cons(cons(type_Int32, @@ -5954,11 +6005,11 @@ cons(cons(type_Int32,
5954 new_string("offset")), 6005 new_string("offset")),
5955 nil)))), 6006 nil)))),
5956 cons(avm, 6007 cons(avm,
5957 -cons(new_integer(9143815), 6008 +cons(new_integer(9147399),
5958 cons(blowfish_decrypt_block, 6009 cons(blowfish_decrypt_block,
5959 nil)))); 6010 nil))));
5960 6011
5961 -new_op_scheme(18288654,0, 6012 +new_op_scheme(18295822,0,
5962 type_ByteArray, 6013 type_ByteArray,
5963 cons(new_string("£make_blowfish_dest_for_encryption"), 6014 cons(new_string("£make_blowfish_dest_for_encryption"),
5964 nil), 6015 nil),
@@ -5966,97 +6017,97 @@ cons(cons(type_Int32, @@ -5966,97 +6017,97 @@ cons(cons(type_Int32,
5966 new_string("size")), 6017 new_string("size")),
5967 nil), 6018 nil),
5968 cons(with, 6019 cons(with,
5969 -cons(new_integer(9145619), 6020 +cons(new_integer(9149203),
5970 cons(new_string("remainder"), 6021 cons(new_string("remainder"),
5971 cons(cons(app, 6022 cons(cons(app,
5972 -cons(new_integer(9145630), 6023 +cons(new_integer(9149214),
5973 cons(cons(symbol, 6024 cons(cons(symbol,
5974 -cons(new_integer(9145630), 6025 +cons(new_integer(9149214),
5975 new_string("mod"))), 6026 new_string("mod"))),
5976 cons(cons(symbol, 6027 cons(cons(symbol,
5977 -cons(new_integer(9145624), 6028 +cons(new_integer(9149208),
5978 new_string("size"))), 6029 new_string("size"))),
5979 cons(cons(integer_10, 6030 cons(cons(integer_10,
5980 -cons(new_integer(9145631), 6031 +cons(new_integer(9149215),
5981 cons(new_integer(8), 6032 cons(new_integer(8),
5982 nil))), 6033 nil))),
5983 nil))))), 6034 nil))))),
5984 cons(with, 6035 cons(with,
5985 -cons(new_integer(9145875), 6036 +cons(new_integer(9149459),
5986 cons(new_string("new_size"), 6037 cons(new_string("new_size"),
5987 cons(cons(app, 6038 cons(cons(app,
5988 -cons(new_integer(9145934), 6039 +cons(new_integer(9149518),
5989 cons(cons(symbol, 6040 cons(cons(symbol,
5990 -cons(new_integer(9145934), 6041 +cons(new_integer(9149518),
5991 new_string("+"))), 6042 new_string("+"))),
5992 cons(cons(cond, 6043 cons(cons(cond,
5993 -cons(new_integer(9145879), 6044 +cons(new_integer(9149463),
5994 cons(cons(of_type, 6045 cons(cons(of_type,
5995 -cons(new_integer(9145879), 6046 +cons(new_integer(9149463),
5996 cons(new_string("Bool"), 6047 cons(new_string("Bool"),
5997 cons(app, 6048 cons(app,
5998 -cons(new_integer(9145891), 6049 +cons(new_integer(9149475),
5999 cons(cons(symbol, 6050 cons(cons(symbol,
6000 -cons(new_integer(9145891), 6051 +cons(new_integer(9149475),
6001 new_string("="))), 6052 new_string("="))),
6002 cons(cons(symbol, 6053 cons(cons(symbol,
6003 -cons(new_integer(9145889), 6054 +cons(new_integer(9149473),
6004 new_string("remainder"))), 6055 new_string("remainder"))),
6005 cons(cons(integer_10, 6056 cons(cons(integer_10,
6006 -cons(new_integer(9145893), 6057 +cons(new_integer(9149477),
6007 nil)), 6058 nil)),
6008 nil)))))))), 6059 nil)))))))),
6009 cons(cons(cons(new_string("false"), 6060 cons(cons(cons(new_string("false"),
6010 nil), 6061 nil),
6011 -cons(new_integer(9145908), 6062 +cons(new_integer(9149492),
6012 cons(app, 6063 cons(app,
6013 -cons(new_integer(9145915), 6064 +cons(new_integer(9149499),
6014 cons(cons(symbol, 6065 cons(cons(symbol,
6015 -cons(new_integer(9145915), 6066 +cons(new_integer(9149499),
6016 new_string("+"))), 6067 new_string("+"))),
6017 cons(cons(symbol, 6068 cons(cons(symbol,
6018 -cons(new_integer(9145913), 6069 +cons(new_integer(9149497),
6019 new_string("size"))), 6070 new_string("size"))),
6020 cons(cons(app, 6071 cons(cons(app,
6021 -cons(new_integer(9145920), 6072 +cons(new_integer(9149504),
6022 cons(cons(symbol, 6073 cons(cons(symbol,
6023 -cons(new_integer(9145920), 6074 +cons(new_integer(9149504),
6024 new_string("-"))), 6075 new_string("-"))),
6025 cons(cons(integer_10, 6076 cons(cons(integer_10,
6026 -cons(new_integer(9145918), 6077 +cons(new_integer(9149502),
6027 cons(new_integer(8), 6078 cons(new_integer(8),
6028 nil))), 6079 nil))),
6029 cons(cons(symbol, 6080 cons(cons(symbol,
6030 -cons(new_integer(9145930), 6081 +cons(new_integer(9149514),
6031 new_string("remainder"))), 6082 new_string("remainder"))),
6032 nil))))), 6083 nil))))),
6033 nil))))))), 6084 nil))))))),
6034 cons(cons(cons(new_string("true"), 6085 cons(cons(cons(new_string("true"),
6035 nil), 6086 nil),
6036 -cons(new_integer(9145898), 6087 +cons(new_integer(9149482),
6037 cons(symbol, 6088 cons(symbol,
6038 -cons(new_integer(9145903), 6089 +cons(new_integer(9149487),
6039 new_string("size"))))), 6090 new_string("size"))))),
6040 nil))))), 6091 nil))))),
6041 cons(cons(integer_10, 6092 cons(cons(integer_10,
6042 -cons(new_integer(9145936), 6093 +cons(new_integer(9149520),
6043 cons(new_integer(1), 6094 cons(new_integer(1),
6044 nil))), 6095 nil))),
6045 nil))))), 6096 nil))))),
6046 cons(app, 6097 cons(app,
6047 -cons(new_integer(9146137), 6098 +cons(new_integer(9149721),
6048 cons(cons(symbol, 6099 cons(cons(symbol,
6049 -cons(new_integer(9146137), 6100 +cons(new_integer(9149721),
6050 new_string("constant_byte_array"))), 6101 new_string("constant_byte_array"))),
6051 cons(cons(symbol, 6102 cons(cons(symbol,
6052 -cons(new_integer(9146145), 6103 +cons(new_integer(9149729),
6053 new_string("new_size"))), 6104 new_string("new_size"))),
6054 cons(cons(integer_10, 6105 cons(cons(integer_10,
6055 -cons(new_integer(9146147), 6106 +cons(new_integer(9149731),
6056 nil)), 6107 nil)),
6057 nil)))))))))))))); 6108 nil))))))))))))));
6058 6109
6059 -new_op_scheme(18296334,0, 6110 +new_op_scheme(18303502,0,
6060 new_string("Int8"), 6111 new_string("Int8"),
6061 cons(new_string("£bytes_in_last_block"), 6112 cons(new_string("£bytes_in_last_block"),
6062 nil), 6113 nil),
@@ -6064,67 +6115,67 @@ cons(cons(type_Int32, @@ -6064,67 +6115,67 @@ cons(cons(type_Int32,
6064 new_string("s")), 6115 new_string("s")),
6065 nil), 6116 nil),
6066 cons(cond, 6117 cons(cond,
6067 -cons(new_integer(9149445), 6118 +cons(new_integer(9153029),
6068 cons(cons(of_type, 6119 cons(cons(of_type,
6069 -cons(new_integer(9149445), 6120 +cons(new_integer(9153029),
6070 cons(new_string("Bool"), 6121 cons(new_string("Bool"),
6071 cons(app, 6122 cons(app,
6072 -cons(new_integer(9149459), 6123 +cons(new_integer(9153043),
6073 cons(cons(symbol, 6124 cons(cons(symbol,
6074 -cons(new_integer(9149459), 6125 +cons(new_integer(9153043),
6075 new_string("="))), 6126 new_string("="))),
6076 cons(cons(app, 6127 cons(cons(app,
6077 -cons(new_integer(9149454), 6128 +cons(new_integer(9153038),
6078 cons(cons(symbol, 6129 cons(cons(symbol,
6079 -cons(new_integer(9149454), 6130 +cons(new_integer(9153038),
6080 new_string("mod"))), 6131 new_string("mod"))),
6081 cons(cons(symbol, 6132 cons(cons(symbol,
6082 -cons(new_integer(9149448), 6133 +cons(new_integer(9153032),
6083 new_string("s"))), 6134 new_string("s"))),
6084 cons(cons(integer_10, 6135 cons(cons(integer_10,
6085 -cons(new_integer(9149455), 6136 +cons(new_integer(9153039),
6086 cons(new_integer(8), 6137 cons(new_integer(8),
6087 nil))), 6138 nil))),
6088 nil))))), 6139 nil))))),
6089 cons(cons(integer_10, 6140 cons(cons(integer_10,
6090 -cons(new_integer(9149461), 6141 +cons(new_integer(9153045),
6091 nil)), 6142 nil)),
6092 nil)))))))), 6143 nil)))))))),
6093 cons(cons(cons(new_string("false"), 6144 cons(cons(cons(new_string("false"),
6094 nil), 6145 nil),
6095 -cons(new_integer(9149959), 6146 +cons(new_integer(9153543),
6096 cons(app, 6147 cons(app,
6097 -cons(new_integer(9149977), 6148 +cons(new_integer(9153561),
6098 cons(cons(symbol, 6149 cons(cons(symbol,
6099 -cons(new_integer(9149976), 6150 +cons(new_integer(9153560),
6100 new_string("truncate_to_int8"))), 6151 new_string("truncate_to_int8"))),
6101 cons(cons(app, 6152 cons(cons(app,
6102 -cons(new_integer(9149984), 6153 +cons(new_integer(9153568),
6103 cons(cons(symbol, 6154 cons(cons(symbol,
6104 -cons(new_integer(9149984), 6155 +cons(new_integer(9153568),
6105 new_string("mod"))), 6156 new_string("mod"))),
6106 cons(cons(symbol, 6157 cons(cons(symbol,
6107 -cons(new_integer(9149978), 6158 +cons(new_integer(9153562),
6108 new_string("s"))), 6159 new_string("s"))),
6109 cons(cons(integer_10, 6160 cons(cons(integer_10,
6110 -cons(new_integer(9149985), 6161 +cons(new_integer(9153569),
6111 cons(new_integer(8), 6162 cons(new_integer(8),
6112 nil))), 6163 nil))),
6113 nil))))), 6164 nil))))),
6114 nil)))))), 6165 nil)))))),
6115 cons(cons(cons(new_string("true"), 6166 cons(cons(cons(new_string("true"),
6116 nil), 6167 nil),
6117 -cons(new_integer(9149703), 6168 +cons(new_integer(9153287),
6118 cons(of_type, 6169 cons(of_type,
6119 -cons(new_integer(9149705), 6170 +cons(new_integer(9153289),
6120 cons(new_string("Int8"), 6171 cons(new_string("Int8"),
6121 cons(integer_10, 6172 cons(integer_10,
6122 -cons(new_integer(9149711), 6173 +cons(new_integer(9153295),
6123 cons(new_integer(8), 6174 cons(new_integer(8),
6124 nil)))))))), 6175 nil)))))))),
6125 nil)))))); 6176 nil))))));
6126 6177
6127 -new_op_scheme(18300942,0, 6178 +new_op_scheme(18308110,0,
6128 type_ByteArray, 6179 type_ByteArray,
6129 cons(new_string("£blowfish_encrypt"), 6180 cons(new_string("£blowfish_encrypt"),
6130 nil), 6181 nil),
@@ -6138,81 +6189,81 @@ cons(cons(type_Int32, @@ -6138,81 +6189,81 @@ cons(cons(type_Int32,
6138 new_string("i")), 6189 new_string("i")),
6139 nil)))), 6190 nil)))),
6140 cons(cond, 6191 cons(cond,
6141 -cons(new_integer(9152517), 6192 +cons(new_integer(9156101),
6142 cons(cons(of_type, 6193 cons(cons(of_type,
6143 -cons(new_integer(9152517), 6194 +cons(new_integer(9156101),
6144 cons(new_string("Bool"), 6195 cons(new_string("Bool"),
6145 cons(app, 6196 cons(app,
6146 -cons(new_integer(9152522), 6197 +cons(new_integer(9156106),
6147 cons(cons(symbol, 6198 cons(cons(symbol,
6148 -cons(new_integer(9152522), 6199 +cons(new_integer(9156106),
6149 new_string("=<"))), 6200 new_string("=<"))),
6150 cons(cons(app, 6201 cons(cons(app,
6151 -cons(new_integer(9152530), 6202 +cons(new_integer(9156114),
6152 cons(cons(symbol, 6203 cons(cons(symbol,
6153 -cons(new_integer(9152529), 6204 +cons(new_integer(9156113),
6154 new_string("length"))), 6205 new_string("length"))),
6155 cons(cons(symbol, 6206 cons(cons(symbol,
6156 -cons(new_integer(9152536), 6207 +cons(new_integer(9156120),
6157 new_string("source"))), 6208 new_string("source"))),
6158 nil)))), 6209 nil)))),
6159 cons(cons(symbol, 6210 cons(cons(symbol,
6160 -cons(new_integer(9152519), 6211 +cons(new_integer(9156103),
6161 new_string("i"))), 6212 new_string("i"))),
6162 nil)))))))), 6213 nil)))))))),
6163 cons(cons(cons(new_string("false"), 6214 cons(cons(cons(new_string("false"),
6164 nil), 6215 nil),
6165 -cons(new_integer(9153287), 6216 +cons(new_integer(9156871),
6166 cons(cond, 6217 cons(cond,
6167 -cons(new_integer(9153588), 6218 +cons(new_integer(9157172),
6168 cons(cons(of_type, 6219 cons(cons(of_type,
6169 -cons(new_integer(9153588), 6220 +cons(new_integer(9157172),
6170 cons(new_string("One"), 6221 cons(new_string("One"),
6171 cons(app, 6222 cons(app,
6172 -cons(new_integer(9153569), 6223 +cons(new_integer(9157153),
6173 cons(cons(symbol, 6224 cons(cons(symbol,
6174 -cons(new_integer(9153568), 6225 +cons(new_integer(9157152),
6175 new_string("£blowfish_encrypt_block"))), 6226 new_string("£blowfish_encrypt_block"))),
6176 cons(cons(symbol, 6227 cons(cons(symbol,
6177 -cons(new_integer(9153572), 6228 +cons(new_integer(9157156),
6178 new_string("key"))), 6229 new_string("key"))),
6179 cons(cons(symbol, 6230 cons(cons(symbol,
6180 -cons(new_integer(9153579), 6231 +cons(new_integer(9157163),
6181 new_string("source"))), 6232 new_string("source"))),
6182 cons(cons(symbol, 6233 cons(cons(symbol,
6183 -cons(new_integer(9153584), 6234 +cons(new_integer(9157168),
6184 new_string("dest"))), 6235 new_string("dest"))),
6185 cons(cons(symbol, 6236 cons(cons(symbol,
6186 -cons(new_integer(9153586), 6237 +cons(new_integer(9157170),
6187 new_string("i"))), 6238 new_string("i"))),
6188 nil)))))))))), 6239 nil)))))))))),
6189 cons(cons(cons(new_string("unique"), 6240 cons(cons(cons(new_string("unique"),
6190 nil), 6241 nil),
6191 -cons(new_integer(9153588), 6242 +cons(new_integer(9157172),
6192 cons(app, 6243 cons(app,
6193 -cons(new_integer(9153819), 6244 +cons(new_integer(9157403),
6194 cons(cons(symbol, 6245 cons(cons(symbol,
6195 -cons(new_integer(9153818), 6246 +cons(new_integer(9157402),
6196 new_string("£blowfish_encrypt"))), 6247 new_string("£blowfish_encrypt"))),
6197 cons(cons(symbol, 6248 cons(cons(symbol,
6198 -cons(new_integer(9153822), 6249 +cons(new_integer(9157406),
6199 new_string("key"))), 6250 new_string("key"))),
6200 cons(cons(symbol, 6251 cons(cons(symbol,
6201 -cons(new_integer(9153829), 6252 +cons(new_integer(9157413),
6202 new_string("source"))), 6253 new_string("source"))),
6203 cons(cons(symbol, 6254 cons(cons(symbol,
6204 -cons(new_integer(9153834), 6255 +cons(new_integer(9157418),
6205 new_string("dest"))), 6256 new_string("dest"))),
6206 cons(cons(app, 6257 cons(cons(app,
6207 -cons(new_integer(9153837), 6258 +cons(new_integer(9157421),
6208 cons(cons(symbol, 6259 cons(cons(symbol,
6209 -cons(new_integer(9153837), 6260 +cons(new_integer(9157421),
6210 new_string("+"))), 6261 new_string("+"))),
6211 cons(cons(symbol, 6262 cons(cons(symbol,
6212 -cons(new_integer(9153836), 6263 +cons(new_integer(9157420),
6213 new_string("i"))), 6264 new_string("i"))),
6214 cons(cons(integer_10, 6265 cons(cons(integer_10,
6215 -cons(new_integer(9153838), 6266 +cons(new_integer(9157422),
6216 cons(new_integer(8), 6267 cons(new_integer(8),
6217 nil))), 6268 nil))),
6218 nil))))), 6269 nil))))),
@@ -6220,40 +6271,40 @@ nil))))))))), @@ -6220,40 +6271,40 @@ nil))))))))),
6220 nil)))))), 6271 nil)))))),
6221 cons(cons(cons(new_string("true"), 6272 cons(cons(cons(new_string("true"),
6222 nil), 6273 nil),
6223 -cons(new_integer(9152775), 6274 +cons(new_integer(9156359),
6224 cons(cond, 6275 cons(cond,
6225 -cons(new_integer(9153090), 6276 +cons(new_integer(9156674),
6226 cons(cons(of_type, 6277 cons(cons(of_type,
6227 -cons(new_integer(9153090), 6278 +cons(new_integer(9156674),
6228 cons(new_string("One"), 6279 cons(new_string("One"),
6229 cons(app, 6280 cons(app,
6230 -cons(new_integer(9153040), 6281 +cons(new_integer(9156624),
6231 cons(cons(symbol, 6282 cons(cons(symbol,
6232 -cons(new_integer(9153039), 6283 +cons(new_integer(9156623),
6233 new_string("forget"))), 6284 new_string("forget"))),
6234 cons(cons(app, 6285 cons(cons(app,
6235 -cons(new_integer(9153044), 6286 +cons(new_integer(9156628),
6236 cons(cons(symbol, 6287 cons(cons(symbol,
6237 -cons(new_integer(9153043), 6288 +cons(new_integer(9156627),
6238 new_string("put"))), 6289 new_string("put"))),
6239 cons(cons(symbol, 6290 cons(cons(symbol,
6240 -cons(new_integer(9153048), 6291 +cons(new_integer(9156632),
6241 new_string("dest"))), 6292 new_string("dest"))),
6242 cons(cons(symbol, 6293 cons(cons(symbol,
6243 -cons(new_integer(9153050), 6294 +cons(new_integer(9156634),
6244 new_string("i"))), 6295 new_string("i"))),
6245 cons(cons(app, 6296 cons(cons(app,
6246 -cons(new_integer(9153072), 6297 +cons(new_integer(9156656),
6247 cons(cons(symbol, 6298 cons(cons(symbol,
6248 -cons(new_integer(9153071), 6299 +cons(new_integer(9156655),
6249 new_string("£bytes_in_last_block"))), 6300 new_string("£bytes_in_last_block"))),
6250 cons(cons(app, 6301 cons(cons(app,
6251 -cons(new_integer(9153079), 6302 +cons(new_integer(9156663),
6252 cons(cons(symbol, 6303 cons(cons(symbol,
6253 -cons(new_integer(9153078), 6304 +cons(new_integer(9156662),
6254 new_string("length"))), 6305 new_string("length"))),
6255 cons(cons(symbol, 6306 cons(cons(symbol,
6256 -cons(new_integer(9153085), 6307 +cons(new_integer(9156669),
6257 new_string("source"))), 6308 new_string("source"))),
6258 nil)))), 6309 nil)))),
6259 nil)))), 6310 nil)))),
@@ -6261,14 +6312,14 @@ nil)))))), @@ -6261,14 +6312,14 @@ nil)))))),
6261 nil))))))), 6312 nil))))))),
6262 cons(cons(cons(new_string("unique"), 6313 cons(cons(cons(new_string("unique"),
6263 nil), 6314 nil),
6264 -cons(new_integer(9153090), 6315 +cons(new_integer(9156674),
6265 cons(symbol, 6316 cons(symbol,
6266 -cons(new_integer(9153095), 6317 +cons(new_integer(9156679),
6267 new_string("dest"))))), 6318 new_string("dest"))))),
6268 nil)))))), 6319 nil)))))),
6269 nil)))))); 6320 nil))))));
6270 6321
6271 -new_op_scheme(18308622,0, 6322 +new_op_scheme(18315790,0,
6272 type_ByteArray, 6323 type_ByteArray,
6273 cons(new_string("£blowfish_decrypt"), 6324 cons(new_string("£blowfish_decrypt"),
6274 nil), 6325 nil),
@@ -6282,91 +6333,91 @@ cons(cons(type_Int32, @@ -6282,91 +6333,91 @@ cons(cons(type_Int32,
6282 new_string("i")), 6333 new_string("i")),
6283 nil)))), 6334 nil)))),
6284 cons(cond, 6335 cons(cond,
6285 -cons(new_integer(9156357), 6336 +cons(new_integer(9159941),
6286 cons(cons(of_type, 6337 cons(cons(of_type,
6287 -cons(new_integer(9156357), 6338 +cons(new_integer(9159941),
6288 cons(new_string("Bool"), 6339 cons(new_string("Bool"),
6289 cons(app, 6340 cons(app,
6290 -cons(new_integer(9156362), 6341 +cons(new_integer(9159946),
6291 cons(cons(symbol, 6342 cons(cons(symbol,
6292 -cons(new_integer(9156362), 6343 +cons(new_integer(9159946),
6293 new_string("=<"))), 6344 new_string("=<"))),
6294 cons(cons(app, 6345 cons(cons(app,
6295 -cons(new_integer(9156380), 6346 +cons(new_integer(9159964),
6296 cons(cons(symbol, 6347 cons(cons(symbol,
6297 -cons(new_integer(9156380), 6348 +cons(new_integer(9159964),
6298 new_string("-"))), 6349 new_string("-"))),
6299 cons(cons(app, 6350 cons(cons(app,
6300 -cons(new_integer(9156371), 6351 +cons(new_integer(9159955),
6301 cons(cons(symbol, 6352 cons(cons(symbol,
6302 -cons(new_integer(9156370), 6353 +cons(new_integer(9159954),
6303 new_string("length"))), 6354 new_string("length"))),
6304 cons(cons(symbol, 6355 cons(cons(symbol,
6305 -cons(new_integer(9156377), 6356 +cons(new_integer(9159961),
6306 new_string("source"))), 6357 new_string("source"))),
6307 nil)))), 6358 nil)))),
6308 cons(cons(integer_10, 6359 cons(cons(integer_10,
6309 -cons(new_integer(9156382), 6360 +cons(new_integer(9159966),
6310 cons(new_integer(1), 6361 cons(new_integer(1),
6311 nil))), 6362 nil))),
6312 nil))))), 6363 nil))))),
6313 cons(cons(symbol, 6364 cons(cons(symbol,
6314 -cons(new_integer(9156359), 6365 +cons(new_integer(9159943),
6315 new_string("i"))), 6366 new_string("i"))),
6316 nil)))))))), 6367 nil)))))))),
6317 cons(cons(cons(new_string("false"), 6368 cons(cons(cons(new_string("false"),
6318 nil), 6369 nil),
6319 -cons(new_integer(9157127), 6370 +cons(new_integer(9160711),
6320 cons(cond, 6371 cons(cond,
6321 -cons(new_integer(9157428), 6372 +cons(new_integer(9161012),
6322 cons(cons(of_type, 6373 cons(cons(of_type,
6323 -cons(new_integer(9157428), 6374 +cons(new_integer(9161012),
6324 cons(new_string("One"), 6375 cons(new_string("One"),
6325 cons(app, 6376 cons(app,
6326 -cons(new_integer(9157409), 6377 +cons(new_integer(9160993),
6327 cons(cons(symbol, 6378 cons(cons(symbol,
6328 -cons(new_integer(9157408), 6379 +cons(new_integer(9160992),
6329 new_string("£blowfish_decrypt_block"))), 6380 new_string("£blowfish_decrypt_block"))),
6330 cons(cons(symbol, 6381 cons(cons(symbol,
6331 -cons(new_integer(9157412), 6382 +cons(new_integer(9160996),
6332 new_string("key"))), 6383 new_string("key"))),
6333 cons(cons(symbol, 6384 cons(cons(symbol,
6334 -cons(new_integer(9157419), 6385 +cons(new_integer(9161003),
6335 new_string("source"))), 6386 new_string("source"))),
6336 cons(cons(symbol, 6387 cons(cons(symbol,
6337 -cons(new_integer(9157424), 6388 +cons(new_integer(9161008),
6338 new_string("dest"))), 6389 new_string("dest"))),
6339 cons(cons(symbol, 6390 cons(cons(symbol,
6340 -cons(new_integer(9157426), 6391 +cons(new_integer(9161010),
6341 new_string("i"))), 6392 new_string("i"))),
6342 nil)))))))))), 6393 nil)))))))))),
6343 cons(cons(cons(new_string("unique"), 6394 cons(cons(cons(new_string("unique"),
6344 nil), 6395 nil),
6345 -cons(new_integer(9157428), 6396 +cons(new_integer(9161012),
6346 cons(app, 6397 cons(app,
6347 -cons(new_integer(9157659), 6398 +cons(new_integer(9161243),
6348 cons(cons(symbol, 6399 cons(cons(symbol,
6349 -cons(new_integer(9157658), 6400 +cons(new_integer(9161242),
6350 new_string("£blowfish_decrypt"))), 6401 new_string("£blowfish_decrypt"))),
6351 cons(cons(symbol, 6402 cons(cons(symbol,
6352 -cons(new_integer(9157662), 6403 +cons(new_integer(9161246),
6353 new_string("key"))), 6404 new_string("key"))),
6354 cons(cons(symbol, 6405 cons(cons(symbol,
6355 -cons(new_integer(9157669), 6406 +cons(new_integer(9161253),
6356 new_string("source"))), 6407 new_string("source"))),
6357 cons(cons(symbol, 6408 cons(cons(symbol,
6358 -cons(new_integer(9157674), 6409 +cons(new_integer(9161258),
6359 new_string("dest"))), 6410 new_string("dest"))),
6360 cons(cons(app, 6411 cons(cons(app,
6361 -cons(new_integer(9157677), 6412 +cons(new_integer(9161261),
6362 cons(cons(symbol, 6413 cons(cons(symbol,
6363 -cons(new_integer(9157677), 6414 +cons(new_integer(9161261),
6364 new_string("+"))), 6415 new_string("+"))),
6365 cons(cons(symbol, 6416 cons(cons(symbol,
6366 -cons(new_integer(9157676), 6417 +cons(new_integer(9161260),
6367 new_string("i"))), 6418 new_string("i"))),
6368 cons(cons(integer_10, 6419 cons(cons(integer_10,
6369 -cons(new_integer(9157678), 6420 +cons(new_integer(9161262),
6370 cons(new_integer(8), 6421 cons(new_integer(8),
6371 nil))), 6422 nil))),
6372 nil))))), 6423 nil))))),
@@ -6374,53 +6425,53 @@ nil))))))))), @@ -6374,53 +6425,53 @@ nil))))))))),
6374 nil)))))), 6425 nil)))))),
6375 cons(cons(cons(new_string("true"), 6426 cons(cons(cons(new_string("true"),
6376 nil), 6427 nil),
6377 -cons(new_integer(9156615), 6428 +cons(new_integer(9160199),
6378 cons(cond, 6429 cons(cond,
6379 -cons(new_integer(9156927), 6430 +cons(new_integer(9160511),
6380 cons(cons(of_type, 6431 cons(cons(of_type,
6381 -cons(new_integer(9156927), 6432 +cons(new_integer(9160511),
6382 cons(new_string("One"), 6433 cons(new_string("One"),
6383 cons(app, 6434 cons(app,
6384 -cons(new_integer(9156882), 6435 +cons(new_integer(9160466),
6385 cons(cons(symbol, 6436 cons(cons(symbol,
6386 -cons(new_integer(9156881), 6437 +cons(new_integer(9160465),
6387 new_string("truncate"))), 6438 new_string("truncate"))),
6388 cons(cons(symbol, 6439 cons(cons(symbol,
6389 -cons(new_integer(9156886), 6440 +cons(new_integer(9160470),
6390 new_string("dest"))), 6441 new_string("dest"))),
6391 cons(cons(app, 6442 cons(cons(app,
6392 -cons(new_integer(9156889), 6443 +cons(new_integer(9160473),
6393 cons(cons(symbol, 6444 cons(cons(symbol,
6394 -cons(new_integer(9156889), 6445 +cons(new_integer(9160473),
6395 new_string("+"))), 6446 new_string("+"))),
6396 cons(cons(symbol, 6447 cons(cons(symbol,
6397 -cons(new_integer(9156888), 6448 +cons(new_integer(9160472),
6398 new_string("i"))), 6449 new_string("i"))),
6399 cons(cons(app, 6450 cons(cons(app,
6400 -cons(new_integer(9156924), 6451 +cons(new_integer(9160508),
6401 cons(cons(symbol, 6452 cons(cons(symbol,
6402 -cons(new_integer(9156924), 6453 +cons(new_integer(9160508),
6403 new_string("-"))), 6454 new_string("-"))),
6404 cons(cons(app, 6455 cons(cons(app,
6405 -cons(new_integer(9156903), 6456 +cons(new_integer(9160487),
6406 cons(cons(symbol, 6457 cons(cons(symbol,
6407 -cons(new_integer(9156902), 6458 +cons(new_integer(9160486),
6408 new_string("int8_to_int32"))), 6459 new_string("int8_to_int32"))),
6409 cons(cons(app, 6460 cons(cons(app,
6410 -cons(new_integer(9156913), 6461 +cons(new_integer(9160497),
6411 cons(cons(symbol, 6462 cons(cons(symbol,
6412 -cons(new_integer(9156912), 6463 +cons(new_integer(9160496),
6413 new_string("force_nth"))), 6464 new_string("force_nth"))),
6414 cons(cons(symbol, 6465 cons(cons(symbol,
6415 -cons(new_integer(9156914), 6466 +cons(new_integer(9160498),
6416 new_string("i"))), 6467 new_string("i"))),
6417 cons(cons(symbol, 6468 cons(cons(symbol,
6418 -cons(new_integer(9156921), 6469 +cons(new_integer(9160505),
6419 new_string("source"))), 6470 new_string("source"))),
6420 nil))))), 6471 nil))))),
6421 nil)))), 6472 nil)))),
6422 cons(cons(integer_10, 6473 cons(cons(integer_10,
6423 -cons(new_integer(9156925), 6474 +cons(new_integer(9160509),
6424 cons(new_integer(8), 6475 cons(new_integer(8),
6425 nil))), 6476 nil))),
6426 nil))))), 6477 nil))))),
@@ -6428,14 +6479,14 @@ nil))))), @@ -6428,14 +6479,14 @@ nil))))),
6428 nil)))))))), 6479 nil)))))))),
6429 cons(cons(cons(new_string("unique"), 6480 cons(cons(cons(new_string("unique"),
6430 nil), 6481 nil),
6431 -cons(new_integer(9156927), 6482 +cons(new_integer(9160511),
6432 cons(symbol, 6483 cons(symbol,
6433 -cons(new_integer(9156932), 6484 +cons(new_integer(9160516),
6434 new_string("dest"))))), 6485 new_string("dest"))))),
6435 nil)))))), 6486 nil)))))),
6436 nil)))))); 6487 nil))))));
6437 6488
6438 -new_op_scheme(18317852,1, 6489 +new_op_scheme(18325020,1,
6439 type_ByteArray, 6490 type_ByteArray,
6440 cons(new_string("blowfish_encrypt"), 6491 cons(new_string("blowfish_encrypt"),
6441 nil), 6492 nil),
@@ -6445,61 +6496,61 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -6445,61 +6496,61 @@ cons(cons(new_utvar(&quot;T&quot;),
6445 new_string("datum")), 6496 new_string("datum")),
6446 nil)), 6497 nil)),
6447 cons(with, 6498 cons(with,
6448 -cons(new_integer(9160464), 6499 +cons(new_integer(9164048),
6449 cons(new_string("source"), 6500 cons(new_string("source"),
6450 cons(cons(app, 6501 cons(cons(app,
6451 -cons(new_integer(9160475), 6502 +cons(new_integer(9164059),
6452 cons(cons(symbol, 6503 cons(cons(symbol,
6453 -cons(new_integer(9160474), 6504 +cons(new_integer(9164058),
6454 new_string("serialize"))), 6505 new_string("serialize"))),
6455 cons(cons(symbol, 6506 cons(cons(symbol,
6456 -cons(new_integer(9160480), 6507 +cons(new_integer(9164064),
6457 new_string("datum"))), 6508 new_string("datum"))),
6458 nil)))), 6509 nil)))),
6459 cons(with, 6510 cons(with,
6460 -cons(new_integer(9160720), 6511 +cons(new_integer(9164304),
6461 cons(new_string("dest"), 6512 cons(new_string("dest"),
6462 cons(cons(app, 6513 cons(cons(app,
6463 -cons(new_integer(9160756), 6514 +cons(new_integer(9164340),
6464 cons(cons(symbol, 6515 cons(cons(symbol,
6465 -cons(new_integer(9160755), 6516 +cons(new_integer(9164339),
6466 new_string("£make_blowfish_dest_for_encryption"))), 6517 new_string("£make_blowfish_dest_for_encryption"))),
6467 cons(cons(app, 6518 cons(cons(app,
6468 -cons(new_integer(9160763), 6519 +cons(new_integer(9164347),
6469 cons(cons(symbol, 6520 cons(cons(symbol,
6470 -cons(new_integer(9160762), 6521 +cons(new_integer(9164346),
6471 new_string("length"))), 6522 new_string("length"))),
6472 cons(cons(symbol, 6523 cons(cons(symbol,
6473 -cons(new_integer(9160769), 6524 +cons(new_integer(9164353),
6474 new_string("source"))), 6525 new_string("source"))),
6475 nil)))), 6526 nil)))),
6476 nil)))), 6527 nil)))),
6477 cons(app, 6528 cons(app,
6478 -cons(new_integer(9160981), 6529 +cons(new_integer(9164565),
6479 cons(cons(symbol, 6530 cons(cons(symbol,
6480 -cons(new_integer(9160981), 6531 +cons(new_integer(9164565),
6481 new_string("£blowfish_encrypt"))), 6532 new_string("£blowfish_encrypt"))),
6482 cons(cons(app, 6533 cons(cons(app,
6483 -cons(new_integer(9161002), 6534 +cons(new_integer(9164586),
6484 cons(cons(symbol, 6535 cons(cons(symbol,
6485 -cons(new_integer(9161001), 6536 +cons(new_integer(9164585),
6486 new_string("£create_blowfish_key"))), 6537 new_string("£create_blowfish_key"))),
6487 cons(cons(symbol, 6538 cons(cons(symbol,
6488 -cons(new_integer(9161005), 6539 +cons(new_integer(9164589),
6489 new_string("key"))), 6540 new_string("key"))),
6490 nil)))), 6541 nil)))),
6491 cons(cons(symbol, 6542 cons(cons(symbol,
6492 -cons(new_integer(9161013), 6543 +cons(new_integer(9164597),
6493 new_string("source"))), 6544 new_string("source"))),
6494 cons(cons(symbol, 6545 cons(cons(symbol,
6495 -cons(new_integer(9161018), 6546 +cons(new_integer(9164602),
6496 new_string("dest"))), 6547 new_string("dest"))),
6497 cons(cons(integer_10, 6548 cons(cons(integer_10,
6498 -cons(new_integer(9161020), 6549 +cons(new_integer(9164604),
6499 nil)), 6550 nil)),
6500 nil)))))))))))))))); 6551 nil))))))))))))))));
6501 6552
6502 -new_op_scheme(18322972,1, 6553 +new_op_scheme(18330140,1,
6503 cons(app_ts, 6554 cons(app_ts,
6504 cons(new_string("Maybe"), 6555 cons(new_string("Maybe"),
6505 cons(new_utvar("T"), 6556 cons(new_utvar("T"),
@@ -6512,53 +6563,53 @@ cons(cons(type_ByteArray, @@ -6512,53 +6563,53 @@ cons(cons(type_ByteArray,
6512 new_string("source")), 6563 new_string("source")),
6513 nil)), 6564 nil)),
6514 cons(with, 6565 cons(with,
6515 -cons(new_integer(9163022), 6566 +cons(new_integer(9166606),
6516 cons(new_string("dest"), 6567 cons(new_string("dest"),
6517 cons(cons(app, 6568 cons(cons(app,
6518 -cons(new_integer(9163043), 6569 +cons(new_integer(9166627),
6519 cons(cons(symbol, 6570 cons(cons(symbol,
6520 -cons(new_integer(9163042), 6571 +cons(new_integer(9166626),
6521 new_string("constant_byte_array"))), 6572 new_string("constant_byte_array"))),
6522 cons(cons(app, 6573 cons(cons(app,
6523 -cons(new_integer(9163050), 6574 +cons(new_integer(9166634),
6524 cons(cons(symbol, 6575 cons(cons(symbol,
6525 -cons(new_integer(9163049), 6576 +cons(new_integer(9166633),
6526 new_string("length"))), 6577 new_string("length"))),
6527 cons(cons(symbol, 6578 cons(cons(symbol,
6528 -cons(new_integer(9163056), 6579 +cons(new_integer(9166640),
6529 new_string("source"))), 6580 new_string("source"))),
6530 nil)))), 6581 nil)))),
6531 cons(cons(integer_10, 6582 cons(cons(integer_10,
6532 -cons(new_integer(9163059), 6583 +cons(new_integer(9166643),
6533 nil)), 6584 nil)),
6534 nil))))), 6585 nil))))),
6535 cons(app, 6586 cons(app,
6536 -cons(new_integer(9163279), 6587 +cons(new_integer(9166863),
6537 cons(cons(symbol, 6588 cons(cons(symbol,
6538 -cons(new_integer(9163279), 6589 +cons(new_integer(9166863),
6539 new_string("unserialize"))), 6590 new_string("unserialize"))),
6540 cons(cons(app, 6591 cons(cons(app,
6541 -cons(new_integer(9163297), 6592 +cons(new_integer(9166881),
6542 cons(cons(symbol, 6593 cons(cons(symbol,
6543 -cons(new_integer(9163296), 6594 +cons(new_integer(9166880),
6544 new_string("£blowfish_decrypt"))), 6595 new_string("£blowfish_decrypt"))),
6545 cons(cons(app, 6596 cons(cons(app,
6546 -cons(new_integer(9163318), 6597 +cons(new_integer(9166902),
6547 cons(cons(symbol, 6598 cons(cons(symbol,
6548 -cons(new_integer(9163317), 6599 +cons(new_integer(9166901),
6549 new_string("£create_blowfish_key"))), 6600 new_string("£create_blowfish_key"))),
6550 cons(cons(symbol, 6601 cons(cons(symbol,
6551 -cons(new_integer(9163321), 6602 +cons(new_integer(9166905),
6552 new_string("key"))), 6603 new_string("key"))),
6553 nil)))), 6604 nil)))),
6554 cons(cons(symbol, 6605 cons(cons(symbol,
6555 -cons(new_integer(9163329), 6606 +cons(new_integer(9166913),
6556 new_string("source"))), 6607 new_string("source"))),
6557 cons(cons(symbol, 6608 cons(cons(symbol,
6558 -cons(new_integer(9163334), 6609 +cons(new_integer(9166918),
6559 new_string("dest"))), 6610 new_string("dest"))),
6560 cons(cons(integer_10, 6611 cons(cons(integer_10,
6561 -cons(new_integer(9163336), 6612 +cons(new_integer(9166920),
6562 nil)), 6613 nil)),
6563 nil))))))), 6614 nil))))))),
6564 nil))))))))); 6615 nil)))))))));
@@ -6609,7 +6660,7 @@ noname), @@ -6609,7 +6660,7 @@ noname),
6609 nil)), 6660 nil)),
6610 nil),0,1); 6661 nil),0,1);
6611 6662
6612 -new_op_scheme(18371086,0, 6663 +new_op_scheme(18378254,0,
6613 type_String, 6664 type_String,
6614 cons(new_string("£to_string"), 6665 cons(new_string("£to_string"),
6615 nil), 6666 nil),
@@ -6618,11 +6669,11 @@ new_integer(2)), @@ -6618,11 +6669,11 @@ new_integer(2)),
6618 new_string("ptr")), 6669 new_string("ptr")),
6619 nil), 6670 nil),
6620 cons(avm, 6671 cons(avm,
6621 -cons(new_integer(9186573), 6672 +cons(new_integer(9190157),
6622 cons(print_X509, 6673 cons(print_X509,
6623 nil)))); 6674 nil))));
6624 6675
6625 -new_op_scheme(18374172,1, 6676 +new_op_scheme(18381340,1,
6626 type_String, 6677 type_String,
6627 cons(new_string("to_string"), 6678 cons(new_string("to_string"),
6628 nil), 6679 nil),
@@ -6630,21 +6681,21 @@ cons(cons(new_string(&quot;X509&quot;), @@ -6630,21 +6681,21 @@ cons(cons(new_string(&quot;X509&quot;),
6630 new_string("certificate")), 6681 new_string("certificate")),
6631 nil), 6682 nil),
6632 cons(cond, 6683 cons(cond,
6633 -cons(new_integer(9188357), 6684 +cons(new_integer(9191941),
6634 cons(cons(symbol, 6685 cons(cons(symbol,
6635 -cons(new_integer(9188369), 6686 +cons(new_integer(9191953),
6636 new_string("certificate"))), 6687 new_string("certificate"))),
6637 cons(cons(cons(new_string("£x509"), 6688 cons(cons(cons(new_string("£x509"),
6638 cons(new_string("ptr"), 6689 cons(new_string("ptr"),
6639 nil)), 6690 nil)),
6640 -cons(new_integer(9188388), 6691 +cons(new_integer(9191972),
6641 cons(app, 6692 cons(app,
6642 -cons(new_integer(9188400), 6693 +cons(new_integer(9191984),
6643 cons(cons(symbol, 6694 cons(cons(symbol,
6644 -cons(new_integer(9188399), 6695 +cons(new_integer(9191983),
6645 new_string("£to_string"))), 6696 new_string("£to_string"))),
6646 cons(cons(symbol, 6697 cons(cons(symbol,
6647 -cons(new_integer(9188403), 6698 +cons(new_integer(9191987),
6648 new_string("ptr"))), 6699 new_string("ptr"))),
6649 nil)))))), 6700 nil)))))),
6650 nil))))); 6701 nil)))));
@@ -6669,7 +6720,7 @@ nil), @@ -6669,7 +6720,7 @@ nil),
6669 nil), 6720 nil),
6670 nil))))),0,1); 6721 nil))))),0,1);
6671 6722
6672 -new_op_scheme(18384910,0, 6723 +new_op_scheme(18392078,0,
6673 new_string("Result_trust_X509_for_ever"), 6724 new_string("Result_trust_X509_for_ever"),
6674 cons(new_string("£trust_for_ever"), 6725 cons(new_string("£trust_for_ever"),
6675 nil), 6726 nil),
@@ -6678,11 +6729,11 @@ new_integer(2)), @@ -6678,11 +6729,11 @@ new_integer(2)),
6678 new_string("ptr")), 6729 new_string("ptr")),
6679 nil), 6730 nil),
6680 cons(avm, 6731 cons(avm,
6681 -cons(new_integer(9193485), 6732 +cons(new_integer(9197069),
6682 cons(trust_X509_for_ever, 6733 cons(trust_X509_for_ever,
6683 nil)))); 6734 nil))));
6684 6735
6685 -new_op_scheme(18387996,1, 6736 +new_op_scheme(18395164,1,
6686 new_string("Result_trust_X509_for_ever"), 6737 new_string("Result_trust_X509_for_ever"),
6687 cons(new_string("trust_for_ever"), 6738 cons(new_string("trust_for_ever"),
6688 nil), 6739 nil),
@@ -6690,21 +6741,21 @@ cons(cons(new_string(&quot;X509&quot;), @@ -6690,21 +6741,21 @@ cons(cons(new_string(&quot;X509&quot;),
6690 new_string("cert")), 6741 new_string("cert")),
6691 nil), 6742 nil),
6692 cons(cond, 6743 cons(cond,
6693 -cons(new_integer(9195269), 6744 +cons(new_integer(9198853),
6694 cons(cons(symbol, 6745 cons(cons(symbol,
6695 -cons(new_integer(9195274), 6746 +cons(new_integer(9198858),
6696 new_string("cert"))), 6747 new_string("cert"))),
6697 cons(cons(cons(new_string("£x509"), 6748 cons(cons(cons(new_string("£x509"),
6698 cons(new_string("ptr"), 6749 cons(new_string("ptr"),
6699 nil)), 6750 nil)),
6700 -cons(new_integer(9195293), 6751 +cons(new_integer(9198877),
6701 cons(app, 6752 cons(app,
6702 -cons(new_integer(9195310), 6753 +cons(new_integer(9198894),
6703 cons(cons(symbol, 6754 cons(cons(symbol,
6704 -cons(new_integer(9195309), 6755 +cons(new_integer(9198893),
6705 new_string("£trust_for_ever"))), 6756 new_string("£trust_for_ever"))),
6706 cons(cons(symbol, 6757 cons(cons(symbol,
6707 -cons(new_integer(9195313), 6758 +cons(new_integer(9198897),
6708 new_string("ptr"))), 6759 new_string("ptr"))),
6709 nil)))))), 6760 nil)))))),
6710 nil))))); 6761 nil)))));
@@ -6726,7 +6777,7 @@ noname), @@ -6726,7 +6777,7 @@ noname),
6726 nil)), 6777 nil)),
6727 nil))),0,1); 6778 nil))),0,1);
6728 6779
6729 -new_op_scheme(18401806,0, 6780 +new_op_scheme(18408974,0,
6730 new_string("£SSL_client_wrap_Result"), 6781 new_string("£SSL_client_wrap_Result"),
6731 cons(new_string("£ssl_client_wrap"), 6782 cons(new_string("£ssl_client_wrap"),
6732 nil), 6783 nil),
@@ -6735,11 +6786,11 @@ new_string(&quot;Int8&quot;)), @@ -6735,11 +6786,11 @@ new_string(&quot;Int8&quot;)),
6735 new_string("tcp_conn")), 6786 new_string("tcp_conn")),
6736 nil), 6787 nil),
6737 cons(avm, 6788 cons(avm,
6738 -cons(new_integer(9201933), 6789 +cons(new_integer(9205517),
6739 cons(ssl_client_wrap, 6790 cons(ssl_client_wrap,
6740 nil)))); 6791 nil))));
6741 6792
6742 -new_op_scheme(18405902,0, 6793 +new_op_scheme(18413070,0,
6743 new_string("Bool"), 6794 new_string("Bool"),
6744 cons(new_string("£check_certificate_chain"), 6795 cons(new_string("£check_certificate_chain"),
6745 nil), 6796 nil),
@@ -6750,11 +6801,11 @@ cons(cons(type_String, @@ -6750,11 +6801,11 @@ cons(cons(type_String,
6750 new_string("server_name")), 6801 new_string("server_name")),
6751 nil)), 6802 nil)),
6752 cons(avm, 6803 cons(avm,
6753 -cons(new_integer(9204237), 6804 +cons(new_integer(9207821),
6754 cons(check_certificate_chain, 6805 cons(check_certificate_chain,
6755 nil)))); 6806 nil))));
6756 6807
6757 -new_op_scheme(18409486,0, 6808 +new_op_scheme(18416654,0,
6758 cons(app_ts, 6809 cons(app_ts,
6759 cons(new_string("Maybe"), 6810 cons(new_string("Maybe"),
6760 cons(new_string("X509"), 6811 cons(new_string("X509"),
@@ -6766,11 +6817,11 @@ new_integer(1)), @@ -6766,11 +6817,11 @@ new_integer(1)),
6766 new_string("ssl_obj")), 6817 new_string("ssl_obj")),
6767 nil), 6818 nil),
6768 cons(avm, 6819 cons(avm,
6769 -cons(new_integer(9205773), 6820 +cons(new_integer(9209357),
6770 cons(get_ssl_certificate, 6821 cons(get_ssl_certificate,
6771 nil)))); 6822 nil))));
6772 6823
6773 -new_op_scheme(18413596,1, 6824 +new_op_scheme(18420764,1,
6774 cons(app_ts, 6825 cons(app_ts,
6775 cons(new_string("Result"), 6826 cons(new_string("Result"),
6776 cons(new_string("SSLConnectError"), 6827 cons(new_string("SSLConnectError"),
@@ -6794,9 +6845,9 @@ new_string(&quot;Bool&quot;))), @@ -6794,9 +6845,9 @@ new_string(&quot;Bool&quot;))),
6794 new_string("accept_policy")), 6845 new_string("accept_policy")),
6795 nil)))), 6846 nil)))),
6796 cons(cond, 6847 cons(cond,
6797 -cons(new_integer(9209605), 6848 +cons(new_integer(9213189),
6798 cons(cons(connect_to_IP, 6849 cons(cons(connect_to_IP,
6799 -cons(new_integer(9209666), 6850 +cons(new_integer(9213250),
6800 cons(cons(app_ts, 6851 cons(cons(app_ts,
6801 cons(new_string("Result"), 6852 cons(new_string("Result"),
6802 cons(new_string("NetworkConnectError"), 6853 cons(new_string("NetworkConnectError"),
@@ -6804,171 +6855,171 @@ cons(cons(type_RWAddr, @@ -6804,171 +6855,171 @@ cons(cons(type_RWAddr,
6804 new_string("Int8")), 6855 new_string("Int8")),
6805 nil)))), 6856 nil)))),
6806 cons(cons(symbol, 6857 cons(cons(symbol,
6807 -cons(new_integer(9209677), 6858 +cons(new_integer(9213261),
6808 new_string("ip_address"))), 6859 new_string("ip_address"))),
6809 cons(symbol, 6860 cons(symbol,
6810 -cons(new_integer(9209685), 6861 +cons(new_integer(9213269),
6811 new_string("ip_port"))))))), 6862 new_string("ip_port"))))))),
6812 cons(cons(cons(new_string("error"), 6863 cons(cons(cons(new_string("error"),
6813 cons(new_string("msg"), 6864 cons(new_string("msg"),
6814 nil)), 6865 nil)),
6815 -cons(new_integer(9210134), 6866 +cons(new_integer(9213718),
6816 cons(app, 6867 cons(app,
6817 -cons(new_integer(9210141), 6868 +cons(new_integer(9213725),
6818 cons(cons(symbol, 6869 cons(cons(symbol,
6819 -cons(new_integer(9210140), 6870 +cons(new_integer(9213724),
6820 new_string("error"))), 6871 new_string("error"))),
6821 cons(cons(app, 6872 cons(cons(app,
6822 -cons(new_integer(9210151), 6873 +cons(new_integer(9213735),
6823 cons(cons(symbol, 6874 cons(cons(symbol,
6824 -cons(new_integer(9210150), 6875 +cons(new_integer(9213734),
6825 new_string("tcp_error"))), 6876 new_string("tcp_error"))),
6826 cons(cons(symbol, 6877 cons(cons(symbol,
6827 -cons(new_integer(9210154), 6878 +cons(new_integer(9213738),
6828 new_string("msg"))), 6879 new_string("msg"))),
6829 nil)))), 6880 nil)))),
6830 nil)))))), 6881 nil)))))),
6831 cons(cons(cons(new_string("ok"), 6882 cons(cons(cons(new_string("ok"),
6832 cons(new_string("tcp_conn"), 6883 cons(new_string("tcp_conn"),
6833 nil)), 6884 nil)),
6834 -cons(new_integer(9210392), 6885 +cons(new_integer(9213976),
6835 cons(cond, 6886 cons(cond,
6836 -cons(new_integer(9210635), 6887 +cons(new_integer(9214219),
6837 cons(cons(app, 6888 cons(cons(app,
6838 -cons(new_integer(9210653), 6889 +cons(new_integer(9214237),
6839 cons(cons(symbol, 6890 cons(cons(symbol,
6840 -cons(new_integer(9210652), 6891 +cons(new_integer(9214236),
6841 new_string("£ssl_client_wrap"))), 6892 new_string("£ssl_client_wrap"))),
6842 cons(cons(symbol, 6893 cons(cons(symbol,
6843 -cons(new_integer(9210661), 6894 +cons(new_integer(9214245),
6844 new_string("tcp_conn"))), 6895 new_string("tcp_conn"))),
6845 nil)))), 6896 nil)))),
6846 cons(cons(cons(new_string("£cannot_create_SSL_object"), 6897 cons(cons(cons(new_string("£cannot_create_SSL_object"),
6847 nil), 6898 nil),
6848 -cons(new_integer(9211179), 6899 +cons(new_integer(9214763),
6849 cons(app, 6900 cons(app,
6850 -cons(new_integer(9211186), 6901 +cons(new_integer(9214770),
6851 cons(cons(symbol, 6902 cons(cons(symbol,
6852 -cons(new_integer(9211185), 6903 +cons(new_integer(9214769),
6853 new_string("error"))), 6904 new_string("error"))),
6854 cons(cons(symbol, 6905 cons(cons(symbol,
6855 -cons(new_integer(9211210), 6906 +cons(new_integer(9214794),
6856 new_string("cannot_create_SSL_object"))), 6907 new_string("cannot_create_SSL_object"))),
6857 nil)))))), 6908 nil)))))),
6858 cons(cons(cons(new_string("£cannot_connect_under_SSL"), 6909 cons(cons(cons(new_string("£cannot_connect_under_SSL"),
6859 nil), 6910 nil),
6860 -cons(new_integer(9211435), 6911 +cons(new_integer(9215019),
6861 cons(app, 6912 cons(app,
6862 -cons(new_integer(9211442), 6913 +cons(new_integer(9215026),
6863 cons(cons(symbol, 6914 cons(cons(symbol,
6864 -cons(new_integer(9211441), 6915 +cons(new_integer(9215025),
6865 new_string("error"))), 6916 new_string("error"))),
6866 cons(cons(symbol, 6917 cons(cons(symbol,
6867 -cons(new_integer(9211466), 6918 +cons(new_integer(9215050),
6868 new_string("cannot_connect_under_SSL"))), 6919 new_string("cannot_connect_under_SSL"))),
6869 nil)))))), 6920 nil)))))),
6870 cons(cons(cons(new_string("£ok"), 6921 cons(cons(cons(new_string("£ok"),
6871 cons(new_string("ssl_obj"), 6922 cons(new_string("ssl_obj"),
6872 nil)), 6923 nil)),
6873 -cons(new_integer(9211678), 6924 +cons(new_integer(9215262),
6874 cons(cond, 6925 cons(cond,
6875 -cons(new_integer(9211921), 6926 +cons(new_integer(9215505),
6876 cons(cons(of_type, 6927 cons(cons(of_type,
6877 -cons(new_integer(9211921), 6928 +cons(new_integer(9215505),
6878 cons(new_string("Bool"), 6929 cons(new_string("Bool"),
6879 cons(app, 6930 cons(app,
6880 -cons(new_integer(9211947), 6931 +cons(new_integer(9215531),
6881 cons(cons(symbol, 6932 cons(cons(symbol,
6882 -cons(new_integer(9211946), 6933 +cons(new_integer(9215530),
6883 new_string("£check_certificate_chain"))), 6934 new_string("£check_certificate_chain"))),
6884 cons(cons(symbol, 6935 cons(cons(symbol,
6885 -cons(new_integer(9211954), 6936 +cons(new_integer(9215538),
6886 new_string("ssl_obj"))), 6937 new_string("ssl_obj"))),
6887 cons(cons(symbol, 6938 cons(cons(symbol,
6888 -cons(new_integer(9211966), 6939 +cons(new_integer(9215550),
6889 new_string("server_name"))), 6940 new_string("server_name"))),
6890 nil)))))))), 6941 nil)))))))),
6891 cons(cons(cons(new_string("false"), 6942 cons(cons(cons(new_string("false"),
6892 nil), 6943 nil),
6893 -cons(new_integer(9212435), 6944 +cons(new_integer(9216019),
6894 cons(cond, 6945 cons(cond,
6895 -cons(new_integer(9212438), 6946 +cons(new_integer(9216022),
6896 cons(cons(of_type, 6947 cons(cons(of_type,
6897 -cons(new_integer(9212438), 6948 +cons(new_integer(9216022),
6898 cons(new_string("Bool"), 6949 cons(new_string("Bool"),
6899 cons(app, 6950 cons(app,
6900 -cons(new_integer(9212453), 6951 +cons(new_integer(9216037),
6901 cons(cons(symbol, 6952 cons(cons(symbol,
6902 -cons(new_integer(9212452), 6953 +cons(new_integer(9216036),
6903 new_string("accept_policy"))), 6954 new_string("accept_policy"))),
6904 cons(cons(app, 6955 cons(cons(app,
6905 -cons(new_integer(9212474), 6956 +cons(new_integer(9216058),
6906 cons(cons(symbol, 6957 cons(cons(symbol,
6907 -cons(new_integer(9212473), 6958 +cons(new_integer(9216057),
6908 new_string("£get_ssl_certificate"))), 6959 new_string("£get_ssl_certificate"))),
6909 cons(cons(symbol, 6960 cons(cons(symbol,
6910 -cons(new_integer(9212481), 6961 +cons(new_integer(9216065),
6911 new_string("ssl_obj"))), 6962 new_string("ssl_obj"))),
6912 nil)))), 6963 nil)))),
6913 nil))))))), 6964 nil))))))),
6914 cons(cons(cons(new_string("false"), 6965 cons(cons(cons(new_string("false"),
6915 nil), 6966 nil),
6916 -cons(new_integer(9212952), 6967 +cons(new_integer(9216536),
6917 cons(app, 6968 cons(app,
6918 -cons(new_integer(9212959), 6969 +cons(new_integer(9216543),
6919 cons(cons(symbol, 6970 cons(cons(symbol,
6920 -cons(new_integer(9212958), 6971 +cons(new_integer(9216542),
6921 new_string("error"))), 6972 new_string("error"))),
6922 cons(cons(symbol, 6973 cons(cons(symbol,
6923 -cons(new_integer(9212990), 6974 +cons(new_integer(9216574),
6924 new_string("cannot_trust_server_certificate"))), 6975 new_string("cannot_trust_server_certificate"))),
6925 nil)))))), 6976 nil)))))),
6926 cons(cons(cons(new_string("true"), 6977 cons(cons(cons(new_string("true"),
6927 nil), 6978 nil),
6928 -cons(new_integer(9212696), 6979 +cons(new_integer(9216280),
6929 cons(app, 6980 cons(app,
6930 -cons(new_integer(9212700), 6981 +cons(new_integer(9216284),
6931 cons(cons(symbol, 6982 cons(cons(symbol,
6932 -cons(new_integer(9212699), 6983 +cons(new_integer(9216283),
6933 new_string("ok"))), 6984 new_string("ok"))),
6934 cons(cons(app, 6985 cons(cons(app,
6935 -cons(new_integer(9212716), 6986 +cons(new_integer(9216300),
6936 cons(cons(symbol, 6987 cons(cons(symbol,
6937 -cons(new_integer(9212715), 6988 +cons(new_integer(9216299),
6938 new_string("£ssl_connection"))), 6989 new_string("£ssl_connection"))),
6939 cons(cons(symbol, 6990 cons(cons(symbol,
6940 -cons(new_integer(9212723), 6991 +cons(new_integer(9216307),
6941 new_string("ssl_obj"))), 6992 new_string("ssl_obj"))),
6942 cons(cons(symbol, 6993 cons(cons(symbol,
6943 -cons(new_integer(9212732), 6994 +cons(new_integer(9216316),
6944 new_string("tcp_conn"))), 6995 new_string("tcp_conn"))),
6945 cons(cons(symbol, 6996 cons(cons(symbol,
6946 -cons(new_integer(9212744), 6997 +cons(new_integer(9216328),
6947 new_string("server_name"))), 6998 new_string("server_name"))),
6948 nil)))))), 6999 nil)))))),
6949 nil)))))), 7000 nil)))))),
6950 nil))))))), 7001 nil))))))),
6951 cons(cons(cons(new_string("true"), 7002 cons(cons(cons(new_string("true"),
6952 nil), 7003 nil),
6953 -cons(new_integer(9212179), 7004 +cons(new_integer(9215763),
6954 cons(app, 7005 cons(app,
6955 -cons(new_integer(9212183), 7006 +cons(new_integer(9215767),
6956 cons(cons(symbol, 7007 cons(cons(symbol,
6957 -cons(new_integer(9212182), 7008 +cons(new_integer(9215766),
6958 new_string("ok"))), 7009 new_string("ok"))),
6959 cons(cons(app, 7010 cons(cons(app,
6960 -cons(new_integer(9212199), 7011 +cons(new_integer(9215783),
6961 cons(cons(symbol, 7012 cons(cons(symbol,
6962 -cons(new_integer(9212198), 7013 +cons(new_integer(9215782),
6963 new_string("£ssl_connection"))), 7014 new_string("£ssl_connection"))),
6964 cons(cons(symbol, 7015 cons(cons(symbol,
6965 -cons(new_integer(9212206), 7016 +cons(new_integer(9215790),
6966 new_string("ssl_obj"))), 7017 new_string("ssl_obj"))),
6967 cons(cons(symbol, 7018 cons(cons(symbol,
6968 -cons(new_integer(9212215), 7019 +cons(new_integer(9215799),
6969 new_string("tcp_conn"))), 7020 new_string("tcp_conn"))),
6970 cons(cons(symbol, 7021 cons(cons(symbol,
6971 -cons(new_integer(9212227), 7022 +cons(new_integer(9215811),
6972 new_string("server_name"))), 7023 new_string("server_name"))),
6973 nil)))))), 7024 nil)))))),
6974 nil)))))), 7025 nil)))))),
@@ -6976,7 +7027,7 @@ nil))))))), @@ -6976,7 +7027,7 @@ nil))))))),
6976 nil)))))))), 7027 nil)))))))),
6977 nil)))))); 7028 nil))))));
6978 7029
6979 -new_op_scheme(18434076,1, 7030 +new_op_scheme(18441244,1,
6980 cons(app_ts, 7031 cons(app_ts,
6981 cons(new_string("Maybe"), 7032 cons(new_string("Maybe"),
6982 cons(type_ByteArray, 7033 cons(type_ByteArray,
@@ -6991,11 +7042,11 @@ cons(cons(type_Int32, @@ -6991,11 +7042,11 @@ cons(cons(type_Int32,
6991 new_string("timeout")), 7042 new_string("timeout")),
6992 nil))), 7043 nil))),
6993 cons(avm, 7044 cons(avm,
6994 -cons(new_integer(9218573), 7045 +cons(new_integer(9222157),
6995 cons(ssl_read_byte_array, 7046 cons(ssl_read_byte_array,
6996 nil)))); 7047 nil))));
6997 7048
6998 -new_op_scheme(18438172,1, 7049 +new_op_scheme(18445340,1,
6999 cons(app_ts, 7050 cons(app_ts,
7000 cons(new_string("Maybe"), 7051 cons(new_string("Maybe"),
7001 cons(type_String, 7052 cons(type_String,
@@ -7010,11 +7061,11 @@ cons(cons(type_Int32, @@ -7010,11 +7061,11 @@ cons(cons(type_Int32,
7010 new_string("timeout")), 7061 new_string("timeout")),
7011 nil))), 7062 nil))),
7012 cons(avm, 7063 cons(avm,
7013 -cons(new_integer(9220621), 7064 +cons(new_integer(9224205),
7014 cons(ssl_read_string, 7065 cons(ssl_read_string,
7015 nil)))); 7066 nil))));
7016 7067
7017 -new_op_scheme(18444316,1, 7068 +new_op_scheme(18451484,1,
7018 cons(app_ts, 7069 cons(app_ts,
7019 cons(new_string("Maybe"), 7070 cons(new_string("Maybe"),
7020 cons(type_Int32, 7071 cons(type_Int32,
@@ -7027,11 +7078,11 @@ cons(cons(type_ByteArray, @@ -7027,11 +7078,11 @@ cons(cons(type_ByteArray,
7027 new_string("data")), 7078 new_string("data")),
7028 nil)), 7079 nil)),
7029 cons(avm, 7080 cons(avm,
7030 -cons(new_integer(9223437), 7081 +cons(new_integer(9227021),
7031 cons(ssl_write_byte_array, 7082 cons(ssl_write_byte_array,
7032 nil)))); 7083 nil))));
7033 7084
7034 -new_op_scheme(18447900,1, 7085 +new_op_scheme(18455068,1,
7035 cons(app_ts, 7086 cons(app_ts,
7036 cons(new_string("Maybe"), 7087 cons(new_string("Maybe"),
7037 cons(type_Int32, 7088 cons(type_Int32,
@@ -7044,11 +7095,11 @@ cons(cons(type_String, @@ -7044,11 +7095,11 @@ cons(cons(type_String,
7044 new_string("data")), 7095 new_string("data")),
7045 nil)), 7096 nil)),
7046 cons(avm, 7097 cons(avm,
7047 -cons(new_integer(9225229), 7098 +cons(new_integer(9228813),
7048 cons(ssl_write_string, 7099 cons(ssl_write_string,
7049 nil)))); 7100 nil))));
7050 7101
7051 -new_op_scheme(18462734,0, 7102 +new_op_scheme(18469902,0,
7052 cons(app_ts, 7103 cons(app_ts,
7053 cons(new_string("Maybe"), 7104 cons(new_string("Maybe"),
7054 cons(cons(type_struct_ptr, 7105 cons(cons(type_struct_ptr,
@@ -7061,11 +7112,11 @@ new_string(&quot;Int8&quot;)), @@ -7061,11 +7112,11 @@ new_string(&quot;Int8&quot;)),
7061 new_string("tcp_conn")), 7112 new_string("tcp_conn")),
7062 nil), 7113 nil),
7063 cons(avm, 7114 cons(avm,
7064 -cons(new_integer(9232648), 7115 +cons(new_integer(9236232),
7065 cons(ssl_server_wrap, 7116 cons(ssl_server_wrap,
7066 nil)))); 7117 nil))));
7067 7118
7068 -new_op_scheme(18466318,0, 7119 +new_op_scheme(18473486,0,
7069 new_string("One"), 7120 new_string("One"),
7070 cons(new_string("£handle_ssl_request"), 7121 cons(new_string("£handle_ssl_request"),
7071 nil), 7122 nil),
@@ -7081,50 +7132,50 @@ new_string(&quot;One&quot;))), @@ -7081,50 +7132,50 @@ new_string(&quot;One&quot;))),
7081 new_string("handler")), 7132 new_string("handler")),
7082 nil))), 7133 nil))),
7083 cons(cond, 7134 cons(cond,
7084 -cons(new_integer(9234950), 7135 +cons(new_integer(9238534),
7085 cons(cons(app, 7136 cons(cons(app,
7086 -cons(new_integer(9234968), 7137 +cons(new_integer(9238552),
7087 cons(cons(symbol, 7138 cons(cons(symbol,
7088 -cons(new_integer(9234967), 7139 +cons(new_integer(9238551),
7089 new_string("£ssl_server_wrap"))), 7140 new_string("£ssl_server_wrap"))),
7090 cons(cons(symbol, 7141 cons(cons(symbol,
7091 -cons(new_integer(9234976), 7142 +cons(new_integer(9238560),
7092 new_string("tcp_conn"))), 7143 new_string("tcp_conn"))),
7093 nil)))), 7144 nil)))),
7094 cons(cons(cons(new_string("failure"), 7145 cons(cons(cons(new_string("failure"),
7095 nil), 7146 nil),
7096 -cons(new_integer(9235476), 7147 +cons(new_integer(9239060),
7097 cons(symbol, 7148 cons(symbol,
7098 -cons(new_integer(9235483), 7149 +cons(new_integer(9239067),
7099 new_string("unique"))))), 7150 new_string("unique"))))),
7100 cons(cons(cons(new_string("success"), 7151 cons(cons(cons(new_string("success"),
7101 cons(new_string("ssl_obj"), 7152 cons(new_string("ssl_obj"),
7102 nil)), 7153 nil)),
7103 -cons(new_integer(9235741), 7154 +cons(new_integer(9239325),
7104 cons(app, 7155 cons(app,
7105 -cons(new_integer(9235986), 7156 +cons(new_integer(9239570),
7106 cons(cons(symbol, 7157 cons(cons(symbol,
7107 -cons(new_integer(9235985), 7158 +cons(new_integer(9239569),
7108 new_string("handler"))), 7159 new_string("handler"))),
7109 cons(cons(app, 7160 cons(cons(app,
7110 -cons(new_integer(9236002), 7161 +cons(new_integer(9239586),
7111 cons(cons(symbol, 7162 cons(cons(symbol,
7112 -cons(new_integer(9236001), 7163 +cons(new_integer(9239585),
7113 new_string("£ssl_connection"))), 7164 new_string("£ssl_connection"))),
7114 cons(cons(symbol, 7165 cons(cons(symbol,
7115 -cons(new_integer(9236009), 7166 +cons(new_integer(9239593),
7116 new_string("ssl_obj"))), 7167 new_string("ssl_obj"))),
7117 cons(cons(symbol, 7168 cons(cons(symbol,
7118 -cons(new_integer(9236018), 7169 +cons(new_integer(9239602),
7119 new_string("tcp_conn"))), 7170 new_string("tcp_conn"))),
7120 cons(cons(symbol, 7171 cons(cons(symbol,
7121 -cons(new_integer(9236030), 7172 +cons(new_integer(9239614),
7122 new_string("server_name"))), 7173 new_string("server_name"))),
7123 nil)))))), 7174 nil)))))),
7124 nil)))))), 7175 nil)))))),
7125 nil)))))); 7176 nil))))));
7126 7177
7127 -new_op_scheme(18473486,0, 7178 +new_op_scheme(18480654,0,
7128 new_string("One"), 7179 new_string("One"),
7129 cons(new_string("£run_ssl_server"), 7180 cons(new_string("£run_ssl_server"),
7130 nil), 7181 nil),
@@ -7144,103 +7195,103 @@ new_string(&quot;One&quot;))), @@ -7144,103 +7195,103 @@ new_string(&quot;One&quot;))),
7144 new_string("notify")), 7195 new_string("notify")),
7145 nil)))), 7196 nil)))),
7146 cons(cond, 7197 cons(cond,
7147 -cons(new_integer(9238790), 7198 +cons(new_integer(9242374),
7148 cons(cons(app, 7199 cons(cons(app,
7149 -cons(new_integer(9238810), 7200 +cons(new_integer(9242394),
7150 cons(cons(symbol, 7201 cons(cons(symbol,
7151 -cons(new_integer(9238809), 7202 +cons(new_integer(9242393),
7152 new_string("£accept_connection"))), 7203 new_string("£accept_connection"))),
7153 cons(cons(symbol, 7204 cons(cons(symbol,
7154 -cons(new_integer(9238811), 7205 +cons(new_integer(9242395),
7155 new_string("l"))), 7206 new_string("l"))),
7156 nil)))), 7207 nil)))),
7157 cons(cons(cons(new_string("£listener_is_down"), 7208 cons(cons(cons(new_string("£listener_is_down"),
7158 nil), 7209 nil),
7159 -cons(new_integer(9239325), 7210 +cons(new_integer(9242909),
7160 cons(symbol, 7211 cons(symbol,
7161 -cons(new_integer(9239567), 7212 +cons(new_integer(9243151),
7162 new_string("unique"))))), 7213 new_string("unique"))))),
7163 cons(cons(cons(new_string("£cannot_open_pending_connection"), 7214 cons(cons(cons(new_string("£cannot_open_pending_connection"),
7164 nil), 7215 nil),
7165 -cons(new_integer(9240107), 7216 +cons(new_integer(9243691),
7166 cons(cond, 7217 cons(cond,
7167 -cons(new_integer(9240344), 7218 +cons(new_integer(9243928),
7168 cons(cons(of_type, 7219 cons(cons(of_type,
7169 -cons(new_integer(9240344), 7220 +cons(new_integer(9243928),
7170 cons(new_string("One"), 7221 cons(new_string("One"),
7171 cons(app, 7222 cons(app,
7172 -cons(new_integer(9240336), 7223 +cons(new_integer(9243920),
7173 cons(cons(symbol, 7224 cons(cons(symbol,
7174 -cons(new_integer(9240335), 7225 +cons(new_integer(9243919),
7175 new_string("notify"))), 7226 new_string("notify"))),
7176 cons(cons(symbol, 7227 cons(cons(symbol,
7177 -cons(new_integer(9240342), 7228 +cons(new_integer(9243926),
7178 new_string("unique"))), 7229 new_string("unique"))),
7179 nil))))))), 7230 nil))))))),
7180 cons(cons(cons(new_string("unique"), 7231 cons(cons(cons(new_string("unique"),
7181 nil), 7232 nil),
7182 -cons(new_integer(9240344), 7233 +cons(new_integer(9243928),
7183 cons(app, 7234 cons(app,
7184 -cons(new_integer(9240361), 7235 +cons(new_integer(9243945),
7185 cons(cons(symbol, 7236 cons(cons(symbol,
7186 -cons(new_integer(9240360), 7237 +cons(new_integer(9243944),
7187 new_string("£run_ssl_server"))), 7238 new_string("£run_ssl_server"))),
7188 cons(cons(symbol, 7239 cons(cons(symbol,
7189 -cons(new_integer(9240362), 7240 +cons(new_integer(9243946),
7190 new_string("l"))), 7241 new_string("l"))),
7191 cons(cons(symbol, 7242 cons(cons(symbol,
7192 -cons(new_integer(9240374), 7243 +cons(new_integer(9243958),
7193 new_string("server_name"))), 7244 new_string("server_name"))),
7194 cons(cons(symbol, 7245 cons(cons(symbol,
7195 -cons(new_integer(9240382), 7246 +cons(new_integer(9243966),
7196 new_string("handler"))), 7247 new_string("handler"))),
7197 cons(cons(symbol, 7248 cons(cons(symbol,
7198 -cons(new_integer(9240389), 7249 +cons(new_integer(9243973),
7199 new_string("notify"))), 7250 new_string("notify"))),
7200 nil))))))))), 7251 nil))))))))),
7201 nil)))))), 7252 nil)))))),
7202 cons(cons(cons(new_string("£ok"), 7253 cons(cons(cons(new_string("£ok"),
7203 cons(new_string("tcp_conn"), 7254 cons(new_string("tcp_conn"),
7204 nil)), 7255 nil)),
7205 -cons(new_integer(9241113), 7256 +cons(new_integer(9244697),
7206 cons(delegate, 7257 cons(delegate,
7207 -cons(new_integer(9241361), 7258 +cons(new_integer(9244945),
7208 cons(cons(app, 7259 cons(cons(app,
7209 -cons(new_integer(9241382), 7260 +cons(new_integer(9244966),
7210 cons(cons(symbol, 7261 cons(cons(symbol,
7211 -cons(new_integer(9241381), 7262 +cons(new_integer(9244965),
7212 new_string("£handle_ssl_request"))), 7263 new_string("£handle_ssl_request"))),
7213 cons(cons(symbol, 7264 cons(cons(symbol,
7214 -cons(new_integer(9241390), 7265 +cons(new_integer(9244974),
7215 new_string("tcp_conn"))), 7266 new_string("tcp_conn"))),
7216 cons(cons(symbol, 7267 cons(cons(symbol,
7217 -cons(new_integer(9241402), 7268 +cons(new_integer(9244986),
7218 new_string("server_name"))), 7269 new_string("server_name"))),
7219 cons(cons(symbol, 7270 cons(cons(symbol,
7220 -cons(new_integer(9241645), 7271 +cons(new_integer(9245229),
7221 new_string("handler"))), 7272 new_string("handler"))),
7222 nil)))))), 7273 nil)))))),
7223 cons(app, 7274 cons(app,
7224 -cons(new_integer(9241890), 7275 +cons(new_integer(9245474),
7225 cons(cons(symbol, 7276 cons(cons(symbol,
7226 -cons(new_integer(9241889), 7277 +cons(new_integer(9245473),
7227 new_string("£run_ssl_server"))), 7278 new_string("£run_ssl_server"))),
7228 cons(cons(symbol, 7279 cons(cons(symbol,
7229 -cons(new_integer(9241891), 7280 +cons(new_integer(9245475),
7230 new_string("l"))), 7281 new_string("l"))),
7231 cons(cons(symbol, 7282 cons(cons(symbol,
7232 -cons(new_integer(9241903), 7283 +cons(new_integer(9245487),
7233 new_string("server_name"))), 7284 new_string("server_name"))),
7234 cons(cons(symbol, 7285 cons(cons(symbol,
7235 -cons(new_integer(9242153), 7286 +cons(new_integer(9245737),
7236 new_string("handler"))), 7287 new_string("handler"))),
7237 cons(cons(symbol, 7288 cons(cons(symbol,
7238 -cons(new_integer(9242160), 7289 +cons(new_integer(9245744),
7239 new_string("notify"))), 7290 new_string("notify"))),
7240 nil)))))))))))), 7291 nil)))))))))))),
7241 nil))))))); 7292 nil)))))));
7242 7293
7243 -new_op_scheme(18485788,1, 7294 +new_op_scheme(18492956,1,
7244 new_string("StartServerResult"), 7295 new_string("StartServerResult"),
7245 cons(new_string("start_ssl_server"), 7296 cons(new_string("start_ssl_server"),
7246 nil), 7297 nil),
@@ -7265,91 +7316,91 @@ new_string(&quot;One&quot;))), @@ -7265,91 +7316,91 @@ new_string(&quot;One&quot;))),
7265 new_string("notify")), 7316 new_string("notify")),
7266 nil))))), 7317 nil))))),
7267 cons(cond, 7318 cons(cond,
7268 -cons(new_integer(9245190), 7319 +cons(new_integer(9248774),
7269 cons(cons(app, 7320 cons(cons(app,
7270 -cons(new_integer(9245201), 7321 +cons(new_integer(9248785),
7271 cons(cons(symbol, 7322 cons(cons(symbol,
7272 -cons(new_integer(9245200), 7323 +cons(new_integer(9248784),
7273 new_string("£listener"))), 7324 new_string("£listener"))),
7274 cons(cons(symbol, 7325 cons(cons(symbol,
7275 -cons(new_integer(9245208), 7326 +cons(new_integer(9248792),
7276 new_string("ip_addr"))), 7327 new_string("ip_addr"))),
7277 cons(cons(symbol, 7328 cons(cons(symbol,
7278 -cons(new_integer(9245216), 7329 +cons(new_integer(9248800),
7279 new_string("ip_port"))), 7330 new_string("ip_port"))),
7280 nil))))), 7331 nil))))),
7281 cons(cons(cons(new_string("£cannot_create_the_socket"), 7332 cons(cons(cons(new_string("£cannot_create_the_socket"),
7282 nil), 7333 nil),
7283 -cons(new_integer(9245733), 7334 +cons(new_integer(9249317),
7284 cons(symbol, 7335 cons(symbol,
7285 -cons(new_integer(9245985), 7336 +cons(new_integer(9249569),
7286 new_string("cannot_create_the_socket"))))), 7337 new_string("cannot_create_the_socket"))))),
7287 cons(cons(cons(new_string("£cannot_bind_to_port"), 7338 cons(cons(cons(new_string("£cannot_bind_to_port"),
7288 nil), 7339 nil),
7289 -cons(new_integer(9246240), 7340 +cons(new_integer(9249824),
7290 cons(symbol, 7341 cons(symbol,
7291 -cons(new_integer(9246492), 7342 +cons(new_integer(9250076),
7292 new_string("cannot_bind_to_port"))))), 7343 new_string("cannot_bind_to_port"))))),
7293 cons(cons(cons(new_string("£cannot_listen_on_port"), 7344 cons(cons(cons(new_string("£cannot_listen_on_port"),
7294 nil), 7345 nil),
7295 -cons(new_integer(9246754), 7346 +cons(new_integer(9250338),
7296 cons(symbol, 7347 cons(symbol,
7297 -cons(new_integer(9247006), 7348 +cons(new_integer(9250590),
7298 new_string("cannot_listen_on_port"))))), 7349 new_string("cannot_listen_on_port"))))),
7299 cons(cons(cons(new_string("£ok"), 7350 cons(cons(cons(new_string("£ok"),
7300 cons(new_string("l"), 7351 cons(new_string("l"),
7301 nil)), 7352 nil)),
7302 -cons(new_integer(9247250), 7353 +cons(new_integer(9250834),
7303 cons(delegate, 7354 cons(delegate,
7304 -cons(new_integer(9247505), 7355 +cons(new_integer(9251089),
7305 cons(cons(app, 7356 cons(cons(app,
7306 -cons(new_integer(9247522), 7357 +cons(new_integer(9251106),
7307 cons(cons(symbol, 7358 cons(cons(symbol,
7308 -cons(new_integer(9247521), 7359 +cons(new_integer(9251105),
7309 new_string("£run_ssl_server"))), 7360 new_string("£run_ssl_server"))),
7310 cons(cons(symbol, 7361 cons(cons(symbol,
7311 -cons(new_integer(9247523), 7362 +cons(new_integer(9251107),
7312 new_string("l"))), 7363 new_string("l"))),
7313 cons(cons(symbol, 7364 cons(cons(symbol,
7314 -cons(new_integer(9247535), 7365 +cons(new_integer(9251119),
7315 new_string("server_name"))), 7366 new_string("server_name"))),
7316 cons(cons(app, 7367 cons(cons(app,
7317 -cons(new_integer(9247544), 7368 +cons(new_integer(9251128),
7318 cons(cons(symbol, 7369 cons(cons(symbol,
7319 -cons(new_integer(9247543), 7370 +cons(new_integer(9251127),
7320 new_string("handler"))), 7371 new_string("handler"))),
7321 cons(cons(app, 7372 cons(cons(app,
7322 -cons(new_integer(9247552), 7373 +cons(new_integer(9251136),
7323 cons(cons(symbol, 7374 cons(cons(symbol,
7324 -cons(new_integer(9247551), 7375 +cons(new_integer(9251135),
7325 new_string("£server"))), 7376 new_string("£server"))),
7326 cons(cons(symbol, 7377 cons(cons(symbol,
7327 -cons(new_integer(9247553), 7378 +cons(new_integer(9251137),
7328 new_string("l"))), 7379 new_string("l"))),
7329 nil)))), 7380 nil)))),
7330 nil)))), 7381 nil)))),
7331 cons(cons(symbol, 7382 cons(cons(symbol,
7332 -cons(new_integer(9247562), 7383 +cons(new_integer(9251146),
7333 new_string("notify"))), 7384 new_string("notify"))),
7334 nil))))))), 7385 nil))))))),
7335 cons(app, 7386 cons(app,
7336 -cons(new_integer(9247765), 7387 +cons(new_integer(9251349),
7337 cons(cons(symbol, 7388 cons(cons(symbol,
7338 -cons(new_integer(9247764), 7389 +cons(new_integer(9251348),
7339 new_string("ok"))), 7390 new_string("ok"))),
7340 cons(cons(app, 7391 cons(cons(app,
7341 -cons(new_integer(9247773), 7392 +cons(new_integer(9251357),
7342 cons(cons(symbol, 7393 cons(cons(symbol,
7343 -cons(new_integer(9247772), 7394 +cons(new_integer(9251356),
7344 new_string("£server"))), 7395 new_string("£server"))),
7345 cons(cons(symbol, 7396 cons(cons(symbol,
7346 -cons(new_integer(9247774), 7397 +cons(new_integer(9251358),
7347 new_string("l"))), 7398 new_string("l"))),
7348 nil)))), 7399 nil)))),
7349 nil))))))))), 7400 nil))))))))),
7350 nil)))))))); 7401 nil))))))));
7351 7402
7352 -new_op_scheme(18500124,1, 7403 +new_op_scheme(18507292,1,
7353 cons(app_ts, 7404 cons(app_ts,
7354 cons(new_string("£Tuple2"), 7405 cons(new_string("£Tuple2"),
7355 cons(type_Int32, 7406 cons(type_Int32,
@@ -7361,11 +7412,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;), @@ -7361,11 +7412,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
7361 new_string("connection")), 7412 new_string("connection")),
7362 nil), 7413 nil),
7363 cons(avm, 7414 cons(avm,
7364 -cons(new_integer(9250375), 7415 +cons(new_integer(9253959),
7365 cons(local_SSL_addr_port, 7416 cons(local_SSL_addr_port,
7366 nil)))); 7417 nil))));
7367 7418
7368 -new_op_scheme(18501148,1, 7419 +new_op_scheme(18508316,1,
7369 cons(app_ts, 7420 cons(app_ts,
7370 cons(new_string("£Tuple2"), 7421 cons(new_string("£Tuple2"),
7371 cons(type_Int32, 7422 cons(type_Int32,
@@ -7377,11 +7428,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;), @@ -7377,11 +7428,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
7377 new_string("connection")), 7428 new_string("connection")),
7378 nil), 7429 nil),
7379 cons(avm, 7430 cons(avm,
7380 -cons(new_integer(9250887), 7431 +cons(new_integer(9254471),
7381 cons(remote_SSL_addr_port, 7432 cons(remote_SSL_addr_port,
7382 nil)))); 7433 nil))));
7383 7434
7384 -new_op_scheme(18509838,0, 7435 +new_op_scheme(18517006,0,
7385 type_Int32, 7436 type_Int32,
7386 cons(new_string("£simple_hash"), 7437 cons(new_string("£simple_hash"),
7387 nil), 7438 nil),
@@ -7391,11 +7442,11 @@ cons(cons(type_ByteArray, @@ -7391,11 +7442,11 @@ cons(cons(type_ByteArray,
7391 new_string("b")), 7442 new_string("b")),
7392 nil)), 7443 nil)),
7393 cons(avm, 7444 cons(avm,
7394 -cons(new_integer(9255468), 7445 +cons(new_integer(9259052),
7395 cons(simple_hash, 7446 cons(simple_hash,
7396 nil)))); 7447 nil))));
7397 7448
7398 -new_op_scheme(18511900,1, 7449 +new_op_scheme(18519068,1,
7399 type_Int32, 7450 type_Int32,
7400 cons(new_string("simple_hash"), 7451 cons(new_string("simple_hash"),
7401 nil), 7452 nil),
@@ -7405,20 +7456,20 @@ cons(cons(new_utvar(&quot;T&quot;), @@ -7405,20 +7456,20 @@ cons(cons(new_utvar(&quot;T&quot;),
7405 new_string("datum")), 7456 new_string("datum")),
7406 nil)), 7457 nil)),
7407 cons(app, 7458 cons(app,
7408 -cons(new_integer(9257489), 7459 +cons(new_integer(9261073),
7409 cons(cons(symbol, 7460 cons(cons(symbol,
7410 -cons(new_integer(9257488), 7461 +cons(new_integer(9261072),
7411 new_string("£simple_hash"))), 7462 new_string("£simple_hash"))),
7412 cons(cons(symbol, 7463 cons(cons(symbol,
7413 -cons(new_integer(9257503), 7464 +cons(new_integer(9261087),
7414 new_string("number_of_bits"))), 7465 new_string("number_of_bits"))),
7415 cons(cons(app, 7466 cons(cons(app,
7416 -cons(new_integer(9257514), 7467 +cons(new_integer(9261098),
7417 cons(cons(symbol, 7468 cons(cons(symbol,
7418 -cons(new_integer(9257513), 7469 +cons(new_integer(9261097),
7419 new_string("serialize"))), 7470 new_string("serialize"))),
7420 cons(cons(symbol, 7471 cons(cons(symbol,
7421 -cons(new_integer(9257519), 7472 +cons(new_integer(9261103),
7422 new_string("datum"))), 7473 new_string("datum"))),
7423 nil)))), 7474 nil)))),
7424 nil)))))); 7475 nil))))));
@@ -7451,7 +7502,7 @@ noname), @@ -7451,7 +7502,7 @@ noname),
7451 nil)))), 7502 nil)))),
7452 nil),0,1); 7503 nil),0,1);
7453 7504
7454 -new_op_scheme(18544156,1, 7505 +new_op_scheme(18551324,1,
7455 new_string("RGBAImage"), 7506 new_string("RGBAImage"),
7456 cons(new_string("create_rgba_image"), 7507 cons(new_string("create_rgba_image"),
7457 nil), 7508 nil),
@@ -7463,11 +7514,11 @@ cons(cons(new_string(&quot;RGBA&quot;), @@ -7463,11 +7514,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7463 new_string("background")), 7514 new_string("background")),
7464 nil))), 7515 nil))),
7465 cons(avm, 7516 cons(avm,
7466 -cons(new_integer(9272651), 7517 +cons(new_integer(9276235),
7467 cons(create_rgba, 7518 cons(create_rgba,
7468 nil)))); 7519 nil))));
7469 7520
7470 -new_op_scheme(18546204,1, 7521 +new_op_scheme(18553372,1,
7471 new_string("BitMapImage"), 7522 new_string("BitMapImage"),
7472 cons(new_string("create_bitmap_image"), 7523 cons(new_string("create_bitmap_image"),
7473 nil), 7524 nil),
@@ -7479,11 +7530,11 @@ cons(cons(new_string(&quot;Bit&quot;), @@ -7479,11 +7530,11 @@ cons(cons(new_string(&quot;Bit&quot;),
7479 new_string("background")), 7530 new_string("background")),
7480 nil))), 7531 nil))),
7481 cons(avm, 7532 cons(avm,
7482 -cons(new_integer(9273675), 7533 +cons(new_integer(9277259),
7483 cons(create_bitmap, 7534 cons(create_bitmap,
7484 nil)))); 7535 nil))));
7485 7536
7486 -new_op_scheme(18555932,1, 7537 +new_op_scheme(18563100,1,
7487 new_string("One"), 7538 new_string("One"),
7488 cons(new_string("draw_pixel"), 7539 cons(new_string("draw_pixel"),
7489 nil), 7540 nil),
@@ -7497,7 +7548,7 @@ cons(cons(new_string(&quot;RGBA&quot;), @@ -7497,7 +7548,7 @@ cons(cons(new_string(&quot;RGBA&quot;),
7497 new_string("color")), 7548 new_string("color")),
7498 nil)))), 7549 nil)))),
7499 cons(avm, 7550 cons(avm,
7500 -cons(new_integer(9280008), 7551 +cons(new_integer(9283592),
7501 cons(draw_pixel_rgba, 7552 cons(draw_pixel_rgba,
7502 nil)))); 7553 nil))));
7503 7554
@@ -7515,7 +7566,7 @@ nil), @@ -7515,7 +7566,7 @@ nil),
7515 nil), 7566 nil),
7516 nil))),0,1); 7567 nil))),0,1);
7517 7568
7518 -new_op_scheme(18579484,1, 7569 +new_op_scheme(18586652,1,
7519 new_string("One"), 7570 new_string("One"),
7520 cons(new_string("draw_pixel"), 7571 cons(new_string("draw_pixel"),
7521 nil), 7572 nil),
@@ -7529,11 +7580,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;), @@ -7529,11 +7580,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7529 new_string("how")), 7580 new_string("how")),
7530 nil)))), 7581 nil)))),
7531 cons(avm, 7582 cons(avm,
7532 -cons(new_integer(9291784), 7583 +cons(new_integer(9295368),
7533 cons(draw_pixel_bitmap, 7584 cons(draw_pixel_bitmap,
7534 nil)))); 7585 nil))));
7535 7586
7536 -new_op_scheme(18592796,1, 7587 +new_op_scheme(18599964,1,
7537 new_string("RGBA"), 7588 new_string("RGBA"),
7538 cons(new_string("get_pixel"), 7589 cons(new_string("get_pixel"),
7539 nil), 7590 nil),
@@ -7545,11 +7596,11 @@ cons(cons(type_Int32, @@ -7545,11 +7596,11 @@ cons(cons(type_Int32,
7545 new_string("y")), 7596 new_string("y")),
7546 nil))), 7597 nil))),
7547 cons(avm, 7598 cons(avm,
7548 -cons(new_integer(9297934), 7599 +cons(new_integer(9301518),
7549 cons(get_pixel_rgba, 7600 cons(get_pixel_rgba,
7550 nil)))); 7601 nil))));
7551 7602
7552 -new_op_scheme(18598428,1, 7603 +new_op_scheme(18605596,1,
7553 new_string("Bit"), 7604 new_string("Bit"),
7554 cons(new_string("get_pixel"), 7605 cons(new_string("get_pixel"),
7555 nil), 7606 nil),
@@ -7561,7 +7612,7 @@ cons(cons(type_Int32, @@ -7561,7 +7612,7 @@ cons(cons(type_Int32,
7561 new_string("y")), 7612 new_string("y")),
7562 nil))), 7613 nil))),
7563 cons(avm, 7614 cons(avm,
7564 -cons(new_integer(9300750), 7615 +cons(new_integer(9304334),
7565 cons(get_pixel_bitmap, 7616 cons(get_pixel_bitmap,
7566 nil)))); 7617 nil))));
7567 7618
@@ -7581,7 +7632,7 @@ new_string(&quot;v&quot;)), @@ -7581,7 +7632,7 @@ new_string(&quot;v&quot;)),
7581 nil))))), 7632 nil))))),
7582 nil),0,1); 7633 nil),0,1);
7583 7634
7584 -new_op_scheme(18626076,1, 7635 +new_op_scheme(18633244,1,
7585 new_string("One"), 7636 new_string("One"),
7586 cons(new_string("draw_rectangle"), 7637 cons(new_string("draw_rectangle"),
7587 nil), 7638 nil),
@@ -7593,11 +7644,11 @@ cons(cons(new_string(&quot;RGBA&quot;), @@ -7593,11 +7644,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7593 new_string("color_of_rectangle")), 7644 new_string("color_of_rectangle")),
7594 nil))), 7645 nil))),
7595 cons(avm, 7646 cons(avm,
7596 -cons(new_integer(9314574), 7647 +cons(new_integer(9318158),
7597 cons(draw_rectangle_to_rgba, 7648 cons(draw_rectangle_to_rgba,
7598 nil)))); 7649 nil))));
7599 7650
7600 -new_op_scheme(18632220,1, 7651 +new_op_scheme(18639388,1,
7601 new_string("One"), 7652 new_string("One"),
7602 cons(new_string("draw_rectangle"), 7653 cons(new_string("draw_rectangle"),
7603 nil), 7654 nil),
@@ -7609,7 +7660,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;), @@ -7609,7 +7660,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7609 new_string("how")), 7660 new_string("how")),
7610 nil))), 7661 nil))),
7611 cons(avm, 7662 cons(avm,
7612 -cons(new_integer(9317646), 7663 +cons(new_integer(9321230),
7613 cons(draw_rectangle_to_bitmap, 7664 cons(draw_rectangle_to_bitmap,
7614 nil)))); 7665 nil))));
7615 7666
@@ -7642,7 +7693,7 @@ nil), @@ -7642,7 +7693,7 @@ nil),
7642 nil), 7693 nil),
7643 nil)))))))),0,1); 7694 nil)))))))),0,1);
7644 7695
7645 -new_op_scheme(18689564,1, 7696 +new_op_scheme(18696732,1,
7646 new_string("One"), 7697 new_string("One"),
7647 cons(new_string("crop_and_encrust"), 7698 cons(new_string("crop_and_encrust"),
7648 nil), 7699 nil),
@@ -7660,11 +7711,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;), @@ -7660,11 +7711,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7660 new_string("t")), 7711 new_string("t")),
7661 nil)))))), 7712 nil)))))),
7662 cons(avm, 7713 cons(avm,
7663 -cons(new_integer(9347086), 7714 +cons(new_integer(9350670),
7664 cons(crop_and_encrust_rgba_rgba, 7715 cons(crop_and_encrust_rgba_rgba,
7665 nil)))); 7716 nil))));
7666 7717
7667 -new_op_scheme(18695708,1, 7718 +new_op_scheme(18702876,1,
7668 new_string("One"), 7719 new_string("One"),
7669 cons(new_string("crop_and_encrust"), 7720 cons(new_string("crop_and_encrust"),
7670 nil), 7721 nil),
@@ -7684,11 +7735,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;), @@ -7684,11 +7735,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7684 new_string("t")), 7735 new_string("t")),
7685 nil))))))), 7736 nil))))))),
7686 cons(avm, 7737 cons(avm,
7687 -cons(new_integer(9350414), 7738 +cons(new_integer(9353998),
7688 cons(crop_and_encrust_bitmap_rgba, 7739 cons(crop_and_encrust_bitmap_rgba,
7689 nil)))); 7740 nil))));
7690 7741
7691 -new_op_scheme(18704412,1, 7742 +new_op_scheme(18711580,1,
7692 new_string("One"), 7743 new_string("One"),
7693 cons(new_string("crop_and_encrust"), 7744 cons(new_string("crop_and_encrust"),
7694 nil), 7745 nil),
@@ -7708,7 +7759,7 @@ cons(cons(new_string(&quot;Dihedral4&quot;), @@ -7708,7 +7759,7 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7708 new_string("t")), 7759 new_string("t")),
7709 nil))))))), 7760 nil))))))),
7710 cons(avm, 7761 cons(avm,
7711 -cons(new_integer(9355016), 7762 +cons(new_integer(9358600),
7712 cons(crop_and_encrust_bitmap_bitmap, 7763 cons(crop_and_encrust_bitmap_bitmap,
7713 nil)))); 7764 nil))));
7714 7765
@@ -7723,7 +7774,7 @@ noname), @@ -7723,7 +7774,7 @@ noname),
7723 nil)), 7774 nil)),
7724 nil),0,1); 7775 nil),0,1);
7725 7776
7726 -new_op_scheme(18753052,1, 7777 +new_op_scheme(18760220,1,
7727 cons(app_ts, 7778 cons(app_ts,
7728 cons(new_string("Maybe"), 7779 cons(new_string("Maybe"),
7729 cons(new_string("SystemFont"), 7780 cons(new_string("SystemFont"),
@@ -7734,11 +7785,11 @@ cons(cons(type_String, @@ -7734,11 +7785,11 @@ cons(cons(type_String,
7734 new_string("font_name")), 7785 new_string("font_name")),
7735 nil), 7786 nil),
7736 cons(avm, 7787 cons(avm,
7737 -cons(new_integer(9377800), 7788 +cons(new_integer(9381384),
7738 cons(load_system_font, 7789 cons(load_system_font,
7739 nil)))); 7790 nil))));
7740 7791
7741 -new_op_scheme(18773020,1, 7792 +new_op_scheme(18780188,1,
7742 type_Int32, 7793 type_Int32,
7743 cons(new_string("draw_system_character"), 7794 cons(new_string("draw_system_character"),
7744 nil), 7795 nil),
@@ -7758,11 +7809,11 @@ cons(cons(new_string(&quot;RGBA&quot;), @@ -7758,11 +7809,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7758 new_string("character_color")), 7809 new_string("character_color")),
7759 nil))))))), 7810 nil))))))),
7760 cons(avm, 7811 cons(avm,
7761 -cons(new_integer(9389070), 7812 +cons(new_integer(9392654),
7762 cons(draw_system_char_rgba, 7813 cons(draw_system_char_rgba,
7763 nil)))); 7814 nil))));
7764 7815
7765 -new_op_scheme(18779164,1, 7816 +new_op_scheme(18786332,1,
7766 type_Int32, 7817 type_Int32,
7767 cons(new_string("draw_system_character"), 7818 cons(new_string("draw_system_character"),
7768 nil), 7819 nil),
@@ -7782,7 +7833,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;), @@ -7782,7 +7833,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7782 new_string("paint_mode")), 7833 new_string("paint_mode")),
7783 nil))))))), 7834 nil))))))),
7784 cons(avm, 7835 cons(avm,
7785 -cons(new_integer(9392142), 7836 +cons(new_integer(9395726),
7786 cons(draw_system_char_bitmap, 7837 cons(draw_system_char_bitmap,
7787 nil)))); 7838 nil))));
7788 7839
@@ -7802,7 +7853,7 @@ new_string(&quot;depth&quot;)), @@ -7802,7 +7853,7 @@ new_string(&quot;depth&quot;)),
7802 nil))))), 7853 nil))))),
7803 nil),0,1); 7854 nil),0,1);
7804 7855
7805 -new_op_scheme(18796060,1, 7856 +new_op_scheme(18803228,1,
7806 new_string("SystemFontInfo"), 7857 new_string("SystemFontInfo"),
7807 cons(new_string("get_font_info"), 7858 cons(new_string("get_font_info"),
7808 nil), 7859 nil),
@@ -7810,7 +7861,7 @@ cons(cons(new_string(&quot;SystemFont&quot;), @@ -7810,7 +7861,7 @@ cons(cons(new_string(&quot;SystemFont&quot;),
7810 new_string("font")), 7861 new_string("font")),
7811 nil), 7862 nil),
7812 cons(avm, 7863 cons(avm,
7813 -cons(new_integer(9398088), 7864 +cons(new_integer(9401672),
7814 cons(get_font_info, 7865 cons(get_font_info,
7815 nil)))); 7866 nil))));
7816 7867
@@ -7828,7 +7879,7 @@ new_string(&quot;width&quot;)), @@ -7828,7 +7879,7 @@ new_string(&quot;width&quot;)),
7828 nil)))), 7879 nil)))),
7829 nil),0,1); 7880 nil),0,1);
7830 7881
7831 -new_op_scheme(18801180,1, 7882 +new_op_scheme(18808348,1,
7832 new_string("SystemCharacterInfo"), 7883 new_string("SystemCharacterInfo"),
7833 cons(new_string("get_char_info"), 7884 cons(new_string("get_char_info"),
7834 nil), 7885 nil),
@@ -7838,7 +7889,7 @@ cons(cons(new_string(&quot;Int8&quot;), @@ -7838,7 +7889,7 @@ cons(cons(new_string(&quot;Int8&quot;),
7838 new_string("code")), 7889 new_string("code")),
7839 nil)), 7890 nil)),
7840 cons(avm, 7891 cons(avm,
7841 -cons(new_integer(9400911), 7892 +cons(new_integer(9404495),
7842 cons(get_char_info, 7893 cons(get_char_info,
7843 nil)))); 7894 nil))));
7844 7895
@@ -7853,7 +7904,7 @@ noname), @@ -7853,7 +7904,7 @@ noname),
7853 nil)), 7904 nil)),
7854 nil),0,1); 7905 nil),0,1);
7855 7906
7856 -new_op_scheme(18812444,1, 7907 +new_op_scheme(18819612,1,
7857 cons(app_ts, 7908 cons(app_ts,
7858 cons(new_string("£Tuple2"), 7909 cons(new_string("£Tuple2"),
7859 cons(type_Int32, 7910 cons(type_Int32,
@@ -7865,11 +7916,11 @@ cons(cons(new_string(&quot;HostImage&quot;), @@ -7865,11 +7916,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
7865 new_string("im")), 7916 new_string("im")),
7866 nil), 7917 nil),
7867 cons(avm, 7918 cons(avm,
7868 -cons(new_integer(9407246), 7919 +cons(new_integer(9410830),
7869 cons(host_image_size, 7920 cons(host_image_size,
7870 nil)))); 7921 nil))));
7871 7922
7872 -new_op_scheme(18817052,1, 7923 +new_op_scheme(18824220,1,
7873 new_string("HostImage"), 7924 new_string("HostImage"),
7874 cons(new_string("to_host_image"), 7925 cons(new_string("to_host_image"),
7875 nil), 7926 nil),
@@ -7879,11 +7930,11 @@ cons(cons(type_Int32, @@ -7879,11 +7930,11 @@ cons(cons(type_Int32,
7879 new_string("reduction_factor")), 7930 new_string("reduction_factor")),
7880 nil)), 7931 nil)),
7881 cons(avm, 7932 cons(avm,
7882 -cons(new_integer(9409806), 7933 +cons(new_integer(9413390),
7883 cons(rgba_to_host_image, 7934 cons(rgba_to_host_image,
7884 nil)))); 7935 nil))));
7885 7936
7886 -new_op_scheme(18821148,1, 7937 +new_op_scheme(18828316,1,
7887 new_string("One"), 7938 new_string("One"),
7888 cons(new_string("draw_pixel"), 7939 cons(new_string("draw_pixel"),
7889 nil), 7940 nil),
@@ -7897,11 +7948,11 @@ cons(cons(new_string(&quot;RGB&quot;), @@ -7897,11 +7948,11 @@ cons(cons(new_string(&quot;RGB&quot;),
7897 new_string("color")), 7948 new_string("color")),
7898 nil)))), 7949 nil)))),
7899 cons(avm, 7950 cons(avm,
7900 -cons(new_integer(9412366), 7951 +cons(new_integer(9415950),
7901 cons(draw_pixel_host_image, 7952 cons(draw_pixel_host_image,
7902 nil)))); 7953 nil))));
7903 7954
7904 -new_op_scheme(18826268,1, 7955 +new_op_scheme(18833436,1,
7905 new_string("One"), 7956 new_string("One"),
7906 cons(new_string("draw_rectangle"), 7957 cons(new_string("draw_rectangle"),
7907 nil), 7958 nil),
@@ -7913,11 +7964,11 @@ cons(cons(new_string(&quot;RGB&quot;), @@ -7913,11 +7964,11 @@ cons(cons(new_string(&quot;RGB&quot;),
7913 new_string("color_of_rectangle")), 7964 new_string("color_of_rectangle")),
7914 nil))), 7965 nil))),
7915 cons(avm, 7966 cons(avm,
7916 -cons(new_integer(9414670), 7967 +cons(new_integer(9418254),
7917 cons(draw_rectangle_to_host_image, 7968 cons(draw_rectangle_to_host_image,
7918 nil)))); 7969 nil))));
7919 7970
7920 -new_op_scheme(18830876,1, 7971 +new_op_scheme(18838044,1,
7921 type_Int32, 7972 type_Int32,
7922 cons(new_string("draw_system_character"), 7973 cons(new_string("draw_system_character"),
7923 nil), 7974 nil),
@@ -7937,7 +7988,7 @@ cons(cons(new_string(&quot;RGB&quot;), @@ -7937,7 +7988,7 @@ cons(cons(new_string(&quot;RGB&quot;),
7937 new_string("character_color")), 7988 new_string("character_color")),
7938 nil))))))), 7989 nil))))))),
7939 cons(avm, 7990 cons(avm,
7940 -cons(new_integer(9417998), 7991 +cons(new_integer(9421582),
7941 cons(draw_system_char_host_image, 7992 cons(draw_system_char_host_image,
7942 nil)))); 7993 nil))));
7943 7994
@@ -7968,7 +8019,7 @@ new_string(&quot;samples&quot;)), @@ -7968,7 +8019,7 @@ new_string(&quot;samples&quot;)),
7968 nil))))), 8019 nil))))),
7969 nil),0,1); 8020 nil),0,1);
7970 8021
7971 -new_op_scheme(18857500,1, 8022 +new_op_scheme(18864668,1,
7972 new_string("HostImage"), 8023 new_string("HostImage"),
7973 cons(new_string("to_host_image"), 8024 cons(new_string("to_host_image"),
7974 nil), 8025 nil),
@@ -7978,11 +8029,11 @@ cons(cons(type_Int32, @@ -7978,11 +8029,11 @@ cons(cons(type_Int32,
7978 new_string("reducing_factor")), 8029 new_string("reducing_factor")),
7979 nil)), 8030 nil)),
7980 cons(avm, 8031 cons(avm,
7981 -cons(new_integer(9430030), 8032 +cons(new_integer(9433614),
7982 cons(jpeg_bitmap_to_host_image, 8033 cons(jpeg_bitmap_to_host_image,
7983 nil)))); 8034 nil))));
7984 8035
7985 -new_op_scheme(18869788,1, 8036 +new_op_scheme(18876956,1,
7986 new_string("RGBAImage"), 8037 new_string("RGBAImage"),
7987 cons(new_string("to_RGBA"), 8038 cons(new_string("to_RGBA"),
7988 nil), 8039 nil),
@@ -7992,11 +8043,11 @@ cons(cons(type_Int32, @@ -7992,11 +8043,11 @@ cons(cons(type_Int32,
7992 new_string("reducing_factor")), 8043 new_string("reducing_factor")),
7993 nil)), 8044 nil)),
7994 cons(avm, 8045 cons(avm,
7995 -cons(new_integer(9436174), 8046 +cons(new_integer(9439758),
7996 cons(jpeg_bitmap_to_rgba_image, 8047 cons(jpeg_bitmap_to_rgba_image,
7997 nil)))); 8048 nil))));
7998 8049
7999 -new_op_scheme(18874396,1, 8050 +new_op_scheme(18881564,1,
8000 new_string("JPEG_BitMapImage"), 8051 new_string("JPEG_BitMapImage"),
8001 cons(new_string("to_JPEG"), 8052 cons(new_string("to_JPEG"),
8002 nil), 8053 nil),
@@ -8004,7 +8055,7 @@ cons(cons(new_string(&quot;RGBAImage&quot;), @@ -8004,7 +8055,7 @@ cons(cons(new_string(&quot;RGBAImage&quot;),
8004 new_string("image")), 8055 new_string("image")),
8005 nil), 8056 nil),
8006 cons(avm, 8057 cons(avm,
8007 -cons(new_integer(9438222), 8058 +cons(new_integer(9441806),
8008 cons(rgba_image_to_jpeg_bitmap, 8059 cons(rgba_image_to_jpeg_bitmap,
8009 nil)))); 8060 nil))));
8010 8061
@@ -8020,7 +8071,7 @@ new_string(&quot;jpeg_error_mgr&quot;)), @@ -8020,7 +8071,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
8020 nil))), 8071 nil))),
8021 nil),0,1); 8072 nil),0,1);
8022 8073
8023 -new_op_scheme(18884110,0, 8074 +new_op_scheme(18891278,0,
8024 cons(app_ts, 8075 cons(app_ts,
8025 cons(new_string("Maybe"), 8076 cons(new_string("Maybe"),
8026 cons(new_string("£JPEG_compress_info"), 8077 cons(new_string("£JPEG_compress_info"),
@@ -8040,11 +8091,11 @@ new_string(&quot;Int8&quot;)), @@ -8040,11 +8091,11 @@ new_string(&quot;Int8&quot;)),
8040 new_string("output_file")), 8091 new_string("output_file")),
8041 nil))))), 8092 nil))))),
8042 cons(avm, 8093 cons(avm,
8043 -cons(new_integer(9444359), 8094 +cons(new_integer(9447943),
8044 cons(create_JPEG_compress_info, 8095 cons(create_JPEG_compress_info,
8045 nil)))); 8096 nil))));
8046 8097
8047 -new_op_scheme(18890766,0, 8098 +new_op_scheme(18897934,0,
8048 new_string("One"), 8099 new_string("One"),
8049 cons(new_string("£jpeg_write_scanline"), 8100 cons(new_string("£jpeg_write_scanline"),
8050 nil), 8101 nil),
@@ -8056,11 +8107,11 @@ cons(cons(type_Int32, @@ -8056,11 +8107,11 @@ cons(cons(type_Int32,
8056 new_string("start")), 8107 new_string("start")),
8057 nil))), 8108 nil))),
8058 cons(avm, 8109 cons(avm,
8059 -cons(new_integer(9447175), 8110 +cons(new_integer(9450759),
8060 cons(jpeg_write_scanline, 8111 cons(jpeg_write_scanline,
8061 nil)))); 8112 nil))));
8062 8113
8063 -new_op_scheme(18896398,0, 8114 +new_op_scheme(18903566,0,
8064 new_string("One"), 8115 new_string("One"),
8065 cons(new_string("£jpeg_write_scanlines"), 8116 cons(new_string("£jpeg_write_scanlines"),
8066 nil), 8117 nil),
@@ -8076,84 +8127,84 @@ cons(cons(type_Int32, @@ -8076,84 +8127,84 @@ cons(cons(type_Int32,
8076 new_string("i")), 8127 new_string("i")),
8077 nil))))), 8128 nil))))),
8078 cons(cond, 8129 cons(cond,
8079 -cons(new_integer(9450502), 8130 +cons(new_integer(9454086),
8080 cons(cons(of_type, 8131 cons(cons(of_type,
8081 -cons(new_integer(9450502), 8132 +cons(new_integer(9454086),
8082 cons(new_string("Bool"), 8133 cons(new_string("Bool"),
8083 cons(app, 8134 cons(app,
8084 -cons(new_integer(9450507), 8135 +cons(new_integer(9454091),
8085 cons(cons(symbol, 8136 cons(cons(symbol,
8086 -cons(new_integer(9450507), 8137 +cons(new_integer(9454091),
8087 new_string("=<"))), 8138 new_string("=<"))),
8088 cons(cons(symbol, 8139 cons(cons(symbol,
8089 -cons(new_integer(9450514), 8140 +cons(new_integer(9454098),
8090 new_string("height"))), 8141 new_string("height"))),
8091 cons(cons(symbol, 8142 cons(cons(symbol,
8092 -cons(new_integer(9450504), 8143 +cons(new_integer(9454088),
8093 new_string("i"))), 8144 new_string("i"))),
8094 nil)))))))), 8145 nil)))))))),
8095 cons(cons(cons(new_string("false"), 8146 cons(cons(cons(new_string("false"),
8096 nil), 8147 nil),
8097 -cons(new_integer(9450531), 8148 +cons(new_integer(9454115),
8098 cons(cond, 8149 cons(cond,
8099 -cons(new_integer(9450805), 8150 +cons(new_integer(9454389),
8100 cons(cons(of_type, 8151 cons(cons(of_type,
8101 -cons(new_integer(9450805), 8152 +cons(new_integer(9454389),
8102 cons(new_string("One"), 8153 cons(new_string("One"),
8103 cons(app, 8154 cons(app,
8104 -cons(new_integer(9450777), 8155 +cons(new_integer(9454361),
8105 cons(cons(symbol, 8156 cons(cons(symbol,
8106 -cons(new_integer(9450776), 8157 +cons(new_integer(9454360),
8107 new_string("£jpeg_write_scanline"))), 8158 new_string("£jpeg_write_scanline"))),
8108 cons(cons(symbol, 8159 cons(cons(symbol,
8109 -cons(new_integer(9450782), 8160 +cons(new_integer(9454366),
8110 new_string("cinfo"))), 8161 new_string("cinfo"))),
8111 cons(cons(symbol, 8162 cons(cons(symbol,
8112 -cons(new_integer(9450790), 8163 +cons(new_integer(9454374),
8113 new_string("samples"))), 8164 new_string("samples"))),
8114 cons(cons(app, 8165 cons(cons(app,
8115 -cons(new_integer(9450802), 8166 +cons(new_integer(9454386),
8116 cons(cons(symbol, 8167 cons(cons(symbol,
8117 -cons(new_integer(9450802), 8168 +cons(new_integer(9454386),
8118 new_string("*"))), 8169 new_string("*"))),
8119 cons(cons(symbol, 8170 cons(cons(symbol,
8120 -cons(new_integer(9450801), 8171 +cons(new_integer(9454385),
8121 new_string("row_stride"))), 8172 new_string("row_stride"))),
8122 cons(cons(symbol, 8173 cons(cons(symbol,
8123 -cons(new_integer(9450803), 8174 +cons(new_integer(9454387),
8124 new_string("i"))), 8175 new_string("i"))),
8125 nil))))), 8176 nil))))),
8126 nil))))))))), 8177 nil))))))))),
8127 cons(cons(cons(new_string("unique"), 8178 cons(cons(cons(new_string("unique"),
8128 nil), 8179 nil),
8129 -cons(new_integer(9450805), 8180 +cons(new_integer(9454389),
8130 cons(app, 8181 cons(app,
8131 -cons(new_integer(9451034), 8182 +cons(new_integer(9454618),
8132 cons(cons(symbol, 8183 cons(cons(symbol,
8133 -cons(new_integer(9451033), 8184 +cons(new_integer(9454617),
8134 new_string("£jpeg_write_scanlines"))), 8185 new_string("£jpeg_write_scanlines"))),
8135 cons(cons(symbol, 8186 cons(cons(symbol,
8136 -cons(new_integer(9451039), 8187 +cons(new_integer(9454623),
8137 new_string("cinfo"))), 8188 new_string("cinfo"))),
8138 cons(cons(symbol, 8189 cons(cons(symbol,
8139 -cons(new_integer(9451047), 8190 +cons(new_integer(9454631),
8140 new_string("samples"))), 8191 new_string("samples"))),
8141 cons(cons(symbol, 8192 cons(cons(symbol,
8142 -cons(new_integer(9451058), 8193 +cons(new_integer(9454642),
8143 new_string("row_stride"))), 8194 new_string("row_stride"))),
8144 cons(cons(symbol, 8195 cons(cons(symbol,
8145 -cons(new_integer(9451065), 8196 +cons(new_integer(9454649),
8146 new_string("height"))), 8197 new_string("height"))),
8147 cons(cons(app, 8198 cons(cons(app,
8148 -cons(new_integer(9451068), 8199 +cons(new_integer(9454652),
8149 cons(cons(symbol, 8200 cons(cons(symbol,
8150 -cons(new_integer(9451068), 8201 +cons(new_integer(9454652),
8151 new_string("+"))), 8202 new_string("+"))),
8152 cons(cons(symbol, 8203 cons(cons(symbol,
8153 -cons(new_integer(9451067), 8204 +cons(new_integer(9454651),
8154 new_string("i"))), 8205 new_string("i"))),
8155 cons(cons(integer_10, 8206 cons(cons(integer_10,
8156 -cons(new_integer(9451069), 8207 +cons(new_integer(9454653),
8157 cons(new_integer(1), 8208 cons(new_integer(1),
8158 nil))), 8209 nil))),
8159 nil))))), 8210 nil))))),
@@ -8161,13 +8212,13 @@ nil)))))))))), @@ -8161,13 +8212,13 @@ nil)))))))))),
8161 nil)))))), 8212 nil)))))),
8162 cons(cons(cons(new_string("true"), 8213 cons(cons(cons(new_string("true"),
8163 nil), 8214 nil),
8164 -cons(new_integer(9450519), 8215 +cons(new_integer(9454103),
8165 cons(symbol, 8216 cons(symbol,
8166 -cons(new_integer(9450526), 8217 +cons(new_integer(9454110),
8167 new_string("unique"))))), 8218 new_string("unique"))))),
8168 nil)))))); 8219 nil))))));
8169 8220
8170 -new_op_scheme(18904078,0, 8221 +new_op_scheme(18911246,0,
8171 new_string("One"), 8222 new_string("One"),
8172 cons(new_string("£jpeg_finish_compress"), 8223 cons(new_string("£jpeg_finish_compress"),
8173 nil), 8224 nil),
@@ -8175,7 +8226,7 @@ cons(cons(new_string(&quot;£JPEG_compress_info&quot;), @@ -8175,7 +8226,7 @@ cons(cons(new_string(&quot;£JPEG_compress_info&quot;),
8175 new_string("cinfo")), 8226 new_string("cinfo")),
8176 nil), 8227 nil),
8177 cons(avm, 8228 cons(avm,
8178 -cons(new_integer(9453319), 8229 +cons(new_integer(9456903),
8179 cons(jpeg_finish_compress, 8230 cons(jpeg_finish_compress,
8180 nil)))); 8231 nil))));
8181 8232
@@ -8193,7 +8244,7 @@ nil), @@ -8193,7 +8244,7 @@ nil),
8193 nil), 8244 nil),
8194 nil))),0,1); 8245 nil))),0,1);
8195 8246
8196 -new_op_scheme(18911772,1, 8247 +new_op_scheme(18918940,1,
8197 new_string("Result_JPEG_write"), 8248 new_string("Result_JPEG_write"),
8198 cons(new_string("write_image_to_JPEG_file"), 8249 cons(new_string("write_image_to_JPEG_file"),
8199 nil), 8250 nil),
@@ -8205,93 +8256,93 @@ cons(cons(type_Int32, @@ -8205,93 +8256,93 @@ cons(cons(type_Int32,
8205 new_string("quality")), 8256 new_string("quality")),
8206 nil))), 8257 nil))),
8207 cons(with, 8258 cons(with,
8208 -cons(new_integer(9457681), 8259 +cons(new_integer(9461265),
8209 cons(new_string("quality"), 8260 cons(new_string("quality"),
8210 cons(cons(cond, 8261 cons(cons(cond,
8211 -cons(new_integer(9457684), 8262 +cons(new_integer(9461268),
8212 cons(cons(of_type, 8263 cons(cons(of_type,
8213 -cons(new_integer(9457684), 8264 +cons(new_integer(9461268),
8214 cons(new_string("Bool"), 8265 cons(new_string("Bool"),
8215 cons(app, 8266 cons(app,
8216 -cons(new_integer(9457694), 8267 +cons(new_integer(9461278),
8217 cons(cons(symbol, 8268 cons(cons(symbol,
8218 -cons(new_integer(9457694), 8269 +cons(new_integer(9461278),
8219 new_string("<"))), 8270 new_string("<"))),
8220 cons(cons(symbol, 8271 cons(cons(symbol,
8221 -cons(new_integer(9457692), 8272 +cons(new_integer(9461276),
8222 new_string("quality"))), 8273 new_string("quality"))),
8223 cons(cons(integer_10, 8274 cons(cons(integer_10,
8224 -cons(new_integer(9457696), 8275 +cons(new_integer(9461280),
8225 nil)), 8276 nil)),
8226 nil)))))))), 8277 nil)))))))),
8227 cons(cons(cons(new_string("false"), 8278 cons(cons(cons(new_string("false"),
8228 nil), 8279 nil),
8229 -cons(new_integer(9457708), 8280 +cons(new_integer(9461292),
8230 cons(cond, 8281 cons(cond,
8231 -cons(new_integer(9457711), 8282 +cons(new_integer(9461295),
8232 cons(cons(of_type, 8283 cons(cons(of_type,
8233 -cons(new_integer(9457711), 8284 +cons(new_integer(9461295),
8234 cons(new_string("Bool"), 8285 cons(new_string("Bool"),
8235 cons(app, 8286 cons(app,
8236 -cons(new_integer(9457721), 8287 +cons(new_integer(9461305),
8237 cons(cons(symbol, 8288 cons(cons(symbol,
8238 -cons(new_integer(9457721), 8289 +cons(new_integer(9461305),
8239 new_string("<"))), 8290 new_string("<"))),
8240 cons(cons(integer_10, 8291 cons(cons(integer_10,
8241 -cons(new_integer(9457725), 8292 +cons(new_integer(9461309),
8242 cons(new_integer(100), 8293 cons(new_integer(100),
8243 nil))), 8294 nil))),
8244 cons(cons(symbol, 8295 cons(cons(symbol,
8245 -cons(new_integer(9457719), 8296 +cons(new_integer(9461303),
8246 new_string("quality"))), 8297 new_string("quality"))),
8247 nil)))))))), 8298 nil)))))))),
8248 cons(cons(cons(new_string("false"), 8299 cons(cons(cons(new_string("false"),
8249 nil), 8300 nil),
8250 -cons(new_integer(9457739), 8301 +cons(new_integer(9461323),
8251 cons(symbol, 8302 cons(symbol,
8252 -cons(new_integer(9457747), 8303 +cons(new_integer(9461331),
8253 new_string("quality"))))), 8304 new_string("quality"))))),
8254 cons(cons(cons(new_string("true"), 8305 cons(cons(cons(new_string("true"),
8255 nil), 8306 nil),
8256 -cons(new_integer(9457730), 8307 +cons(new_integer(9461314),
8257 cons(integer_10, 8308 cons(integer_10,
8258 -cons(new_integer(9457734), 8309 +cons(new_integer(9461318),
8259 cons(new_integer(100), 8310 cons(new_integer(100),
8260 nil))))), 8311 nil))))),
8261 nil))))))), 8312 nil))))))),
8262 cons(cons(cons(new_string("true"), 8313 cons(cons(cons(new_string("true"),
8263 nil), 8314 nil),
8264 -cons(new_integer(9457701), 8315 +cons(new_integer(9461285),
8265 cons(integer_10, 8316 cons(integer_10,
8266 -cons(new_integer(9457703), 8317 +cons(new_integer(9461287),
8267 nil)))), 8318 nil)))),
8268 nil))))), 8319 nil))))),
8269 cons(cond, 8320 cons(cond,
8270 -cons(new_integer(9457925), 8321 +cons(new_integer(9461509),
8271 cons(cons(connect_to_file, 8322 cons(cons(connect_to_file,
8272 -cons(new_integer(9457962), 8323 +cons(new_integer(9461546),
8273 cons(cons(app_ts, 8324 cons(cons(app_ts,
8274 cons(new_string("Maybe"), 8325 cons(new_string("Maybe"),
8275 cons(cons(type_WAddr, 8326 cons(cons(type_WAddr,
8276 new_string("Int8")), 8327 new_string("Int8")),
8277 nil))), 8328 nil))),
8278 cons(symbol, 8329 cons(symbol,
8279 -cons(new_integer(9457972), 8330 +cons(new_integer(9461556),
8280 new_string("file_name")))))), 8331 new_string("file_name")))))),
8281 cons(cons(cons(new_string("failure"), 8332 cons(cons(cons(new_string("failure"),
8282 nil), 8333 nil),
8283 -cons(new_integer(9458451), 8334 +cons(new_integer(9462035),
8284 cons(symbol, 8335 cons(symbol,
8285 -cons(new_integer(9458470), 8336 +cons(new_integer(9462054),
8286 new_string("cannot_create_file"))))), 8337 new_string("cannot_create_file"))))),
8287 cons(cons(cons(new_string("success"), 8338 cons(cons(cons(new_string("success"),
8288 cons(new_string("output_file"), 8339 cons(new_string("output_file"),
8289 nil)), 8340 nil)),
8290 -cons(new_integer(9458720), 8341 +cons(new_integer(9462304),
8291 cons(cond, 8342 cons(cond,
8292 -cons(new_integer(9458955), 8343 +cons(new_integer(9462539),
8293 cons(cons(symbol, 8344 cons(cons(symbol,
8294 -cons(new_integer(9458961), 8345 +cons(new_integer(9462545),
8295 new_string("image"))), 8346 new_string("image"))),
8296 cons(cons(cons(new_string("img"), 8347 cons(cons(cons(new_string("img"),
8297 cons(new_string("format"), 8348 cons(new_string("format"),
@@ -8299,120 +8350,120 @@ cons(new_string(&quot;nw&quot;), @@ -8299,120 +8350,120 @@ cons(new_string(&quot;nw&quot;),
8299 cons(new_string("nh"), 8350 cons(new_string("nh"),
8300 cons(new_string("samples"), 8351 cons(new_string("samples"),
8301 nil))))), 8352 nil))))),
8302 -cons(new_integer(9458995), 8353 +cons(new_integer(9462579),
8303 cons(cond, 8354 cons(cond,
8304 -cons(new_integer(9459211), 8355 +cons(new_integer(9462795),
8305 cons(cons(app, 8356 cons(cons(app,
8306 -cons(new_integer(9459239), 8357 +cons(new_integer(9462823),
8307 cons(cons(symbol, 8358 cons(cons(symbol,
8308 -cons(new_integer(9459238), 8359 +cons(new_integer(9462822),
8309 new_string("£create_JPEG_compress_info"))), 8360 new_string("£create_JPEG_compress_info"))),
8310 cons(cons(symbol, 8361 cons(cons(symbol,
8311 -cons(new_integer(9459241), 8362 +cons(new_integer(9462825),
8312 new_string("nw"))), 8363 new_string("nw"))),
8313 cons(cons(symbol, 8364 cons(cons(symbol,
8314 -cons(new_integer(9459244), 8365 +cons(new_integer(9462828),
8315 new_string("nh"))), 8366 new_string("nh"))),
8316 cons(cons(symbol, 8367 cons(cons(symbol,
8317 -cons(new_integer(9459251), 8368 +cons(new_integer(9462835),
8318 new_string("format"))), 8369 new_string("format"))),
8319 cons(cons(symbol, 8370 cons(cons(symbol,
8320 -cons(new_integer(9459259), 8371 +cons(new_integer(9462843),
8321 new_string("quality"))), 8372 new_string("quality"))),
8322 cons(cons(symbol, 8373 cons(cons(symbol,
8323 -cons(new_integer(9459271), 8374 +cons(new_integer(9462855),
8324 new_string("output_file"))), 8375 new_string("output_file"))),
8325 nil)))))))), 8376 nil)))))))),
8326 cons(cons(cons(new_string("failure"), 8377 cons(cons(cons(new_string("failure"),
8327 nil), 8378 nil),
8328 -cons(new_integer(9459737), 8379 +cons(new_integer(9463321),
8329 cons(symbol, 8380 cons(symbol,
8330 -cons(new_integer(9459755), 8381 +cons(new_integer(9463339),
8331 new_string("compression_error"))))), 8382 new_string("compression_error"))))),
8332 cons(cons(cons(new_string("success"), 8383 cons(cons(cons(new_string("success"),
8333 cons(new_string("cinfo"), 8384 cons(new_string("cinfo"),
8334 nil)), 8385 nil)),
8335 -cons(new_integer(9460000), 8386 +cons(new_integer(9463584),
8336 cons(with, 8387 cons(with,
8337 -cons(new_integer(9460256), 8388 +cons(new_integer(9463840),
8338 cons(new_string("row_stride"), 8389 cons(new_string("row_stride"),
8339 cons(cons(app, 8390 cons(cons(app,
8340 -cons(new_integer(9460260), 8391 +cons(new_integer(9463844),
8341 cons(cons(symbol, 8392 cons(cons(symbol,
8342 -cons(new_integer(9460260), 8393 +cons(new_integer(9463844),
8343 new_string("*"))), 8394 new_string("*"))),
8344 cons(cons(symbol, 8395 cons(cons(symbol,
8345 -cons(new_integer(9460259), 8396 +cons(new_integer(9463843),
8346 new_string("nw"))), 8397 new_string("nw"))),
8347 cons(cons(cond, 8398 cons(cons(cond,
8348 -cons(new_integer(9460263), 8399 +cons(new_integer(9463847),
8349 cons(cons(symbol, 8400 cons(cons(symbol,
8350 -cons(new_integer(9460270), 8401 +cons(new_integer(9463854),
8351 new_string("format"))), 8402 new_string("format"))),
8352 cons(cons(cons(new_string("rgb"), 8403 cons(cons(cons(new_string("rgb"),
8353 nil), 8404 nil),
8354 -cons(new_integer(9460283), 8405 +cons(new_integer(9463867),
8355 cons(integer_10, 8406 cons(integer_10,
8356 -cons(new_integer(9460285), 8407 +cons(new_integer(9463869),
8357 cons(new_integer(3), 8408 cons(new_integer(3),
8358 nil))))), 8409 nil))))),
8359 cons(cons(cons(new_string("greyscale"), 8410 cons(cons(cons(new_string("greyscale"),
8360 nil), 8411 nil),
8361 -cons(new_integer(9460301), 8412 +cons(new_integer(9463885),
8362 cons(integer_10, 8413 cons(integer_10,
8363 -cons(new_integer(9460303), 8414 +cons(new_integer(9463887),
8364 cons(new_integer(1), 8415 cons(new_integer(1),
8365 nil))))), 8416 nil))))),
8366 nil))))), 8417 nil))))),
8367 nil))))), 8418 nil))))),
8368 cons(cond, 8419 cons(cond,
8369 -cons(new_integer(9460548), 8420 +cons(new_integer(9464132),
8370 cons(cons(of_type, 8421 cons(cons(of_type,
8371 -cons(new_integer(9460548), 8422 +cons(new_integer(9464132),
8372 cons(new_string("One"), 8423 cons(new_string("One"),
8373 cons(app, 8424 cons(app,
8374 -cons(new_integer(9460517), 8425 +cons(new_integer(9464101),
8375 cons(cons(symbol, 8426 cons(cons(symbol,
8376 -cons(new_integer(9460517), 8427 +cons(new_integer(9464101),
8377 new_string("£jpeg_write_scanlines"))), 8428 new_string("£jpeg_write_scanlines"))),
8378 cons(cons(symbol, 8429 cons(cons(symbol,
8379 -cons(new_integer(9460522), 8430 +cons(new_integer(9464106),
8380 new_string("cinfo"))), 8431 new_string("cinfo"))),
8381 cons(cons(symbol, 8432 cons(cons(symbol,
8382 -cons(new_integer(9460530), 8433 +cons(new_integer(9464114),
8383 new_string("samples"))), 8434 new_string("samples"))),
8384 cons(cons(symbol, 8435 cons(cons(symbol,
8385 -cons(new_integer(9460541), 8436 +cons(new_integer(9464125),
8386 new_string("row_stride"))), 8437 new_string("row_stride"))),
8387 cons(cons(symbol, 8438 cons(cons(symbol,
8388 -cons(new_integer(9460544), 8439 +cons(new_integer(9464128),
8389 new_string("nh"))), 8440 new_string("nh"))),
8390 cons(cons(integer_10, 8441 cons(cons(integer_10,
8391 -cons(new_integer(9460546), 8442 +cons(new_integer(9464130),
8392 nil)), 8443 nil)),
8393 nil))))))))))), 8444 nil))))))))))),
8394 cons(cons(cons(new_string("unique"), 8445 cons(cons(cons(new_string("unique"),
8395 nil), 8446 nil),
8396 -cons(new_integer(9460548), 8447 +cons(new_integer(9464132),
8397 cons(cond, 8448 cons(cond,
8398 -cons(new_integer(9460780), 8449 +cons(new_integer(9464364),
8399 cons(cons(of_type, 8450 cons(cons(of_type,
8400 -cons(new_integer(9460780), 8451 +cons(new_integer(9464364),
8401 cons(new_string("One"), 8452 cons(new_string("One"),
8402 cons(app, 8453 cons(app,
8403 -cons(new_integer(9460773), 8454 +cons(new_integer(9464357),
8404 cons(cons(symbol, 8455 cons(cons(symbol,
8405 -cons(new_integer(9460772), 8456 +cons(new_integer(9464356),
8406 new_string("£jpeg_finish_compress"))), 8457 new_string("£jpeg_finish_compress"))),
8407 cons(cons(symbol, 8458 cons(cons(symbol,
8408 -cons(new_integer(9460778), 8459 +cons(new_integer(9464362),
8409 new_string("cinfo"))), 8460 new_string("cinfo"))),
8410 nil))))))), 8461 nil))))))),
8411 cons(cons(cons(new_string("unique"), 8462 cons(cons(cons(new_string("unique"),
8412 nil), 8463 nil),
8413 -cons(new_integer(9460780), 8464 +cons(new_integer(9464364),
8414 cons(symbol, 8465 cons(symbol,
8415 -cons(new_integer(9461009), 8466 +cons(new_integer(9464593),
8416 new_string("ok"))))), 8467 new_string("ok"))))),
8417 nil)))))), 8468 nil)))))),
8418 nil)))))))))), 8469 nil)))))))))),
@@ -8432,7 +8483,7 @@ new_string(&quot;jpeg_error_mgr&quot;)), @@ -8432,7 +8483,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
8432 nil))), 8483 nil))),
8433 nil),0,1); 8484 nil),0,1);
8434 8485
8435 -new_op_scheme(18929166,0, 8486 +new_op_scheme(18936334,0,
8436 cons(app_ts, 8487 cons(app_ts,
8437 cons(new_string("Maybe"), 8488 cons(new_string("Maybe"),
8438 cons(new_string("£JPEG_decompress_info"), 8489 cons(new_string("£JPEG_decompress_info"),
@@ -8444,7 +8495,7 @@ new_string(&quot;Int8&quot;)), @@ -8444,7 +8495,7 @@ new_string(&quot;Int8&quot;)),
8444 new_string("source_file")), 8495 new_string("source_file")),
8445 nil), 8496 nil),
8446 cons(avm, 8497 cons(avm,
8447 -cons(new_integer(9465863), 8498 +cons(new_integer(9469447),
8448 cons(create_JPEG_decompress_info, 8499 cons(create_JPEG_decompress_info,
8449 nil)))); 8500 nil))));
8450 8501
@@ -8465,7 +8516,7 @@ noname), @@ -8465,7 +8516,7 @@ noname),
8465 nil)))), 8516 nil)))),
8466 nil),0,1); 8517 nil),0,1);
8467 8518
8468 -new_op_scheme(18933774,0, 8519 +new_op_scheme(18940942,0,
8469 cons(app_ts, 8520 cons(app_ts,
8470 cons(new_string("£Tuple3"), 8521 cons(new_string("£Tuple3"),
8471 cons(type_Int32, 8522 cons(type_Int32,
@@ -8478,11 +8529,11 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;), @@ -8478,11 +8529,11 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
8478 new_string("cinfo")), 8529 new_string("cinfo")),
8479 nil), 8530 nil),
8480 cons(avm, 8531 cons(avm,
8481 -cons(new_integer(9468679), 8532 +cons(new_integer(9472263),
8482 cons(jpeg_image_parameters, 8533 cons(jpeg_image_parameters,
8483 nil)))); 8534 nil))));
8484 8535
8485 -new_op_scheme(18939406,0, 8536 +new_op_scheme(18946574,0,
8486 cons(app_ts, 8537 cons(app_ts,
8487 cons(new_string("Maybe"), 8538 cons(new_string("Maybe"),
8488 cons(new_string("One"), 8539 cons(new_string("One"),
@@ -8497,11 +8548,11 @@ cons(cons(type_Int32, @@ -8497,11 +8548,11 @@ cons(cons(type_Int32,
8497 new_string("offset")), 8548 new_string("offset")),
8498 nil))), 8549 nil))),
8499 cons(avm, 8550 cons(avm,
8500 -cons(new_integer(9471495), 8551 +cons(new_integer(9475079),
8501 cons(jpeg_read_scanline, 8552 cons(jpeg_read_scanline,
8502 nil)))); 8553 nil))));
8503 8554
8504 -new_op_scheme(18945038,0, 8555 +new_op_scheme(18952206,0,
8505 new_string("One"), 8556 new_string("One"),
8506 cons(new_string("£jpeg_read_scanlines"), 8557 cons(new_string("£jpeg_read_scanlines"),
8507 nil), 8558 nil),
@@ -8517,102 +8568,102 @@ cons(cons(type_Int32, @@ -8517,102 +8568,102 @@ cons(cons(type_Int32,
8517 new_string("offset")), 8568 new_string("offset")),
8518 nil))))), 8569 nil))))),
8519 cons(cond, 8570 cons(cond,
8520 -cons(new_integer(9474821), 8571 +cons(new_integer(9478405),
8521 cons(cons(of_type, 8572 cons(cons(of_type,
8522 -cons(new_integer(9474821), 8573 +cons(new_integer(9478405),
8523 cons(new_string("Bool"), 8574 cons(new_string("Bool"),
8524 cons(app, 8575 cons(app,
8525 -cons(new_integer(9474826), 8576 +cons(new_integer(9478410),
8526 cons(cons(symbol, 8577 cons(cons(symbol,
8527 -cons(new_integer(9474826), 8578 +cons(new_integer(9478410),
8528 new_string("=<"))), 8579 new_string("=<"))),
8529 cons(cons(symbol, 8580 cons(cons(symbol,
8530 -cons(new_integer(9474823), 8581 +cons(new_integer(9478407),
8531 new_string("n"))), 8582 new_string("n"))),
8532 cons(cons(integer_10, 8583 cons(cons(integer_10,
8533 -cons(new_integer(9474828), 8584 +cons(new_integer(9478412),
8534 nil)), 8585 nil)),
8535 nil)))))))), 8586 nil)))))))),
8536 cons(cons(cons(new_string("false"), 8587 cons(cons(cons(new_string("false"),
8537 nil), 8588 nil),
8538 -cons(new_integer(9474845), 8589 +cons(new_integer(9478429),
8539 cons(cond, 8590 cons(cond,
8540 -cons(new_integer(9475077), 8591 +cons(new_integer(9478661),
8541 cons(cons(app, 8592 cons(cons(app,
8542 -cons(new_integer(9475098), 8593 +cons(new_integer(9478682),
8543 cons(cons(symbol, 8594 cons(cons(symbol,
8544 -cons(new_integer(9475097), 8595 +cons(new_integer(9478681),
8545 new_string("£jpeg_read_scanline"))), 8596 new_string("£jpeg_read_scanline"))),
8546 cons(cons(symbol, 8597 cons(cons(symbol,
8547 -cons(new_integer(9475103), 8598 +cons(new_integer(9478687),
8548 new_string("cinfo"))), 8599 new_string("cinfo"))),
8549 cons(cons(symbol, 8600 cons(cons(symbol,
8550 -cons(new_integer(9475108), 8601 +cons(new_integer(9478692),
8551 new_string("dest"))), 8602 new_string("dest"))),
8552 cons(cons(symbol, 8603 cons(cons(symbol,
8553 -cons(new_integer(9475115), 8604 +cons(new_integer(9478699),
8554 new_string("offset"))), 8605 new_string("offset"))),
8555 nil)))))), 8606 nil)))))),
8556 cons(cons(cons(new_string("failure"), 8607 cons(cons(cons(new_string("failure"),
8557 nil), 8608 nil),
8558 -cons(new_integer(9475603), 8609 +cons(new_integer(9479187),
8559 cons(symbol, 8610 cons(symbol,
8560 -cons(new_integer(9475610), 8611 +cons(new_integer(9479194),
8561 new_string("unique"))))), 8612 new_string("unique"))))),
8562 cons(cons(cons(new_string("success"), 8613 cons(cons(cons(new_string("success"),
8563 cons(new_string("_"), 8614 cons(new_string("_"),
8564 nil)), 8615 nil)),
8565 -cons(new_integer(9475862), 8616 +cons(new_integer(9479446),
8566 cons(app, 8617 cons(app,
8567 -cons(new_integer(9476126), 8618 +cons(new_integer(9479710),
8568 cons(cons(symbol, 8619 cons(cons(symbol,
8569 -cons(new_integer(9476125), 8620 +cons(new_integer(9479709),
8570 new_string("£jpeg_read_scanlines"))), 8621 new_string("£jpeg_read_scanlines"))),
8571 cons(cons(app, 8622 cons(cons(app,
8572 -cons(new_integer(9476128), 8623 +cons(new_integer(9479712),
8573 cons(cons(symbol, 8624 cons(cons(symbol,
8574 -cons(new_integer(9476128), 8625 +cons(new_integer(9479712),
8575 new_string("-"))), 8626 new_string("-"))),
8576 cons(cons(symbol, 8627 cons(cons(symbol,
8577 -cons(new_integer(9476127), 8628 +cons(new_integer(9479711),
8578 new_string("n"))), 8629 new_string("n"))),
8579 cons(cons(integer_10, 8630 cons(cons(integer_10,
8580 -cons(new_integer(9476129), 8631 +cons(new_integer(9479713),
8581 cons(new_integer(1), 8632 cons(new_integer(1),
8582 nil))), 8633 nil))),
8583 nil))))), 8634 nil))))),
8584 cons(cons(symbol, 8635 cons(cons(symbol,
8585 -cons(new_integer(9476135), 8636 +cons(new_integer(9479719),
8586 new_string("cinfo"))), 8637 new_string("cinfo"))),
8587 cons(cons(symbol, 8638 cons(cons(symbol,
8588 -cons(new_integer(9476140), 8639 +cons(new_integer(9479724),
8589 new_string("dest"))), 8640 new_string("dest"))),
8590 cons(cons(symbol, 8641 cons(cons(symbol,
8591 -cons(new_integer(9476151), 8642 +cons(new_integer(9479735),
8592 new_string("row_stride"))), 8643 new_string("row_stride"))),
8593 cons(cons(app, 8644 cons(cons(app,
8594 -cons(new_integer(9476159), 8645 +cons(new_integer(9479743),
8595 cons(cons(symbol, 8646 cons(cons(symbol,
8596 -cons(new_integer(9476159), 8647 +cons(new_integer(9479743),
8597 new_string("+"))), 8648 new_string("+"))),
8598 cons(cons(symbol, 8649 cons(cons(symbol,
8599 -cons(new_integer(9476158), 8650 +cons(new_integer(9479742),
8600 new_string("offset"))), 8651 new_string("offset"))),
8601 cons(cons(symbol, 8652 cons(cons(symbol,
8602 -cons(new_integer(9476169), 8653 +cons(new_integer(9479753),
8603 new_string("row_stride"))), 8654 new_string("row_stride"))),
8604 nil))))), 8655 nil))))),
8605 nil)))))))))), 8656 nil)))))))))),
8606 nil))))))), 8657 nil))))))),
8607 cons(cons(cons(new_string("true"), 8658 cons(cons(cons(new_string("true"),
8608 nil), 8659 nil),
8609 -cons(new_integer(9474833), 8660 +cons(new_integer(9478417),
8610 cons(symbol, 8661 cons(symbol,
8611 -cons(new_integer(9474840), 8662 +cons(new_integer(9478424),
8612 new_string("unique"))))), 8663 new_string("unique"))))),
8613 nil)))))); 8664 nil))))));
8614 8665
8615 -new_op_scheme(18954766,0, 8666 +new_op_scheme(18961934,0,
8616 new_string("One"), 8667 new_string("One"),
8617 cons(new_string("£jpeg_finish_decompress"), 8668 cons(new_string("£jpeg_finish_decompress"),
8618 nil), 8669 nil),
@@ -8620,7 +8671,7 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;), @@ -8620,7 +8671,7 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
8620 new_string("cinfo")), 8671 new_string("cinfo")),
8621 nil), 8672 nil),
8622 cons(avm, 8673 cons(avm,
8623 -cons(new_integer(9478663), 8674 +cons(new_integer(9482247),
8624 cons(jpeg_finish_decompress, 8675 cons(jpeg_finish_decompress,
8625 nil)))); 8676 nil))));
8626 8677
@@ -8640,7 +8691,7 @@ noname), @@ -8640,7 +8691,7 @@ noname),
8640 nil)), 8691 nil)),
8641 nil))),0,1); 8692 nil))),0,1);
8642 8693
8643 -new_op_scheme(18962460,1, 8694 +new_op_scheme(18969628,1,
8644 new_string("Result_JPEG_read"), 8695 new_string("Result_JPEG_read"),
8645 cons(new_string("read_image_from_JPEG_file"), 8696 cons(new_string("read_image_from_JPEG_file"),
8646 nil), 8697 nil),
@@ -8648,57 +8699,57 @@ cons(cons(type_String, @@ -8648,57 +8699,57 @@ cons(cons(type_String,
8648 new_string("file_name")), 8699 new_string("file_name")),
8649 nil), 8700 nil),
8650 cons(cond, 8701 cons(cond,
8651 -cons(new_integer(9482501), 8702 +cons(new_integer(9486085),
8652 cons(cons(connect_to_file, 8703 cons(cons(connect_to_file,
8653 -cons(new_integer(9482537), 8704 +cons(new_integer(9486121),
8654 cons(cons(app_ts, 8705 cons(cons(app_ts,
8655 cons(new_string("Maybe"), 8706 cons(new_string("Maybe"),
8656 cons(cons(type_RAddr, 8707 cons(cons(type_RAddr,
8657 new_string("Int8")), 8708 new_string("Int8")),
8658 nil))), 8709 nil))),
8659 cons(symbol, 8710 cons(symbol,
8660 -cons(new_integer(9482547), 8711 +cons(new_integer(9486131),
8661 new_string("file_name")))))), 8712 new_string("file_name")))))),
8662 cons(cons(cons(new_string("failure"), 8713 cons(cons(cons(new_string("failure"),
8663 nil), 8714 nil),
8664 -cons(new_integer(9483027), 8715 +cons(new_integer(9486611),
8665 cons(symbol, 8716 cons(symbol,
8666 -cons(new_integer(9483044), 8717 +cons(new_integer(9486628),
8667 new_string("cannot_open_file"))))), 8718 new_string("cannot_open_file"))))),
8668 cons(cons(cons(new_string("success"), 8719 cons(cons(cons(new_string("success"),
8669 cons(new_string("source_file"), 8720 cons(new_string("source_file"),
8670 nil)), 8721 nil)),
8671 -cons(new_integer(9483296), 8722 +cons(new_integer(9486880),
8672 cons(cond, 8723 cons(cond,
8673 -cons(new_integer(9483531), 8724 +cons(new_integer(9487115),
8674 cons(cons(app, 8725 cons(cons(app,
8675 -cons(new_integer(9483561), 8726 +cons(new_integer(9487145),
8676 cons(cons(symbol, 8727 cons(cons(symbol,
8677 -cons(new_integer(9483560), 8728 +cons(new_integer(9487144),
8678 new_string("£create_JPEG_decompress_info"))), 8729 new_string("£create_JPEG_decompress_info"))),
8679 cons(cons(symbol, 8730 cons(cons(symbol,
8680 -cons(new_integer(9483572), 8731 +cons(new_integer(9487156),
8681 new_string("source_file"))), 8732 new_string("source_file"))),
8682 nil)))), 8733 nil)))),
8683 cons(cons(cons(new_string("failure"), 8734 cons(cons(cons(new_string("failure"),
8684 nil), 8735 nil),
8685 -cons(new_integer(9484057), 8736 +cons(new_integer(9487641),
8686 cons(symbol, 8737 cons(symbol,
8687 -cons(new_integer(9484074), 8738 +cons(new_integer(9487658),
8688 new_string("decompress_error"))))), 8739 new_string("decompress_error"))))),
8689 cons(cons(cons(new_string("success"), 8740 cons(cons(cons(new_string("success"),
8690 cons(new_string("cinfo"), 8741 cons(new_string("cinfo"),
8691 nil)), 8742 nil)),
8692 -cons(new_integer(9484320), 8743 +cons(new_integer(9487904),
8693 cons(cond, 8744 cons(cond,
8694 -cons(new_integer(9484323), 8745 +cons(new_integer(9487907),
8695 cons(cons(app, 8746 cons(cons(app,
8696 -cons(new_integer(9484347), 8747 +cons(new_integer(9487931),
8697 cons(cons(symbol, 8748 cons(cons(symbol,
8698 -cons(new_integer(9484346), 8749 +cons(new_integer(9487930),
8699 new_string("£jpeg_image_parameters"))), 8750 new_string("£jpeg_image_parameters"))),
8700 cons(cons(symbol, 8751 cons(cons(symbol,
8701 -cons(new_integer(9484352), 8752 +cons(new_integer(9487936),
8702 new_string("cinfo"))), 8753 new_string("cinfo"))),
8703 nil)))), 8754 nil)))),
8704 cons(cons(cons(new_string("£tuple"), 8755 cons(cons(cons(new_string("£tuple"),
@@ -8706,142 +8757,142 @@ cons(new_string(&quot;w&quot;), @@ -8706,142 +8757,142 @@ cons(new_string(&quot;w&quot;),
8706 cons(new_string("h"), 8757 cons(new_string("h"),
8707 cons(new_string("f"), 8758 cons(new_string("f"),
8708 nil)))), 8759 nil)))),
8709 -cons(new_integer(9484369), 8760 +cons(new_integer(9487953),
8710 cons(with, 8761 cons(with,
8711 -cons(new_integer(9484568), 8762 +cons(new_integer(9488152),
8712 cons(new_string("sw"), 8763 cons(new_string("sw"),
8713 cons(cons(of_type, 8764 cons(cons(of_type,
8714 -cons(new_integer(9484570), 8765 +cons(new_integer(9488154),
8715 cons(type_Int32, 8766 cons(type_Int32,
8716 cons(cond, 8767 cons(cond,
8717 -cons(new_integer(9484579), 8768 +cons(new_integer(9488163),
8718 cons(cons(symbol, 8769 cons(cons(symbol,
8719 -cons(new_integer(9484581), 8770 +cons(new_integer(9488165),
8720 new_string("f"))), 8771 new_string("f"))),
8721 cons(cons(cons(new_string("rgb"), 8772 cons(cons(cons(new_string("rgb"),
8722 nil), 8773 nil),
8723 -cons(new_integer(9484594), 8774 +cons(new_integer(9488178),
8724 cons(integer_10, 8775 cons(integer_10,
8725 -cons(new_integer(9484596), 8776 +cons(new_integer(9488180),
8726 cons(new_integer(3), 8777 cons(new_integer(3),
8727 nil))))), 8778 nil))))),
8728 cons(cons(cons(new_string("greyscale"), 8779 cons(cons(cons(new_string("greyscale"),
8729 nil), 8780 nil),
8730 -cons(new_integer(9484612), 8781 +cons(new_integer(9488196),
8731 cons(integer_10, 8782 cons(integer_10,
8732 -cons(new_integer(9484614), 8783 +cons(new_integer(9488198),
8733 cons(new_integer(1), 8784 cons(new_integer(1),
8734 nil))))), 8785 nil))))),
8735 nil)))))))), 8786 nil)))))))),
8736 cons(with, 8787 cons(with,
8737 -cons(new_integer(9484826), 8788 +cons(new_integer(9488410),
8738 cons(new_string("dest"), 8789 cons(new_string("dest"),
8739 cons(cons(app, 8790 cons(cons(app,
8740 -cons(new_integer(9484847), 8791 +cons(new_integer(9488431),
8741 cons(cons(symbol, 8792 cons(cons(symbol,
8742 -cons(new_integer(9484846), 8793 +cons(new_integer(9488430),
8743 new_string("constant_byte_array"))), 8794 new_string("constant_byte_array"))),
8744 cons(cons(app, 8795 cons(cons(app,
8745 -cons(new_integer(9484849), 8796 +cons(new_integer(9488433),
8746 cons(cons(symbol, 8797 cons(cons(symbol,
8747 -cons(new_integer(9484849), 8798 +cons(new_integer(9488433),
8748 new_string("*"))), 8799 new_string("*"))),
8749 cons(cons(symbol, 8800 cons(cons(symbol,
8750 -cons(new_integer(9484848), 8801 +cons(new_integer(9488432),
8751 new_string("w"))), 8802 new_string("w"))),
8752 cons(cons(app, 8803 cons(cons(app,
8753 -cons(new_integer(9484851), 8804 +cons(new_integer(9488435),
8754 cons(cons(symbol, 8805 cons(cons(symbol,
8755 -cons(new_integer(9484851), 8806 +cons(new_integer(9488435),
8756 new_string("*"))), 8807 new_string("*"))),
8757 cons(cons(symbol, 8808 cons(cons(symbol,
8758 -cons(new_integer(9484850), 8809 +cons(new_integer(9488434),
8759 new_string("h"))), 8810 new_string("h"))),
8760 cons(cons(symbol, 8811 cons(cons(symbol,
8761 -cons(new_integer(9484853), 8812 +cons(new_integer(9488437),
8762 new_string("sw"))), 8813 new_string("sw"))),
8763 nil))))), 8814 nil))))),
8764 nil))))), 8815 nil))))),
8765 cons(cons(integer_10, 8816 cons(cons(integer_10,
8766 -cons(new_integer(9484855), 8817 +cons(new_integer(9488439),
8767 nil)), 8818 nil)),
8768 nil))))), 8819 nil))))),
8769 cons(cond, 8820 cons(cond,
8770 -cons(new_integer(9485113), 8821 +cons(new_integer(9488697),
8771 cons(cons(of_type, 8822 cons(cons(of_type,
8772 -cons(new_integer(9485113), 8823 +cons(new_integer(9488697),
8773 cons(new_string("One"), 8824 cons(new_string("One"),
8774 cons(app, 8825 cons(app,
8775 -cons(new_integer(9485092), 8826 +cons(new_integer(9488676),
8776 cons(cons(symbol, 8827 cons(cons(symbol,
8777 -cons(new_integer(9485092), 8828 +cons(new_integer(9488676),
8778 new_string("£jpeg_read_scanlines"))), 8829 new_string("£jpeg_read_scanlines"))),
8779 cons(cons(symbol, 8830 cons(cons(symbol,
8780 -cons(new_integer(9485093), 8831 +cons(new_integer(9488677),
8781 new_string("h"))), 8832 new_string("h"))),
8782 cons(cons(symbol, 8833 cons(cons(symbol,
8783 -cons(new_integer(9485099), 8834 +cons(new_integer(9488683),
8784 new_string("cinfo"))), 8835 new_string("cinfo"))),
8785 cons(cons(symbol, 8836 cons(cons(symbol,
8786 -cons(new_integer(9485104), 8837 +cons(new_integer(9488688),
8787 new_string("dest"))), 8838 new_string("dest"))),
8788 cons(cons(app, 8839 cons(cons(app,
8789 -cons(new_integer(9485107), 8840 +cons(new_integer(9488691),
8790 cons(cons(symbol, 8841 cons(cons(symbol,
8791 -cons(new_integer(9485107), 8842 +cons(new_integer(9488691),
8792 new_string("*"))), 8843 new_string("*"))),
8793 cons(cons(symbol, 8844 cons(cons(symbol,
8794 -cons(new_integer(9485106), 8845 +cons(new_integer(9488690),
8795 new_string("w"))), 8846 new_string("w"))),
8796 cons(cons(symbol, 8847 cons(cons(symbol,
8797 -cons(new_integer(9485109), 8848 +cons(new_integer(9488693),
8798 new_string("sw"))), 8849 new_string("sw"))),
8799 nil))))), 8850 nil))))),
8800 cons(cons(integer_10, 8851 cons(cons(integer_10,
8801 -cons(new_integer(9485111), 8852 +cons(new_integer(9488695),
8802 nil)), 8853 nil)),
8803 nil))))))))))), 8854 nil))))))))))),
8804 cons(cons(cons(new_string("unique"), 8855 cons(cons(cons(new_string("unique"),
8805 nil), 8856 nil),
8806 -cons(new_integer(9485113), 8857 +cons(new_integer(9488697),
8807 cons(cond, 8858 cons(cond,
8808 -cons(new_integer(9485358), 8859 +cons(new_integer(9488942),
8809 cons(cons(of_type, 8860 cons(cons(of_type,
8810 -cons(new_integer(9485358), 8861 +cons(new_integer(9488942),
8811 cons(new_string("One"), 8862 cons(new_string("One"),
8812 cons(app, 8863 cons(app,
8813 -cons(new_integer(9485351), 8864 +cons(new_integer(9488935),
8814 cons(cons(symbol, 8865 cons(cons(symbol,
8815 -cons(new_integer(9485350), 8866 +cons(new_integer(9488934),
8816 new_string("£jpeg_finish_decompress"))), 8867 new_string("£jpeg_finish_decompress"))),
8817 cons(cons(symbol, 8868 cons(cons(symbol,
8818 -cons(new_integer(9485356), 8869 +cons(new_integer(9488940),
8819 new_string("cinfo"))), 8870 new_string("cinfo"))),
8820 nil))))))), 8871 nil))))))),
8821 cons(cons(cons(new_string("unique"), 8872 cons(cons(cons(new_string("unique"),
8822 nil), 8873 nil),
8823 -cons(new_integer(9485358), 8874 +cons(new_integer(9488942),
8824 cons(app, 8875 cons(app,
8825 -cons(new_integer(9485586), 8876 +cons(new_integer(9489170),
8826 cons(cons(symbol, 8877 cons(cons(symbol,
8827 -cons(new_integer(9485585), 8878 +cons(new_integer(9489169),
8828 new_string("ok"))), 8879 new_string("ok"))),
8829 cons(cons(app, 8880 cons(cons(app,
8830 -cons(new_integer(9485590), 8881 +cons(new_integer(9489174),
8831 cons(cons(symbol, 8882 cons(cons(symbol,
8832 -cons(new_integer(9485589), 8883 +cons(new_integer(9489173),
8833 new_string("img"))), 8884 new_string("img"))),
8834 cons(cons(symbol, 8885 cons(cons(symbol,
8835 -cons(new_integer(9485591), 8886 +cons(new_integer(9489175),
8836 new_string("f"))), 8887 new_string("f"))),
8837 cons(cons(symbol, 8888 cons(cons(symbol,
8838 -cons(new_integer(9485593), 8889 +cons(new_integer(9489177),
8839 new_string("w"))), 8890 new_string("w"))),
8840 cons(cons(symbol, 8891 cons(cons(symbol,
8841 -cons(new_integer(9485595), 8892 +cons(new_integer(9489179),
8842 new_string("h"))), 8893 new_string("h"))),
8843 cons(cons(symbol, 8894 cons(cons(symbol,
8844 -cons(new_integer(9485600), 8895 +cons(new_integer(9489184),
8845 new_string("dest"))), 8896 new_string("dest"))),
8846 nil))))))), 8897 nil))))))),
8847 nil)))))), 8898 nil)))))),
@@ -9082,7 +9133,7 @@ new_string(&quot;£gc&quot;)), @@ -9082,7 +9133,7 @@ new_string(&quot;£gc&quot;)),
9082 nil))), 9133 nil))),
9083 nil),0,1); 9134 nil),0,1);
9084 9135
9085 -new_op_scheme(19025948,1, 9136 +new_op_scheme(19033116,1,
9086 cons(app_ts, 9137 cons(app_ts,
9087 cons(new_string("£Tuple2"), 9138 cons(new_string("£Tuple2"),
9088 cons(type_Int32, 9139 cons(type_Int32,
@@ -9094,11 +9145,11 @@ cons(cons(new_string(&quot;HostWindow&quot;), @@ -9094,11 +9145,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9094 new_string("hw")), 9145 new_string("hw")),
9095 nil), 9146 nil),
9096 cons(avm, 9147 cons(avm,
9097 -cons(new_integer(9513998), 9148 +cons(new_integer(9517582),
9098 cons(host_window_size, 9149 cons(host_window_size,
9099 nil)))); 9150 nil))));
9100 9151
9101 -new_op_scheme(19031068,1, 9152 +new_op_scheme(19038236,1,
9102 new_string("One"), 9153 new_string("One"),
9103 cons(new_string("resize"), 9154 cons(new_string("resize"),
9104 nil), 9155 nil),
@@ -9110,11 +9161,11 @@ cons(cons(type_Int32, @@ -9110,11 +9161,11 @@ cons(cons(type_Int32,
9110 new_string("height")), 9161 new_string("height")),
9111 nil))), 9162 nil))),
9112 cons(avm, 9163 cons(avm,
9113 -cons(new_integer(9517320), 9164 +cons(new_integer(9520904),
9114 cons(resize_host_window, 9165 cons(resize_host_window,
9115 nil)))); 9166 nil))));
9116 9167
9117 -new_op_scheme(19037724,1, 9168 +new_op_scheme(19044892,1,
9118 cons(app_ts, 9169 cons(app_ts,
9119 cons(new_string("£Tuple2"), 9170 cons(new_string("£Tuple2"),
9120 cons(type_Int32, 9171 cons(type_Int32,
@@ -9124,11 +9175,11 @@ cons(new_string(&quot;screen_size&quot;), @@ -9124,11 +9175,11 @@ cons(new_string(&quot;screen_size&quot;),
9124 nil), 9175 nil),
9125 nil, 9176 nil,
9126 cons(avm, 9177 cons(avm,
9127 -cons(new_integer(9519624), 9178 +cons(new_integer(9523208),
9128 cons(screen_size, 9179 cons(screen_size,
9129 nil)))); 9180 nil))));
9130 9181
9131 -new_op_scheme(19041820,1, 9182 +new_op_scheme(19048988,1,
9132 new_string("One"), 9183 new_string("One"),
9133 cons(new_string("change_title"), 9184 cons(new_string("change_title"),
9134 nil), 9185 nil),
@@ -9138,11 +9189,11 @@ cons(cons(type_String, @@ -9138,11 +9189,11 @@ cons(cons(type_String,
9138 new_string("new_title")), 9189 new_string("new_title")),
9139 nil)), 9190 nil)),
9140 cons(avm, 9191 cons(avm,
9141 -cons(new_integer(9522190), 9192 +cons(new_integer(9525774),
9142 cons(change_host_window_title, 9193 cons(change_host_window_title,
9143 nil)))); 9194 nil))));
9144 9195
9145 -new_op_scheme(19049998,0, 9196 +new_op_scheme(19057166,0,
9146 new_string("Bool"), 9197 new_string("Bool"),
9147 cons(new_string("£window_event_pending"), 9198 cons(new_string("£window_event_pending"),
9148 nil), 9199 nil),
@@ -9151,11 +9202,11 @@ new_integer(3)), @@ -9151,11 +9202,11 @@ new_integer(3)),
9151 new_string("handle")), 9202 new_string("handle")),
9152 nil), 9203 nil),
9153 cons(avm, 9204 cons(avm,
9154 -cons(new_integer(9526280), 9205 +cons(new_integer(9529864),
9155 cons(window_event_pending, 9206 cons(window_event_pending,
9156 nil)))); 9207 nil))));
9157 9208
9158 -new_op_scheme(19055630,0, 9209 +new_op_scheme(19062798,0,
9159 cons(app_ts, 9210 cons(app_ts,
9160 cons(new_string("HostWindowEvent"), 9211 cons(new_string("HostWindowEvent"),
9161 cons(new_utvar("E"), 9212 cons(new_utvar("E"),
@@ -9167,11 +9218,11 @@ new_integer(3)), @@ -9167,11 +9218,11 @@ new_integer(3)),
9167 new_string("handle")), 9218 new_string("handle")),
9168 nil), 9219 nil),
9169 cons(avm, 9220 cons(avm,
9170 -cons(new_integer(9529096), 9221 +cons(new_integer(9532680),
9171 cons(get_host_window_event, 9222 cons(get_host_window_event,
9172 nil)))); 9223 nil))));
9173 9224
9174 -new_op_scheme(19063310,0, 9225 +new_op_scheme(19070478,0,
9175 cons(app_ts, 9226 cons(app_ts,
9176 cons(new_string("List"), 9227 cons(new_string("List"),
9177 cons(cons(app_ts, 9228 cons(cons(app_ts,
@@ -9188,107 +9239,107 @@ cons(cons(type_Int32, @@ -9188,107 +9239,107 @@ cons(cons(type_Int32,
9188 new_string("max")), 9239 new_string("max")),
9189 nil)), 9240 nil)),
9190 cons(cond, 9241 cons(cond,
9191 -cons(new_integer(9533190), 9242 +cons(new_integer(9536774),
9192 cons(cons(of_type, 9243 cons(cons(of_type,
9193 -cons(new_integer(9533190), 9244 +cons(new_integer(9536774),
9194 cons(new_string("Bool"), 9245 cons(new_string("Bool"),
9195 cons(app, 9246 cons(app,
9196 -cons(new_integer(9533197), 9247 +cons(new_integer(9536781),
9197 cons(cons(symbol, 9248 cons(cons(symbol,
9198 -cons(new_integer(9533197), 9249 +cons(new_integer(9536781),
9199 new_string("=<"))), 9250 new_string("=<"))),
9200 cons(cons(symbol, 9251 cons(cons(symbol,
9201 -cons(new_integer(9533194), 9252 +cons(new_integer(9536778),
9202 new_string("max"))), 9253 new_string("max"))),
9203 cons(cons(integer_10, 9254 cons(cons(integer_10,
9204 -cons(new_integer(9533199), 9255 +cons(new_integer(9536783),
9205 nil)), 9256 nil)),
9206 nil)))))))), 9257 nil)))))))),
9207 cons(cons(cons(new_string("false"), 9258 cons(cons(cons(new_string("false"),
9208 nil), 9259 nil),
9209 -cons(new_integer(9533212), 9260 +cons(new_integer(9536796),
9210 cons(cond, 9261 cons(cond,
9211 -cons(new_integer(9533446), 9262 +cons(new_integer(9537030),
9212 cons(cons(of_type, 9263 cons(cons(of_type,
9213 -cons(new_integer(9533446), 9264 +cons(new_integer(9537030),
9214 cons(new_string("Bool"), 9265 cons(new_string("Bool"),
9215 cons(app, 9266 cons(app,
9216 -cons(new_integer(9533469), 9267 +cons(new_integer(9537053),
9217 cons(cons(symbol, 9268 cons(cons(symbol,
9218 -cons(new_integer(9533468), 9269 +cons(new_integer(9537052),
9219 new_string("£window_event_pending"))), 9270 new_string("£window_event_pending"))),
9220 cons(cons(symbol, 9271 cons(cons(symbol,
9221 -cons(new_integer(9533475), 9272 +cons(new_integer(9537059),
9222 new_string("handle"))), 9273 new_string("handle"))),
9223 nil))))))), 9274 nil))))))),
9224 cons(cons(cons(new_string("false"), 9275 cons(cons(cons(new_string("false"),
9225 nil), 9276 nil),
9226 -cons(new_integer(9534472), 9277 +cons(new_integer(9538056),
9227 cons(symbol, 9278 cons(symbol,
9228 -cons(new_integer(9534476), 9279 +cons(new_integer(9538060),
9229 new_string("[]"))))), 9280 new_string("[]"))))),
9230 cons(cons(cons(new_string("true"), 9281 cons(cons(cons(new_string("true"),
9231 nil), 9282 nil),
9232 -cons(new_integer(9533704), 9283 +cons(new_integer(9537288),
9233 cons(with, 9284 cons(with,
9234 -cons(new_integer(9533717), 9285 +cons(new_integer(9537301),
9235 cons(new_string("first"), 9286 cons(new_string("first"),
9236 cons(cons(app, 9287 cons(cons(app,
9237 -cons(new_integer(9533741), 9288 +cons(new_integer(9537325),
9238 cons(cons(symbol, 9289 cons(cons(symbol,
9239 -cons(new_integer(9533740), 9290 +cons(new_integer(9537324),
9240 new_string("£get_host_window_event"))), 9291 new_string("£get_host_window_event"))),
9241 cons(cons(symbol, 9292 cons(cons(symbol,
9242 -cons(new_integer(9533747), 9293 +cons(new_integer(9537331),
9243 new_string("handle"))), 9294 new_string("handle"))),
9244 nil)))), 9295 nil)))),
9245 cons(with, 9296 cons(with,
9246 -cons(new_integer(9533973), 9297 +cons(new_integer(9537557),
9247 cons(new_string("others"), 9298 cons(new_string("others"),
9248 cons(cons(app, 9299 cons(cons(app,
9249 -cons(new_integer(9533998), 9300 +cons(new_integer(9537582),
9250 cons(cons(symbol, 9301 cons(cons(symbol,
9251 -cons(new_integer(9533997), 9302 +cons(new_integer(9537581),
9252 new_string("£get_host_window_events"))), 9303 new_string("£get_host_window_events"))),
9253 cons(cons(symbol, 9304 cons(cons(symbol,
9254 -cons(new_integer(9534004), 9305 +cons(new_integer(9537588),
9255 new_string("handle"))), 9306 new_string("handle"))),
9256 cons(cons(app, 9307 cons(cons(app,
9257 -cons(new_integer(9534009), 9308 +cons(new_integer(9537593),
9258 cons(cons(symbol, 9309 cons(cons(symbol,
9259 -cons(new_integer(9534009), 9310 +cons(new_integer(9537593),
9260 new_string("-"))), 9311 new_string("-"))),
9261 cons(cons(symbol, 9312 cons(cons(symbol,
9262 -cons(new_integer(9534008), 9313 +cons(new_integer(9537592),
9263 new_string("max"))), 9314 new_string("max"))),
9264 cons(cons(integer_10, 9315 cons(cons(integer_10,
9265 -cons(new_integer(9534010), 9316 +cons(new_integer(9537594),
9266 cons(new_integer(1), 9317 cons(new_integer(1),
9267 nil))), 9318 nil))),
9268 nil))))), 9319 nil))))),
9269 nil))))), 9320 nil))))),
9270 cons(app, 9321 cons(app,
9271 -cons(new_integer(9534228), 9322 +cons(new_integer(9537812),
9272 cons(cons(symbol, 9323 cons(cons(symbol,
9273 -cons(new_integer(9534228), 9324 +cons(new_integer(9537812),
9274 new_string("[.]"))), 9325 new_string("[.]"))),
9275 cons(cons(symbol, 9326 cons(cons(symbol,
9276 -cons(new_integer(9534225), 9327 +cons(new_integer(9537809),
9277 new_string("first"))), 9328 new_string("first"))),
9278 cons(cons(symbol, 9329 cons(cons(symbol,
9279 -cons(new_integer(9534234), 9330 +cons(new_integer(9537818),
9280 new_string("others"))), 9331 new_string("others"))),
9281 nil))))))))))))))), 9332 nil))))))))))))))),
9282 nil))))))), 9333 nil))))))),
9283 cons(cons(cons(new_string("true"), 9334 cons(cons(cons(new_string("true"),
9284 nil), 9335 nil),
9285 -cons(new_integer(9533204), 9336 +cons(new_integer(9536788),
9286 cons(symbol, 9337 cons(symbol,
9287 -cons(new_integer(9533207), 9338 +cons(new_integer(9536791),
9288 new_string("[]"))))), 9339 new_string("[]"))))),
9289 nil)))))); 9340 nil))))));
9290 9341
9291 -new_op_scheme(19072526,0, 9342 +new_op_scheme(19079694,0,
9292 new_string("Bool"), 9343 new_string("Bool"),
9293 cons(new_string("£default_host_window_handling"), 9344 cons(new_string("£default_host_window_handling"),
9294 nil), 9345 nil),
@@ -9331,7 +9382,7 @@ new_string(&quot;event_handler&quot;)), @@ -9331,7 +9382,7 @@ new_string(&quot;event_handler&quot;)),
9331 nil))))), 9382 nil))))),
9332 no_term); 9383 no_term);
9333 9384
9334 -new_op_scheme(19079182,0, 9385 +new_op_scheme(19086350,0,
9335 new_string("One"), 9386 new_string("One"),
9336 cons(new_string("£begin_paint"), 9387 cons(new_string("£begin_paint"),
9337 nil), 9388 nil),
@@ -9339,11 +9390,11 @@ cons(cons(new_string(&quot;HostWindow&quot;), @@ -9339,11 +9390,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9339 new_string("window")), 9390 new_string("window")),
9340 nil), 9391 nil),
9341 cons(avm, 9392 cons(avm,
9342 -cons(new_integer(9540872), 9393 +cons(new_integer(9544456),
9343 cons(begin_paint, 9394 cons(begin_paint,
9344 nil)))); 9395 nil))));
9345 9396
9346 -new_op_scheme(19082766,0, 9397 +new_op_scheme(19089934,0,
9347 new_string("One"), 9398 new_string("One"),
9348 cons(new_string("£end_paint"), 9399 cons(new_string("£end_paint"),
9349 nil), 9400 nil),
@@ -9351,11 +9402,11 @@ cons(cons(new_string(&quot;HostWindow&quot;), @@ -9351,11 +9402,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9351 new_string("window")), 9402 new_string("window")),
9352 nil), 9403 nil),
9353 cons(avm, 9404 cons(avm,
9354 -cons(new_integer(9542664), 9405 +cons(new_integer(9546248),
9355 cons(end_paint, 9406 cons(end_paint,
9356 nil)))); 9407 nil))));
9357 9408
9358 -new_op_scheme(19086862,0, 9409 +new_op_scheme(19094030,0,
9359 new_string("Bool"), 9410 new_string("Bool"),
9360 cons(new_string("£handle_host_window_events"), 9411 cons(new_string("£handle_host_window_events"),
9361 nil), 9412 nil),
@@ -9392,129 +9443,129 @@ nil))))), @@ -9392,129 +9443,129 @@ nil))))),
9392 new_string("eh")), 9443 new_string("eh")),
9393 nil)))), 9444 nil)))),
9394 cons(cond, 9445 cons(cond,
9395 -cons(new_integer(9545478), 9446 +cons(new_integer(9549062),
9396 cons(cons(symbol, 9447 cons(cons(symbol,
9397 -cons(new_integer(9545480), 9448 +cons(new_integer(9549064),
9398 new_string("l"))), 9449 new_string("l"))),
9399 cons(cons(cons(new_string("[]"), 9450 cons(cons(cons(new_string("[]"),
9400 nil), 9451 nil),
9401 -cons(new_integer(9546000), 9452 +cons(new_integer(9549584),
9402 cons(symbol, 9453 cons(symbol,
9403 -cons(new_integer(9546006), 9454 +cons(new_integer(9549590),
9404 new_string("false"))))), 9455 new_string("false"))))),
9405 cons(cons(cons(new_string("[.]"), 9456 cons(cons(cons(new_string("[.]"),
9406 cons(new_string("e1"), 9457 cons(new_string("e1"),
9407 cons(new_string("es"), 9458 cons(new_string("es"),
9408 nil))), 9459 nil))),
9409 -cons(new_integer(9546262), 9460 +cons(new_integer(9549846),
9410 cons(cond, 9461 cons(cond,
9411 -cons(new_integer(9546265), 9462 +cons(new_integer(9549849),
9412 cons(cons(symbol, 9463 cons(cons(symbol,
9413 -cons(new_integer(9546268), 9464 +cons(new_integer(9549852),
9414 new_string("e1"))), 9465 new_string("e1"))),
9415 cons(cons(cons(new_string("quit"), 9466 cons(cons(cons(new_string("quit"),
9416 nil), 9467 nil),
9417 -cons(new_integer(9546794), 9468 +cons(new_integer(9550378),
9418 cons(cond, 9469 cons(cond,
9419 -cons(new_integer(9546819), 9470 +cons(new_integer(9550403),
9420 cons(cons(of_type, 9471 cons(cons(of_type,
9421 -cons(new_integer(9546819), 9472 +cons(new_integer(9550403),
9422 cons(new_string("One"), 9473 cons(new_string("One"),
9423 cons(app, 9474 cons(app,
9424 -cons(new_integer(9546802), 9475 +cons(new_integer(9550386),
9425 cons(cons(symbol, 9476 cons(cons(symbol,
9426 -cons(new_integer(9546801), 9477 +cons(new_integer(9550385),
9427 new_string("forget"))), 9478 new_string("forget"))),
9428 cons(cons(app, 9479 cons(cons(app,
9429 -cons(new_integer(9546805), 9480 +cons(new_integer(9550389),
9430 cons(cons(symbol, 9481 cons(cons(symbol,
9431 -cons(new_integer(9546804), 9482 +cons(new_integer(9550388),
9432 new_string("eh"))), 9483 new_string("eh"))),
9433 cons(cons(symbol, 9484 cons(cons(symbol,
9434 -cons(new_integer(9546811), 9485 +cons(new_integer(9550395),
9435 new_string("window"))), 9486 new_string("window"))),
9436 cons(cons(symbol, 9487 cons(cons(symbol,
9437 -cons(new_integer(9546816), 9488 +cons(new_integer(9550400),
9438 new_string("quit"))), 9489 new_string("quit"))),
9439 nil))))), 9490 nil))))),
9440 nil))))))), 9491 nil))))))),
9441 cons(cons(cons(new_string("unique"), 9492 cons(cons(cons(new_string("unique"),
9442 nil), 9493 nil),
9443 -cons(new_integer(9546819), 9494 +cons(new_integer(9550403),
9444 cons(symbol, 9495 cons(symbol,
9445 -cons(new_integer(9546824), 9496 +cons(new_integer(9550408),
9446 new_string("true"))))), 9497 new_string("true"))))),
9447 nil)))))), 9498 nil)))))),
9448 cons(cons(cons(new_string("expose"), 9499 cons(cons(cons(new_string("expose"),
9449 nil), 9500 nil),
9450 -cons(new_integer(9547050), 9501 +cons(new_integer(9550634),
9451 cons(cond, 9502 cons(cond,
9452 -cons(new_integer(9547299), 9503 +cons(new_integer(9550883),
9453 cons(cons(of_type, 9504 cons(cons(of_type,
9454 -cons(new_integer(9547299), 9505 +cons(new_integer(9550883),
9455 cons(new_string("One"), 9506 cons(new_string("One"),
9456 cons(app, 9507 cons(app,
9457 -cons(new_integer(9547291), 9508 +cons(new_integer(9550875),
9458 cons(cons(symbol, 9509 cons(cons(symbol,
9459 -cons(new_integer(9547290), 9510 +cons(new_integer(9550874),
9460 new_string("£begin_paint"))), 9511 new_string("£begin_paint"))),
9461 cons(cons(symbol, 9512 cons(cons(symbol,
9462 -cons(new_integer(9547297), 9513 +cons(new_integer(9550881),
9463 new_string("window"))), 9514 new_string("window"))),
9464 nil))))))), 9515 nil))))))),
9465 cons(cons(cons(new_string("unique"), 9516 cons(cons(cons(new_string("unique"),
9466 nil), 9517 nil),
9467 -cons(new_integer(9547299), 9518 +cons(new_integer(9550883),
9468 cons(cond, 9519 cons(cond,
9469 -cons(new_integer(9547604), 9520 +cons(new_integer(9551188),
9470 cons(cons(of_type, 9521 cons(cons(of_type,
9471 -cons(new_integer(9547604), 9522 +cons(new_integer(9551188),
9472 cons(new_string("One"), 9523 cons(new_string("One"),
9473 cons(app, 9524 cons(app,
9474 -cons(new_integer(9547537), 9525 +cons(new_integer(9551121),
9475 cons(cons(symbol, 9526 cons(cons(symbol,
9476 -cons(new_integer(9547536), 9527 +cons(new_integer(9551120),
9477 new_string("pm"))), 9528 new_string("pm"))),
9478 cons(cons(symbol, 9529 cons(cons(symbol,
9479 -cons(new_integer(9547543), 9530 +cons(new_integer(9551127),
9480 new_string("window"))), 9531 new_string("window"))),
9481 cons(cons(cond, 9532 cons(cons(cond,
9482 -cons(new_integer(9547547), 9533 +cons(new_integer(9551131),
9483 cons(cons(app, 9534 cons(cons(app,
9484 -cons(new_integer(9547553), 9535 +cons(new_integer(9551137),
9485 cons(cons(symbol, 9536 cons(cons(symbol,
9486 -cons(new_integer(9547552), 9537 +cons(new_integer(9551136),
9487 new_string("size"))), 9538 new_string("size"))),
9488 cons(cons(symbol, 9539 cons(cons(symbol,
9489 -cons(new_integer(9547559), 9540 +cons(new_integer(9551143),
9490 new_string("window"))), 9541 new_string("window"))),
9491 nil)))), 9542 nil)))),
9492 cons(cons(cons(new_string("£tuple"), 9543 cons(cons(cons(new_string("£tuple"),
9493 cons(new_string("winw"), 9544 cons(new_string("winw"),
9494 cons(new_string("winh"), 9545 cons(new_string("winh"),
9495 nil))), 9546 nil))),
9496 -cons(new_integer(9547580), 9547 +cons(new_integer(9551164),
9497 cons(app, 9548 cons(app,
9498 -cons(new_integer(9547602), 9549 +cons(new_integer(9551186),
9499 cons(cons(symbol, 9550 cons(cons(symbol,
9500 -cons(new_integer(9547602), 9551 +cons(new_integer(9551186),
9501 new_string("[.]"))), 9552 new_string("[.]"))),
9502 cons(cons(app, 9553 cons(cons(app,
9503 -cons(new_integer(9547587), 9554 +cons(new_integer(9551171),
9504 cons(cons(symbol, 9555 cons(cons(symbol,
9505 -cons(new_integer(9547586), 9556 +cons(new_integer(9551170),
9506 new_string("rect"))), 9557 new_string("rect"))),
9507 cons(cons(integer_10, 9558 cons(cons(integer_10,
9508 -cons(new_integer(9547588), 9559 +cons(new_integer(9551172),
9509 nil)), 9560 nil)),
9510 cons(cons(integer_10, 9561 cons(cons(integer_10,
9511 -cons(new_integer(9547590), 9562 +cons(new_integer(9551174),
9512 nil)), 9563 nil)),
9513 cons(cons(symbol, 9564 cons(cons(symbol,
9514 -cons(new_integer(9547595), 9565 +cons(new_integer(9551179),
9515 new_string("winw"))), 9566 new_string("winw"))),
9516 cons(cons(symbol, 9567 cons(cons(symbol,
9517 -cons(new_integer(9547600), 9568 +cons(new_integer(9551184),
9518 new_string("winh"))), 9569 new_string("winh"))),
9519 nil))))))), 9570 nil))))))),
9520 cons(cons(symbol, 9571 cons(cons(symbol,
@@ -9525,40 +9576,40 @@ nil)))), @@ -9525,40 +9576,40 @@ nil)))),
9525 nil)))))))), 9576 nil)))))))),
9526 cons(cons(cons(new_string("unique"), 9577 cons(cons(cons(new_string("unique"),
9527 nil), 9578 nil),
9528 -cons(new_integer(9547604), 9579 +cons(new_integer(9551188),
9529 cons(cond, 9580 cons(cond,
9530 -cons(new_integer(9547809), 9581 +cons(new_integer(9551393),
9531 cons(cons(of_type, 9582 cons(cons(of_type,
9532 -cons(new_integer(9547809), 9583 +cons(new_integer(9551393),
9533 cons(new_string("One"), 9584 cons(new_string("One"),
9534 cons(app, 9585 cons(app,
9535 -cons(new_integer(9547801), 9586 +cons(new_integer(9551385),
9536 cons(cons(symbol, 9587 cons(cons(symbol,
9537 -cons(new_integer(9547800), 9588 +cons(new_integer(9551384),
9538 new_string("£end_paint"))), 9589 new_string("£end_paint"))),
9539 cons(cons(symbol, 9590 cons(cons(symbol,
9540 -cons(new_integer(9547807), 9591 +cons(new_integer(9551391),
9541 new_string("window"))), 9592 new_string("window"))),
9542 nil))))))), 9593 nil))))))),
9543 cons(cons(cons(new_string("unique"), 9594 cons(cons(cons(new_string("unique"),
9544 nil), 9595 nil),
9545 -cons(new_integer(9547809), 9596 +cons(new_integer(9551393),
9546 cons(app, 9597 cons(app,
9547 -cons(new_integer(9548073), 9598 +cons(new_integer(9551657),
9548 cons(cons(symbol, 9599 cons(cons(symbol,
9549 -cons(new_integer(9548072), 9600 +cons(new_integer(9551656),
9550 new_string("£handle_host_window_events"))), 9601 new_string("£handle_host_window_events"))),
9551 cons(cons(symbol, 9602 cons(cons(symbol,
9552 -cons(new_integer(9548075), 9603 +cons(new_integer(9551659),
9553 new_string("es"))), 9604 new_string("es"))),
9554 cons(cons(symbol, 9605 cons(cons(symbol,
9555 -cons(new_integer(9548082), 9606 +cons(new_integer(9551666),
9556 new_string("window"))), 9607 new_string("window"))),
9557 cons(cons(symbol, 9608 cons(cons(symbol,
9558 -cons(new_integer(9548085), 9609 +cons(new_integer(9551669),
9559 new_string("pm"))), 9610 new_string("pm"))),
9560 cons(cons(symbol, 9611 cons(cons(symbol,
9561 -cons(new_integer(9548088), 9612 +cons(new_integer(9551672),
9562 new_string("eh"))), 9613 new_string("eh"))),
9563 nil))))))))), 9614 nil))))))))),
9564 nil)))))), 9615 nil)))))),
@@ -9566,76 +9617,76 @@ nil)))))), @@ -9566,76 +9617,76 @@ nil)))))),
9566 nil)))))), 9617 nil)))))),
9567 cons(cons(cons(new_string("pointer_entering"), 9618 cons(cons(cons(new_string("pointer_entering"),
9568 nil), 9619 nil),
9569 -cons(new_integer(9548330), 9620 +cons(new_integer(9551914),
9570 cons(app, 9621 cons(app,
9571 -cons(new_integer(9548361), 9622 +cons(new_integer(9551945),
9572 cons(cons(symbol, 9623 cons(cons(symbol,
9573 -cons(new_integer(9548360), 9624 +cons(new_integer(9551944),
9574 new_string("£default_host_window_handling"))), 9625 new_string("£default_host_window_handling"))),
9575 cons(cons(symbol, 9626 cons(cons(symbol,
9576 -cons(new_integer(9548363), 9627 +cons(new_integer(9551947),
9577 new_string("e1"))), 9628 new_string("e1"))),
9578 cons(cons(symbol, 9629 cons(cons(symbol,
9579 -cons(new_integer(9548366), 9630 +cons(new_integer(9551950),
9580 new_string("es"))), 9631 new_string("es"))),
9581 cons(cons(symbol, 9632 cons(cons(symbol,
9582 -cons(new_integer(9548373), 9633 +cons(new_integer(9551957),
9583 new_string("window"))), 9634 new_string("window"))),
9584 cons(cons(symbol, 9635 cons(cons(symbol,
9585 -cons(new_integer(9548376), 9636 +cons(new_integer(9551960),
9586 new_string("pm"))), 9637 new_string("pm"))),
9587 cons(cons(symbol, 9638 cons(cons(symbol,
9588 -cons(new_integer(9548379), 9639 +cons(new_integer(9551963),
9589 new_string("eh"))), 9640 new_string("eh"))),
9590 nil)))))))))), 9641 nil)))))))))),
9591 cons(cons(cons(new_string("pointer_leaving"), 9642 cons(cons(cons(new_string("pointer_leaving"),
9592 nil), 9643 nil),
9593 -cons(new_integer(9548586), 9644 +cons(new_integer(9552170),
9594 cons(app, 9645 cons(app,
9595 -cons(new_integer(9548617), 9646 +cons(new_integer(9552201),
9596 cons(cons(symbol, 9647 cons(cons(symbol,
9597 -cons(new_integer(9548616), 9648 +cons(new_integer(9552200),
9598 new_string("£default_host_window_handling"))), 9649 new_string("£default_host_window_handling"))),
9599 cons(cons(symbol, 9650 cons(cons(symbol,
9600 -cons(new_integer(9548619), 9651 +cons(new_integer(9552203),
9601 new_string("e1"))), 9652 new_string("e1"))),
9602 cons(cons(symbol, 9653 cons(cons(symbol,
9603 -cons(new_integer(9548622), 9654 +cons(new_integer(9552206),
9604 new_string("es"))), 9655 new_string("es"))),
9605 cons(cons(symbol, 9656 cons(cons(symbol,
9606 -cons(new_integer(9548629), 9657 +cons(new_integer(9552213),
9607 new_string("window"))), 9658 new_string("window"))),
9608 cons(cons(symbol, 9659 cons(cons(symbol,
9609 -cons(new_integer(9548632), 9660 +cons(new_integer(9552216),
9610 new_string("pm"))), 9661 new_string("pm"))),
9611 cons(cons(symbol, 9662 cons(cons(symbol,
9612 -cons(new_integer(9548635), 9663 +cons(new_integer(9552219),
9613 new_string("eh"))), 9664 new_string("eh"))),
9614 nil)))))))))), 9665 nil)))))))))),
9615 cons(cons(cons(new_string("key_down"), 9666 cons(cons(cons(new_string("key_down"),
9616 cons(new_string("ks"), 9667 cons(new_string("ks"),
9617 cons(new_string("kk"), 9668 cons(new_string("kk"),
9618 nil))), 9669 nil))),
9619 -cons(new_integer(9548842), 9670 +cons(new_integer(9552426),
9620 cons(app, 9671 cons(app,
9621 -cons(new_integer(9548873), 9672 +cons(new_integer(9552457),
9622 cons(cons(symbol, 9673 cons(cons(symbol,
9623 -cons(new_integer(9548872), 9674 +cons(new_integer(9552456),
9624 new_string("£default_host_window_handling"))), 9675 new_string("£default_host_window_handling"))),
9625 cons(cons(symbol, 9676 cons(cons(symbol,
9626 -cons(new_integer(9548875), 9677 +cons(new_integer(9552459),
9627 new_string("e1"))), 9678 new_string("e1"))),
9628 cons(cons(symbol, 9679 cons(cons(symbol,
9629 -cons(new_integer(9548878), 9680 +cons(new_integer(9552462),
9630 new_string("es"))), 9681 new_string("es"))),
9631 cons(cons(symbol, 9682 cons(cons(symbol,
9632 -cons(new_integer(9548885), 9683 +cons(new_integer(9552469),
9633 new_string("window"))), 9684 new_string("window"))),
9634 cons(cons(symbol, 9685 cons(cons(symbol,
9635 -cons(new_integer(9548888), 9686 +cons(new_integer(9552472),
9636 new_string("pm"))), 9687 new_string("pm"))),
9637 cons(cons(symbol, 9688 cons(cons(symbol,
9638 -cons(new_integer(9548891), 9689 +cons(new_integer(9552475),
9639 new_string("eh"))), 9690 new_string("eh"))),
9640 nil)))))))))), 9691 nil)))))))))),
9641 cons(cons(cons(new_string("mouse_move"), 9692 cons(cons(cons(new_string("mouse_move"),
@@ -9643,26 +9694,26 @@ cons(new_string(&quot;ks&quot;), @@ -9643,26 +9694,26 @@ cons(new_string(&quot;ks&quot;),
9643 cons(new_string("x"), 9694 cons(new_string("x"),
9644 cons(new_string("y"), 9695 cons(new_string("y"),
9645 nil)))), 9696 nil)))),
9646 -cons(new_integer(9549098), 9697 +cons(new_integer(9552682),
9647 cons(app, 9698 cons(app,
9648 -cons(new_integer(9549129), 9699 +cons(new_integer(9552713),
9649 cons(cons(symbol, 9700 cons(cons(symbol,
9650 -cons(new_integer(9549128), 9701 +cons(new_integer(9552712),
9651 new_string("£default_host_window_handling"))), 9702 new_string("£default_host_window_handling"))),
9652 cons(cons(symbol, 9703 cons(cons(symbol,
9653 -cons(new_integer(9549131), 9704 +cons(new_integer(9552715),
9654 new_string("e1"))), 9705 new_string("e1"))),
9655 cons(cons(symbol, 9706 cons(cons(symbol,
9656 -cons(new_integer(9549134), 9707 +cons(new_integer(9552718),
9657 new_string("es"))), 9708 new_string("es"))),
9658 cons(cons(symbol, 9709 cons(cons(symbol,
9659 -cons(new_integer(9549141), 9710 +cons(new_integer(9552725),
9660 new_string("window"))), 9711 new_string("window"))),
9661 cons(cons(symbol, 9712 cons(cons(symbol,
9662 -cons(new_integer(9549144), 9713 +cons(new_integer(9552728),
9663 new_string("pm"))), 9714 new_string("pm"))),
9664 cons(cons(symbol, 9715 cons(cons(symbol,
9665 -cons(new_integer(9549147), 9716 +cons(new_integer(9552731),
9666 new_string("eh"))), 9717 new_string("eh"))),
9667 nil)))))))))), 9718 nil)))))))))),
9668 cons(cons(cons(new_string("mouse_click"), 9719 cons(cons(cons(new_string("mouse_click"),
@@ -9671,26 +9722,26 @@ cons(new_string(&quot;mc&quot;), @@ -9671,26 +9722,26 @@ cons(new_string(&quot;mc&quot;),
9671 cons(new_string("x"), 9722 cons(new_string("x"),
9672 cons(new_string("y"), 9723 cons(new_string("y"),
9673 nil))))), 9724 nil))))),
9674 -cons(new_integer(9549354), 9725 +cons(new_integer(9552938),
9675 cons(app, 9726 cons(app,
9676 -cons(new_integer(9549385), 9727 +cons(new_integer(9552969),
9677 cons(cons(symbol, 9728 cons(cons(symbol,
9678 -cons(new_integer(9549384), 9729 +cons(new_integer(9552968),
9679 new_string("£default_host_window_handling"))), 9730 new_string("£default_host_window_handling"))),
9680 cons(cons(symbol, 9731 cons(cons(symbol,
9681 -cons(new_integer(9549387), 9732 +cons(new_integer(9552971),
9682 new_string("e1"))), 9733 new_string("e1"))),
9683 cons(cons(symbol, 9734 cons(cons(symbol,
9684 -cons(new_integer(9549390), 9735 +cons(new_integer(9552974),
9685 new_string("es"))), 9736 new_string("es"))),
9686 cons(cons(symbol, 9737 cons(cons(symbol,
9687 -cons(new_integer(9549397), 9738 +cons(new_integer(9552981),
9688 new_string("window"))), 9739 new_string("window"))),
9689 cons(cons(symbol, 9740 cons(cons(symbol,
9690 -cons(new_integer(9549400), 9741 +cons(new_integer(9552984),
9691 new_string("pm"))), 9742 new_string("pm"))),
9692 cons(cons(symbol, 9743 cons(cons(symbol,
9693 -cons(new_integer(9549403), 9744 +cons(new_integer(9552987),
9694 new_string("eh"))), 9745 new_string("eh"))),
9695 nil)))))))))), 9746 nil)))))))))),
9696 cons(cons(cons(new_string("mouse_wheel"), 9747 cons(cons(cons(new_string("mouse_wheel"),
@@ -9699,124 +9750,124 @@ cons(new_string(&quot;d&quot;), @@ -9699,124 +9750,124 @@ cons(new_string(&quot;d&quot;),
9699 cons(new_string("x"), 9750 cons(new_string("x"),
9700 cons(new_string("y"), 9751 cons(new_string("y"),
9701 nil))))), 9752 nil))))),
9702 -cons(new_integer(9549610), 9753 +cons(new_integer(9553194),
9703 cons(app, 9754 cons(app,
9704 -cons(new_integer(9549641), 9755 +cons(new_integer(9553225),
9705 cons(cons(symbol, 9756 cons(cons(symbol,
9706 -cons(new_integer(9549640), 9757 +cons(new_integer(9553224),
9707 new_string("£default_host_window_handling"))), 9758 new_string("£default_host_window_handling"))),
9708 cons(cons(symbol, 9759 cons(cons(symbol,
9709 -cons(new_integer(9549643), 9760 +cons(new_integer(9553227),
9710 new_string("e1"))), 9761 new_string("e1"))),
9711 cons(cons(symbol, 9762 cons(cons(symbol,
9712 -cons(new_integer(9549646), 9763 +cons(new_integer(9553230),
9713 new_string("es"))), 9764 new_string("es"))),
9714 cons(cons(symbol, 9765 cons(cons(symbol,
9715 -cons(new_integer(9549653), 9766 +cons(new_integer(9553237),
9716 new_string("window"))), 9767 new_string("window"))),
9717 cons(cons(symbol, 9768 cons(cons(symbol,
9718 -cons(new_integer(9549656), 9769 +cons(new_integer(9553240),
9719 new_string("pm"))), 9770 new_string("pm"))),
9720 cons(cons(symbol, 9771 cons(cons(symbol,
9721 -cons(new_integer(9549659), 9772 +cons(new_integer(9553243),
9722 new_string("eh"))), 9773 new_string("eh"))),
9723 nil)))))))))), 9774 nil)))))))))),
9724 cons(cons(cons(new_string("tick"), 9775 cons(cons(cons(new_string("tick"),
9725 nil), 9776 nil),
9726 -cons(new_integer(9549866), 9777 +cons(new_integer(9553450),
9727 cons(app, 9778 cons(app,
9728 -cons(new_integer(9549897), 9779 +cons(new_integer(9553481),
9729 cons(cons(symbol, 9780 cons(cons(symbol,
9730 -cons(new_integer(9549896), 9781 +cons(new_integer(9553480),
9731 new_string("£default_host_window_handling"))), 9782 new_string("£default_host_window_handling"))),
9732 cons(cons(symbol, 9783 cons(cons(symbol,
9733 -cons(new_integer(9549899), 9784 +cons(new_integer(9553483),
9734 new_string("e1"))), 9785 new_string("e1"))),
9735 cons(cons(symbol, 9786 cons(cons(symbol,
9736 -cons(new_integer(9549902), 9787 +cons(new_integer(9553486),
9737 new_string("es"))), 9788 new_string("es"))),
9738 cons(cons(symbol, 9789 cons(cons(symbol,
9739 -cons(new_integer(9549909), 9790 +cons(new_integer(9553493),
9740 new_string("window"))), 9791 new_string("window"))),
9741 cons(cons(symbol, 9792 cons(cons(symbol,
9742 -cons(new_integer(9549912), 9793 +cons(new_integer(9553496),
9743 new_string("pm"))), 9794 new_string("pm"))),
9744 cons(cons(symbol, 9795 cons(cons(symbol,
9745 -cons(new_integer(9549915), 9796 +cons(new_integer(9553499),
9746 new_string("eh"))), 9797 new_string("eh"))),
9747 nil)))))))))), 9798 nil)))))))))),
9748 cons(cons(cons(new_string("repaint"), 9799 cons(cons(cons(new_string("repaint"),
9749 cons(new_string("l"), 9800 cons(new_string("l"),
9750 nil)), 9801 nil)),
9751 -cons(new_integer(9550122), 9802 +cons(new_integer(9553706),
9752 cons(cond, 9803 cons(cond,
9753 -cons(new_integer(9550137), 9804 +cons(new_integer(9553721),
9754 cons(cons(of_type, 9805 cons(cons(of_type,
9755 -cons(new_integer(9550137), 9806 +cons(new_integer(9553721),
9756 cons(new_string("One"), 9807 cons(new_string("One"),
9757 cons(app, 9808 cons(app,
9758 -cons(new_integer(9550127), 9809 +cons(new_integer(9553711),
9759 cons(cons(symbol, 9810 cons(cons(symbol,
9760 -cons(new_integer(9550126), 9811 +cons(new_integer(9553710),
9761 new_string("pm"))), 9812 new_string("pm"))),
9762 cons(cons(symbol, 9813 cons(cons(symbol,
9763 -cons(new_integer(9550133), 9814 +cons(new_integer(9553717),
9764 new_string("window"))), 9815 new_string("window"))),
9765 cons(cons(symbol, 9816 cons(cons(symbol,
9766 -cons(new_integer(9550135), 9817 +cons(new_integer(9553719),
9767 new_string("l"))), 9818 new_string("l"))),
9768 nil)))))))), 9819 nil)))))))),
9769 cons(cons(cons(new_string("unique"), 9820 cons(cons(cons(new_string("unique"),
9770 nil), 9821 nil),
9771 -cons(new_integer(9550137), 9822 +cons(new_integer(9553721),
9772 cons(app, 9823 cons(app,
9773 -cons(new_integer(9550407), 9824 +cons(new_integer(9553991),
9774 cons(cons(symbol, 9825 cons(cons(symbol,
9775 -cons(new_integer(9550406), 9826 +cons(new_integer(9553990),
9776 new_string("£handle_host_window_events"))), 9827 new_string("£handle_host_window_events"))),
9777 cons(cons(symbol, 9828 cons(cons(symbol,
9778 -cons(new_integer(9550409), 9829 +cons(new_integer(9553993),
9779 new_string("es"))), 9830 new_string("es"))),
9780 cons(cons(symbol, 9831 cons(cons(symbol,
9781 -cons(new_integer(9550416), 9832 +cons(new_integer(9554000),
9782 new_string("window"))), 9833 new_string("window"))),
9783 cons(cons(symbol, 9834 cons(cons(symbol,
9784 -cons(new_integer(9550419), 9835 +cons(new_integer(9554003),
9785 new_string("pm"))), 9836 new_string("pm"))),
9786 cons(cons(symbol, 9837 cons(cons(symbol,
9787 -cons(new_integer(9550422), 9838 +cons(new_integer(9554006),
9788 new_string("eh"))), 9839 new_string("eh"))),
9789 nil))))))))), 9840 nil))))))))),
9790 nil)))))), 9841 nil)))))),
9791 cons(cons(cons(new_string("specific"), 9842 cons(cons(cons(new_string("specific"),
9792 cons(new_string("spe"), 9843 cons(new_string("spe"),
9793 nil)), 9844 nil)),
9794 -cons(new_integer(9550634), 9845 +cons(new_integer(9554218),
9795 cons(app, 9846 cons(app,
9796 -cons(new_integer(9550665), 9847 +cons(new_integer(9554249),
9797 cons(cons(symbol, 9848 cons(cons(symbol,
9798 -cons(new_integer(9550664), 9849 +cons(new_integer(9554248),
9799 new_string("£default_host_window_handling"))), 9850 new_string("£default_host_window_handling"))),
9800 cons(cons(symbol, 9851 cons(cons(symbol,
9801 -cons(new_integer(9550667), 9852 +cons(new_integer(9554251),
9802 new_string("e1"))), 9853 new_string("e1"))),
9803 cons(cons(symbol, 9854 cons(cons(symbol,
9804 -cons(new_integer(9550670), 9855 +cons(new_integer(9554254),
9805 new_string("es"))), 9856 new_string("es"))),
9806 cons(cons(symbol, 9857 cons(cons(symbol,
9807 -cons(new_integer(9550677), 9858 +cons(new_integer(9554261),
9808 new_string("window"))), 9859 new_string("window"))),
9809 cons(cons(symbol, 9860 cons(cons(symbol,
9810 -cons(new_integer(9550680), 9861 +cons(new_integer(9554264),
9811 new_string("pm"))), 9862 new_string("pm"))),
9812 cons(cons(symbol, 9863 cons(cons(symbol,
9813 -cons(new_integer(9550683), 9864 +cons(new_integer(9554267),
9814 new_string("eh"))), 9865 new_string("eh"))),
9815 nil)))))))))), 9866 nil)))))))))),
9816 nil)))))))))))))))), 9867 nil)))))))))))))))),
9817 nil)))))); 9868 nil))))));
9818 9869
9819 -new_op_scheme(19103758,0, 9870 +new_op_scheme(19110926,0,
9820 new_string("Bool"), 9871 new_string("Bool"),
9821 cons(new_string("£default_host_window_handling"), 9872 cons(new_string("£default_host_window_handling"),
9822 nil), 9873 nil),
@@ -9858,78 +9909,78 @@ nil))))), @@ -9858,78 +9909,78 @@ nil))))),
9858 new_string("event_handler")), 9909 new_string("event_handler")),
9859 nil))))), 9910 nil))))),
9860 cons(with, 9911 cons(with,
9861 -cons(new_integer(9554192), 9912 +cons(new_integer(9557776),
9862 cons(new_string("rects"), 9913 cons(new_string("rects"),
9863 cons(cons(app, 9914 cons(cons(app,
9864 -cons(new_integer(9554207), 9915 +cons(new_integer(9557791),
9865 cons(cons(symbol, 9916 cons(cons(symbol,
9866 -cons(new_integer(9554206), 9917 +cons(new_integer(9557790),
9867 new_string("event_handler"))), 9918 new_string("event_handler"))),
9868 cons(cons(symbol, 9919 cons(cons(symbol,
9869 -cons(new_integer(9554213), 9920 +cons(new_integer(9557797),
9870 new_string("window"))), 9921 new_string("window"))),
9871 cons(cons(symbol, 9922 cons(cons(symbol,
9872 -cons(new_integer(9554215), 9923 +cons(new_integer(9557799),
9873 new_string("e"))), 9924 new_string("e"))),
9874 nil))))), 9925 nil))))),
9875 cons(cond, 9926 cons(cond,
9876 -cons(new_integer(9555466), 9927 +cons(new_integer(9559050),
9877 cons(cons(of_type, 9928 cons(cons(of_type,
9878 -cons(new_integer(9555466), 9929 +cons(new_integer(9559050),
9879 cons(new_string("One"), 9930 cons(new_string("One"),
9880 cons(cond, 9931 cons(cond,
9881 -cons(new_integer(9554440), 9932 +cons(new_integer(9558024),
9882 cons(cons(symbol, 9933 cons(cons(symbol,
9883 -cons(new_integer(9554446), 9934 +cons(new_integer(9558030),
9884 new_string("rects"))), 9935 new_string("rects"))),
9885 cons(cons(cons(new_string("[]"), 9936 cons(cons(cons(new_string("[]"),
9886 nil), 9937 nil),
9887 -cons(new_integer(9554962), 9938 +cons(new_integer(9558546),
9888 cons(symbol, 9939 cons(symbol,
9889 -cons(new_integer(9554969), 9940 +cons(new_integer(9558553),
9890 new_string("unique"))))), 9941 new_string("unique"))))),
9891 cons(cons(cons(new_string("[.]"), 9942 cons(cons(cons(new_string("[.]"),
9892 cons(new_string("_"), 9943 cons(new_string("_"),
9893 cons(new_string("_"), 9944 cons(new_string("_"),
9894 nil))), 9945 nil))),
9895 -cons(new_integer(9555222), 9946 +cons(new_integer(9558806),
9896 cons(app, 9947 cons(app,
9897 -cons(new_integer(9555236), 9948 +cons(new_integer(9558820),
9898 cons(cons(symbol, 9949 cons(cons(symbol,
9899 -cons(new_integer(9555235), 9950 +cons(new_integer(9558819),
9900 new_string("paint_method"))), 9951 new_string("paint_method"))),
9901 cons(cons(symbol, 9952 cons(cons(symbol,
9902 -cons(new_integer(9555242), 9953 +cons(new_integer(9558826),
9903 new_string("window"))), 9954 new_string("window"))),
9904 cons(cons(symbol, 9955 cons(cons(symbol,
9905 -cons(new_integer(9555248), 9956 +cons(new_integer(9558832),
9906 new_string("rects"))), 9957 new_string("rects"))),
9907 nil))))))), 9958 nil))))))),
9908 nil)))))))), 9959 nil)))))))),
9909 cons(cons(cons(new_string("unique"), 9960 cons(cons(cons(new_string("unique"),
9910 nil), 9961 nil),
9911 -cons(new_integer(9555466), 9962 +cons(new_integer(9559050),
9912 cons(app, 9963 cons(app,
9913 -cons(new_integer(9555745), 9964 +cons(new_integer(9559329),
9914 cons(cons(symbol, 9965 cons(cons(symbol,
9915 -cons(new_integer(9555744), 9966 +cons(new_integer(9559328),
9916 new_string("£handle_host_window_events"))), 9967 new_string("£handle_host_window_events"))),
9917 cons(cons(symbol, 9968 cons(cons(symbol,
9918 -cons(new_integer(9555746), 9969 +cons(new_integer(9559330),
9919 new_string("l"))), 9970 new_string("l"))),
9920 cons(cons(symbol, 9971 cons(cons(symbol,
9921 -cons(new_integer(9555753), 9972 +cons(new_integer(9559337),
9922 new_string("window"))), 9973 new_string("window"))),
9923 cons(cons(symbol, 9974 cons(cons(symbol,
9924 -cons(new_integer(9555766), 9975 +cons(new_integer(9559350),
9925 new_string("paint_method"))), 9976 new_string("paint_method"))),
9926 cons(cons(symbol, 9977 cons(cons(symbol,
9927 -cons(new_integer(9555780), 9978 +cons(new_integer(9559364),
9928 new_string("event_handler"))), 9979 new_string("event_handler"))),
9929 nil))))))))), 9980 nil))))))))),
9930 nil))))))))); 9981 nil)))))))));
9931 9982
9932 -new_op_scheme(19115036,1, 9983 +new_op_scheme(19122204,1,
9933 new_string("One"), 9984 new_string("One"),
9934 cons(new_string("generic_host_window_handler"), 9985 cons(new_string("generic_host_window_handler"),
9935 nil), 9986 nil),
@@ -9975,88 +10026,88 @@ nil))))), @@ -9975,88 +10026,88 @@ nil))))),
9975 new_string("compress")), 10026 new_string("compress")),
9976 nil)))), 10027 nil)))),
9977 cons(cond, 10028 cons(cond,
9978 -cons(new_integer(9559558), 10029 +cons(new_integer(9563142),
9979 cons(cons(of_type, 10030 cons(cons(of_type,
9980 -cons(new_integer(9559558), 10031 +cons(new_integer(9563142),
9981 cons(new_string("Bool"), 10032 cons(new_string("Bool"),
9982 cons(app, 10033 cons(app,
9983 -cons(new_integer(9559586), 10034 +cons(new_integer(9563170),
9984 cons(cons(symbol, 10035 cons(cons(symbol,
9985 -cons(new_integer(9559585), 10036 +cons(new_integer(9563169),
9986 new_string("£handle_host_window_events"))), 10037 new_string("£handle_host_window_events"))),
9987 cons(cons(app, 10038 cons(cons(app,
9988 -cons(new_integer(9559595), 10039 +cons(new_integer(9563179),
9989 cons(cons(symbol, 10040 cons(cons(symbol,
9990 -cons(new_integer(9559594), 10041 +cons(new_integer(9563178),
9991 new_string("compress"))), 10042 new_string("compress"))),
9992 cons(cons(app, 10043 cons(cons(app,
9993 -cons(new_integer(9559619), 10044 +cons(new_integer(9563203),
9994 cons(cons(symbol, 10045 cons(cons(symbol,
9995 -cons(new_integer(9559618), 10046 +cons(new_integer(9563202),
9996 new_string("£get_host_window_events"))), 10047 new_string("£get_host_window_events"))),
9997 cons(cons(app, 10048 cons(cons(app,
9998 -cons(new_integer(9559627), 10049 +cons(new_integer(9563211),
9999 cons(cons(symbol, 10050 cons(cons(symbol,
10000 -cons(new_integer(9559626), 10051 +cons(new_integer(9563210),
10001 new_string("£handle"))), 10052 new_string("£handle"))),
10002 cons(cons(symbol, 10053 cons(cons(symbol,
10003 -cons(new_integer(9559633), 10054 +cons(new_integer(9563217),
10004 new_string("window"))), 10055 new_string("window"))),
10005 nil)))), 10056 nil)))),
10006 cons(cons(integer_10, 10057 cons(cons(integer_10,
10007 -cons(new_integer(9559638), 10058 +cons(new_integer(9563222),
10008 cons(new_integer(200), 10059 cons(new_integer(200),
10009 nil))), 10060 nil))),
10010 nil))))), 10061 nil))))),
10011 nil)))), 10062 nil)))),
10012 cons(cons(symbol, 10063 cons(cons(symbol,
10013 -cons(new_integer(9559848), 10064 +cons(new_integer(9563432),
10014 new_string("window"))), 10065 new_string("window"))),
10015 cons(cons(symbol, 10066 cons(cons(symbol,
10016 -cons(new_integer(9559861), 10067 +cons(new_integer(9563445),
10017 new_string("paint_method"))), 10068 new_string("paint_method"))),
10018 cons(cons(symbol, 10069 cons(cons(symbol,
10019 -cons(new_integer(9559875), 10070 +cons(new_integer(9563459),
10020 new_string("event_handler"))), 10071 new_string("event_handler"))),
10021 nil)))))))))), 10072 nil)))))))))),
10022 cons(cons(cons(new_string("false"), 10073 cons(cons(cons(new_string("false"),
10023 nil), 10074 nil),
10024 -cons(new_integer(9560328), 10075 +cons(new_integer(9563912),
10025 cons(cond, 10076 cons(cond,
10026 -cons(new_integer(9560344), 10077 +cons(new_integer(9563928),
10027 cons(cons(of_type, 10078 cons(cons(of_type,
10028 -cons(new_integer(9560344), 10079 +cons(new_integer(9563928),
10029 cons(new_string("One"), 10080 cons(new_string("One"),
10030 cons(symbol, 10081 cons(symbol,
10031 -cons(new_integer(9560343), 10082 +cons(new_integer(9563927),
10032 new_string("wait_for_event")))))), 10083 new_string("wait_for_event")))))),
10033 cons(cons(cons(new_string("unique"), 10084 cons(cons(cons(new_string("unique"),
10034 nil), 10085 nil),
10035 -cons(new_integer(9560344), 10086 +cons(new_integer(9563928),
10036 cons(app, 10087 cons(app,
10037 -cons(new_integer(9560613), 10088 +cons(new_integer(9564197),
10038 cons(cons(symbol, 10089 cons(cons(symbol,
10039 -cons(new_integer(9560612), 10090 +cons(new_integer(9564196),
10040 new_string("generic_host_window_handler"))), 10091 new_string("generic_host_window_handler"))),
10041 cons(cons(symbol, 10092 cons(cons(symbol,
10042 -cons(new_integer(9560619), 10093 +cons(new_integer(9564203),
10043 new_string("window"))), 10094 new_string("window"))),
10044 cons(cons(symbol, 10095 cons(cons(symbol,
10045 -cons(new_integer(9560632), 10096 +cons(new_integer(9564216),
10046 new_string("paint_method"))), 10097 new_string("paint_method"))),
10047 cons(cons(symbol, 10098 cons(cons(symbol,
10048 -cons(new_integer(9560646), 10099 +cons(new_integer(9564230),
10049 new_string("event_handler"))), 10100 new_string("event_handler"))),
10050 cons(cons(symbol, 10101 cons(cons(symbol,
10051 -cons(new_integer(9560655), 10102 +cons(new_integer(9564239),
10052 new_string("compress"))), 10103 new_string("compress"))),
10053 nil))))))))), 10104 nil))))))))),
10054 nil)))))), 10105 nil)))))),
10055 cons(cons(cons(new_string("true"), 10106 cons(cons(cons(new_string("true"),
10056 nil), 10107 nil),
10057 -cons(new_integer(9560072), 10108 +cons(new_integer(9563656),
10058 cons(symbol, 10109 cons(symbol,
10059 -cons(new_integer(9560079), 10110 +cons(new_integer(9563663),
10060 new_string("unique"))))), 10111 new_string("unique"))))),
10061 nil)))))); 10112 nil))))));
10062 10113
@@ -10071,7 +10122,7 @@ nil), @@ -10071,7 +10122,7 @@ nil),
10071 nil), 10122 nil),
10072 nil)),0,1); 10123 nil)),0,1);
10073 10124
10074 -new_op_scheme(19130382,0, 10125 +new_op_scheme(19137550,0,
10075 cons(app_ts, 10126 cons(app_ts,
10076 cons(new_string("Maybe"), 10127 cons(new_string("Maybe"),
10077 cons(cons(app_ts, 10128 cons(cons(app_ts,
@@ -10098,11 +10149,11 @@ cons(cons(new_string(&quot;HostWindowSort&quot;), @@ -10098,11 +10149,11 @@ cons(cons(new_string(&quot;HostWindowSort&quot;),
10098 new_string("sort")), 10149 new_string("sort")),
10099 nil)))))), 10150 nil)))))),
10100 cons(avm, 10151 cons(avm,
10101 -cons(new_integer(9567752), 10152 +cons(new_integer(9571336),
10102 cons(open_host_window, 10153 cons(open_host_window,
10103 nil)))); 10154 nil))));
10104 10155
10105 -new_op_scheme(19138588,1, 10156 +new_op_scheme(19145756,1,
10106 cons(app_ts, 10157 cons(app_ts,
10107 cons(new_string("Maybe"), 10158 cons(new_string("Maybe"),
10108 cons(new_string("HostWindow"), 10159 cons(new_string("HostWindow"),
@@ -10155,9 +10206,9 @@ nil))))), @@ -10155,9 +10206,9 @@ nil))))),
10155 new_string("compress")), 10206 new_string("compress")),
10156 nil)))))), 10207 nil)))))),
10157 cons(cond, 10208 cons(cond,
10158 -cons(new_integer(9571846), 10209 +cons(new_integer(9575430),
10159 cons(cons(symbol, 10210 cons(cons(symbol,
10160 -cons(new_integer(9571848), 10211 +cons(new_integer(9575432),
10161 new_string("r"))), 10212 new_string("r"))),
10162 cons(cons(cons(new_string("rect"), 10213 cons(cons(cons(new_string("rect"),
10163 cons(new_string("x"), 10214 cons(new_string("x"),
@@ -10165,120 +10216,120 @@ cons(new_string(&quot;y&quot;), @@ -10165,120 +10216,120 @@ cons(new_string(&quot;y&quot;),
10165 cons(new_string("u"), 10216 cons(new_string("u"),
10166 cons(new_string("v"), 10217 cons(new_string("v"),
10167 nil))))), 10218 nil))))),
10168 -cons(new_integer(9571870), 10219 +cons(new_integer(9575454),
10169 cons(cond, 10220 cons(cond,
10170 -cons(new_integer(9572102), 10221 +cons(new_integer(9575686),
10171 cons(cons(app, 10222 cons(cons(app,
10172 -cons(new_integer(9572121), 10223 +cons(new_integer(9575705),
10173 cons(cons(symbol, 10224 cons(cons(symbol,
10174 -cons(new_integer(9572120), 10225 +cons(new_integer(9575704),
10175 new_string("£open_host_window"))), 10226 new_string("£open_host_window"))),
10176 cons(cons(symbol, 10227 cons(cons(symbol,
10177 -cons(new_integer(9572122), 10228 +cons(new_integer(9575706),
10178 new_string("x"))), 10229 new_string("x"))),
10179 cons(cons(symbol, 10230 cons(cons(symbol,
10180 -cons(new_integer(9572124), 10231 +cons(new_integer(9575708),
10181 new_string("y"))), 10232 new_string("y"))),
10182 cons(cons(app, 10233 cons(cons(app,
10183 -cons(new_integer(9572127), 10234 +cons(new_integer(9575711),
10184 cons(cons(symbol, 10235 cons(cons(symbol,
10185 -cons(new_integer(9572127), 10236 +cons(new_integer(9575711),
10186 new_string("-"))), 10237 new_string("-"))),
10187 cons(cons(symbol, 10238 cons(cons(symbol,
10188 -cons(new_integer(9572126), 10239 +cons(new_integer(9575710),
10189 new_string("u"))), 10240 new_string("u"))),
10190 cons(cons(symbol, 10241 cons(cons(symbol,
10191 -cons(new_integer(9572128), 10242 +cons(new_integer(9575712),
10192 new_string("x"))), 10243 new_string("x"))),
10193 nil))))), 10244 nil))))),
10194 cons(cons(app, 10245 cons(cons(app,
10195 -cons(new_integer(9572131), 10246 +cons(new_integer(9575715),
10196 cons(cons(symbol, 10247 cons(cons(symbol,
10197 -cons(new_integer(9572131), 10248 +cons(new_integer(9575715),
10198 new_string("-"))), 10249 new_string("-"))),
10199 cons(cons(symbol, 10250 cons(cons(symbol,
10200 -cons(new_integer(9572130), 10251 +cons(new_integer(9575714),
10201 new_string("v"))), 10252 new_string("v"))),
10202 cons(cons(symbol, 10253 cons(cons(symbol,
10203 -cons(new_integer(9572132), 10254 +cons(new_integer(9575716),
10204 new_string("y"))), 10255 new_string("y"))),
10205 nil))))), 10256 nil))))),
10206 cons(cons(symbol, 10257 cons(cons(symbol,
10207 -cons(new_integer(9572138), 10258 +cons(new_integer(9575722),
10208 new_string("title"))), 10259 new_string("title"))),
10209 cons(cons(symbol, 10260 cons(cons(symbol,
10210 -cons(new_integer(9572143), 10261 +cons(new_integer(9575727),
10211 new_string("sort"))), 10262 new_string("sort"))),
10212 nil))))))))), 10263 nil))))))))),
10213 cons(cons(cons(new_string("failure"), 10264 cons(cons(cons(new_string("failure"),
10214 nil), 10265 nil),
10215 -cons(new_integer(9572628), 10266 +cons(new_integer(9576212),
10216 cons(symbol, 10267 cons(symbol,
10217 -cons(new_integer(9572636), 10268 +cons(new_integer(9576220),
10218 new_string("failure"))))), 10269 new_string("failure"))))),
10219 cons(cons(cons(new_string("success"), 10270 cons(cons(cons(new_string("success"),
10220 cons(new_string("p"), 10271 cons(new_string("p"),
10221 nil)), 10272 nil)),
10222 -cons(new_integer(9572887), 10273 +cons(new_integer(9576471),
10223 cons(cond, 10274 cons(cond,
10224 -cons(new_integer(9572890), 10275 +cons(new_integer(9576474),
10225 cons(cons(symbol, 10276 cons(cons(symbol,
10226 -cons(new_integer(9572892), 10277 +cons(new_integer(9576476),
10227 new_string("p"))), 10278 new_string("p"))),
10228 cons(cons(cons(new_string("£tuple"), 10279 cons(cons(cons(new_string("£tuple"),
10229 cons(new_string("handle"), 10280 cons(new_string("handle"),
10230 cons(new_string("gc"), 10281 cons(new_string("gc"),
10231 nil))), 10282 nil))),
10232 -cons(new_integer(9572912), 10283 +cons(new_integer(9576496),
10233 cons(with, 10284 cons(with,
10234 -cons(new_integer(9573140), 10285 +cons(new_integer(9576724),
10235 cons(new_string("win"), 10286 cons(new_string("win"),
10236 cons(cons(app, 10287 cons(cons(app,
10237 -cons(new_integer(9573149), 10288 +cons(new_integer(9576733),
10238 cons(cons(symbol, 10289 cons(cons(symbol,
10239 -cons(new_integer(9573148), 10290 +cons(new_integer(9576732),
10240 new_string("£window"))), 10291 new_string("£window"))),
10241 cons(cons(symbol, 10292 cons(cons(symbol,
10242 -cons(new_integer(9573155), 10293 +cons(new_integer(9576739),
10243 new_string("handle"))), 10294 new_string("handle"))),
10244 cons(cons(symbol, 10295 cons(cons(symbol,
10245 -cons(new_integer(9573158), 10296 +cons(new_integer(9576742),
10246 new_string("gc"))), 10297 new_string("gc"))),
10247 nil))))), 10298 nil))))),
10248 cons(delegate, 10299 cons(delegate,
10249 -cons(new_integer(9573394), 10300 +cons(new_integer(9576978),
10250 cons(cons(app, 10301 cons(cons(app,
10251 -cons(new_integer(9573423), 10302 +cons(new_integer(9577007),
10252 cons(cons(symbol, 10303 cons(cons(symbol,
10253 -cons(new_integer(9573422), 10304 +cons(new_integer(9577006),
10254 new_string("generic_host_window_handler"))), 10305 new_string("generic_host_window_handler"))),
10255 cons(cons(symbol, 10306 cons(cons(symbol,
10256 -cons(new_integer(9573426), 10307 +cons(new_integer(9577010),
10257 new_string("win"))), 10308 new_string("win"))),
10258 cons(cons(symbol, 10309 cons(cons(symbol,
10259 -cons(new_integer(9573691), 10310 +cons(new_integer(9577275),
10260 new_string("paint_method"))), 10311 new_string("paint_method"))),
10261 cons(cons(symbol, 10312 cons(cons(symbol,
10262 -cons(new_integer(9573948), 10313 +cons(new_integer(9577532),
10263 new_string("event_handler"))), 10314 new_string("event_handler"))),
10264 cons(cons(symbol, 10315 cons(cons(symbol,
10265 -cons(new_integer(9574199), 10316 +cons(new_integer(9577783),
10266 new_string("compress"))), 10317 new_string("compress"))),
10267 nil))))))), 10318 nil))))))),
10268 cons(app, 10319 cons(app,
10269 -cons(new_integer(9574418), 10320 +cons(new_integer(9578002),
10270 cons(cons(symbol, 10321 cons(cons(symbol,
10271 -cons(new_integer(9574417), 10322 +cons(new_integer(9578001),
10272 new_string("success"))), 10323 new_string("success"))),
10273 cons(cons(symbol, 10324 cons(cons(symbol,
10274 -cons(new_integer(9574421), 10325 +cons(new_integer(9578005),
10275 new_string("win"))), 10326 new_string("win"))),
10276 nil))))))))))))), 10327 nil))))))))))))),
10277 nil)))))), 10328 nil)))))),
10278 nil))))))), 10329 nil))))))),
10279 nil))))); 10330 nil)))));
10280 10331
10281 -new_op_scheme(19154972,1, 10332 +new_op_scheme(19162140,1,
10282 new_string("One"), 10333 new_string("One"),
10283 cons(new_string("show"), 10334 cons(new_string("show"),
10284 nil), 10335 nil),
@@ -10286,11 +10337,11 @@ cons(cons(new_string(&quot;HostWindow&quot;), @@ -10286,11 +10337,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
10286 new_string("win")), 10337 new_string("win")),
10287 nil), 10338 nil),
10288 cons(avm, 10339 cons(avm,
10289 -cons(new_integer(9578510), 10340 +cons(new_integer(9582094),
10290 cons(show_host_window, 10341 cons(show_host_window,
10291 nil)))); 10342 nil))));
10292 10343
10293 -new_op_scheme(19159068,1, 10344 +new_op_scheme(19166236,1,
10294 new_string("One"), 10345 new_string("One"),
10295 cons(new_string("hide"), 10346 cons(new_string("hide"),
10296 nil), 10347 nil),
@@ -10298,11 +10349,11 @@ cons(cons(new_string(&quot;HostWindow&quot;), @@ -10298,11 +10349,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
10298 new_string("win")), 10349 new_string("win")),
10299 nil), 10350 nil),
10300 cons(avm, 10351 cons(avm,
10301 -cons(new_integer(9580558), 10352 +cons(new_integer(9584142),
10302 cons(hide_host_window, 10353 cons(hide_host_window,
10303 nil)))); 10354 nil))));
10304 10355
10305 -new_op_scheme(19168796,1, 10356 +new_op_scheme(19175964,1,
10306 new_string("Bool"), 10357 new_string("Bool"),
10307 cons(new_string("queue_event"), 10358 cons(new_string("queue_event"),
10308 nil), 10359 nil),
@@ -10315,11 +10366,11 @@ nil))), @@ -10315,11 +10366,11 @@ nil))),
10315 new_string("e")), 10366 new_string("e")),
10316 nil)), 10367 nil)),
10317 cons(avm, 10368 cons(avm,
10318 -cons(new_integer(9585928), 10369 +cons(new_integer(9589512),
10319 cons(queue_event, 10370 cons(queue_event,
10320 nil)))); 10371 nil))));
10321 10372
10322 -new_op_scheme(19179036,1, 10373 +new_op_scheme(19186204,1,
10323 new_string("One"), 10374 new_string("One"),
10324 cons(new_string("paint_rectangle"), 10375 cons(new_string("paint_rectangle"),
10325 nil), 10376 nil),
@@ -10331,11 +10382,11 @@ cons(cons(new_string(&quot;RGB&quot;), @@ -10331,11 +10382,11 @@ cons(cons(new_string(&quot;RGB&quot;),
10331 new_string("color")), 10382 new_string("color")),
10332 nil))), 10383 nil))),
10333 cons(avm, 10384 cons(avm,
10334 -cons(new_integer(9591054), 10385 +cons(new_integer(9594638),
10335 cons(paint_rectangle, 10386 cons(paint_rectangle,
10336 nil)))); 10387 nil))));
10337 10388
10338 -new_op_scheme(19184668,1, 10389 +new_op_scheme(19191836,1,
10339 new_string("One"), 10390 new_string("One"),
10340 cons(new_string("paint_rectangle"), 10391 cons(new_string("paint_rectangle"),
10341 nil), 10392 nil),
@@ -10347,11 +10398,11 @@ cons(cons(new_string(&quot;RGB&quot;), @@ -10347,11 +10398,11 @@ cons(cons(new_string(&quot;RGB&quot;),
10347 new_string("color")), 10398 new_string("color")),
10348 nil))), 10399 nil))),
10349 cons(avm, 10400 cons(avm,
10350 -cons(new_integer(9593870), 10401 +cons(new_integer(9597454),
10351 cons(paint_rectangle_to_buffer, 10402 cons(paint_rectangle_to_buffer,
10352 nil)))); 10403 nil))));
10353 10404
10354 -new_op_scheme(19202076,1, 10405 +new_op_scheme(19209244,1,
10355 new_string("One"), 10406 new_string("One"),
10356 cons(new_string("paint_image"), 10407 cons(new_string("paint_image"),
10357 nil), 10408 nil),
@@ -10367,11 +10418,11 @@ cons(cons(new_string(&quot;HostImage&quot;), @@ -10367,11 +10418,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
10367 new_string("image")), 10418 new_string("image")),
10368 nil))))), 10419 nil))))),
10369 cons(avm, 10420 cons(avm,
10370 -cons(new_integer(9603086), 10421 +cons(new_integer(9606670),
10371 cons(paint_host_image, 10422 cons(paint_host_image,
10372 nil)))); 10423 nil))));
10373 10424
10374 -new_op_scheme(19208732,1, 10425 +new_op_scheme(19215900,1,
10375 new_string("One"), 10426 new_string("One"),
10376 cons(new_string("paint_image"), 10427 cons(new_string("paint_image"),
10377 nil), 10428 nil),
@@ -10387,11 +10438,11 @@ cons(cons(new_string(&quot;HostImage&quot;), @@ -10387,11 +10438,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
10387 new_string("image")), 10438 new_string("image")),
10388 nil))))), 10439 nil))))),
10389 cons(avm, 10440 cons(avm,
10390 -cons(new_integer(9606414), 10441 +cons(new_integer(9609998),
10391 cons(paint_host_image_to_buffer, 10442 cons(paint_host_image_to_buffer,
10392 nil)))); 10443 nil))));
10393 10444
10394 -new_op_scheme(19214876,1, 10445 +new_op_scheme(19222044,1,
10395 new_string("One"), 10446 new_string("One"),
10396 cons(new_string("map_to_host_window"), 10447 cons(new_string("map_to_host_window"),
10397 nil), 10448 nil),
@@ -10415,7 +10466,7 @@ cons(cons(type_Int32, @@ -10415,7 +10466,7 @@ cons(cons(type_Int32,
10415 new_string("y")), 10466 new_string("y")),
10416 nil))))))))), 10467 nil))))))))),
10417 cons(avm, 10468 cons(avm,
10418 -cons(new_integer(9610510), 10469 +cons(new_integer(9614094),
10419 cons(map_RGBA_to_host_window, 10470 cons(map_RGBA_to_host_window,
10420 nil)))); 10471 nil))));
10421 10472
@@ -10442,7 +10493,7 @@ noname), @@ -10442,7 +10493,7 @@ noname),
10442 nil)), 10493 nil)),
10443 nil),0,1); 10494 nil),0,1);
10444 10495
10445 -new_op_scheme(19240988,1, 10496 +new_op_scheme(19248156,1,
10446 cons(app_ts, 10497 cons(app_ts,
10447 cons(new_string("Result"), 10498 cons(new_string("Result"),
10448 cons(new_string("SQLite3Error"), 10499 cons(new_string("SQLite3Error"),
@@ -10535,7 +10586,7 @@ new_string(&quot;cursor&quot;)), @@ -10535,7 +10586,7 @@ new_string(&quot;cursor&quot;)),
10535 nil)))), 10586 nil)))),
10536 nil),0,1); 10587 nil),0,1);
10537 10588
10538 -new_op_scheme(19272220,1, 10589 +new_op_scheme(19279388,1,
10539 cons(app_ts, 10590 cons(app_ts,
10540 cons(new_string("Result"), 10591 cons(new_string("Result"),
10541 cons(new_string("SQLite3Error"), 10592 cons(new_string("SQLite3Error"),
@@ -10553,7 +10604,7 @@ new_string(&quot;sql_command&quot;)), @@ -10553,7 +10604,7 @@ new_string(&quot;sql_command&quot;)),
10553 nil)), 10604 nil)),
10554 no_term); 10605 no_term);
10555 10606
10556 -new_op_scheme(19290638,0, 10607 +new_op_scheme(19297806,0,
10557 cons(type_struct_ptr, 10608 cons(type_struct_ptr,
10558 new_integer(8)), 10609 new_integer(8)),
10559 cons(new_string("£sqlite3_open"), 10610 cons(new_string("£sqlite3_open"),
@@ -10562,11 +10613,11 @@ cons(cons(type_String, @@ -10562,11 +10613,11 @@ cons(cons(type_String,
10562 new_string("filename")), 10613 new_string("filename")),
10563 nil), 10614 nil),
10564 cons(avm, 10615 cons(avm,
10565 -cons(new_integer(9646600), 10616 +cons(new_integer(9650184),
10566 cons(sqlite3_open, 10617 cons(sqlite3_open,
10567 nil)))); 10618 nil))));
10568 10619
10569 -new_op_scheme(19294222,0, 10620 +new_op_scheme(19301390,0,
10570 type_Int32, 10621 type_Int32,
10571 cons(new_string("£sqlite3_errcode"), 10622 cons(new_string("£sqlite3_errcode"),
10572 nil), 10623 nil),
@@ -10575,11 +10626,11 @@ new_integer(8)), @@ -10575,11 +10626,11 @@ new_integer(8)),
10575 new_string("s")), 10626 new_string("s")),
10576 nil), 10627 nil),
10577 cons(avm, 10628 cons(avm,
10578 -cons(new_integer(9648392), 10629 +cons(new_integer(9651976),
10579 cons(sqlite3_errcode, 10630 cons(sqlite3_errcode,
10580 nil)))); 10631 nil))));
10581 10632
10582 -new_op_scheme(19297806,0, 10633 +new_op_scheme(19304974,0,
10583 type_String, 10634 type_String,
10584 cons(new_string("£sqlite3_errmsg"), 10635 cons(new_string("£sqlite3_errmsg"),
10585 nil), 10636 nil),
@@ -10588,11 +10639,11 @@ new_integer(8)), @@ -10588,11 +10639,11 @@ new_integer(8)),
10588 new_string("s")), 10639 new_string("s")),
10589 nil), 10640 nil),
10590 cons(avm, 10641 cons(avm,
10591 -cons(new_integer(9650184), 10642 +cons(new_integer(9653768),
10592 cons(sqlite3_errmsg, 10643 cons(sqlite3_errmsg,
10593 nil)))); 10644 nil))));
10594 10645
10595 -new_op_scheme(19301916,1, 10646 +new_op_scheme(19309084,1,
10596 cons(app_ts, 10647 cons(app_ts,
10597 cons(new_string("Result"), 10648 cons(new_string("Result"),
10598 cons(new_string("SQLite3Error"), 10649 cons(new_string("SQLite3Error"),
@@ -10604,88 +10655,88 @@ cons(cons(type_String, @@ -10604,88 +10655,88 @@ cons(cons(type_String,
10604 new_string("filename")), 10655 new_string("filename")),
10605 nil), 10656 nil),
10606 cons(with, 10657 cons(with,
10607 -cons(new_integer(9652241), 10658 +cons(new_integer(9655825),
10608 cons(new_string("handle"), 10659 cons(new_string("handle"),
10609 cons(cons(app, 10660 cons(cons(app,
10610 -cons(new_integer(9652256), 10661 +cons(new_integer(9655840),
10611 cons(cons(symbol, 10662 cons(cons(symbol,
10612 -cons(new_integer(9652255), 10663 +cons(new_integer(9655839),
10613 new_string("£sqlite3_open"))), 10664 new_string("£sqlite3_open"))),
10614 cons(cons(symbol, 10665 cons(cons(symbol,
10615 -cons(new_integer(9652264), 10666 +cons(new_integer(9655848),
10616 new_string("filename"))), 10667 new_string("filename"))),
10617 nil)))), 10668 nil)))),
10618 cons(with, 10669 cons(with,
10619 -cons(new_integer(9652497), 10670 +cons(new_integer(9656081),
10620 cons(new_string("code"), 10671 cons(new_string("code"),
10621 cons(cons(app, 10672 cons(cons(app,
10622 -cons(new_integer(9652515), 10673 +cons(new_integer(9656099),
10623 cons(cons(symbol, 10674 cons(cons(symbol,
10624 -cons(new_integer(9652514), 10675 +cons(new_integer(9656098),
10625 new_string("£sqlite3_errcode"))), 10676 new_string("£sqlite3_errcode"))),
10626 cons(cons(symbol, 10677 cons(cons(symbol,
10627 -cons(new_integer(9652521), 10678 +cons(new_integer(9656105),
10628 new_string("handle"))), 10679 new_string("handle"))),
10629 nil)))), 10680 nil)))),
10630 cons(cond, 10681 cons(cond,
10631 -cons(new_integer(9652744), 10682 +cons(new_integer(9656328),
10632 cons(cons(of_type, 10683 cons(cons(of_type,
10633 -cons(new_integer(9652744), 10684 +cons(new_integer(9656328),
10634 cons(new_string("Bool"), 10685 cons(new_string("Bool"),
10635 cons(app, 10686 cons(app,
10636 -cons(new_integer(9652751), 10687 +cons(new_integer(9656335),
10637 cons(cons(symbol, 10688 cons(cons(symbol,
10638 -cons(new_integer(9652751), 10689 +cons(new_integer(9656335),
10639 new_string("="))), 10690 new_string("="))),
10640 cons(cons(symbol, 10691 cons(cons(symbol,
10641 -cons(new_integer(9652749), 10692 +cons(new_integer(9656333),
10642 new_string("code"))), 10693 new_string("code"))),
10643 cons(cons(integer_10, 10694 cons(cons(integer_10,
10644 -cons(new_integer(9652753), 10695 +cons(new_integer(9656337),
10645 nil)), 10696 nil)),
10646 nil)))))))), 10697 nil)))))))),
10647 cons(cons(cons(new_string("false"), 10698 cons(cons(cons(new_string("false"),
10648 nil), 10699 nil),
10649 -cons(new_integer(9653258), 10700 +cons(new_integer(9656842),
10650 cons(app, 10701 cons(app,
10651 -cons(new_integer(9653265), 10702 +cons(new_integer(9656849),
10652 cons(cons(symbol, 10703 cons(cons(symbol,
10653 -cons(new_integer(9653264), 10704 +cons(new_integer(9656848),
10654 new_string("error"))), 10705 new_string("error"))),
10655 cons(cons(app, 10706 cons(cons(app,
10656 -cons(new_integer(9653273), 10707 +cons(new_integer(9656857),
10657 cons(cons(symbol, 10708 cons(cons(symbol,
10658 -cons(new_integer(9653272), 10709 +cons(new_integer(9656856),
10659 new_string("sqlite3"))), 10710 new_string("sqlite3"))),
10660 cons(cons(symbol, 10711 cons(cons(symbol,
10661 -cons(new_integer(9653277), 10712 +cons(new_integer(9656861),
10662 new_string("code"))), 10713 new_string("code"))),
10663 cons(cons(app, 10714 cons(cons(app,
10664 -cons(new_integer(9653294), 10715 +cons(new_integer(9656878),
10665 cons(cons(symbol, 10716 cons(cons(symbol,
10666 -cons(new_integer(9653293), 10717 +cons(new_integer(9656877),
10667 new_string("£sqlite3_errmsg"))), 10718 new_string("£sqlite3_errmsg"))),
10668 cons(cons(symbol, 10719 cons(cons(symbol,
10669 -cons(new_integer(9653300), 10720 +cons(new_integer(9656884),
10670 new_string("handle"))), 10721 new_string("handle"))),
10671 nil)))), 10722 nil)))),
10672 nil))))), 10723 nil))))),
10673 nil)))))), 10724 nil)))))),
10674 cons(cons(cons(new_string("true"), 10725 cons(cons(cons(new_string("true"),
10675 nil), 10726 nil),
10676 -cons(new_integer(9653002), 10727 +cons(new_integer(9656586),
10677 cons(app, 10728 cons(app,
10678 -cons(new_integer(9653006), 10729 +cons(new_integer(9656590),
10679 cons(cons(symbol, 10730 cons(cons(symbol,
10680 -cons(new_integer(9653005), 10731 +cons(new_integer(9656589),
10681 new_string("ok"))), 10732 new_string("ok"))),
10682 cons(cons(app, 10733 cons(cons(app,
10683 -cons(new_integer(9653016), 10734 +cons(new_integer(9656600),
10684 cons(cons(symbol, 10735 cons(cons(symbol,
10685 -cons(new_integer(9653015), 10736 +cons(new_integer(9656599),
10686 new_string("£database"))), 10737 new_string("£database"))),
10687 cons(cons(symbol, 10738 cons(cons(symbol,
10688 -cons(new_integer(9653022), 10739 +cons(new_integer(9656606),
10689 new_string("handle"))), 10740 new_string("handle"))),
10690 nil)))), 10741 nil)))),
10691 nil)))))), 10742 nil)))))),
@@ -10711,7 +10762,7 @@ nil), @@ -10711,7 +10762,7 @@ nil),
10711 nil), 10762 nil),
10712 nil))))),0,1); 10763 nil))))),0,1);
10713 10764
10714 -new_op_scheme(19312142,0, 10765 +new_op_scheme(19319310,0,
10715 new_string("£SQLite3DatumType"), 10766 new_string("£SQLite3DatumType"),
10716 cons(new_string("£get_cell_type"), 10767 cons(new_string("£get_cell_type"),
10717 nil), 10768 nil),
@@ -10722,11 +10773,11 @@ cons(cons(type_Int32, @@ -10722,11 +10773,11 @@ cons(cons(type_Int32,
10722 new_string("iCol")), 10773 new_string("iCol")),
10723 nil)), 10774 nil)),
10724 cons(avm, 10775 cons(avm,
10725 -cons(new_integer(9657608), 10776 +cons(new_integer(9661192),
10726 cons(sqlite3_column_type, 10777 cons(sqlite3_column_type,
10727 nil)))); 10778 nil))));
10728 10779
10729 -new_op_scheme(19316750,0, 10780 +new_op_scheme(19323918,0,
10730 type_String, 10781 type_String,
10731 cons(new_string("£get_cell_name"), 10782 cons(new_string("£get_cell_name"),
10732 nil), 10783 nil),
@@ -10737,11 +10788,11 @@ cons(cons(type_Int32, @@ -10737,11 +10788,11 @@ cons(cons(type_Int32,
10737 new_string("iCol")), 10788 new_string("iCol")),
10738 nil)), 10789 nil)),
10739 cons(avm, 10790 cons(avm,
10740 -cons(new_integer(9659912), 10791 +cons(new_integer(9663496),
10741 cons(sqlite3_column_name, 10792 cons(sqlite3_column_name,
10742 nil)))); 10793 nil))));
10743 10794
10744 -new_op_scheme(19321358,0, 10795 +new_op_scheme(19328526,0,
10745 type_Int32, 10796 type_Int32,
10746 cons(new_string("£sqlite3_column_int"), 10797 cons(new_string("£sqlite3_column_int"),
10747 nil), 10798 nil),
@@ -10752,11 +10803,11 @@ cons(cons(type_Int32, @@ -10752,11 +10803,11 @@ cons(cons(type_Int32,
10752 new_string("iCol")), 10803 new_string("iCol")),
10753 nil)), 10804 nil)),
10754 cons(avm, 10805 cons(avm,
10755 -cons(new_integer(9662216), 10806 +cons(new_integer(9665800),
10756 cons(sqlite3_column_int, 10807 cons(sqlite3_column_int,
10757 nil)))); 10808 nil))));
10758 10809
10759 -new_op_scheme(19325454,0, 10810 +new_op_scheme(19332622,0,
10760 type_Float, 10811 type_Float,
10761 cons(new_string("£sqlite3_column_double"), 10812 cons(new_string("£sqlite3_column_double"),
10762 nil), 10813 nil),
@@ -10767,11 +10818,11 @@ cons(cons(type_Int32, @@ -10767,11 +10818,11 @@ cons(cons(type_Int32,
10767 new_string("iCol")), 10818 new_string("iCol")),
10768 nil)), 10819 nil)),
10769 cons(avm, 10820 cons(avm,
10770 -cons(new_integer(9664264), 10821 +cons(new_integer(9667848),
10771 cons(sqlite3_column_double, 10822 cons(sqlite3_column_double,
10772 nil)))); 10823 nil))));
10773 10824
10774 -new_op_scheme(19329550,0, 10825 +new_op_scheme(19336718,0,
10775 type_String, 10826 type_String,
10776 cons(new_string("£sqlite3_column_text"), 10827 cons(new_string("£sqlite3_column_text"),
10777 nil), 10828 nil),
@@ -10782,11 +10833,11 @@ cons(cons(type_Int32, @@ -10782,11 +10833,11 @@ cons(cons(type_Int32,
10782 new_string("iCol")), 10833 new_string("iCol")),
10783 nil)), 10834 nil)),
10784 cons(avm, 10835 cons(avm,
10785 -cons(new_integer(9666312), 10836 +cons(new_integer(9669896),
10786 cons(sqlite3_column_text, 10837 cons(sqlite3_column_text,
10787 nil)))); 10838 nil))));
10788 10839
10789 -new_op_scheme(19333646,0, 10840 +new_op_scheme(19340814,0,
10790 type_ByteArray, 10841 type_ByteArray,
10791 cons(new_string("£sqlite3_column_blob"), 10842 cons(new_string("£sqlite3_column_blob"),
10792 nil), 10843 nil),
@@ -10797,11 +10848,11 @@ cons(cons(type_Int32, @@ -10797,11 +10848,11 @@ cons(cons(type_Int32,
10797 new_string("iCol")), 10848 new_string("iCol")),
10798 nil)), 10849 nil)),
10799 cons(avm, 10850 cons(avm,
10800 -cons(new_integer(9668360), 10851 +cons(new_integer(9671944),
10801 cons(sqlite3_column_blob, 10852 cons(sqlite3_column_blob,
10802 nil)))); 10853 nil))));
10803 10854
10804 -new_op_scheme(19337742,0, 10855 +new_op_scheme(19344910,0,
10805 new_string("SQLite3Datum"), 10856 new_string("SQLite3Datum"),
10806 cons(new_string("£get_cell_value"), 10857 cons(new_string("£get_cell_value"),
10807 nil), 10858 nil),
@@ -10812,112 +10863,112 @@ cons(cons(type_Int32, @@ -10812,112 +10863,112 @@ cons(cons(type_Int32,
10812 new_string("iCol")), 10863 new_string("iCol")),
10813 nil)), 10864 nil)),
10814 cons(cond, 10865 cons(cond,
10815 -cons(new_integer(9670406), 10866 +cons(new_integer(9673990),
10816 cons(cons(app, 10867 cons(cons(app,
10817 -cons(new_integer(9670422), 10868 +cons(new_integer(9674006),
10818 cons(cons(symbol, 10869 cons(cons(symbol,
10819 -cons(new_integer(9670421), 10870 +cons(new_integer(9674005),
10820 new_string("£get_cell_type"))), 10871 new_string("£get_cell_type"))),
10821 cons(cons(symbol, 10872 cons(cons(symbol,
10822 -cons(new_integer(9670426), 10873 +cons(new_integer(9674010),
10823 new_string("stmt"))), 10874 new_string("stmt"))),
10824 cons(cons(symbol, 10875 cons(cons(symbol,
10825 -cons(new_integer(9670431), 10876 +cons(new_integer(9674015),
10826 new_string("iCol"))), 10877 new_string("iCol"))),
10827 nil))))), 10878 nil))))),
10828 cons(cons(cons(new_string("£integer"), 10879 cons(cons(cons(new_string("£integer"),
10829 nil), 10880 nil),
10830 -cons(new_integer(9670934), 10881 +cons(new_integer(9674518),
10831 cons(app, 10882 cons(app,
10832 -cons(new_integer(9670944), 10883 +cons(new_integer(9674528),
10833 cons(cons(symbol, 10884 cons(cons(symbol,
10834 -cons(new_integer(9670942), 10885 +cons(new_integer(9674526),
10835 new_string("integer"))), 10886 new_string("integer"))),
10836 cons(cons(app, 10887 cons(cons(app,
10837 -cons(new_integer(9670964), 10888 +cons(new_integer(9674548),
10838 cons(cons(symbol, 10889 cons(cons(symbol,
10839 -cons(new_integer(9670963), 10890 +cons(new_integer(9674547),
10840 new_string("£sqlite3_column_int"))), 10891 new_string("£sqlite3_column_int"))),
10841 cons(cons(symbol, 10892 cons(cons(symbol,
10842 -cons(new_integer(9670968), 10893 +cons(new_integer(9674552),
10843 new_string("stmt"))), 10894 new_string("stmt"))),
10844 cons(cons(symbol, 10895 cons(cons(symbol,
10845 -cons(new_integer(9670973), 10896 +cons(new_integer(9674557),
10846 new_string("iCol"))), 10897 new_string("iCol"))),
10847 nil))))), 10898 nil))))),
10848 nil)))))), 10899 nil)))))),
10849 cons(cons(cons(new_string("£float"), 10900 cons(cons(cons(new_string("£float"),
10850 nil), 10901 nil),
10851 -cons(new_integer(9671190), 10902 +cons(new_integer(9674774),
10852 cons(app, 10903 cons(app,
10853 -cons(new_integer(9671200), 10904 +cons(new_integer(9674784),
10854 cons(cons(symbol, 10905 cons(cons(symbol,
10855 -cons(new_integer(9671196), 10906 +cons(new_integer(9674780),
10856 new_string("float"))), 10907 new_string("float"))),
10857 cons(cons(app, 10908 cons(cons(app,
10858 -cons(new_integer(9671223), 10909 +cons(new_integer(9674807),
10859 cons(cons(symbol, 10910 cons(cons(symbol,
10860 -cons(new_integer(9671222), 10911 +cons(new_integer(9674806),
10861 new_string("£sqlite3_column_double"))), 10912 new_string("£sqlite3_column_double"))),
10862 cons(cons(symbol, 10913 cons(cons(symbol,
10863 -cons(new_integer(9671227), 10914 +cons(new_integer(9674811),
10864 new_string("stmt"))), 10915 new_string("stmt"))),
10865 cons(cons(symbol, 10916 cons(cons(symbol,
10866 -cons(new_integer(9671232), 10917 +cons(new_integer(9674816),
10867 new_string("iCol"))), 10918 new_string("iCol"))),
10868 nil))))), 10919 nil))))),
10869 nil)))))), 10920 nil)))))),
10870 cons(cons(cons(new_string("£text"), 10921 cons(cons(cons(new_string("£text"),
10871 nil), 10922 nil),
10872 -cons(new_integer(9671446), 10923 +cons(new_integer(9675030),
10873 cons(app, 10924 cons(app,
10874 -cons(new_integer(9671456), 10925 +cons(new_integer(9675040),
10875 cons(cons(symbol, 10926 cons(cons(symbol,
10876 -cons(new_integer(9671451), 10927 +cons(new_integer(9675035),
10877 new_string("text"))), 10928 new_string("text"))),
10878 cons(cons(app, 10929 cons(cons(app,
10879 -cons(new_integer(9671477), 10930 +cons(new_integer(9675061),
10880 cons(cons(symbol, 10931 cons(cons(symbol,
10881 -cons(new_integer(9671476), 10932 +cons(new_integer(9675060),
10882 new_string("£sqlite3_column_text"))), 10933 new_string("£sqlite3_column_text"))),
10883 cons(cons(symbol, 10934 cons(cons(symbol,
10884 -cons(new_integer(9671481), 10935 +cons(new_integer(9675065),
10885 new_string("stmt"))), 10936 new_string("stmt"))),
10886 cons(cons(symbol, 10937 cons(cons(symbol,
10887 -cons(new_integer(9671486), 10938 +cons(new_integer(9675070),
10888 new_string("iCol"))), 10939 new_string("iCol"))),
10889 nil))))), 10940 nil))))),
10890 nil)))))), 10941 nil)))))),
10891 cons(cons(cons(new_string("£blob"), 10942 cons(cons(cons(new_string("£blob"),
10892 nil), 10943 nil),
10893 -cons(new_integer(9671702), 10944 +cons(new_integer(9675286),
10894 cons(app, 10945 cons(app,
10895 -cons(new_integer(9671712), 10946 +cons(new_integer(9675296),
10896 cons(cons(symbol, 10947 cons(cons(symbol,
10897 -cons(new_integer(9671707), 10948 +cons(new_integer(9675291),
10898 new_string("blob"))), 10949 new_string("blob"))),
10899 cons(cons(app, 10950 cons(cons(app,
10900 -cons(new_integer(9671733), 10951 +cons(new_integer(9675317),
10901 cons(cons(symbol, 10952 cons(cons(symbol,
10902 -cons(new_integer(9671732), 10953 +cons(new_integer(9675316),
10903 new_string("£sqlite3_column_blob"))), 10954 new_string("£sqlite3_column_blob"))),
10904 cons(cons(symbol, 10955 cons(cons(symbol,
10905 -cons(new_integer(9671737), 10956 +cons(new_integer(9675321),
10906 new_string("stmt"))), 10957 new_string("stmt"))),
10907 cons(cons(symbol, 10958 cons(cons(symbol,
10908 -cons(new_integer(9671742), 10959 +cons(new_integer(9675326),
10909 new_string("iCol"))), 10960 new_string("iCol"))),
10910 nil))))), 10961 nil))))),
10911 nil)))))), 10962 nil)))))),
10912 cons(cons(cons(new_string("£null"), 10963 cons(cons(cons(new_string("£null"),
10913 nil), 10964 nil),
10914 -cons(new_integer(9671958), 10965 +cons(new_integer(9675542),
10915 cons(symbol, 10966 cons(symbol,
10916 -cons(new_integer(9671963), 10967 +cons(new_integer(9675547),
10917 new_string("null"))))), 10968 new_string("null"))))),
10918 nil))))))))); 10969 nil)))))))));
10919 10970
10920 -new_op_scheme(19345422,0, 10971 +new_op_scheme(19352590,0,
10921 cons(functype, 10972 cons(functype,
10922 cons(cons(type_Int32, 10973 cons(cons(type_Int32,
10923 nil), 10974 nil),
@@ -10931,78 +10982,78 @@ cons(cons(type_Int32, @@ -10931,78 +10982,78 @@ cons(cons(type_Int32,
10931 new_string("column_count")), 10982 new_string("column_count")),
10932 nil)), 10983 nil)),
10933 cons(lambda, 10984 cons(lambda,
10934 -cons(new_integer(9674257), 10985 +cons(new_integer(9677841),
10935 cons(cons(cons(type_Int32, 10986 cons(cons(cons(type_Int32,
10936 new_string("i")), 10987 new_string("i")),
10937 nil), 10988 nil),
10938 cons(cond, 10989 cons(cond,
10939 -cons(new_integer(9674504), 10990 +cons(new_integer(9678088),
10940 cons(cons(of_type, 10991 cons(cons(of_type,
10941 -cons(new_integer(9674504), 10992 +cons(new_integer(9678088),
10942 cons(new_string("Bool"), 10993 cons(new_string("Bool"),
10943 cons(app, 10994 cons(app,
10944 -cons(new_integer(9674508), 10995 +cons(new_integer(9678092),
10945 cons(cons(symbol, 10996 cons(cons(symbol,
10946 -cons(new_integer(9674508), 10997 +cons(new_integer(9678092),
10947 new_string("<"))), 10998 new_string("<"))),
10948 cons(cons(symbol, 10999 cons(cons(symbol,
10949 -cons(new_integer(9674506), 11000 +cons(new_integer(9678090),
10950 new_string("i"))), 11001 new_string("i"))),
10951 cons(cons(integer_10, 11002 cons(cons(integer_10,
10952 -cons(new_integer(9674510), 11003 +cons(new_integer(9678094),
10953 nil)), 11004 nil)),
10954 nil)))))))), 11005 nil)))))))),
10955 cons(cons(cons(new_string("false"), 11006 cons(cons(cons(new_string("false"),
10956 nil), 11007 nil),
10957 -cons(new_integer(9674547), 11008 +cons(new_integer(9678131),
10958 cons(cond, 11009 cons(cond,
10959 -cons(new_integer(9674760), 11010 +cons(new_integer(9678344),
10960 cons(cons(of_type, 11011 cons(cons(of_type,
10961 -cons(new_integer(9674760), 11012 +cons(new_integer(9678344),
10962 cons(new_string("Bool"), 11013 cons(new_string("Bool"),
10963 cons(app, 11014 cons(app,
10964 -cons(new_integer(9674765), 11015 +cons(new_integer(9678349),
10965 cons(cons(symbol, 11016 cons(cons(symbol,
10966 -cons(new_integer(9674765), 11017 +cons(new_integer(9678349),
10967 new_string("=<"))), 11018 new_string("=<"))),
10968 cons(cons(symbol, 11019 cons(cons(symbol,
10969 -cons(new_integer(9674778), 11020 +cons(new_integer(9678362),
10970 new_string("column_count"))), 11021 new_string("column_count"))),
10971 cons(cons(symbol, 11022 cons(cons(symbol,
10972 -cons(new_integer(9674762), 11023 +cons(new_integer(9678346),
10973 new_string("i"))), 11024 new_string("i"))),
10974 nil)))))))), 11025 nil)))))))),
10975 cons(cons(cons(new_string("false"), 11026 cons(cons(cons(new_string("false"),
10976 nil), 11027 nil),
10977 -cons(new_integer(9674803), 11028 +cons(new_integer(9678387),
10978 cons(app, 11029 cons(app,
10979 -cons(new_integer(9675030), 11030 +cons(new_integer(9678614),
10980 cons(cons(symbol, 11031 cons(cons(symbol,
10981 -cons(new_integer(9675029), 11032 +cons(new_integer(9678613),
10982 new_string("£get_cell_value"))), 11033 new_string("£get_cell_value"))),
10983 cons(cons(symbol, 11034 cons(cons(symbol,
10984 -cons(new_integer(9675034), 11035 +cons(new_integer(9678618),
10985 new_string("stmt"))), 11036 new_string("stmt"))),
10986 cons(cons(symbol, 11037 cons(cons(symbol,
10987 -cons(new_integer(9675036), 11038 +cons(new_integer(9678620),
10988 new_string("i"))), 11039 new_string("i"))),
10989 nil))))))), 11040 nil))))))),
10990 cons(cons(cons(new_string("true"), 11041 cons(cons(cons(new_string("true"),
10991 nil), 11042 nil),
10992 -cons(new_integer(9674783), 11043 +cons(new_integer(9678367),
10993 cons(symbol, 11044 cons(symbol,
10994 -cons(new_integer(9674798), 11045 +cons(new_integer(9678382),
10995 new_string("no_such_column"))))), 11046 new_string("no_such_column"))))),
10996 nil))))))), 11047 nil))))))),
10997 cons(cons(cons(new_string("true"), 11048 cons(cons(cons(new_string("true"),
10998 nil), 11049 nil),
10999 -cons(new_integer(9674527), 11050 +cons(new_integer(9678111),
11000 cons(symbol, 11051 cons(symbol,
11001 -cons(new_integer(9674542), 11052 +cons(new_integer(9678126),
11002 new_string("no_such_column"))))), 11053 new_string("no_such_column"))))),
11003 nil))))))))); 11054 nil)))))))));
11004 11055
11005 -new_op_scheme(19351054,0, 11056 +new_op_scheme(19358222,0,
11006 cons(functype, 11057 cons(functype,
11007 cons(cons(type_Int32, 11058 cons(cons(type_Int32,
11008 nil), 11059 nil),
@@ -11016,84 +11067,84 @@ cons(cons(type_Int32, @@ -11016,84 +11067,84 @@ cons(cons(type_Int32,
11016 new_string("column_count")), 11067 new_string("column_count")),
11017 nil)), 11068 nil)),
11018 cons(lambda, 11069 cons(lambda,
11019 -cons(new_integer(9677073), 11070 +cons(new_integer(9680657),
11020 cons(cons(cons(type_Int32, 11071 cons(cons(cons(type_Int32,
11021 new_string("i")), 11072 new_string("i")),
11022 nil), 11073 nil),
11023 cons(cond, 11074 cons(cond,
11024 -cons(new_integer(9677320), 11075 +cons(new_integer(9680904),
11025 cons(cons(of_type, 11076 cons(cons(of_type,
11026 -cons(new_integer(9677320), 11077 +cons(new_integer(9680904),
11027 cons(new_string("Bool"), 11078 cons(new_string("Bool"),
11028 cons(app, 11079 cons(app,
11029 -cons(new_integer(9677324), 11080 +cons(new_integer(9680908),
11030 cons(cons(symbol, 11081 cons(cons(symbol,
11031 -cons(new_integer(9677324), 11082 +cons(new_integer(9680908),
11032 new_string("<"))), 11083 new_string("<"))),
11033 cons(cons(symbol, 11084 cons(cons(symbol,
11034 -cons(new_integer(9677322), 11085 +cons(new_integer(9680906),
11035 new_string("i"))), 11086 new_string("i"))),
11036 cons(cons(integer_10, 11087 cons(cons(integer_10,
11037 -cons(new_integer(9677326), 11088 +cons(new_integer(9680910),
11038 nil)), 11089 nil)),
11039 nil)))))))), 11090 nil)))))))),
11040 cons(cons(cons(new_string("false"), 11091 cons(cons(cons(new_string("false"),
11041 nil), 11092 nil),
11042 -cons(new_integer(9677363), 11093 +cons(new_integer(9680947),
11043 cons(cond, 11094 cons(cond,
11044 -cons(new_integer(9677576), 11095 +cons(new_integer(9681160),
11045 cons(cons(of_type, 11096 cons(cons(of_type,
11046 -cons(new_integer(9677576), 11097 +cons(new_integer(9681160),
11047 cons(new_string("Bool"), 11098 cons(new_string("Bool"),
11048 cons(app, 11099 cons(app,
11049 -cons(new_integer(9677581), 11100 +cons(new_integer(9681165),
11050 cons(cons(symbol, 11101 cons(cons(symbol,
11051 -cons(new_integer(9677581), 11102 +cons(new_integer(9681165),
11052 new_string("=<"))), 11103 new_string("=<"))),
11053 cons(cons(symbol, 11104 cons(cons(symbol,
11054 -cons(new_integer(9677594), 11105 +cons(new_integer(9681178),
11055 new_string("column_count"))), 11106 new_string("column_count"))),
11056 cons(cons(symbol, 11107 cons(cons(symbol,
11057 -cons(new_integer(9677578), 11108 +cons(new_integer(9681162),
11058 new_string("i"))), 11109 new_string("i"))),
11059 nil)))))))), 11110 nil)))))))),
11060 cons(cons(cons(new_string("false"), 11111 cons(cons(cons(new_string("false"),
11061 nil), 11112 nil),
11062 -cons(new_integer(9677619), 11113 +cons(new_integer(9681203),
11063 cons(app, 11114 cons(app,
11064 -cons(new_integer(9677835), 11115 +cons(new_integer(9681419),
11065 cons(cons(symbol, 11116 cons(cons(symbol,
11066 -cons(new_integer(9677834), 11117 +cons(new_integer(9681418),
11067 new_string("text"))), 11118 new_string("text"))),
11068 cons(cons(app, 11119 cons(cons(app,
11069 -cons(new_integer(9677850), 11120 +cons(new_integer(9681434),
11070 cons(cons(symbol, 11121 cons(cons(symbol,
11071 -cons(new_integer(9677849), 11122 +cons(new_integer(9681433),
11072 new_string("£get_cell_name"))), 11123 new_string("£get_cell_name"))),
11073 cons(cons(symbol, 11124 cons(cons(symbol,
11074 -cons(new_integer(9677854), 11125 +cons(new_integer(9681438),
11075 new_string("stmt"))), 11126 new_string("stmt"))),
11076 cons(cons(symbol, 11127 cons(cons(symbol,
11077 -cons(new_integer(9677856), 11128 +cons(new_integer(9681440),
11078 new_string("i"))), 11129 new_string("i"))),
11079 nil))))), 11130 nil))))),
11080 nil)))))), 11131 nil)))))),
11081 cons(cons(cons(new_string("true"), 11132 cons(cons(cons(new_string("true"),
11082 nil), 11133 nil),
11083 -cons(new_integer(9677599), 11134 +cons(new_integer(9681183),
11084 cons(symbol, 11135 cons(symbol,
11085 -cons(new_integer(9677614), 11136 +cons(new_integer(9681198),
11086 new_string("no_such_column"))))), 11137 new_string("no_such_column"))))),
11087 nil))))))), 11138 nil))))))),
11088 cons(cons(cons(new_string("true"), 11139 cons(cons(cons(new_string("true"),
11089 nil), 11140 nil),
11090 -cons(new_integer(9677343), 11141 +cons(new_integer(9680927),
11091 cons(symbol, 11142 cons(symbol,
11092 -cons(new_integer(9677358), 11143 +cons(new_integer(9680942),
11093 new_string("no_such_column"))))), 11144 new_string("no_such_column"))))),
11094 nil))))))))); 11145 nil)))))))));
11095 11146
11096 -new_op_scheme(19357198,0, 11147 +new_op_scheme(19364366,0,
11097 type_Int32, 11148 type_Int32,
11098 cons(new_string("£column_count"), 11149 cons(new_string("£column_count"),
11099 nil), 11150 nil),
@@ -11102,7 +11153,7 @@ new_integer(9)), @@ -11102,7 +11153,7 @@ new_integer(9)),
11102 new_string("stmt")), 11153 new_string("stmt")),
11103 nil), 11154 nil),
11104 cons(avm, 11155 cons(avm,
11105 -cons(new_integer(9679880), 11156 +cons(new_integer(9683464),
11106 cons(sqlite3_column_count, 11157 cons(sqlite3_column_count,
11107 nil)))); 11158 nil))));
11108 11159
@@ -11120,7 +11171,7 @@ nil), @@ -11120,7 +11171,7 @@ nil),
11120 nil), 11171 nil),
11121 nil))),0,1); 11172 nil))),0,1);
11122 11173
11123 -new_op_scheme(19363342,0, 11174 +new_op_scheme(19370510,0,
11124 new_string("£SQLite3NextRowResult"), 11175 new_string("£SQLite3NextRowResult"),
11125 cons(new_string("£go_to_next_row"), 11176 cons(new_string("£go_to_next_row"),
11126 nil), 11177 nil),
@@ -11129,11 +11180,11 @@ new_integer(9)), @@ -11129,11 +11180,11 @@ new_integer(9)),
11129 new_string("stmt")), 11180 new_string("stmt")),
11130 nil), 11181 nil),
11131 cons(avm, 11182 cons(avm,
11132 -cons(new_integer(9682952), 11183 +cons(new_integer(9686536),
11133 cons(sqlite3_go_to_next_row, 11184 cons(sqlite3_go_to_next_row,
11134 nil)))); 11185 nil))));
11135 11186
11136 -new_op_scheme(19366926,0, 11187 +new_op_scheme(19374094,0,
11137 cons(functype, 11188 cons(functype,
11138 cons(cons(new_string("SQLite3HeadersOrRow"), 11189 cons(cons(new_string("SQLite3HeadersOrRow"),
11139 nil), 11190 nil),
@@ -11151,131 +11202,131 @@ new_string(&quot;Bool&quot;)), @@ -11151,131 +11202,131 @@ new_string(&quot;Bool&quot;)),
11151 new_string("first")), 11202 new_string("first")),
11152 nil))), 11203 nil))),
11153 cons(with, 11204 cons(with,
11154 -cons(new_integer(9685270), 11205 +cons(new_integer(9688854),
11155 cons(new_string("num_columns"), 11206 cons(new_string("num_columns"),
11156 cons(cons(app, 11207 cons(cons(app,
11157 -cons(new_integer(9685285), 11208 +cons(new_integer(9688869),
11158 cons(cons(symbol, 11209 cons(cons(symbol,
11159 -cons(new_integer(9685284), 11210 +cons(new_integer(9688868),
11160 new_string("£column_count"))), 11211 new_string("£column_count"))),
11161 cons(cons(symbol, 11212 cons(cons(symbol,
11162 -cons(new_integer(9685289), 11213 +cons(new_integer(9688873),
11163 new_string("stmt"))), 11214 new_string("stmt"))),
11164 nil)))), 11215 nil)))),
11165 cons(lambda, 11216 cons(lambda,
11166 -cons(new_integer(9685540), 11217 +cons(new_integer(9689124),
11167 cons(cons(cons(new_string("SQLite3HeadersOrRow"), 11218 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
11168 new_string("askFor")), 11219 new_string("askFor")),
11169 nil), 11220 nil),
11170 cons(cond, 11221 cons(cond,
11171 -cons(new_integer(9685776), 11222 +cons(new_integer(9689360),
11172 cons(cons(symbol, 11223 cons(cons(symbol,
11173 -cons(new_integer(9685783), 11224 +cons(new_integer(9689367),
11174 new_string("askFor"))), 11225 new_string("askFor"))),
11175 cons(cons(cons(new_string("headers"), 11226 cons(cons(cons(new_string("headers"),
11176 nil), 11227 nil),
11177 -cons(new_integer(9686308), 11228 +cons(new_integer(9689892),
11178 cons(app, 11229 cons(app,
11179 -cons(new_integer(9686313), 11230 +cons(new_integer(9689897),
11180 cons(cons(symbol, 11231 cons(cons(symbol,
11181 -cons(new_integer(9686312), 11232 +cons(new_integer(9689896),
11182 new_string("row"))), 11233 new_string("row"))),
11183 cons(cons(app, 11234 cons(cons(app,
11184 -cons(new_integer(9686324), 11235 +cons(new_integer(9689908),
11185 cons(cons(symbol, 11236 cons(cons(symbol,
11186 -cons(new_integer(9686323), 11237 +cons(new_integer(9689907),
11187 new_string("£make_cols"))), 11238 new_string("£make_cols"))),
11188 cons(cons(symbol, 11239 cons(cons(symbol,
11189 -cons(new_integer(9686328), 11240 +cons(new_integer(9689912),
11190 new_string("stmt"))), 11241 new_string("stmt"))),
11191 cons(cons(symbol, 11242 cons(cons(symbol,
11192 -cons(new_integer(9686341), 11243 +cons(new_integer(9689925),
11193 new_string("num_columns"))), 11244 new_string("num_columns"))),
11194 nil))))), 11245 nil))))),
11195 nil)))))), 11246 nil)))))),
11196 cons(cons(cons(new_string("next_row"), 11247 cons(cons(cons(new_string("next_row"),
11197 nil), 11248 nil),
11198 -cons(new_integer(9686565), 11249 +cons(new_integer(9690149),
11199 cons(cond, 11250 cons(cond,
11200 -cons(new_integer(9686803), 11251 +cons(new_integer(9690387),
11201 cons(cons(of_type, 11252 cons(cons(of_type,
11202 -cons(new_integer(9686803), 11253 +cons(new_integer(9690387),
11203 cons(new_string("Bool"), 11254 cons(new_string("Bool"),
11204 cons(anb_read, 11255 cons(anb_read,
11205 -cons(new_integer(9686805), 11256 +cons(new_integer(9690389),
11206 cons(symbol, 11257 cons(symbol,
11207 -cons(new_integer(9686810), 11258 +cons(new_integer(9690394),
11208 new_string("first")))))))), 11259 new_string("first")))))))),
11209 cons(cons(cons(new_string("false"), 11260 cons(cons(cons(new_string("false"),
11210 nil), 11261 nil),
11211 -cons(new_integer(9687317), 11262 +cons(new_integer(9690901),
11212 cons(cond, 11263 cons(cond,
11213 -cons(new_integer(9687320), 11264 +cons(new_integer(9690904),
11214 cons(cons(app, 11265 cons(cons(app,
11215 -cons(new_integer(9687337), 11266 +cons(new_integer(9690921),
11216 cons(cons(symbol, 11267 cons(cons(symbol,
11217 -cons(new_integer(9687336), 11268 +cons(new_integer(9690920),
11218 new_string("£go_to_next_row"))), 11269 new_string("£go_to_next_row"))),
11219 cons(cons(symbol, 11270 cons(cons(symbol,
11220 -cons(new_integer(9687341), 11271 +cons(new_integer(9690925),
11221 new_string("stmt"))), 11272 new_string("stmt"))),
11222 nil)))), 11273 nil)))),
11223 cons(cons(cons(new_string("no_more_row"), 11274 cons(cons(cons(new_string("no_more_row"),
11224 nil), 11275 nil),
11225 -cons(new_integer(9687851), 11276 +cons(new_integer(9691435),
11226 cons(symbol, 11277 cons(symbol,
11227 -cons(new_integer(9687863), 11278 +cons(new_integer(9691447),
11228 new_string("no_more_row"))))), 11279 new_string("no_more_row"))))),
11229 cons(cons(cons(new_string("row"), 11280 cons(cons(cons(new_string("row"),
11230 nil), 11281 nil),
11231 -cons(new_integer(9688107), 11282 +cons(new_integer(9691691),
11232 cons(app, 11283 cons(app,
11233 -cons(new_integer(9688112), 11284 +cons(new_integer(9691696),
11234 cons(cons(symbol, 11285 cons(cons(symbol,
11235 -cons(new_integer(9688111), 11286 +cons(new_integer(9691695),
11236 new_string("row"))), 11287 new_string("row"))),
11237 cons(cons(app, 11288 cons(cons(app,
11238 -cons(new_integer(9688122), 11289 +cons(new_integer(9691706),
11239 cons(cons(symbol, 11290 cons(cons(symbol,
11240 -cons(new_integer(9688121), 11291 +cons(new_integer(9691705),
11241 new_string("£make_row"))), 11292 new_string("£make_row"))),
11242 cons(cons(symbol, 11293 cons(cons(symbol,
11243 -cons(new_integer(9688126), 11294 +cons(new_integer(9691710),
11244 new_string("stmt"))), 11295 new_string("stmt"))),
11245 cons(cons(symbol, 11296 cons(cons(symbol,
11246 -cons(new_integer(9688138), 11297 +cons(new_integer(9691722),
11247 new_string("num_columns"))), 11298 new_string("num_columns"))),
11248 nil))))), 11299 nil))))),
11249 nil)))))), 11300 nil)))))),
11250 cons(cons(cons(new_string("error"), 11301 cons(cons(cons(new_string("error"),
11251 nil), 11302 nil),
11252 -cons(new_integer(9688363), 11303 +cons(new_integer(9691947),
11253 cons(app, 11304 cons(app,
11254 -cons(new_integer(9688370), 11305 +cons(new_integer(9691954),
11255 cons(cons(symbol, 11306 cons(cons(symbol,
11256 -cons(new_integer(9688369), 11307 +cons(new_integer(9691953),
11257 new_string("error"))), 11308 new_string("error"))),
11258 cons(cons(app, 11309 cons(cons(app,
11259 -cons(new_integer(9688378), 11310 +cons(new_integer(9691962),
11260 cons(cons(symbol, 11311 cons(cons(symbol,
11261 -cons(new_integer(9688377), 11312 +cons(new_integer(9691961),
11262 new_string("sqlite3"))), 11313 new_string("sqlite3"))),
11263 cons(cons(app, 11314 cons(cons(app,
11264 -cons(new_integer(9688395), 11315 +cons(new_integer(9691979),
11265 cons(cons(symbol, 11316 cons(cons(symbol,
11266 -cons(new_integer(9688394), 11317 +cons(new_integer(9691978),
11267 new_string("£sqlite3_errcode"))), 11318 new_string("£sqlite3_errcode"))),
11268 cons(cons(symbol, 11319 cons(cons(symbol,
11269 -cons(new_integer(9688397), 11320 +cons(new_integer(9691981),
11270 new_string("db"))), 11321 new_string("db"))),
11271 nil)))), 11322 nil)))),
11272 cons(cons(app, 11323 cons(cons(app,
11273 -cons(new_integer(9688415), 11324 +cons(new_integer(9691999),
11274 cons(cons(symbol, 11325 cons(cons(symbol,
11275 -cons(new_integer(9688414), 11326 +cons(new_integer(9691998),
11276 new_string("£sqlite3_errmsg"))), 11327 new_string("£sqlite3_errmsg"))),
11277 cons(cons(symbol, 11328 cons(cons(symbol,
11278 -cons(new_integer(9688417), 11329 +cons(new_integer(9692001),
11279 new_string("db"))), 11330 new_string("db"))),
11280 nil)))), 11331 nil)))),
11281 nil))))), 11332 nil))))),
@@ -11283,38 +11334,38 @@ nil)))))), @@ -11283,38 +11334,38 @@ nil)))))),
11283 nil)))))))), 11334 nil)))))))),
11284 cons(cons(cons(new_string("true"), 11335 cons(cons(cons(new_string("true"),
11285 nil), 11336 nil),
11286 -cons(new_integer(9687061), 11337 +cons(new_integer(9690645),
11287 cons(cond, 11338 cons(cond,
11288 -cons(new_integer(9687078), 11339 +cons(new_integer(9690662),
11289 cons(cons(of_type, 11340 cons(cons(of_type,
11290 -cons(new_integer(9687078), 11341 +cons(new_integer(9690662),
11291 cons(new_string("One"), 11342 cons(new_string("One"),
11292 cons(anb_write, 11343 cons(anb_write,
11293 -cons(new_integer(9687071), 11344 +cons(new_integer(9690655),
11294 cons(cons(symbol, 11345 cons(cons(symbol,
11295 -cons(new_integer(9687068), 11346 +cons(new_integer(9690652),
11296 new_string("first"))), 11347 new_string("first"))),
11297 cons(symbol, 11348 cons(symbol,
11298 -cons(new_integer(9687077), 11349 +cons(new_integer(9690661),
11299 new_string("false"))))))))), 11350 new_string("false"))))))))),
11300 cons(cons(cons(new_string("unique"), 11351 cons(cons(cons(new_string("unique"),
11301 nil), 11352 nil),
11302 -cons(new_integer(9687078), 11353 +cons(new_integer(9690662),
11303 cons(app, 11354 cons(app,
11304 -cons(new_integer(9687083), 11355 +cons(new_integer(9690667),
11305 cons(cons(symbol, 11356 cons(cons(symbol,
11306 -cons(new_integer(9687082), 11357 +cons(new_integer(9690666),
11307 new_string("row"))), 11358 new_string("row"))),
11308 cons(cons(app, 11359 cons(cons(app,
11309 -cons(new_integer(9687093), 11360 +cons(new_integer(9690677),
11310 cons(cons(symbol, 11361 cons(cons(symbol,
11311 -cons(new_integer(9687092), 11362 +cons(new_integer(9690676),
11312 new_string("£make_row"))), 11363 new_string("£make_row"))),
11313 cons(cons(symbol, 11364 cons(cons(symbol,
11314 -cons(new_integer(9687097), 11365 +cons(new_integer(9690681),
11315 new_string("stmt"))), 11366 new_string("stmt"))),
11316 cons(cons(symbol, 11367 cons(cons(symbol,
11317 -cons(new_integer(9687109), 11368 +cons(new_integer(9690693),
11318 new_string("num_columns"))), 11369 new_string("num_columns"))),
11319 nil))))), 11370 nil))))),
11320 nil)))))), 11371 nil)))))),
@@ -11322,7 +11373,7 @@ nil)))))), @@ -11322,7 +11373,7 @@ nil)))))),
11322 nil))))))), 11373 nil))))))),
11323 nil))))))))))))); 11374 nil)))))))))))));
11324 11375
11325 -new_op_scheme(19379214,0, 11376 +new_op_scheme(19386382,0,
11326 cons(app_ts, 11377 cons(app_ts,
11327 cons(new_string("Result"), 11378 cons(new_string("Result"),
11328 cons(type_Int32, 11379 cons(type_Int32,
@@ -11338,11 +11389,11 @@ cons(cons(type_String, @@ -11338,11 +11389,11 @@ cons(cons(type_String,
11338 new_string("sql_command")), 11389 new_string("sql_command")),
11339 nil)), 11390 nil)),
11340 cons(avm, 11391 cons(avm,
11341 -cons(new_integer(9691144), 11392 +cons(new_integer(9694728),
11342 cons(sqlite3_prepare, 11393 cons(sqlite3_prepare,
11343 nil)))); 11394 nil))));
11344 11395
11345 -new_op_scheme(19383836,1, 11396 +new_op_scheme(19391004,1,
11346 cons(app_ts, 11397 cons(app_ts,
11347 cons(new_string("Result"), 11398 cons(new_string("Result"),
11348 cons(new_string("SQLite3Error"), 11399 cons(new_string("SQLite3Error"),
@@ -11359,54 +11410,54 @@ cons(cons(type_String, @@ -11359,54 +11410,54 @@ cons(cons(type_String,
11359 new_string("sql_command")), 11410 new_string("sql_command")),
11360 nil)), 11411 nil)),
11361 cons(cond, 11412 cons(cond,
11362 -cons(new_integer(9693446), 11413 +cons(new_integer(9697030),
11363 cons(cons(symbol, 11414 cons(cons(symbol,
11364 -cons(new_integer(9693449), 11415 +cons(new_integer(9697033),
11365 new_string("db"))), 11416 new_string("db"))),
11366 cons(cons(cons(new_string("£database"), 11417 cons(cons(cons(new_string("£database"),
11367 cons(new_string("db1"), 11418 cons(new_string("db1"),
11368 nil)), 11419 nil)),
11369 -cons(new_integer(9693472), 11420 +cons(new_integer(9697056),
11370 cons(protect, 11421 cons(protect,
11371 -cons(new_integer(9693707), 11422 +cons(new_integer(9697291),
11372 cons(cond, 11423 cons(cond,
11373 -cons(new_integer(9693958), 11424 +cons(new_integer(9697542),
11374 cons(cons(app, 11425 cons(cons(app,
11375 -cons(new_integer(9693968), 11426 +cons(new_integer(9697552),
11376 cons(cons(symbol, 11427 cons(cons(symbol,
11377 -cons(new_integer(9693967), 11428 +cons(new_integer(9697551),
11378 new_string("£prepare"))), 11429 new_string("£prepare"))),
11379 cons(cons(symbol, 11430 cons(cons(symbol,
11380 -cons(new_integer(9693971), 11431 +cons(new_integer(9697555),
11381 new_string("db1"))), 11432 new_string("db1"))),
11382 cons(cons(symbol, 11433 cons(cons(symbol,
11383 -cons(new_integer(9693983), 11434 +cons(new_integer(9697567),
11384 new_string("sql_command"))), 11435 new_string("sql_command"))),
11385 nil))))), 11436 nil))))),
11386 cons(cons(cons(new_string("error"), 11437 cons(cons(cons(new_string("error"),
11387 cons(new_string("i"), 11438 cons(new_string("i"),
11388 nil)), 11439 nil)),
11389 -cons(new_integer(9694485), 11440 +cons(new_integer(9698069),
11390 cons(app, 11441 cons(app,
11391 -cons(new_integer(9694492), 11442 +cons(new_integer(9698076),
11392 cons(cons(symbol, 11443 cons(cons(symbol,
11393 -cons(new_integer(9694491), 11444 +cons(new_integer(9698075),
11394 new_string("error"))), 11445 new_string("error"))),
11395 cons(cons(app, 11446 cons(cons(app,
11396 -cons(new_integer(9694500), 11447 +cons(new_integer(9698084),
11397 cons(cons(symbol, 11448 cons(cons(symbol,
11398 -cons(new_integer(9694499), 11449 +cons(new_integer(9698083),
11399 new_string("sqlite3"))), 11450 new_string("sqlite3"))),
11400 cons(cons(symbol, 11451 cons(cons(symbol,
11401 -cons(new_integer(9694501), 11452 +cons(new_integer(9698085),
11402 new_string("i"))), 11453 new_string("i"))),
11403 cons(cons(app, 11454 cons(cons(app,
11404 -cons(new_integer(9694518), 11455 +cons(new_integer(9698102),
11405 cons(cons(symbol, 11456 cons(cons(symbol,
11406 -cons(new_integer(9694517), 11457 +cons(new_integer(9698101),
11407 new_string("£sqlite3_errmsg"))), 11458 new_string("£sqlite3_errmsg"))),
11408 cons(cons(symbol, 11459 cons(cons(symbol,
11409 -cons(new_integer(9694521), 11460 +cons(new_integer(9698105),
11410 new_string("db1"))), 11461 new_string("db1"))),
11411 nil)))), 11462 nil)))),
11412 nil))))), 11463 nil))))),
@@ -11414,103 +11465,103 @@ nil)))))), @@ -11414,103 +11465,103 @@ nil)))))),
11414 cons(cons(cons(new_string("ok"), 11465 cons(cons(cons(new_string("ok"),
11415 cons(new_string("stmt"), 11466 cons(new_string("stmt"),
11416 nil)), 11467 nil)),
11417 -cons(new_integer(9694741), 11468 +cons(new_integer(9698325),
11418 cons(cond, 11469 cons(cond,
11419 -cons(new_integer(9694988), 11470 +cons(new_integer(9698572),
11420 cons(cons(app, 11471 cons(cons(app,
11421 -cons(new_integer(9695005), 11472 +cons(new_integer(9698589),
11422 cons(cons(symbol, 11473 cons(cons(symbol,
11423 -cons(new_integer(9695004), 11474 +cons(new_integer(9698588),
11424 new_string("£go_to_next_row"))), 11475 new_string("£go_to_next_row"))),
11425 cons(cons(symbol, 11476 cons(cons(symbol,
11426 -cons(new_integer(9695009), 11477 +cons(new_integer(9698593),
11427 new_string("stmt"))), 11478 new_string("stmt"))),
11428 nil)))), 11479 nil)))),
11429 cons(cons(cons(new_string("no_more_row"), 11480 cons(cons(cons(new_string("no_more_row"),
11430 nil), 11481 nil),
11431 -cons(new_integer(9695520), 11482 +cons(new_integer(9699104),
11432 cons(app, 11483 cons(app,
11433 -cons(new_integer(9695524), 11484 +cons(new_integer(9699108),
11434 cons(cons(symbol, 11485 cons(cons(symbol,
11435 -cons(new_integer(9695523), 11486 +cons(new_integer(9699107),
11436 new_string("ok"))), 11487 new_string("ok"))),
11437 cons(cons(lambda, 11488 cons(cons(lambda,
11438 -cons(new_integer(9695551), 11489 +cons(new_integer(9699135),
11439 cons(cons(cons(new_string("SQLite3HeadersOrRow"), 11490 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
11440 new_string("_")), 11491 new_string("_")),
11441 nil), 11492 nil),
11442 cons(symbol, 11493 cons(symbol,
11443 -cons(new_integer(9695563), 11494 +cons(new_integer(9699147),
11444 new_string("no_more_row")))))), 11495 new_string("no_more_row")))))),
11445 nil)))))), 11496 nil)))))),
11446 cons(cons(cons(new_string("row"), 11497 cons(cons(cons(new_string("row"),
11447 nil), 11498 nil),
11448 -cons(new_integer(9695776), 11499 +cons(new_integer(9699360),
11449 cons(with, 11500 cons(with,
11450 -cons(new_integer(9695789), 11501 +cons(new_integer(9699373),
11451 cons(new_string("first"), 11502 cons(new_string("first"),
11452 cons(cons(app, 11503 cons(cons(app,
11453 -cons(new_integer(9695794), 11504 +cons(new_integer(9699378),
11454 cons(cons(symbol, 11505 cons(cons(symbol,
11455 -cons(new_integer(9695793), 11506 +cons(new_integer(9699377),
11456 new_string("var"))), 11507 new_string("var"))),
11457 cons(cons(of_type, 11508 cons(cons(of_type,
11458 -cons(new_integer(9695795), 11509 +cons(new_integer(9699379),
11459 cons(new_string("Bool"), 11510 cons(new_string("Bool"),
11460 cons(symbol, 11511 cons(symbol,
11461 -cons(new_integer(9695804), 11512 +cons(new_integer(9699388),
11462 new_string("true")))))), 11513 new_string("true")))))),
11463 nil)))), 11514 nil)))),
11464 cons(app, 11515 cons(app,
11465 -cons(new_integer(9696036), 11516 +cons(new_integer(9699620),
11466 cons(cons(symbol, 11517 cons(cons(symbol,
11467 -cons(new_integer(9696036), 11518 +cons(new_integer(9699620),
11468 new_string("ok"))), 11519 new_string("ok"))),
11469 cons(cons(app, 11520 cons(cons(app,
11470 -cons(new_integer(9696049), 11521 +cons(new_integer(9699633),
11471 cons(cons(symbol, 11522 cons(cons(symbol,
11472 -cons(new_integer(9696048), 11523 +cons(new_integer(9699632),
11473 new_string("£make_cursor"))), 11524 new_string("£make_cursor"))),
11474 cons(cons(symbol, 11525 cons(cons(symbol,
11475 -cons(new_integer(9696052), 11526 +cons(new_integer(9699636),
11476 new_string("db1"))), 11527 new_string("db1"))),
11477 cons(cons(symbol, 11528 cons(cons(symbol,
11478 -cons(new_integer(9696057), 11529 +cons(new_integer(9699641),
11479 new_string("stmt"))), 11530 new_string("stmt"))),
11480 cons(cons(symbol, 11531 cons(cons(symbol,
11481 -cons(new_integer(9696063), 11532 +cons(new_integer(9699647),
11482 new_string("first"))), 11533 new_string("first"))),
11483 nil)))))), 11534 nil)))))),
11484 nil)))))))))), 11535 nil)))))))))),
11485 cons(cons(cons(new_string("error"), 11536 cons(cons(cons(new_string("error"),
11486 nil), 11537 nil),
11487 -cons(new_integer(9696288), 11538 +cons(new_integer(9699872),
11488 cons(app, 11539 cons(app,
11489 -cons(new_integer(9696295), 11540 +cons(new_integer(9699879),
11490 cons(cons(symbol, 11541 cons(cons(symbol,
11491 -cons(new_integer(9696294), 11542 +cons(new_integer(9699878),
11492 new_string("error"))), 11543 new_string("error"))),
11493 cons(cons(app, 11544 cons(cons(app,
11494 -cons(new_integer(9696303), 11545 +cons(new_integer(9699887),
11495 cons(cons(symbol, 11546 cons(cons(symbol,
11496 -cons(new_integer(9696302), 11547 +cons(new_integer(9699886),
11497 new_string("sqlite3"))), 11548 new_string("sqlite3"))),
11498 cons(cons(app, 11549 cons(cons(app,
11499 -cons(new_integer(9696320), 11550 +cons(new_integer(9699904),
11500 cons(cons(symbol, 11551 cons(cons(symbol,
11501 -cons(new_integer(9696319), 11552 +cons(new_integer(9699903),
11502 new_string("£sqlite3_errcode"))), 11553 new_string("£sqlite3_errcode"))),
11503 cons(cons(symbol, 11554 cons(cons(symbol,
11504 -cons(new_integer(9696323), 11555 +cons(new_integer(9699907),
11505 new_string("db1"))), 11556 new_string("db1"))),
11506 nil)))), 11557 nil)))),
11507 cons(cons(app, 11558 cons(cons(app,
11508 -cons(new_integer(9696341), 11559 +cons(new_integer(9699925),
11509 cons(cons(symbol, 11560 cons(cons(symbol,
11510 -cons(new_integer(9696340), 11561 +cons(new_integer(9699924),
11511 new_string("£sqlite3_errmsg"))), 11562 new_string("£sqlite3_errmsg"))),
11512 cons(cons(symbol, 11563 cons(cons(symbol,
11513 -cons(new_integer(9696344), 11564 +cons(new_integer(9699928),
11514 new_string("db1"))), 11565 new_string("db1"))),
11515 nil)))), 11566 nil)))),
11516 nil))))), 11567 nil))))),
anubis_dev/include/bytecode.h
  Show/Hide comments   View file @53870d7
@@ -505,6 +505,7 @@ typedef enum { @@ -505,6 +505,7 @@ typedef enum {
505 sc_item(sqlite3_errcode,0)\ 505 sc_item(sqlite3_errcode,0)\
506 sc_item(sqlite3_errmsg,0)\ 506 sc_item(sqlite3_errmsg,0)\
507 sc_item(create_udp_client_socket,0)\ 507 sc_item(create_udp_client_socket,0)\
  508 + sc_item(create_udp_client_broadcast_socket,0)\
508 sc_item(create_udp_server_socket,0)\ 509 sc_item(create_udp_server_socket,0)\
509 sc_item(udp_receive,0)\ 510 sc_item(udp_receive,0)\
510 sc_item(udp_send,0)\ 511 sc_item(udp_send,0)\
anubis_dev/include/minver.h
  Show/Hide comments   View file @53870d7
1 #define min_version (7) 1 #define min_version (7)
2 -#define rel_version (15) 2 +#define rel_version (16)
3 3
anubis_dev/library/predefined.anubis
  Show/Hide comments   View file @53870d7
@@ -1815,7 +1815,8 @@ public type Create_UDP_Client_Socket_Result: @@ -1815,7 +1815,8 @@ public type Create_UDP_Client_Socket_Result:
1815 define Maybe(RWAddr(Int8)) 1815 define Maybe(RWAddr(Int8))
1816 £create_udp_client_socket 1816 £create_udp_client_socket
1817 = £avm{ create_udp_client_socket }. 1817 = £avm{ create_udp_client_socket }.
1818 - 1818 +
  1819 +
1819 public define Create_UDP_Client_Socket_Result 1820 public define Create_UDP_Client_Socket_Result
1820 create_udp_client_socket 1821 create_udp_client_socket
1821 = 1822 =
@@ -1824,7 +1825,20 @@ public define Create_UDP_Client_Socket_Result @@ -1824,7 +1825,20 @@ public define Create_UDP_Client_Socket_Result
1824 failure then cannot_create_the_socket, 1825 failure then cannot_create_the_socket,
1825 success(a) then ok(£udp_socket(a)) 1826 success(a) then ok(£udp_socket(a))
1826 }. 1827 }.
  1828 +
  1829 +define Maybe(RWAddr(Int8))
  1830 + £create_udp_client_broadcast_socket
  1831 + = £avm{ create_udp_client_broadcast_socket }.
1827 1832
  1833 +public define Create_UDP_Client_Socket_Result
  1834 + create_udp_client_broadcast_socket
  1835 + =
  1836 + if £create_udp_client_broadcast_socket is
  1837 + {
  1838 + failure then cannot_create_the_socket,
  1839 + success(a) then ok(£udp_socket(a))
  1840 + }.
  1841 +
1828 1842
1829 *** (6.6) Sending and receiving UDP packets. 1843 *** (6.6) Sending and receiving UDP packets.
1830 1844
anubis_dev/vm/doc/history.txt
  Show/Hide comments   View file @53870d7
@@ -6,6 +6,11 @@ @@ -6,6 +6,11 @@
6 * [>] Notification importante 6 * [>] Notification importante
7 ************************************************ 7 ************************************************
8 8
  9 +************************************
  10 +* Version 1.7.16.0 (27/02/2007) DR *
  11 +************************************
  12 +[+] add the creation of udp broadcast socket
  13 +
9 *********************************** 14 ***********************************
10 * Version 1.7.5.0 (16/09/2006) DR * 15 * Version 1.7.5.0 (16/09/2006) DR *
11 *********************************** 16 ***********************************
anubis_dev/vm/src/syscall.cpp
  Show/Hide comments   View file @53870d7
@@ -4941,7 +4941,98 @@ ci_decl(syscall) @@ -4941,7 +4941,98 @@ ci_decl(syscall)
4941 MAM(m_IP) += 1+2; 4941 MAM(m_IP) += 1+2;
4942 return; 4942 return;
4943 4943
  4944 +
  4945 + case sc_create_udp_client_broadcast_socket:
  4946 + {
  4947 + U32 seg_RWAddr;
  4948 + U32 sock;
  4949 +
  4950 + /* Try to allocate the segment for 'success'. */
  4951 + if ((MAM(m_R) = MAM(m_allocator)->AllocateDataSegment(2)) == 0)
  4952 + {
  4953 + MAM(m_status) = need_more_memory;
  4954 + { MAM(m_steps) = 0; return; }
  4955 + }
  4956 +
  4957 + /* Try to allocate the segment for 'RWAddr(Int8)'. */
  4958 + if ((seg_RWAddr = MAM(m_allocator)->AllocateDataSegment(5)) == 0)
  4959 + {
  4960 + MAM(m_allocator)->FreeDataSegment((U32 *)MAM(m_R));
  4961 + MAM(m_status) = need_more_memory;
  4962 + { MAM(m_steps) = 0; return; }
  4963 + }
  4964 +
  4965 + /* Try to create the UDP socket. */
  4966 + sock = socket(PF_INET, SOCK_DGRAM, 0);
  4967 +
  4968 +#ifdef WIN32
  4969 + if (sock == INVALID_SOCKET)
  4970 +#else
  4971 + if (sock < 0)
  4972 +#endif
  4973 + {
  4974 + /* cannot create the socket */
  4975 + MAM(m_allocator)->FreeDataSegment((U32 *)MAM(m_R));
  4976 + MAM(m_allocator)->FreeDataSegment((U32 *)seg_RWAddr);
  4977 + MAM(m_R) = 0; /* failure */
  4978 + }
  4979 + else
  4980 + {
  4981 + /* make the socket non blocking (this is required to
  4982 + make connect return immediatly) */
  4983 + struct linger the_linger;
  4984 +
  4985 + the_linger.l_onoff = 1; /* transmit all before closing */
  4986 + the_linger.l_linger = 100; /* timeout = 1 sec */
  4987 + setsockopt(sock, SOL_SOCKET,SO_LINGER,(char*)&the_linger,sizeof(struct linger));
  4988 + int must_broadcast = 1;
  4989 + setsockopt(sock, SOL_SOCKET, SO_BROADCAST,(char*)&must_broadcast,sizeof(int));
  4990 +
  4991 +#if defined (_LINUX_) || (__BEOS__)
  4992 + {
  4993 + int oldflags = fcntl(sock,F_GETFL,0);
  4994 + if (oldflags == -1)
  4995 + {
  4996 + shutdown(sock, 2);
  4997 + closesocket(sock);
  4998 + MAM(m_allocator)->FreeDataSegment((U32 *)MAM(m_R));
  4999 + MAM(m_allocator)->FreeDataSegment((U32 *)seg_RWAddr);
  5000 + MAM(m_R) = 0; /* failure */
  5001 + MAM(m_IP) += 1+2;
  5002 + return;
  5003 + }
  5004 + oldflags |= O_NONBLOCK;
  5005 + fcntl(sock,F_SETFL,oldflags);
  5006 + bool keepAlive = true;
  5007 + setsockopt(sock, SOL_SOCKET, SO_KEEPALIVE, (char *) &keepAlive, sizeof(bool));
  5008 + }
  5009 +#endif
  5010 +#ifdef WIN32
  5011 + {
  5012 + u_long argp = 1;
  5013 + ioctlsocket(sock,FIONBIO,&argp);
  5014 + bool keepAlive = true;
  5015 + setsockopt(sock, SOL_SOCKET, SO_KEEPALIVE, (char *) &keepAlive, sizeof(bool));
  5016 + }
  5017 +#endif
  5018 + /* success: put the socket at the right place, and return our construction. */
  5019 + /* Note: the UDP client socket does not need to be bind. */
  5020 +
  5021 + /* Chain the segments together. */
  5022 + ((U32 *)(MAM(m_R)))[1] = seg_RWAddr;
  5023 +
  5024 + /* Put type and mode in the network connection. */
  5025 + ((U8 *)(seg_RWAddr))[4] = conn_network;
  5026 + ((U8 *)(seg_RWAddr))[5] = conn_read|conn_write;
4944 5027
  5028 + /* Put the C socket handle */
  5029 + ((U32 *)(seg_RWAddr))[2] = sock;
  5030 + MAM(m_R) |= 1; /* don't forget alternative number for 'success' */
  5031 + }
  5032 + }
  5033 + MAM(m_IP) += 1+2;
  5034 + return;
  5035 +
4945 5036
4946 /***** create_udp_server_socket ***** 5037 /***** create_udp_server_socket *****
4947 5038
anubis_dev/vm/src/win32/vm.rc
  Show/Hide comments   View file @53870d7
@@ -28,8 +28,8 @@ LANGUAGE LANG_FRENCH, SUBLANG_FRENCH @@ -28,8 +28,8 @@ LANGUAGE LANG_FRENCH, SUBLANG_FRENCH
28 // 28 //
29 29
30 VS_VERSION_INFO VERSIONINFO 30 VS_VERSION_INFO VERSIONINFO
31 - FILEVERSION 1,7,15,0  
32 - PRODUCTVERSION 1,7,15,0 31 + FILEVERSION 1,7,16,0
  32 + PRODUCTVERSION 1,7,16,0
33 FILEFLAGSMASK 0x3fL 33 FILEFLAGSMASK 0x3fL
34 #ifdef _DEBUG 34 #ifdef _DEBUG
35 FILEFLAGS 0x1L 35 FILEFLAGS 0x1L
@@ -47,14 +47,14 @@ BEGIN @@ -47,14 +47,14 @@ BEGIN
47 VALUE "Comments", "Anubis Run Time\0" 47 VALUE "Comments", "Anubis Run Time\0"
48 VALUE "CompanyName", "Alain Prouté & David René\0" 48 VALUE "CompanyName", "Alain Prouté & David René\0"
49 VALUE "FileDescription", "anbexec\0" 49 VALUE "FileDescription", "anbexec\0"
50 - VALUE "FileVersion", "1, 7, 15, 0, 0\0"" 50 + VALUE "FileVersion", "1, 7, 16, 0, 0\0""
51 VALUE "InternalName", "anbexec\0" 51 VALUE "InternalName", "anbexec\0"
52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0" 52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0"
53 VALUE "LegalTrademarks", "\0" 53 VALUE "LegalTrademarks", "\0"
54 VALUE "OriginalFilename", "anbexec.exe\0" 54 VALUE "OriginalFilename", "anbexec.exe\0"
55 VALUE "PrivateBuild", "\0" 55 VALUE "PrivateBuild", "\0"
56 VALUE "ProductName", "anbexec\0" 56 VALUE "ProductName", "anbexec\0"
57 - VALUE "ProductVersion", "1, 7, 15, 0, 0\0"" 57 + VALUE "ProductVersion", "1, 7, 16, 0, 0\0""
58 VALUE "SpecialBuild", "\0" 58 VALUE "SpecialBuild", "\0"
59 END 59 END
60 END 60 END