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 28 //
29 29  
30 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 33 FILEFLAGSMASK 0x3fL
34 34 #ifdef _DEBUG
35 35 FILEFLAGS 0x1L
... ... @@ -47,14 +47,14 @@ BEGIN
47 47 VALUE "Comments", "\0"
48 48 VALUE "CompanyName", "Alain Prouté\0"
49 49 VALUE "FileDescription", "anubis\0"
50   - VALUE "FileVersion", "1, 7, 15, 0, 0\0""
  50 + VALUE "FileVersion", "1, 7, 16, 0, 0\0""
51 51 VALUE "InternalName", "anubis\0"
52 52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0"
53 53 VALUE "LegalTrademarks", "\0"
54 54 VALUE "OriginalFilename", "anubis.exe\0"
55 55 VALUE "PrivateBuild", "\0"
56 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 58 VALUE "SpecialBuild", "\0"
59 59 END
60 60 END
... ...
anubis_dev/compiler/src/predef.aux
  Show/Hide comments   View file @53870d7
... ... @@ -2749,13 +2749,31 @@ nil),
2749 2749 nil,
2750 2750 no_term);
2751 2751  
2752   -new_op_scheme(17708572,1,
  2752 +new_op_scheme(17709084,1,
2753 2753 new_string("Create_UDP_Client_Socket_Result"),
2754 2754 cons(new_string("create_udp_client_socket"),
2755 2755 nil),
2756 2756 nil,
2757 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 2777 new_type_scheme(new_integer(0),0,
2760 2778 new_string("UDP_Send_Result"),
2761 2779 nil,
... ... @@ -2767,7 +2785,7 @@ nil),
2767 2785 nil),
2768 2786 nil)),0,1);
2769 2787  
2770   -new_op_scheme(17719836,1,
  2788 +new_op_scheme(17727004,1,
2771 2789 new_string("UDP_Send_Result"),
2772 2790 cons(new_string("udp_send"),
2773 2791 nil),
... ... @@ -2815,7 +2833,7 @@ new_string("ip_port")),
2815 2833 nil))))),
2816 2834 nil))),0,1);
2817 2835  
2818   -new_op_scheme(17735708,1,
  2836 +new_op_scheme(17742876,1,
2819 2837 new_string("UDP_Receive_Result"),
2820 2838 cons(new_string("udp_receive"),
2821 2839 nil),
... ... @@ -2859,7 +2877,7 @@ noname),
2859 2877 nil)),
2860 2878 nil)))),0,1);
2861 2879  
2862   -new_op_scheme(17748494,0,
  2880 +new_op_scheme(17755662,0,
2863 2881 new_string("£Create_UDP_Server_Socket_Result"),
2864 2882 cons(new_string("£create_udp_server_socket"),
2865 2883 nil),
... ... @@ -2870,7 +2888,7 @@ new_string("ip_port")),
2870 2888 nil)),
2871 2889 no_term);
2872 2890  
2873   -new_op_scheme(17754126,0,
  2891 +new_op_scheme(17761294,0,
2874 2892 new_string("One"),
2875 2893 cons(new_string("£run_udp_server"),
2876 2894 nil),
... ... @@ -2917,7 +2935,7 @@ noname),
2917 2935 nil)),
2918 2936 nil)))),0,1);
2919 2937  
2920   -new_op_scheme(17779228,1,
  2938 +new_op_scheme(17786396,1,
2921 2939 cons(type_Var,
2922 2940 new_utvar("T")),
2923 2941 cons(new_string("var"),
... ... @@ -2927,7 +2945,7 @@ new_string("init")),
2927 2945 nil),
2928 2946 no_term);
2929 2947  
2930   -new_op_scheme(17780252,1,
  2948 +new_op_scheme(17787420,1,
2931 2949 new_string("Start_UDP_Server_Result"),
2932 2950 cons(new_string("start_udp_server"),
2933 2951 nil),
... ... @@ -2954,7 +2972,7 @@ new_string("notify")),
2954 2972 nil))))),
2955 2973 no_term);
2956 2974  
2957   -new_op_scheme(17795100,1,
  2975 +new_op_scheme(17802268,1,
2958 2976 new_string("Bool"),
2959 2977 cons(new_string("is_down"),
2960 2978 nil),
... ... @@ -2963,7 +2981,7 @@ new_string("server")),
2963 2981 nil),
2964 2982 no_term);
2965 2983  
2966   -new_op_scheme(17800732,1,
  2984 +new_op_scheme(17807900,1,
2967 2985 new_string("One"),
2968 2986 cons(new_string("shutdown"),
2969 2987 nil),
... ... @@ -2972,7 +2990,7 @@ new_string("server")),
2972 2990 nil),
2973 2991 no_term);
2974 2992  
2975   -new_op_scheme(17814044,1,
  2993 +new_op_scheme(17821212,1,
2976 2994 cons(app_ts,
2977 2995 cons(new_string("Maybe"),
2978 2996 cons(new_string("Int8"),
... ... @@ -2994,7 +3012,7 @@ new_string("operands")),
2994 3012 nil))),
2995 3013 no_term);
2996 3014  
2997   -new_op_scheme(17825820,1,
  3015 +new_op_scheme(17832988,1,
2998 3016 cons(app_ts,
2999 3017 cons(new_string("Maybe"),
3000 3018 cons(new_string("Int8"),
... ... @@ -3011,7 +3029,7 @@ new_string("operands")),
3011 3029 nil)),
3012 3030 no_term);
3013 3031  
3014   -new_op_scheme(17829916,1,
  3032 +new_op_scheme(17837084,1,
3015 3033 cons(app_ts,
3016 3034 cons(new_string("Maybe"),
3017 3035 cons(new_string("Int8"),
... ... @@ -3050,7 +3068,7 @@ noname),
3050 3068 nil))))),
3051 3069 nil),0,1);
3052 3070  
3053   -new_op_scheme(17855516,1,
  3071 +new_op_scheme(17862684,1,
3054 3072 cons(app_ts,
3055 3073 cons(new_string("Maybe"),
3056 3074 cons(new_string("ExecuteControl"),
... ... @@ -3088,7 +3106,7 @@ new_string("code")),
3088 3106 nil)),
3089 3107 nil))),0,1);
3090 3108  
3091   -new_op_scheme(17871388,1,
  3109 +new_op_scheme(17878556,1,
3092 3110 new_string("ExecuteStatus"),
3093 3111 cons(new_string("check_execute_status"),
3094 3112 nil),
... ... @@ -3097,7 +3115,7 @@ new_string("ec")),
3097 3115 nil),
3098 3116 no_term);
3099 3117  
3100   -new_op_scheme(17879580,1,
  3118 +new_op_scheme(17886748,1,
3101 3119 type_Int32,
3102 3120 cons(new_string("random"),
3103 3121 nil),
... ... @@ -3106,7 +3124,7 @@ new_string("n")),
3106 3124 nil),
3107 3125 no_term);
3108 3126  
3109   -new_op_scheme(17891868,1,
  3127 +new_op_scheme(17899036,1,
3110 3128 cons(type_Var,
3111 3129 new_utvar("T")),
3112 3130 cons(new_string("var"),
... ... @@ -3116,7 +3134,7 @@ new_string("init")),
3116 3134 nil),
3117 3135 no_term);
3118 3136  
3119   -new_op_scheme(17940508,1,
  3137 +new_op_scheme(17947676,1,
3120 3138 type_Int32,
3121 3139 cons(new_string("var_id"),
3122 3140 nil),
... ... @@ -3126,7 +3144,7 @@ new_string("v")),
3126 3144 nil),
3127 3145 no_term);
3128 3146  
3129   -new_op_scheme(17948174,0,
  3147 +new_op_scheme(17955342,0,
3130 3148 cons(type_MVar,
3131 3149 new_utvar("T")),
3132 3150 cons(new_string("£mvar"),
... ... @@ -3140,7 +3158,7 @@ new_string("bw")),
3140 3158 nil))),
3141 3159 no_term);
3142 3160  
3143   -new_op_scheme(17951260,1,
  3161 +new_op_scheme(17958428,1,
3144 3162 cons(type_MVar,
3145 3163 new_utvar("T")),
3146 3164 cons(new_string("mvar"),
... ... @@ -3152,7 +3170,7 @@ new_string("init")),
3152 3170 nil)),
3153 3171 no_term);
3154 3172  
3155   -new_op_scheme(17972764,1,
  3173 +new_op_scheme(17979932,1,
3156 3174 type_Int32,
3157 3175 cons(new_string("length"),
3158 3176 nil),
... ... @@ -3162,7 +3180,7 @@ new_string("mv")),
3162 3180 nil),
3163 3181 no_term);
3164 3182  
3165   -new_op_scheme(17976348,1,
  3183 +new_op_scheme(17983516,1,
3166 3184 cons(type_MVar,
3167 3185 new_utvar("T")),
3168 3186 cons(new_string("+"),
... ... @@ -3176,7 +3194,7 @@ new_string("mv2")),
3176 3194 nil)),
3177 3195 no_term);
3178 3196  
3179   -new_op_scheme(17980444,1,
  3197 +new_op_scheme(17987612,1,
3180 3198 type_Int32,
3181 3199 cons(new_string("mvar_id"),
3182 3200 nil),
... ... @@ -3205,7 +3223,7 @@ new_string("£index")),
3205 3223 nil)))),
3206 3224 nil),0,1);
3207 3225  
3208   -new_op_scheme(17993756,1,
  3226 +new_op_scheme(18000924,1,
3209 3227 cons(app_ts,
3210 3228 cons(new_string("MonitoringTicket"),
3211 3229 cons(new_utvar("T"),
... ... @@ -3223,7 +3241,7 @@ new_string("monitor")),
3223 3241 nil)),
3224 3242 no_term);
3225 3243  
3226   -new_op_scheme(18035228,1,
  3244 +new_op_scheme(18042396,1,
3227 3245 type_Int32,
3228 3246 cons(new_string("now"),
3229 3247 nil),
... ... @@ -3242,7 +3260,7 @@ new_string("microseconds")),
3242 3260 nil))),
3243 3261 nil),0,1);
3244 3262  
3245   -new_op_scheme(18039836,1,
  3263 +new_op_scheme(18047004,1,
3246 3264 new_string("UTime"),
3247 3265 cons(new_string("now"),
3248 3266 nil),
... ... @@ -3275,7 +3293,7 @@ new_string("daylight_saving_time")),
3275 3293 nil)))))))))),
3276 3294 nil),0,1);
3277 3295  
3278   -new_op_scheme(18052124,1,
  3296 +new_op_scheme(18059292,1,
3279 3297 new_string("Date_and_Time"),
3280 3298 cons(new_string("convert_time"),
3281 3299 nil),
... ... @@ -3284,7 +3302,7 @@ new_string("t")),
3284 3302 nil),
3285 3303 no_term);
3286 3304  
3287   -new_op_scheme(18052636,1,
  3305 +new_op_scheme(18059804,1,
3288 3306 type_Int32,
3289 3307 cons(new_string("convert_time"),
3290 3308 nil),
... ... @@ -3293,7 +3311,7 @@ new_string("d")),
3293 3311 nil),
3294 3312 no_term);
3295 3313  
3296   -new_op_scheme(18055708,1,
  3314 +new_op_scheme(18062876,1,
3297 3315 new_string("One"),
3298 3316 cons(new_string("set_time"),
3299 3317 nil),
... ... @@ -3302,7 +3320,7 @@ new_string("time")),
3302 3320 nil),
3303 3321 no_term);
3304 3322  
3305   -new_op_scheme(18059804,1,
  3323 +new_op_scheme(18066972,1,
3306 3324 new_string("One"),
3307 3325 cons(new_string("set_time_zone"),
3308 3326 nil),
... ... @@ -3311,7 +3329,7 @@ new_string("time_zone_name")),
3311 3329 nil),
3312 3330 no_term);
3313 3331  
3314   -new_op_scheme(18065948,1,
  3332 +new_op_scheme(18073116,1,
3315 3333 new_string("One"),
3316 3334 cons(new_string("print"),
3317 3335 nil),
... ... @@ -3320,7 +3338,7 @@ new_string("s")),
3320 3338 nil),
3321 3339 no_term);
3322 3340  
3323   -new_op_scheme(18069518,0,
  3341 +new_op_scheme(18076686,0,
3324 3342 new_string("One"),
3325 3343 cons(new_string("print"),
3326 3344 nil),
... ... @@ -3334,7 +3352,7 @@ new_string("from")),
3334 3352 nil))),
3335 3353 no_term);
3336 3354  
3337   -new_op_scheme(18078748,1,
  3355 +new_op_scheme(18085916,1,
3338 3356 new_string("One"),
3339 3357 cons(new_string("print"),
3340 3358 nil),
... ... @@ -3346,7 +3364,7 @@ new_string("s")),
3346 3364 nil)),
3347 3365 no_term);
3348 3366  
3349   -new_op_scheme(18082844,1,
  3367 +new_op_scheme(18090012,1,
3350 3368 new_string("One"),
3351 3369 cons(new_string("print"),
3352 3370 nil),
... ... @@ -3355,7 +3373,7 @@ new_string("n")),
3355 3373 nil),
3356 3374 no_term);
3357 3375  
3358   -new_op_scheme(18086428,1,
  3376 +new_op_scheme(18093596,1,
3359 3377 new_string("Bool"),
3360 3378 cons(new_string("&"),
3361 3379 nil),
... ... @@ -3366,7 +3384,7 @@ new_string("y")),
3366 3384 nil)),
3367 3385 no_term);
3368 3386  
3369   -new_op_scheme(18088476,1,
  3387 +new_op_scheme(18095644,1,
3370 3388 cons(app_ts,
3371 3389 cons(new_string("List"),
3372 3390 cons(new_utvar("T"),
... ... @@ -3386,7 +3404,7 @@ new_string("l2")),
3386 3404 nil)),
3387 3405 no_term);
3388 3406  
3389   -new_op_scheme(18095132,1,
  3407 +new_op_scheme(18102300,1,
3390 3408 cons(app_ts,
3391 3409 cons(new_string("List"),
3392 3410 cons(new_utvar("T"),
... ... @@ -3401,7 +3419,7 @@ new_string("l")),
3401 3419 nil),
3402 3420 no_term);
3403 3421  
3404   -new_op_scheme(18098716,1,
  3422 +new_op_scheme(18105884,1,
3405 3423 cons(app_ts,
3406 3424 cons(new_string("List"),
3407 3425 cons(new_utvar("T"),
... ... @@ -3421,7 +3439,7 @@ new_string("l2")),
3421 3439 nil)),
3422 3440 no_term);
3423 3441  
3424   -new_op_scheme(18104860,1,
  3442 +new_op_scheme(18112028,1,
3425 3443 new_string("Bool"),
3426 3444 cons(new_string("member"),
3427 3445 nil),
... ... @@ -3435,7 +3453,7 @@ new_string("x")),
3435 3453 nil)),
3436 3454 no_term);
3437 3455  
3438   -new_op_scheme(18118684,1,
  3456 +new_op_scheme(18125852,1,
3439 3457 cons(app_ts,
3440 3458 cons(new_string("List"),
3441 3459 cons(new_utvar("B"),
... ... @@ -3455,7 +3473,7 @@ new_string("l")),
3455 3473 nil)),
3456 3474 no_term);
3457 3475  
3458   -new_op_scheme(18130972,1,
  3476 +new_op_scheme(18138140,1,
3459 3477 type_String,
3460 3478 cons(new_string("get_password"),
3461 3479 nil),
... ... @@ -3509,7 +3527,7 @@ new_string("module")),
3509 3527 nil)),
3510 3528 nil))))),0,1);
3511 3529  
3512   -new_op_scheme(18150428,1,
  3530 +new_op_scheme(18157596,1,
3513 3531 cons(app_ts,
3514 3532 cons(new_string("LoadModuleResult"),
3515 3533 cons(new_utvar("T"),
... ... @@ -3521,7 +3539,7 @@ new_string("module_name")),
3521 3539 nil),
3522 3540 no_term);
3523 3541  
3524   -new_op_scheme(18179100,1,
  3542 +new_op_scheme(18186268,1,
3525 3543 type_ByteArray,
3526 3544 cons(new_string("serialize"),
3527 3545 nil),
... ... @@ -3530,7 +3548,7 @@ new_string("d")),
3530 3548 nil),
3531 3549 no_term);
3532 3550  
3533   -new_op_scheme(18181660,1,
  3551 +new_op_scheme(18188828,1,
3534 3552 cons(app_ts,
3535 3553 cons(new_string("Maybe"),
3536 3554 cons(new_utvar("T"),
... ... @@ -3576,7 +3594,7 @@ noname),
3576 3594 nil)),
3577 3595 nil)))),0,1);
3578 3596  
3579   -new_op_scheme(18214940,1,
  3597 +new_op_scheme(18222108,1,
3580 3598 new_string("SaveResult"),
3581 3599 cons(new_string("save"),
3582 3600 nil),
... ... @@ -3587,7 +3605,7 @@ new_string("file_name")),
3587 3605 nil)),
3588 3606 no_term);
3589 3607  
3590   -new_op_scheme(18221596,1,
  3608 +new_op_scheme(18228764,1,
3591 3609 cons(app_ts,
3592 3610 cons(new_string("RetrieveResult"),
3593 3611 cons(new_utvar("T"),
... ... @@ -3599,7 +3617,7 @@ new_string("file_name")),
3599 3617 nil),
3600 3618 no_term);
3601 3619  
3602   -new_op_scheme(18256398,0,
  3620 +new_op_scheme(18263566,0,
3603 3621 type_ByteArray,
3604 3622 cons(new_string("£md5"),
3605 3623 nil),
... ... @@ -3608,7 +3626,7 @@ new_string("s")),
3608 3626 nil),
3609 3627 no_term);
3610 3628  
3611   -new_op_scheme(18256910,0,
  3629 +new_op_scheme(18264078,0,
3612 3630 type_ByteArray,
3613 3631 cons(new_string("£sha1"),
3614 3632 nil),
... ... @@ -3617,7 +3635,7 @@ new_string("s")),
3617 3635 nil),
3618 3636 no_term);
3619 3637  
3620   -new_op_scheme(18258972,1,
  3638 +new_op_scheme(18266140,1,
3621 3639 type_ByteArray,
3622 3640 cons(new_string("md5"),
3623 3641 nil),
... ... @@ -3626,7 +3644,7 @@ new_string("d")),
3626 3644 nil),
3627 3645 no_term);
3628 3646  
3629   -new_op_scheme(18259484,1,
  3647 +new_op_scheme(18266652,1,
3630 3648 type_ByteArray,
3631 3649 cons(new_string("sha1"),
3632 3650 nil),
... ... @@ -3645,7 +3663,7 @@ noname),
3645 3663 nil)),
3646 3664 nil),0,1);
3647 3665  
3648   -new_op_scheme(18273806,0,
  3666 +new_op_scheme(18280974,0,
3649 3667 new_string("£BlowfishKey"),
3650 3668 cons(new_string("£create_blowfish_key"),
3651 3669 nil),
... ... @@ -3654,7 +3672,7 @@ new_string("key")),
3654 3672 nil),
3655 3673 no_term);
3656 3674  
3657   -new_op_scheme(18278414,0,
  3675 +new_op_scheme(18285582,0,
3658 3676 new_string("One"),
3659 3677 cons(new_string("£blowfish_encrypt_block"),
3660 3678 nil),
... ... @@ -3669,7 +3687,7 @@ new_string("offset")),
3669 3687 nil)))),
3670 3688 no_term);
3671 3689  
3672   -new_op_scheme(18283534,0,
  3690 +new_op_scheme(18290702,0,
3673 3691 new_string("One"),
3674 3692 cons(new_string("£blowfish_decrypt_block"),
3675 3693 nil),
... ... @@ -3684,7 +3702,7 @@ new_string("offset")),
3684 3702 nil)))),
3685 3703 no_term);
3686 3704  
3687   -new_op_scheme(18288654,0,
  3705 +new_op_scheme(18295822,0,
3688 3706 type_ByteArray,
3689 3707 cons(new_string("£make_blowfish_dest_for_encryption"),
3690 3708 nil),
... ... @@ -3693,7 +3711,7 @@ new_string("size")),
3693 3711 nil),
3694 3712 no_term);
3695 3713  
3696   -new_op_scheme(18296334,0,
  3714 +new_op_scheme(18303502,0,
3697 3715 new_string("Int8"),
3698 3716 cons(new_string("£bytes_in_last_block"),
3699 3717 nil),
... ... @@ -3702,7 +3720,7 @@ new_string("s")),
3702 3720 nil),
3703 3721 no_term);
3704 3722  
3705   -new_op_scheme(18300942,0,
  3723 +new_op_scheme(18308110,0,
3706 3724 type_ByteArray,
3707 3725 cons(new_string("£blowfish_encrypt"),
3708 3726 nil),
... ... @@ -3717,7 +3735,7 @@ new_string("i")),
3717 3735 nil)))),
3718 3736 no_term);
3719 3737  
3720   -new_op_scheme(18308622,0,
  3738 +new_op_scheme(18315790,0,
3721 3739 type_ByteArray,
3722 3740 cons(new_string("£blowfish_decrypt"),
3723 3741 nil),
... ... @@ -3732,7 +3750,7 @@ new_string("i")),
3732 3750 nil)))),
3733 3751 no_term);
3734 3752  
3735   -new_op_scheme(18317852,1,
  3753 +new_op_scheme(18325020,1,
3736 3754 type_ByteArray,
3737 3755 cons(new_string("blowfish_encrypt"),
3738 3756 nil),
... ... @@ -3743,7 +3761,7 @@ new_string("datum")),
3743 3761 nil)),
3744 3762 no_term);
3745 3763  
3746   -new_op_scheme(18322972,1,
  3764 +new_op_scheme(18330140,1,
3747 3765 cons(app_ts,
3748 3766 cons(new_string("Maybe"),
3749 3767 cons(new_utvar("T"),
... ... @@ -3803,7 +3821,7 @@ noname),
3803 3821 nil)),
3804 3822 nil),0,1);
3805 3823  
3806   -new_op_scheme(18371086,0,
  3824 +new_op_scheme(18378254,0,
3807 3825 type_String,
3808 3826 cons(new_string("£to_string"),
3809 3827 nil),
... ... @@ -3813,7 +3831,7 @@ new_string("ptr")),
3813 3831 nil),
3814 3832 no_term);
3815 3833  
3816   -new_op_scheme(18374172,1,
  3834 +new_op_scheme(18381340,1,
3817 3835 type_String,
3818 3836 cons(new_string("to_string"),
3819 3837 nil),
... ... @@ -3842,7 +3860,7 @@ nil),
3842 3860 nil),
3843 3861 nil))))),0,1);
3844 3862  
3845   -new_op_scheme(18384910,0,
  3863 +new_op_scheme(18392078,0,
3846 3864 new_string("Result_trust_X509_for_ever"),
3847 3865 cons(new_string("£trust_for_ever"),
3848 3866 nil),
... ... @@ -3852,7 +3870,7 @@ new_string("ptr")),
3852 3870 nil),
3853 3871 no_term);
3854 3872  
3855   -new_op_scheme(18387996,1,
  3873 +new_op_scheme(18395164,1,
3856 3874 new_string("Result_trust_X509_for_ever"),
3857 3875 cons(new_string("trust_for_ever"),
3858 3876 nil),
... ... @@ -3878,7 +3896,7 @@ noname),
3878 3896 nil)),
3879 3897 nil))),0,1);
3880 3898  
3881   -new_op_scheme(18401806,0,
  3899 +new_op_scheme(18408974,0,
3882 3900 new_string("£SSL_client_wrap_Result"),
3883 3901 cons(new_string("£ssl_client_wrap"),
3884 3902 nil),
... ... @@ -3888,7 +3906,7 @@ new_string("tcp_conn")),
3888 3906 nil),
3889 3907 no_term);
3890 3908  
3891   -new_op_scheme(18405902,0,
  3909 +new_op_scheme(18413070,0,
3892 3910 new_string("Bool"),
3893 3911 cons(new_string("£check_certificate_chain"),
3894 3912 nil),
... ... @@ -3900,7 +3918,7 @@ new_string("server_name")),
3900 3918 nil)),
3901 3919 no_term);
3902 3920  
3903   -new_op_scheme(18409486,0,
  3921 +new_op_scheme(18416654,0,
3904 3922 cons(app_ts,
3905 3923 cons(new_string("Maybe"),
3906 3924 cons(new_string("X509"),
... ... @@ -3913,7 +3931,7 @@ new_string("ssl_obj")),
3913 3931 nil),
3914 3932 no_term);
3915 3933  
3916   -new_op_scheme(18413596,1,
  3934 +new_op_scheme(18420764,1,
3917 3935 cons(app_ts,
3918 3936 cons(new_string("Result"),
3919 3937 cons(new_string("SSLConnectError"),
... ... @@ -3938,7 +3956,7 @@ new_string("accept_policy")),
3938 3956 nil)))),
3939 3957 no_term);
3940 3958  
3941   -new_op_scheme(18434076,1,
  3959 +new_op_scheme(18441244,1,
3942 3960 cons(app_ts,
3943 3961 cons(new_string("Maybe"),
3944 3962 cons(type_ByteArray,
... ... @@ -3954,7 +3972,7 @@ new_string("timeout")),
3954 3972 nil))),
3955 3973 no_term);
3956 3974  
3957   -new_op_scheme(18438172,1,
  3975 +new_op_scheme(18445340,1,
3958 3976 cons(app_ts,
3959 3977 cons(new_string("Maybe"),
3960 3978 cons(type_String,
... ... @@ -3970,7 +3988,7 @@ new_string("timeout")),
3970 3988 nil))),
3971 3989 no_term);
3972 3990  
3973   -new_op_scheme(18444316,1,
  3991 +new_op_scheme(18451484,1,
3974 3992 cons(app_ts,
3975 3993 cons(new_string("Maybe"),
3976 3994 cons(type_Int32,
... ... @@ -3984,7 +4002,7 @@ new_string("data")),
3984 4002 nil)),
3985 4003 no_term);
3986 4004  
3987   -new_op_scheme(18447900,1,
  4005 +new_op_scheme(18455068,1,
3988 4006 cons(app_ts,
3989 4007 cons(new_string("Maybe"),
3990 4008 cons(type_Int32,
... ... @@ -3998,7 +4016,7 @@ new_string("data")),
3998 4016 nil)),
3999 4017 no_term);
4000 4018  
4001   -new_op_scheme(18462734,0,
  4019 +new_op_scheme(18469902,0,
4002 4020 cons(app_ts,
4003 4021 cons(new_string("Maybe"),
4004 4022 cons(cons(type_struct_ptr,
... ... @@ -4012,7 +4030,7 @@ new_string("tcp_conn")),
4012 4030 nil),
4013 4031 no_term);
4014 4032  
4015   -new_op_scheme(18466318,0,
  4033 +new_op_scheme(18473486,0,
4016 4034 new_string("One"),
4017 4035 cons(new_string("£handle_ssl_request"),
4018 4036 nil),
... ... @@ -4029,7 +4047,7 @@ new_string("handler")),
4029 4047 nil))),
4030 4048 no_term);
4031 4049  
4032   -new_op_scheme(18473486,0,
  4050 +new_op_scheme(18480654,0,
4033 4051 new_string("One"),
4034 4052 cons(new_string("£run_ssl_server"),
4035 4053 nil),
... ... @@ -4050,7 +4068,7 @@ new_string("notify")),
4050 4068 nil)))),
4051 4069 no_term);
4052 4070  
4053   -new_op_scheme(18485788,1,
  4071 +new_op_scheme(18492956,1,
4054 4072 new_string("StartServerResult"),
4055 4073 cons(new_string("start_ssl_server"),
4056 4074 nil),
... ... @@ -4076,7 +4094,7 @@ new_string("notify")),
4076 4094 nil))))),
4077 4095 no_term);
4078 4096  
4079   -new_op_scheme(18500124,1,
  4097 +new_op_scheme(18507292,1,
4080 4098 cons(app_ts,
4081 4099 cons(new_string("£Tuple2"),
4082 4100 cons(type_Int32,
... ... @@ -4089,7 +4107,7 @@ new_string("connection")),
4089 4107 nil),
4090 4108 no_term);
4091 4109  
4092   -new_op_scheme(18501148,1,
  4110 +new_op_scheme(18508316,1,
4093 4111 cons(app_ts,
4094 4112 cons(new_string("£Tuple2"),
4095 4113 cons(type_Int32,
... ... @@ -4102,7 +4120,7 @@ new_string("connection")),
4102 4120 nil),
4103 4121 no_term);
4104 4122  
4105   -new_op_scheme(18509838,0,
  4123 +new_op_scheme(18517006,0,
4106 4124 type_Int32,
4107 4125 cons(new_string("£simple_hash"),
4108 4126 nil),
... ... @@ -4113,7 +4131,7 @@ new_string("b")),
4113 4131 nil)),
4114 4132 no_term);
4115 4133  
4116   -new_op_scheme(18511900,1,
  4134 +new_op_scheme(18519068,1,
4117 4135 type_Int32,
4118 4136 cons(new_string("simple_hash"),
4119 4137 nil),
... ... @@ -4152,7 +4170,7 @@ noname),
4152 4170 nil)))),
4153 4171 nil),0,1);
4154 4172  
4155   -new_op_scheme(18544156,1,
  4173 +new_op_scheme(18551324,1,
4156 4174 new_string("RGBAImage"),
4157 4175 cons(new_string("create_rgba_image"),
4158 4176 nil),
... ... @@ -4165,7 +4183,7 @@ new_string("background")),
4165 4183 nil))),
4166 4184 no_term);
4167 4185  
4168   -new_op_scheme(18546204,1,
  4186 +new_op_scheme(18553372,1,
4169 4187 new_string("BitMapImage"),
4170 4188 cons(new_string("create_bitmap_image"),
4171 4189 nil),
... ... @@ -4178,7 +4196,7 @@ new_string("background")),
4178 4196 nil))),
4179 4197 no_term);
4180 4198  
4181   -new_op_scheme(18555932,1,
  4199 +new_op_scheme(18563100,1,
4182 4200 new_string("One"),
4183 4201 cons(new_string("draw_pixel"),
4184 4202 nil),
... ... @@ -4207,7 +4225,7 @@ nil),
4207 4225 nil),
4208 4226 nil))),0,1);
4209 4227  
4210   -new_op_scheme(18579484,1,
  4228 +new_op_scheme(18586652,1,
4211 4229 new_string("One"),
4212 4230 cons(new_string("draw_pixel"),
4213 4231 nil),
... ... @@ -4222,7 +4240,7 @@ new_string("how")),
4222 4240 nil)))),
4223 4241 no_term);
4224 4242  
4225   -new_op_scheme(18592796,1,
  4243 +new_op_scheme(18599964,1,
4226 4244 new_string("RGBA"),
4227 4245 cons(new_string("get_pixel"),
4228 4246 nil),
... ... @@ -4235,7 +4253,7 @@ new_string("y")),
4235 4253 nil))),
4236 4254 no_term);
4237 4255  
4238   -new_op_scheme(18598428,1,
  4256 +new_op_scheme(18605596,1,
4239 4257 new_string("Bit"),
4240 4258 cons(new_string("get_pixel"),
4241 4259 nil),
... ... @@ -4264,7 +4282,7 @@ new_string("v")),
4264 4282 nil))))),
4265 4283 nil),0,1);
4266 4284  
4267   -new_op_scheme(18626076,1,
  4285 +new_op_scheme(18633244,1,
4268 4286 new_string("One"),
4269 4287 cons(new_string("draw_rectangle"),
4270 4288 nil),
... ... @@ -4277,7 +4295,7 @@ new_string("color_of_rectangle")),
4277 4295 nil))),
4278 4296 no_term);
4279 4297  
4280   -new_op_scheme(18632220,1,
  4298 +new_op_scheme(18639388,1,
4281 4299 new_string("One"),
4282 4300 cons(new_string("draw_rectangle"),
4283 4301 nil),
... ... @@ -4319,7 +4337,7 @@ nil),
4319 4337 nil),
4320 4338 nil)))))))),0,1);
4321 4339  
4322   -new_op_scheme(18689564,1,
  4340 +new_op_scheme(18696732,1,
4323 4341 new_string("One"),
4324 4342 cons(new_string("crop_and_encrust"),
4325 4343 nil),
... ... @@ -4338,7 +4356,7 @@ new_string("t")),
4338 4356 nil)))))),
4339 4357 no_term);
4340 4358  
4341   -new_op_scheme(18695708,1,
  4359 +new_op_scheme(18702876,1,
4342 4360 new_string("One"),
4343 4361 cons(new_string("crop_and_encrust"),
4344 4362 nil),
... ... @@ -4359,7 +4377,7 @@ new_string("t")),
4359 4377 nil))))))),
4360 4378 no_term);
4361 4379  
4362   -new_op_scheme(18704412,1,
  4380 +new_op_scheme(18711580,1,
4363 4381 new_string("One"),
4364 4382 cons(new_string("crop_and_encrust"),
4365 4383 nil),
... ... @@ -4391,7 +4409,7 @@ noname),
4391 4409 nil)),
4392 4410 nil),0,1);
4393 4411  
4394   -new_op_scheme(18753052,1,
  4412 +new_op_scheme(18760220,1,
4395 4413 cons(app_ts,
4396 4414 cons(new_string("Maybe"),
4397 4415 cons(new_string("SystemFont"),
... ... @@ -4403,7 +4421,7 @@ new_string("font_name")),
4403 4421 nil),
4404 4422 no_term);
4405 4423  
4406   -new_op_scheme(18773020,1,
  4424 +new_op_scheme(18780188,1,
4407 4425 type_Int32,
4408 4426 cons(new_string("draw_system_character"),
4409 4427 nil),
... ... @@ -4424,7 +4442,7 @@ new_string("character_color")),
4424 4442 nil))))))),
4425 4443 no_term);
4426 4444  
4427   -new_op_scheme(18779164,1,
  4445 +new_op_scheme(18786332,1,
4428 4446 type_Int32,
4429 4447 cons(new_string("draw_system_character"),
4430 4448 nil),
... ... @@ -4461,7 +4479,7 @@ new_string("depth")),
4461 4479 nil))))),
4462 4480 nil),0,1);
4463 4481  
4464   -new_op_scheme(18796060,1,
  4482 +new_op_scheme(18803228,1,
4465 4483 new_string("SystemFontInfo"),
4466 4484 cons(new_string("get_font_info"),
4467 4485 nil),
... ... @@ -4484,7 +4502,7 @@ new_string("width")),
4484 4502 nil)))),
4485 4503 nil),0,1);
4486 4504  
4487   -new_op_scheme(18801180,1,
  4505 +new_op_scheme(18808348,1,
4488 4506 new_string("SystemCharacterInfo"),
4489 4507 cons(new_string("get_char_info"),
4490 4508 nil),
... ... @@ -4506,7 +4524,7 @@ noname),
4506 4524 nil)),
4507 4525 nil),0,1);
4508 4526  
4509   -new_op_scheme(18812444,1,
  4527 +new_op_scheme(18819612,1,
4510 4528 cons(app_ts,
4511 4529 cons(new_string("£Tuple2"),
4512 4530 cons(type_Int32,
... ... @@ -4519,7 +4537,7 @@ new_string("im")),
4519 4537 nil),
4520 4538 no_term);
4521 4539  
4522   -new_op_scheme(18817052,1,
  4540 +new_op_scheme(18824220,1,
4523 4541 new_string("HostImage"),
4524 4542 cons(new_string("to_host_image"),
4525 4543 nil),
... ... @@ -4530,7 +4548,7 @@ new_string("reduction_factor")),
4530 4548 nil)),
4531 4549 no_term);
4532 4550  
4533   -new_op_scheme(18821148,1,
  4551 +new_op_scheme(18828316,1,
4534 4552 new_string("One"),
4535 4553 cons(new_string("draw_pixel"),
4536 4554 nil),
... ... @@ -4545,7 +4563,7 @@ new_string("color")),
4545 4563 nil)))),
4546 4564 no_term);
4547 4565  
4548   -new_op_scheme(18826268,1,
  4566 +new_op_scheme(18833436,1,
4549 4567 new_string("One"),
4550 4568 cons(new_string("draw_rectangle"),
4551 4569 nil),
... ... @@ -4558,7 +4576,7 @@ new_string("color_of_rectangle")),
4558 4576 nil))),
4559 4577 no_term);
4560 4578  
4561   -new_op_scheme(18830876,1,
  4579 +new_op_scheme(18838044,1,
4562 4580 type_Int32,
4563 4581 cons(new_string("draw_system_character"),
4564 4582 nil),
... ... @@ -4606,7 +4624,7 @@ new_string("samples")),
4606 4624 nil))))),
4607 4625 nil),0,1);
4608 4626  
4609   -new_op_scheme(18857500,1,
  4627 +new_op_scheme(18864668,1,
4610 4628 new_string("HostImage"),
4611 4629 cons(new_string("to_host_image"),
4612 4630 nil),
... ... @@ -4617,7 +4635,7 @@ new_string("reducing_factor")),
4617 4635 nil)),
4618 4636 no_term);
4619 4637  
4620   -new_op_scheme(18869788,1,
  4638 +new_op_scheme(18876956,1,
4621 4639 new_string("RGBAImage"),
4622 4640 cons(new_string("to_RGBA"),
4623 4641 nil),
... ... @@ -4628,7 +4646,7 @@ new_string("reducing_factor")),
4628 4646 nil)),
4629 4647 no_term);
4630 4648  
4631   -new_op_scheme(18874396,1,
  4649 +new_op_scheme(18881564,1,
4632 4650 new_string("JPEG_BitMapImage"),
4633 4651 cons(new_string("to_JPEG"),
4634 4652 nil),
... ... @@ -4649,7 +4667,7 @@ new_string("jpeg_error_mgr")),
4649 4667 nil))),
4650 4668 nil),0,1);
4651 4669  
4652   -new_op_scheme(18884110,0,
  4670 +new_op_scheme(18891278,0,
4653 4671 cons(app_ts,
4654 4672 cons(new_string("Maybe"),
4655 4673 cons(new_string("£JPEG_compress_info"),
... ... @@ -4670,7 +4688,7 @@ new_string("output_file")),
4670 4688 nil))))),
4671 4689 no_term);
4672 4690  
4673   -new_op_scheme(18890766,0,
  4691 +new_op_scheme(18897934,0,
4674 4692 new_string("One"),
4675 4693 cons(new_string("£jpeg_write_scanline"),
4676 4694 nil),
... ... @@ -4683,7 +4701,7 @@ new_string("start")),
4683 4701 nil))),
4684 4702 no_term);
4685 4703  
4686   -new_op_scheme(18896398,0,
  4704 +new_op_scheme(18903566,0,
4687 4705 new_string("One"),
4688 4706 cons(new_string("£jpeg_write_scanlines"),
4689 4707 nil),
... ... @@ -4700,7 +4718,7 @@ new_string("i")),
4700 4718 nil))))),
4701 4719 no_term);
4702 4720  
4703   -new_op_scheme(18904078,0,
  4721 +new_op_scheme(18911246,0,
4704 4722 new_string("One"),
4705 4723 cons(new_string("£jpeg_finish_compress"),
4706 4724 nil),
... ... @@ -4723,7 +4741,7 @@ nil),
4723 4741 nil),
4724 4742 nil))),0,1);
4725 4743  
4726   -new_op_scheme(18911772,1,
  4744 +new_op_scheme(18918940,1,
4727 4745 new_string("Result_JPEG_write"),
4728 4746 cons(new_string("write_image_to_JPEG_file"),
4729 4747 nil),
... ... @@ -4748,7 +4766,7 @@ new_string("jpeg_error_mgr")),
4748 4766 nil))),
4749 4767 nil),0,1);
4750 4768  
4751   -new_op_scheme(18929166,0,
  4769 +new_op_scheme(18936334,0,
4752 4770 cons(app_ts,
4753 4771 cons(new_string("Maybe"),
4754 4772 cons(new_string("£JPEG_decompress_info"),
... ... @@ -4778,7 +4796,7 @@ noname),
4778 4796 nil)))),
4779 4797 nil),0,1);
4780 4798  
4781   -new_op_scheme(18933774,0,
  4799 +new_op_scheme(18940942,0,
4782 4800 cons(app_ts,
4783 4801 cons(new_string("£Tuple3"),
4784 4802 cons(type_Int32,
... ... @@ -4792,7 +4810,7 @@ new_string("cinfo")),
4792 4810 nil),
4793 4811 no_term);
4794 4812  
4795   -new_op_scheme(18939406,0,
  4813 +new_op_scheme(18946574,0,
4796 4814 cons(app_ts,
4797 4815 cons(new_string("Maybe"),
4798 4816 cons(new_string("One"),
... ... @@ -4808,7 +4826,7 @@ new_string("offset")),
4808 4826 nil))),
4809 4827 no_term);
4810 4828  
4811   -new_op_scheme(18945038,0,
  4829 +new_op_scheme(18952206,0,
4812 4830 new_string("One"),
4813 4831 cons(new_string("£jpeg_read_scanlines"),
4814 4832 nil),
... ... @@ -4825,7 +4843,7 @@ new_string("offset")),
4825 4843 nil))))),
4826 4844 no_term);
4827 4845  
4828   -new_op_scheme(18954766,0,
  4846 +new_op_scheme(18961934,0,
4829 4847 new_string("One"),
4830 4848 cons(new_string("£jpeg_finish_decompress"),
4831 4849 nil),
... ... @@ -4850,7 +4868,7 @@ noname),
4850 4868 nil)),
4851 4869 nil))),0,1);
4852 4870  
4853   -new_op_scheme(18962460,1,
  4871 +new_op_scheme(18969628,1,
4854 4872 new_string("Result_JPEG_read"),
4855 4873 cons(new_string("read_image_from_JPEG_file"),
4856 4874 nil),
... ... @@ -5090,7 +5108,7 @@ new_string("£gc")),
5090 5108 nil))),
5091 5109 nil),0,1);
5092 5110  
5093   -new_op_scheme(19025948,1,
  5111 +new_op_scheme(19033116,1,
5094 5112 cons(app_ts,
5095 5113 cons(new_string("£Tuple2"),
5096 5114 cons(type_Int32,
... ... @@ -5103,7 +5121,7 @@ new_string("hw")),
5103 5121 nil),
5104 5122 no_term);
5105 5123  
5106   -new_op_scheme(19031068,1,
  5124 +new_op_scheme(19038236,1,
5107 5125 new_string("One"),
5108 5126 cons(new_string("resize"),
5109 5127 nil),
... ... @@ -5116,7 +5134,7 @@ new_string("height")),
5116 5134 nil))),
5117 5135 no_term);
5118 5136  
5119   -new_op_scheme(19037724,1,
  5137 +new_op_scheme(19044892,1,
5120 5138 cons(app_ts,
5121 5139 cons(new_string("£Tuple2"),
5122 5140 cons(type_Int32,
... ... @@ -5127,7 +5145,7 @@ nil),
5127 5145 nil,
5128 5146 no_term);
5129 5147  
5130   -new_op_scheme(19041820,1,
  5148 +new_op_scheme(19048988,1,
5131 5149 new_string("One"),
5132 5150 cons(new_string("change_title"),
5133 5151 nil),
... ... @@ -5138,7 +5156,7 @@ new_string("new_title")),
5138 5156 nil)),
5139 5157 no_term);
5140 5158  
5141   -new_op_scheme(19049998,0,
  5159 +new_op_scheme(19057166,0,
5142 5160 new_string("Bool"),
5143 5161 cons(new_string("£window_event_pending"),
5144 5162 nil),
... ... @@ -5148,7 +5166,7 @@ new_string("handle")),
5148 5166 nil),
5149 5167 no_term);
5150 5168  
5151   -new_op_scheme(19055630,0,
  5169 +new_op_scheme(19062798,0,
5152 5170 cons(app_ts,
5153 5171 cons(new_string("HostWindowEvent"),
5154 5172 cons(new_utvar("E"),
... ... @@ -5161,7 +5179,7 @@ new_string("handle")),
5161 5179 nil),
5162 5180 no_term);
5163 5181  
5164   -new_op_scheme(19063310,0,
  5182 +new_op_scheme(19070478,0,
5165 5183 cons(app_ts,
5166 5184 cons(new_string("List"),
5167 5185 cons(cons(app_ts,
... ... @@ -5179,7 +5197,7 @@ new_string("max")),
5179 5197 nil)),
5180 5198 no_term);
5181 5199  
5182   -new_op_scheme(19072526,0,
  5200 +new_op_scheme(19079694,0,
5183 5201 new_string("Bool"),
5184 5202 cons(new_string("£default_host_window_handling"),
5185 5203 nil),
... ... @@ -5222,7 +5240,7 @@ new_string("event_handler")),
5222 5240 nil))))),
5223 5241 no_term);
5224 5242  
5225   -new_op_scheme(19079182,0,
  5243 +new_op_scheme(19086350,0,
5226 5244 new_string("One"),
5227 5245 cons(new_string("£begin_paint"),
5228 5246 nil),
... ... @@ -5231,7 +5249,7 @@ new_string("window")),
5231 5249 nil),
5232 5250 no_term);
5233 5251  
5234   -new_op_scheme(19082766,0,
  5252 +new_op_scheme(19089934,0,
5235 5253 new_string("One"),
5236 5254 cons(new_string("£end_paint"),
5237 5255 nil),
... ... @@ -5240,7 +5258,7 @@ new_string("window")),
5240 5258 nil),
5241 5259 no_term);
5242 5260  
5243   -new_op_scheme(19086862,0,
  5261 +new_op_scheme(19094030,0,
5244 5262 new_string("Bool"),
5245 5263 cons(new_string("£handle_host_window_events"),
5246 5264 nil),
... ... @@ -5278,7 +5296,7 @@ new_string("eh")),
5278 5296 nil)))),
5279 5297 no_term);
5280 5298  
5281   -new_op_scheme(19103758,0,
  5299 +new_op_scheme(19110926,0,
5282 5300 new_string("Bool"),
5283 5301 cons(new_string("£default_host_window_handling"),
5284 5302 nil),
... ... @@ -5321,7 +5339,7 @@ new_string("event_handler")),
5321 5339 nil))))),
5322 5340 no_term);
5323 5341  
5324   -new_op_scheme(19115036,1,
  5342 +new_op_scheme(19122204,1,
5325 5343 new_string("One"),
5326 5344 cons(new_string("generic_host_window_handler"),
5327 5345 nil),
... ... @@ -5379,7 +5397,7 @@ nil),
5379 5397 nil),
5380 5398 nil)),0,1);
5381 5399  
5382   -new_op_scheme(19130382,0,
  5400 +new_op_scheme(19137550,0,
5383 5401 cons(app_ts,
5384 5402 cons(new_string("Maybe"),
5385 5403 cons(cons(app_ts,
... ... @@ -5407,7 +5425,7 @@ new_string("sort")),
5407 5425 nil)))))),
5408 5426 no_term);
5409 5427  
5410   -new_op_scheme(19138588,1,
  5428 +new_op_scheme(19145756,1,
5411 5429 cons(app_ts,
5412 5430 cons(new_string("Maybe"),
5413 5431 cons(new_string("HostWindow"),
... ... @@ -5461,7 +5479,7 @@ new_string("compress")),
5461 5479 nil)))))),
5462 5480 no_term);
5463 5481  
5464   -new_op_scheme(19154972,1,
  5482 +new_op_scheme(19162140,1,
5465 5483 new_string("One"),
5466 5484 cons(new_string("show"),
5467 5485 nil),
... ... @@ -5470,7 +5488,7 @@ new_string("win")),
5470 5488 nil),
5471 5489 no_term);
5472 5490  
5473   -new_op_scheme(19159068,1,
  5491 +new_op_scheme(19166236,1,
5474 5492 new_string("One"),
5475 5493 cons(new_string("hide"),
5476 5494 nil),
... ... @@ -5479,7 +5497,7 @@ new_string("win")),
5479 5497 nil),
5480 5498 no_term);
5481 5499  
5482   -new_op_scheme(19168796,1,
  5500 +new_op_scheme(19175964,1,
5483 5501 new_string("Bool"),
5484 5502 cons(new_string("queue_event"),
5485 5503 nil),
... ... @@ -5493,7 +5511,7 @@ new_string("e")),
5493 5511 nil)),
5494 5512 no_term);
5495 5513  
5496   -new_op_scheme(19179036,1,
  5514 +new_op_scheme(19186204,1,
5497 5515 new_string("One"),
5498 5516 cons(new_string("paint_rectangle"),
5499 5517 nil),
... ... @@ -5506,7 +5524,7 @@ new_string("color")),
5506 5524 nil))),
5507 5525 no_term);
5508 5526  
5509   -new_op_scheme(19184668,1,
  5527 +new_op_scheme(19191836,1,
5510 5528 new_string("One"),
5511 5529 cons(new_string("paint_rectangle"),
5512 5530 nil),
... ... @@ -5519,7 +5537,7 @@ new_string("color")),
5519 5537 nil))),
5520 5538 no_term);
5521 5539  
5522   -new_op_scheme(19202076,1,
  5540 +new_op_scheme(19209244,1,
5523 5541 new_string("One"),
5524 5542 cons(new_string("paint_image"),
5525 5543 nil),
... ... @@ -5536,7 +5554,7 @@ new_string("image")),
5536 5554 nil))))),
5537 5555 no_term);
5538 5556  
5539   -new_op_scheme(19208732,1,
  5557 +new_op_scheme(19215900,1,
5540 5558 new_string("One"),
5541 5559 cons(new_string("paint_image"),
5542 5560 nil),
... ... @@ -5553,7 +5571,7 @@ new_string("image")),
5553 5571 nil))))),
5554 5572 no_term);
5555 5573  
5556   -new_op_scheme(19214876,1,
  5574 +new_op_scheme(19222044,1,
5557 5575 new_string("One"),
5558 5576 cons(new_string("map_to_host_window"),
5559 5577 nil),
... ... @@ -5601,7 +5619,7 @@ noname),
5601 5619 nil)),
5602 5620 nil),0,1);
5603 5621  
5604   -new_op_scheme(19240988,1,
  5622 +new_op_scheme(19248156,1,
5605 5623 cons(app_ts,
5606 5624 cons(new_string("Result"),
5607 5625 cons(new_string("SQLite3Error"),
... ... @@ -5694,7 +5712,7 @@ new_string("cursor")),
5694 5712 nil)))),
5695 5713 nil),0,1);
5696 5714  
5697   -new_op_scheme(19272220,1,
  5715 +new_op_scheme(19279388,1,
5698 5716 cons(app_ts,
5699 5717 cons(new_string("Result"),
5700 5718 cons(new_string("SQLite3Error"),
... ... @@ -5712,7 +5730,7 @@ new_string("sql_command")),
5712 5730 nil)),
5713 5731 no_term);
5714 5732  
5715   -new_op_scheme(19290638,0,
  5733 +new_op_scheme(19297806,0,
5716 5734 cons(type_struct_ptr,
5717 5735 new_integer(8)),
5718 5736 cons(new_string("£sqlite3_open"),
... ... @@ -5722,7 +5740,7 @@ new_string("filename")),
5722 5740 nil),
5723 5741 no_term);
5724 5742  
5725   -new_op_scheme(19294222,0,
  5743 +new_op_scheme(19301390,0,
5726 5744 type_Int32,
5727 5745 cons(new_string("£sqlite3_errcode"),
5728 5746 nil),
... ... @@ -5732,7 +5750,7 @@ new_string("s")),
5732 5750 nil),
5733 5751 no_term);
5734 5752  
5735   -new_op_scheme(19297806,0,
  5753 +new_op_scheme(19304974,0,
5736 5754 type_String,
5737 5755 cons(new_string("£sqlite3_errmsg"),
5738 5756 nil),
... ... @@ -5742,7 +5760,7 @@ new_string("s")),
5742 5760 nil),
5743 5761 no_term);
5744 5762  
5745   -new_op_scheme(19301916,1,
  5763 +new_op_scheme(19309084,1,
5746 5764 cons(app_ts,
5747 5765 cons(new_string("Result"),
5748 5766 cons(new_string("SQLite3Error"),
... ... @@ -5775,7 +5793,7 @@ nil),
5775 5793 nil),
5776 5794 nil))))),0,1);
5777 5795  
5778   -new_op_scheme(19312142,0,
  5796 +new_op_scheme(19319310,0,
5779 5797 new_string("£SQLite3DatumType"),
5780 5798 cons(new_string("£get_cell_type"),
5781 5799 nil),
... ... @@ -5787,7 +5805,7 @@ new_string("iCol")),
5787 5805 nil)),
5788 5806 no_term);
5789 5807  
5790   -new_op_scheme(19316750,0,
  5808 +new_op_scheme(19323918,0,
5791 5809 type_String,
5792 5810 cons(new_string("£get_cell_name"),
5793 5811 nil),
... ... @@ -5799,7 +5817,7 @@ new_string("iCol")),
5799 5817 nil)),
5800 5818 no_term);
5801 5819  
5802   -new_op_scheme(19321358,0,
  5820 +new_op_scheme(19328526,0,
5803 5821 type_Int32,
5804 5822 cons(new_string("£sqlite3_column_int"),
5805 5823 nil),
... ... @@ -5811,7 +5829,7 @@ new_string("iCol")),
5811 5829 nil)),
5812 5830 no_term);
5813 5831  
5814   -new_op_scheme(19325454,0,
  5832 +new_op_scheme(19332622,0,
5815 5833 type_Float,
5816 5834 cons(new_string("£sqlite3_column_double"),
5817 5835 nil),
... ... @@ -5823,7 +5841,7 @@ new_string("iCol")),
5823 5841 nil)),
5824 5842 no_term);
5825 5843  
5826   -new_op_scheme(19329550,0,
  5844 +new_op_scheme(19336718,0,
5827 5845 type_String,
5828 5846 cons(new_string("£sqlite3_column_text"),
5829 5847 nil),
... ... @@ -5835,7 +5853,7 @@ new_string("iCol")),
5835 5853 nil)),
5836 5854 no_term);
5837 5855  
5838   -new_op_scheme(19333646,0,
  5856 +new_op_scheme(19340814,0,
5839 5857 type_ByteArray,
5840 5858 cons(new_string("£sqlite3_column_blob"),
5841 5859 nil),
... ... @@ -5847,7 +5865,7 @@ new_string("iCol")),
5847 5865 nil)),
5848 5866 no_term);
5849 5867  
5850   -new_op_scheme(19337742,0,
  5868 +new_op_scheme(19344910,0,
5851 5869 new_string("SQLite3Datum"),
5852 5870 cons(new_string("£get_cell_value"),
5853 5871 nil),
... ... @@ -5859,7 +5877,7 @@ new_string("iCol")),
5859 5877 nil)),
5860 5878 no_term);
5861 5879  
5862   -new_op_scheme(19345422,0,
  5880 +new_op_scheme(19352590,0,
5863 5881 cons(functype,
5864 5882 cons(cons(type_Int32,
5865 5883 nil),
... ... @@ -5874,7 +5892,7 @@ new_string("column_count")),
5874 5892 nil)),
5875 5893 no_term);
5876 5894  
5877   -new_op_scheme(19351054,0,
  5895 +new_op_scheme(19358222,0,
5878 5896 cons(functype,
5879 5897 cons(cons(type_Int32,
5880 5898 nil),
... ... @@ -5889,7 +5907,7 @@ new_string("column_count")),
5889 5907 nil)),
5890 5908 no_term);
5891 5909  
5892   -new_op_scheme(19357198,0,
  5910 +new_op_scheme(19364366,0,
5893 5911 type_Int32,
5894 5912 cons(new_string("£column_count"),
5895 5913 nil),
... ... @@ -5913,7 +5931,7 @@ nil),
5913 5931 nil),
5914 5932 nil))),0,1);
5915 5933  
5916   -new_op_scheme(19363342,0,
  5934 +new_op_scheme(19370510,0,
5917 5935 new_string("£SQLite3NextRowResult"),
5918 5936 cons(new_string("£go_to_next_row"),
5919 5937 nil),
... ... @@ -5923,7 +5941,7 @@ new_string("stmt")),
5923 5941 nil),
5924 5942 no_term);
5925 5943  
5926   -new_op_scheme(19366926,0,
  5944 +new_op_scheme(19374094,0,
5927 5945 cons(functype,
5928 5946 cons(cons(new_string("SQLite3HeadersOrRow"),
5929 5947 nil),
... ... @@ -5942,7 +5960,7 @@ new_string("first")),
5942 5960 nil))),
5943 5961 no_term);
5944 5962  
5945   -new_op_scheme(19379214,0,
  5963 +new_op_scheme(19386382,0,
5946 5964 cons(app_ts,
5947 5965 cons(new_string("Result"),
5948 5966 cons(type_Int32,
... ... @@ -5959,7 +5977,7 @@ new_string("sql_command")),
5959 5977 nil)),
5960 5978 no_term);
5961 5979  
5962   -new_op_scheme(19383836,1,
  5980 +new_op_scheme(19391004,1,
5963 5981 cons(app_ts,
5964 5982 cons(new_string("Result"),
5965 5983 cons(new_string("SQLite3Error"),
... ...
anubis_dev/compiler/src/predef_npd.aux
  Show/Hide comments   View file @53870d7
Changes suppressed. Click to show
... ... @@ -1307,7 +1307,7 @@ nil),
1307 1307 cons(new_integer(8561175),
1308 1308 cons(alert,
1309 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 1311 cons(cons(cons(new_string("success"),
1312 1312 cons(new_string("i"),
1313 1313 nil)),
... ... @@ -4009,38 +4009,89 @@ cons(new_integer(8853773),
4009 4009 cons(create_udp_client_socket,
4010 4010 nil))));
4011 4011  
4012   -new_op_scheme(17708572,1,
  4012 +new_op_scheme(17709084,1,
4013 4013 new_string("Create_UDP_Client_Socket_Result"),
4014 4014 cons(new_string("create_udp_client_socket"),
4015 4015 nil),
4016 4016 nil,
4017 4017 cons(cond,
4018   -cons(new_integer(8855046),
  4018 +cons(new_integer(8855302),
4019 4019 cons(cons(symbol,
4020   -cons(new_integer(8855072),
  4020 +cons(new_integer(8855328),
4021 4021 new_string("£create_udp_client_socket"))),
4022 4022 cons(cons(cons(new_string("failure"),
4023 4023 nil),
4024   -cons(new_integer(8855577),
  4024 +cons(new_integer(8855833),
4025 4025 cons(symbol,
4026   -cons(new_integer(8855602),
  4026 +cons(new_integer(8855858),
4027 4027 new_string("cannot_create_the_socket"))))),
4028 4028 cons(cons(cons(new_string("success"),
4029 4029 cons(new_string("a"),
4030 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 4083 cons(app,
4033   -cons(new_integer(8855837),
  4084 +cons(new_integer(8859421),
4034 4085 cons(cons(symbol,
4035   -cons(new_integer(8855836),
  4086 +cons(new_integer(8859420),
4036 4087 new_string("ok"))),
4037 4088 cons(cons(app,
4038   -cons(new_integer(8855849),
  4089 +cons(new_integer(8859433),
4039 4090 cons(cons(symbol,
4040   -cons(new_integer(8855848),
  4091 +cons(new_integer(8859432),
4041 4092 new_string("£udp_socket"))),
4042 4093 cons(cons(symbol,
4043   -cons(new_integer(8855850),
  4094 +cons(new_integer(8859434),
4044 4095 new_string("a"))),
4045 4096 nil)))),
4046 4097 nil)))))),
... ... @@ -4057,7 +4108,7 @@ nil),
4057 4108 nil),
4058 4109 nil)),0,1);
4059 4110  
4060   -new_op_scheme(17719836,1,
  4111 +new_op_scheme(17727004,1,
4061 4112 new_string("UDP_Send_Result"),
4062 4113 cons(new_string("udp_send"),
4063 4114 nil),
... ... @@ -4071,7 +4122,7 @@ cons(cons(type_ByteArray,
4071 4122 new_string("data")),
4072 4123 nil)))),
4073 4124 cons(avm,
4074   -cons(new_integer(8861710),
  4125 +cons(new_integer(8865294),
4075 4126 cons(udp_send,
4076 4127 nil))));
4077 4128  
... ... @@ -4108,7 +4159,7 @@ new_string("ip_port")),
4108 4159 nil))))),
4109 4160 nil))),0,1);
4110 4161  
4111   -new_op_scheme(17735708,1,
  4162 +new_op_scheme(17742876,1,
4112 4163 new_string("UDP_Receive_Result"),
4113 4164 cons(new_string("udp_receive"),
4114 4165 nil),
... ... @@ -4120,7 +4171,7 @@ cons(cons(type_Int32,
4120 4171 new_string("timeout")),
4121 4172 nil))),
4122 4173 cons(avm,
4123   -cons(new_integer(8869390),
  4174 +cons(new_integer(8872974),
4124 4175 cons(udp_receive,
4125 4176 nil))));
4126 4177  
... ... @@ -4155,7 +4206,7 @@ noname),
4155 4206 nil)),
4156 4207 nil)))),0,1);
4157 4208  
4158   -new_op_scheme(17748494,0,
  4209 +new_op_scheme(17755662,0,
4159 4210 new_string("£Create_UDP_Server_Socket_Result"),
4160 4211 cons(new_string("£create_udp_server_socket"),
4161 4212 nil),
... ... @@ -4165,11 +4216,11 @@ cons(cons(type_Int32,
4165 4216 new_string("ip_port")),
4166 4217 nil)),
4167 4218 cons(avm,
4168   -cons(new_integer(8875534),
  4219 +cons(new_integer(8879118),
4169 4220 cons(create_udp_server_socket,
4170 4221 nil))));
4171 4222  
4172   -new_op_scheme(17754126,0,
  4223 +new_op_scheme(17761294,0,
4173 4224 new_string("One"),
4174 4225 cons(new_string("£run_udp_server"),
4175 4226 nil),
... ... @@ -4196,106 +4247,106 @@ new_string("One"))),
4196 4247 new_string("notify")),
4197 4248 nil))))),
4198 4249 cons(cond,
4199   -cons(new_integer(8880646),
  4250 +cons(new_integer(8884230),
4200 4251 cons(cons(of_type,
4201   -cons(new_integer(8880646),
  4252 +cons(new_integer(8884230),
4202 4253 cons(new_string("Bool"),
4203 4254 cons(anb_read,
4204   -cons(new_integer(8880648),
  4255 +cons(new_integer(8884232),
4205 4256 cons(symbol,
4206   -cons(new_integer(8880657),
  4257 +cons(new_integer(8884241),
4207 4258 new_string("state_var")))))))),
4208 4259 cons(cons(cons(new_string("false"),
4209 4260 nil),
4210   -cons(new_integer(8883208),
  4261 +cons(new_integer(8886792),
4211 4262 cons(symbol,
4212   -cons(new_integer(8883215),
  4263 +cons(new_integer(8886799),
4213 4264 new_string("unique"))))),
4214 4265 cons(cons(cons(new_string("true"),
4215 4266 nil),
4216   -cons(new_integer(8880904),
  4267 +cons(new_integer(8884488),
4217 4268 cons(cond,
4218   -cons(new_integer(8880907),
  4269 +cons(new_integer(8884491),
4219 4270 cons(cons(app,
4220   -cons(new_integer(8880920),
  4271 +cons(new_integer(8884504),
4221 4272 cons(cons(symbol,
4222   -cons(new_integer(8880919),
  4273 +cons(new_integer(8884503),
4223 4274 new_string("udp_receive"))),
4224 4275 cons(cons(symbol,
4225   -cons(new_integer(8880926),
  4276 +cons(new_integer(8884510),
4226 4277 new_string("socket"))),
4227 4278 cons(cons(symbol,
4228   -cons(new_integer(8880942),
  4279 +cons(new_integer(8884526),
4229 4280 new_string("max_packet_size"))),
4230 4281 cons(cons(integer_10,
4231   -cons(new_integer(8880947),
  4282 +cons(new_integer(8884531),
4232 4283 cons(new_integer(3),
4233 4284 cons(new_integer(232),
4234 4285 nil)))),
4235 4286 nil)))))),
4236 4287 cons(cons(cons(new_string("out_of_time"),
4237 4288 nil),
4238   -cons(new_integer(8881446),
  4289 +cons(new_integer(8885030),
4239 4290 cons(app,
4240   -cons(new_integer(8881463),
  4291 +cons(new_integer(8885047),
4241 4292 cons(cons(symbol,
4242   -cons(new_integer(8881462),
  4293 +cons(new_integer(8885046),
4243 4294 new_string("£run_udp_server"))),
4244 4295 cons(cons(symbol,
4245   -cons(new_integer(8881469),
  4296 +cons(new_integer(8885053),
4246 4297 new_string("socket"))),
4247 4298 cons(cons(symbol,
4248   -cons(new_integer(8881477),
  4299 +cons(new_integer(8885061),
4249 4300 new_string("handler"))),
4250 4301 cons(cons(symbol,
4251   -cons(new_integer(8881493),
  4302 +cons(new_integer(8885077),
4252 4303 new_string("max_packet_size"))),
4253 4304 cons(cons(symbol,
4254   -cons(new_integer(8881503),
  4305 +cons(new_integer(8885087),
4255 4306 new_string("state_var"))),
4256 4307 cons(cons(symbol,
4257   -cons(new_integer(8881510),
  4308 +cons(new_integer(8885094),
4258 4309 new_string("notify"))),
4259 4310 nil)))))))))),
4260 4311 cons(cons(cons(new_string("network_unreachable"),
4261 4312 nil),
4262   -cons(new_integer(8881702),
  4313 +cons(new_integer(8885286),
4263 4314 cons(cond,
4264   -cons(new_integer(8881718),
  4315 +cons(new_integer(8885302),
4265 4316 cons(cons(of_type,
4266   -cons(new_integer(8881718),
  4317 +cons(new_integer(8885302),
4267 4318 cons(new_string("One"),
4268 4319 cons(app,
4269   -cons(new_integer(8881710),
  4320 +cons(new_integer(8885294),
4270 4321 cons(cons(symbol,
4271   -cons(new_integer(8881709),
  4322 +cons(new_integer(8885293),
4272 4323 new_string("notify"))),
4273 4324 cons(cons(symbol,
4274   -cons(new_integer(8881716),
  4325 +cons(new_integer(8885300),
4275 4326 new_string("unique"))),
4276 4327 nil))))))),
4277 4328 cons(cons(cons(new_string("unique"),
4278 4329 nil),
4279   -cons(new_integer(8881718),
  4330 +cons(new_integer(8885302),
4280 4331 cons(app,
4281   -cons(new_integer(8881975),
  4332 +cons(new_integer(8885559),
4282 4333 cons(cons(symbol,
4283   -cons(new_integer(8881974),
  4334 +cons(new_integer(8885558),
4284 4335 new_string("£run_udp_server"))),
4285 4336 cons(cons(symbol,
4286   -cons(new_integer(8881981),
  4337 +cons(new_integer(8885565),
4287 4338 new_string("socket"))),
4288 4339 cons(cons(symbol,
4289   -cons(new_integer(8881989),
  4340 +cons(new_integer(8885573),
4290 4341 new_string("handler"))),
4291 4342 cons(cons(symbol,
4292   -cons(new_integer(8882005),
  4343 +cons(new_integer(8885589),
4293 4344 new_string("max_packet_size"))),
4294 4345 cons(cons(symbol,
4295   -cons(new_integer(8882015),
  4346 +cons(new_integer(8885599),
4296 4347 new_string("state_var"))),
4297 4348 cons(cons(symbol,
4298   -cons(new_integer(8882022),
  4349 +cons(new_integer(8885606),
4299 4350 new_string("notify"))),
4300 4351 nil)))))))))),
4301 4352 nil)))))),
... ... @@ -4305,49 +4356,49 @@ cons(new_string("trunc"),
4305 4356 cons(new_string("ip_address"),
4306 4357 cons(new_string("ip_port"),
4307 4358 nil))))),
4308   -cons(new_integer(8882227),
  4359 +cons(new_integer(8885811),
4309 4360 cons(delegate,
4310   -cons(new_integer(8882455),
  4361 +cons(new_integer(8886039),
4311 4362 cons(cons(app,
4312   -cons(new_integer(8882464),
  4363 +cons(new_integer(8886048),
4313 4364 cons(cons(symbol,
4314   -cons(new_integer(8882463),
  4365 +cons(new_integer(8886047),
4315 4366 new_string("handler"))),
4316 4367 cons(cons(symbol,
4317   -cons(new_integer(8882470),
  4368 +cons(new_integer(8886054),
4318 4369 new_string("socket"))),
4319 4370 cons(cons(symbol,
4320   -cons(new_integer(8882475),
  4371 +cons(new_integer(8886059),
4321 4372 new_string("data"))),
4322 4373 cons(cons(symbol,
4323   -cons(new_integer(8882481),
  4374 +cons(new_integer(8886065),
4324 4375 new_string("trunc"))),
4325 4376 cons(cons(symbol,
4326   -cons(new_integer(8882492),
  4377 +cons(new_integer(8886076),
4327 4378 new_string("ip_address"))),
4328 4379 cons(cons(symbol,
4329   -cons(new_integer(8882500),
  4380 +cons(new_integer(8886084),
4330 4381 new_string("ip_port"))),
4331 4382 nil)))))))),
4332 4383 cons(app,
4333   -cons(new_integer(8882719),
  4384 +cons(new_integer(8886303),
4334 4385 cons(cons(symbol,
4335   -cons(new_integer(8882718),
  4386 +cons(new_integer(8886302),
4336 4387 new_string("£run_udp_server"))),
4337 4388 cons(cons(symbol,
4338   -cons(new_integer(8882725),
  4389 +cons(new_integer(8886309),
4339 4390 new_string("socket"))),
4340 4391 cons(cons(symbol,
4341   -cons(new_integer(8882733),
  4392 +cons(new_integer(8886317),
4342 4393 new_string("handler"))),
4343 4394 cons(cons(symbol,
4344   -cons(new_integer(8882749),
  4395 +cons(new_integer(8886333),
4345 4396 new_string("max_packet_size"))),
4346 4397 cons(cons(symbol,
4347   -cons(new_integer(8882759),
  4398 +cons(new_integer(8886343),
4348 4399 new_string("state_var"))),
4349 4400 cons(cons(symbol,
4350   -cons(new_integer(8882766),
  4401 +cons(new_integer(8886350),
4351 4402 new_string("notify"))),
4352 4403 nil))))))))))))),
4353 4404 nil)))))))),
... ... @@ -4372,7 +4423,7 @@ noname),
4372 4423 nil)),
4373 4424 nil)))),0,1);
4374 4425  
4375   -new_op_scheme(17779228,1,
  4426 +new_op_scheme(17786396,1,
4376 4427 cons(type_Var,
4377 4428 new_utvar("T")),
4378 4429 cons(new_string("var"),
... ... @@ -4382,7 +4433,7 @@ new_string("init")),
4382 4433 nil),
4383 4434 no_term);
4384 4435  
4385   -new_op_scheme(17780252,1,
  4436 +new_op_scheme(17787420,1,
4386 4437 new_string("Start_UDP_Server_Result"),
4387 4438 cons(new_string("start_udp_server"),
4388 4439 nil),
... ... @@ -4408,109 +4459,109 @@ new_string("One"))),
4408 4459 new_string("notify")),
4409 4460 nil))))),
4410 4461 cons(cond,
4411   -cons(new_integer(8893702),
  4462 +cons(new_integer(8897286),
4412 4463 cons(cons(app,
4413   -cons(new_integer(8893729),
  4464 +cons(new_integer(8897313),
4414 4465 cons(cons(symbol,
4415   -cons(new_integer(8893728),
  4466 +cons(new_integer(8897312),
4416 4467 new_string("£create_udp_server_socket"))),
4417 4468 cons(cons(symbol,
4418   -cons(new_integer(8893739),
  4469 +cons(new_integer(8897323),
4419 4470 new_string("ip_address"))),
4420 4471 cons(cons(symbol,
4421   -cons(new_integer(8893747),
  4472 +cons(new_integer(8897331),
4422 4473 new_string("ip_port"))),
4423 4474 nil))))),
4424 4475 cons(cons(cons(new_string("£cannot_create_the_socket"),
4425 4476 nil),
4426   -cons(new_integer(8894248),
  4477 +cons(new_integer(8897832),
4427 4478 cons(symbol,
4428   -cons(new_integer(8894273),
  4479 +cons(new_integer(8897857),
4429 4480 new_string("cannot_create_the_socket"))))),
4430 4481 cons(cons(cons(new_string("£cannot_bind_address_port"),
4431 4482 nil),
4432   -cons(new_integer(8894504),
  4483 +cons(new_integer(8898088),
4433 4484 cons(symbol,
4434   -cons(new_integer(8894529),
  4485 +cons(new_integer(8898113),
4435 4486 new_string("cannot_bind_address_port"))))),
4436 4487 cons(cons(cons(new_string("£access_denied"),
4437 4488 nil),
4438   -cons(new_integer(8894760),
  4489 +cons(new_integer(8898344),
4439 4490 cons(symbol,
4440   -cons(new_integer(8894774),
  4491 +cons(new_integer(8898358),
4441 4492 new_string("access_denied"))))),
4442 4493 cons(cons(cons(new_string("£ok"),
4443 4494 cons(new_string("socket"),
4444 4495 nil)),
4445   -cons(new_integer(8895000),
  4496 +cons(new_integer(8898584),
4446 4497 cons(with,
4447   -cons(new_integer(8895258),
  4498 +cons(new_integer(8898842),
4448 4499 cons(new_string("state_var"),
4449 4500 cons(cons(app,
4450   -cons(new_integer(8895263),
  4501 +cons(new_integer(8898847),
4451 4502 cons(cons(symbol,
4452   -cons(new_integer(8895262),
  4503 +cons(new_integer(8898846),
4453 4504 new_string("var"))),
4454 4505 cons(cons(of_type,
4455   -cons(new_integer(8895264),
  4506 +cons(new_integer(8898848),
4456 4507 cons(new_string("Bool"),
4457 4508 cons(symbol,
4458   -cons(new_integer(8895273),
  4509 +cons(new_integer(8898857),
4459 4510 new_string("true")))))),
4460 4511 nil)))),
4461 4512 cons(with,
4462   -cons(new_integer(8895514),
  4513 +cons(new_integer(8899098),
4463 4514 cons(new_string("udp_socket"),
4464 4515 cons(cons(app,
4465   -cons(new_integer(8895527),
  4516 +cons(new_integer(8899111),
4466 4517 cons(cons(symbol,
4467   -cons(new_integer(8895526),
  4518 +cons(new_integer(8899110),
4468 4519 new_string("£udp_socket"))),
4469 4520 cons(cons(symbol,
4470   -cons(new_integer(8895533),
  4521 +cons(new_integer(8899117),
4471 4522 new_string("socket"))),
4472 4523 nil)))),
4473 4524 cons(delegate,
4474   -cons(new_integer(8895762),
  4525 +cons(new_integer(8899346),
4475 4526 cons(cons(app,
4476   -cons(new_integer(8895779),
  4527 +cons(new_integer(8899363),
4477 4528 cons(cons(symbol,
4478   -cons(new_integer(8895778),
  4529 +cons(new_integer(8899362),
4479 4530 new_string("£run_udp_server"))),
4480 4531 cons(cons(symbol,
4481   -cons(new_integer(8895789),
  4532 +cons(new_integer(8899373),
4482 4533 new_string("udp_socket"))),
4483 4534 cons(cons(symbol,
4484   -cons(new_integer(8895797),
  4535 +cons(new_integer(8899381),
4485 4536 new_string("handler"))),
4486 4537 cons(cons(symbol,
4487   -cons(new_integer(8895813),
  4538 +cons(new_integer(8899397),
4488 4539 new_string("max_packet_size"))),
4489 4540 cons(cons(symbol,
4490   -cons(new_integer(8895823),
  4541 +cons(new_integer(8899407),
4491 4542 new_string("state_var"))),
4492 4543 cons(cons(symbol,
4493   -cons(new_integer(8895830),
  4544 +cons(new_integer(8899414),
4494 4545 new_string("notify"))),
4495 4546 nil)))))))),
4496 4547 cons(app,
4497   -cons(new_integer(8896013),
  4548 +cons(new_integer(8899597),
4498 4549 cons(cons(symbol,
4499   -cons(new_integer(8896012),
  4550 +cons(new_integer(8899596),
4500 4551 new_string("ok"))),
4501 4552 cons(cons(app,
4502   -cons(new_integer(8896025),
  4553 +cons(new_integer(8899609),
4503 4554 cons(cons(symbol,
4504   -cons(new_integer(8896024),
  4555 +cons(new_integer(8899608),
4505 4556 new_string("£udp_server"))),
4506 4557 cons(cons(symbol,
4507   -cons(new_integer(8896034),
  4558 +cons(new_integer(8899618),
4508 4559 new_string("state_var"))),
4509 4560 nil)))),
4510 4561 nil))))))))))))))))),
4511 4562 nil))))))));
4512 4563  
4513   -new_op_scheme(17795100,1,
  4564 +new_op_scheme(17802268,1,
4514 4565 new_string("Bool"),
4515 4566 cons(new_string("is_down"),
4516 4567 nil),
... ... @@ -4518,40 +4569,40 @@ cons(cons(new_string("UDP_Server"),
4518 4569 new_string("server")),
4519 4570 nil),
4520 4571 cons(cond,
4521   -cons(new_integer(8898822),
  4572 +cons(new_integer(8902406),
4522 4573 cons(cons(symbol,
4523   -cons(new_integer(8898829),
  4574 +cons(new_integer(8902413),
4524 4575 new_string("server"))),
4525 4576 cons(cons(cons(new_string("£udp_server"),
4526 4577 cons(new_string("v"),
4527 4578 nil)),
4528   -cons(new_integer(8898852),
  4579 +cons(new_integer(8902436),
4529 4580 cons(cond,
4530   -cons(new_integer(8899078),
  4581 +cons(new_integer(8902662),
4531 4582 cons(cons(of_type,
4532   -cons(new_integer(8899078),
  4583 +cons(new_integer(8902662),
4533 4584 cons(new_string("Bool"),
4534 4585 cons(anb_read,
4535   -cons(new_integer(8899080),
  4586 +cons(new_integer(8902664),
4536 4587 cons(symbol,
4537   -cons(new_integer(8899081),
  4588 +cons(new_integer(8902665),
4538 4589 new_string("v")))))))),
4539 4590 cons(cons(cons(new_string("false"),
4540 4591 nil),
4541   -cons(new_integer(8899097),
  4592 +cons(new_integer(8902681),
4542 4593 cons(symbol,
4543   -cons(new_integer(8899102),
  4594 +cons(new_integer(8902686),
4544 4595 new_string("true"))))),
4545 4596 cons(cons(cons(new_string("true"),
4546 4597 nil),
4547   -cons(new_integer(8899086),
  4598 +cons(new_integer(8902670),
4548 4599 cons(symbol,
4549   -cons(new_integer(8899092),
  4600 +cons(new_integer(8902676),
4550 4601 new_string("false"))))),
4551 4602 nil))))))),
4552 4603 nil)))));
4553 4604  
4554   -new_op_scheme(17800732,1,
  4605 +new_op_scheme(17807900,1,
4555 4606 new_string("One"),
4556 4607 cons(new_string("shutdown"),
4557 4608 nil),
... ... @@ -4559,25 +4610,25 @@ cons(cons(new_string("UDP_Server"),
4559 4610 new_string("server")),
4560 4611 nil),
4561 4612 cons(cond,
4562   -cons(new_integer(8901638),
  4613 +cons(new_integer(8905222),
4563 4614 cons(cons(symbol,
4564   -cons(new_integer(8901645),
  4615 +cons(new_integer(8905229),
4565 4616 new_string("server"))),
4566 4617 cons(cons(cons(new_string("£udp_server"),
4567 4618 cons(new_string("v"),
4568 4619 nil)),
4569   -cons(new_integer(8901668),
  4620 +cons(new_integer(8905252),
4570 4621 cons(anb_write,
4571   -cons(new_integer(8901896),
  4622 +cons(new_integer(8905480),
4572 4623 cons(cons(symbol,
4573   -cons(new_integer(8901893),
  4624 +cons(new_integer(8905477),
4574 4625 new_string("v"))),
4575 4626 cons(symbol,
4576   -cons(new_integer(8901902),
  4627 +cons(new_integer(8905486),
4577 4628 new_string("false")))))))),
4578 4629 nil)))));
4579 4630  
4580   -new_op_scheme(17814044,1,
  4631 +new_op_scheme(17821212,1,
4581 4632 cons(app_ts,
4582 4633 cons(new_string("Maybe"),
4583 4634 cons(new_string("Int8"),
... ... @@ -4598,11 +4649,11 @@ nil))),
4598 4649 new_string("operands")),
4599 4650 nil))),
4600 4651 cons(avm,
4601   -cons(new_integer(8908558),
  4652 +cons(new_integer(8912142),
4602 4653 cons(do_execute,
4603 4654 nil))));
4604 4655  
4605   -new_op_scheme(17825820,1,
  4656 +new_op_scheme(17832988,1,
4606 4657 cons(app_ts,
4607 4658 cons(new_string("Maybe"),
4608 4659 cons(new_string("Int8"),
... ... @@ -4618,22 +4669,22 @@ nil))),
4618 4669 new_string("operands")),
4619 4670 nil)),
4620 4671 cons(app,
4621   -cons(new_integer(8914444),
  4672 +cons(new_integer(8918028),
4622 4673 cons(cons(symbol,
4623   -cons(new_integer(8914443),
  4674 +cons(new_integer(8918027),
4624 4675 new_string("execute"))),
4625 4676 cons(cons(symbol,
4626   -cons(new_integer(8914451),
  4677 +cons(new_integer(8918035),
4627 4678 new_string("failure"))),
4628 4679 cons(cons(symbol,
4629   -cons(new_integer(8914464),
  4680 +cons(new_integer(8918048),
4630 4681 new_string("program_name"))),
4631 4682 cons(cons(symbol,
4632   -cons(new_integer(8914473),
  4683 +cons(new_integer(8918057),
4633 4684 new_string("operands"))),
4634 4685 nil)))))));
4635 4686  
4636   -new_op_scheme(17829916,1,
  4687 +new_op_scheme(17837084,1,
4637 4688 cons(app_ts,
4638 4689 cons(new_string("Maybe"),
4639 4690 cons(new_string("Int8"),
... ... @@ -4651,24 +4702,24 @@ nil))),
4651 4702 new_string("operands")),
4652 4703 nil))),
4653 4704 cons(app,
4654   -cons(new_integer(8916748),
  4705 +cons(new_integer(8920332),
4655 4706 cons(cons(symbol,
4656   -cons(new_integer(8916747),
  4707 +cons(new_integer(8920331),
4657 4708 new_string("execute"))),
4658 4709 cons(cons(app,
4659   -cons(new_integer(8916756),
  4710 +cons(new_integer(8920340),
4660 4711 cons(cons(symbol,
4661   -cons(new_integer(8916755),
  4712 +cons(new_integer(8920339),
4662 4713 new_string("success"))),
4663 4714 cons(cons(symbol,
4664   -cons(new_integer(8916775),
  4715 +cons(new_integer(8920359),
4665 4716 new_string("execution_directory"))),
4666 4717 nil)))),
4667 4718 cons(cons(symbol,
4668   -cons(new_integer(8916789),
  4719 +cons(new_integer(8920373),
4669 4720 new_string("program_name"))),
4670 4721 cons(cons(symbol,
4671   -cons(new_integer(8916798),
  4722 +cons(new_integer(8920382),
4672 4723 new_string("operands"))),
4673 4724 nil)))))));
4674 4725  
... ... @@ -4692,7 +4743,7 @@ noname),
4692 4743 nil))))),
4693 4744 nil),0,1);
4694 4745  
4695   -new_op_scheme(17855516,1,
  4746 +new_op_scheme(17862684,1,
4696 4747 cons(app_ts,
4697 4748 cons(new_string("Maybe"),
4698 4749 cons(new_string("ExecuteControl"),
... ... @@ -4713,7 +4764,7 @@ nil))),
4713 4764 new_string("operands")),
4714 4765 nil))),
4715 4766 cons(avm,
4716   -cons(new_integer(8929294),
  4767 +cons(new_integer(8932878),
4717 4768 cons(do_execute_capture,
4718 4769 nil))));
4719 4770  
... ... @@ -4733,7 +4784,7 @@ new_string("code")),
4733 4784 nil)),
4734 4785 nil))),0,1);
4735 4786  
4736   -new_op_scheme(17871388,1,
  4787 +new_op_scheme(17878556,1,
4737 4788 new_string("ExecuteStatus"),
4738 4789 cons(new_string("check_execute_status"),
4739 4790 nil),
... ... @@ -4741,11 +4792,11 @@ cons(cons(new_string("ExecuteControl"),
4741 4792 new_string("ec")),
4742 4793 nil),
4743 4794 cons(avm,
4744   -cons(new_integer(8936718),
  4795 +cons(new_integer(8940302),
4745 4796 cons(check_execute_status,
4746 4797 nil))));
4747 4798  
4748   -new_op_scheme(17879580,1,
  4799 +new_op_scheme(17886748,1,
4749 4800 type_Int32,
4750 4801 cons(new_string("random"),
4751 4802 nil),
... ... @@ -4753,11 +4804,11 @@ cons(cons(type_Int32,
4753 4804 new_string("n")),
4754 4805 nil),
4755 4806 cons(avm,
4756   -cons(new_integer(8939847),
  4807 +cons(new_integer(8943431),
4757 4808 cons(do_random,
4758 4809 nil))));
4759 4810  
4760   -new_op_scheme(17891868,1,
  4811 +new_op_scheme(17899036,1,
4761 4812 cons(type_Var,
4762 4813 new_utvar("T")),
4763 4814 cons(new_string("var"),
... ... @@ -4766,12 +4817,12 @@ cons(cons(new_utvar("T"),
4766 4817 new_string("init")),
4767 4818 nil),
4768 4819 cons(avm,
4769   -cons(new_integer(8945973),
  4820 +cons(new_integer(8949557),
4770 4821 cons(create_var,
4771 4822 cons(kill_next_instr,
4772 4823 nil)))));
4773 4824  
4774   -new_op_scheme(17940508,1,
  4825 +new_op_scheme(17947676,1,
4775 4826 type_Int32,
4776 4827 cons(new_string("var_id"),
4777 4828 nil),
... ... @@ -4780,11 +4831,11 @@ new_utvar("T")),
4780 4831 new_string("v")),
4781 4832 nil),
4782 4833 cons(avm,
4783   -cons(new_integer(8970306),
  4834 +cons(new_integer(8973890),
4784 4835 cons(var_id,
4785 4836 nil))));
4786 4837  
4787   -new_op_scheme(17948174,0,
  4838 +new_op_scheme(17955342,0,
4788 4839 cons(type_MVar,
4789 4840 new_utvar("T")),
4790 4841 cons(new_string("£mvar"),
... ... @@ -4797,14 +4848,14 @@ cons(cons(type_Int32,
4797 4848 new_string("bw")),
4798 4849 nil))),
4799 4850 cons(avm,
4800   -cons(new_integer(8974346),
  4851 +cons(new_integer(8977930),
4801 4852 cons(create_mvar,
4802 4853 cons(kill_next_instr,
4803 4854 cons(kill_next_instr,
4804 4855 cons(kill_next_instr,
4805 4856 nil)))))));
4806 4857  
4807   -new_op_scheme(17951260,1,
  4858 +new_op_scheme(17958428,1,
4808 4859 cons(type_MVar,
4809 4860 new_utvar("T")),
4810 4861 cons(new_string("mvar"),
... ... @@ -4815,78 +4866,78 @@ cons(cons(new_utvar("T"),
4815 4866 new_string("init")),
4816 4867 nil)),
4817 4868 cons(cond,
4818   -cons(new_integer(8977158),
  4869 +cons(new_integer(8980742),
4819 4870 cons(cons(of_type,
4820   -cons(new_integer(8977158),
  4871 +cons(new_integer(8980742),
4821 4872 cons(new_string("Bool"),
4822 4873 cons(app,
4823   -cons(new_integer(8977162),
  4874 +cons(new_integer(8980746),
4824 4875 cons(cons(symbol,
4825   -cons(new_integer(8977162),
  4876 +cons(new_integer(8980746),
4826 4877 new_string("<"))),
4827 4878 cons(cons(symbol,
4828   -cons(new_integer(8977160),
  4879 +cons(new_integer(8980744),
4829 4880 new_string("n"))),
4830 4881 cons(cons(integer_10,
4831   -cons(new_integer(8977164),
  4882 +cons(new_integer(8980748),
4832 4883 cons(new_integer(1),
4833 4884 nil))),
4834 4885 nil)))))))),
4835 4886 cons(cons(cons(new_string("false"),
4836 4887 nil),
4837   -cons(new_integer(8977672),
  4888 +cons(new_integer(8981256),
4838 4889 cons(app,
4839   -cons(new_integer(8977679),
  4890 +cons(new_integer(8981263),
4840 4891 cons(cons(symbol,
4841   -cons(new_integer(8977678),
  4892 +cons(new_integer(8981262),
4842 4893 new_string("£mvar"))),
4843 4894 cons(cons(symbol,
4844   -cons(new_integer(8977680),
  4895 +cons(new_integer(8981264),
4845 4896 new_string("n"))),
4846 4897 cons(cons(vcopy,
4847   -cons(new_integer(8977687),
  4898 +cons(new_integer(8981271),
4848 4899 cons(cons(app,
4849   -cons(new_integer(8977690),
  4900 +cons(new_integer(8981274),
4850 4901 cons(cons(symbol,
4851   -cons(new_integer(8977690),
  4902 +cons(new_integer(8981274),
4852 4903 new_string("-"))),
4853 4904 cons(cons(symbol,
4854   -cons(new_integer(8977689),
  4905 +cons(new_integer(8981273),
4855 4906 new_string("n"))),
4856 4907 cons(cons(integer_10,
4857   -cons(new_integer(8977691),
  4908 +cons(new_integer(8981275),
4858 4909 cons(new_integer(1),
4859 4910 nil))),
4860 4911 nil))))),
4861 4912 cons(symbol,
4862   -cons(new_integer(8977696),
  4913 +cons(new_integer(8981280),
4863 4914 new_string("init")))))),
4864 4915 cons(cons(bit_width,
4865   -cons(new_integer(8977707),
  4916 +cons(new_integer(8981291),
4866 4917 new_utvar("T"))),
4867 4918 nil)))))))),
4868 4919 cons(cons(cons(new_string("true"),
4869 4920 nil),
4870   -cons(new_integer(8977416),
  4921 +cons(new_integer(8981000),
4871 4922 cons(app,
4872   -cons(new_integer(8977423),
  4923 +cons(new_integer(8981007),
4873 4924 cons(cons(symbol,
4874   -cons(new_integer(8977422),
  4925 +cons(new_integer(8981006),
4875 4926 new_string("£mvar"))),
4876 4927 cons(cons(integer_10,
4877   -cons(new_integer(8977424),
  4928 +cons(new_integer(8981008),
4878 4929 cons(new_integer(1),
4879 4930 nil))),
4880 4931 cons(cons(symbol,
4881   -cons(new_integer(8977429),
  4932 +cons(new_integer(8981013),
4882 4933 new_string("init"))),
4883 4934 cons(cons(bit_width,
4884   -cons(new_integer(8977439),
  4935 +cons(new_integer(8981023),
4885 4936 new_utvar("T"))),
4886 4937 nil)))))))),
4887 4938 nil))))));
4888 4939  
4889   -new_op_scheme(17972764,1,
  4940 +new_op_scheme(17979932,1,
4890 4941 type_Int32,
4891 4942 cons(new_string("length"),
4892 4943 nil),
... ... @@ -4895,11 +4946,11 @@ new_utvar(&quot;T&quot;)),
4895 4946 new_string("mv")),
4896 4947 nil),
4897 4948 cons(avm,
4898   -cons(new_integer(8986439),
  4949 +cons(new_integer(8990023),
4899 4950 cons(mvar_length,
4900 4951 nil))));
4901 4952  
4902   -new_op_scheme(17976348,1,
  4953 +new_op_scheme(17983516,1,
4903 4954 cons(type_MVar,
4904 4955 new_utvar("T")),
4905 4956 cons(new_string("+"),
... ... @@ -4912,11 +4963,11 @@ new_utvar(&quot;T&quot;)),
4912 4963 new_string("mv2")),
4913 4964 nil)),
4914 4965 cons(avm,
4915   -cons(new_integer(8988936),
  4966 +cons(new_integer(8992520),
4916 4967 cons(concat_mvar,
4917 4968 nil))));
4918 4969  
4919   -new_op_scheme(17980444,1,
  4970 +new_op_scheme(17987612,1,
4920 4971 type_Int32,
4921 4972 cons(new_string("mvar_id"),
4922 4973 nil),
... ... @@ -4925,7 +4976,7 @@ new_utvar(&quot;T&quot;)),
4925 4976 new_string("mv")),
4926 4977 nil),
4927 4978 cons(avm,
4928   -cons(new_integer(8990277),
  4979 +cons(new_integer(8993861),
4929 4980 cons(var_id,
4930 4981 nil))));
4931 4982  
... ... @@ -4948,7 +4999,7 @@ new_string(&quot;£index&quot;)),
4948 4999 nil)))),
4949 5000 nil),0,1);
4950 5001  
4951   -new_op_scheme(17993756,1,
  5002 +new_op_scheme(18000924,1,
4952 5003 cons(app_ts,
4953 5004 cons(new_string("MonitoringTicket"),
4954 5005 cons(new_utvar("T"),
... ... @@ -4965,20 +5016,20 @@ new_string(&quot;One&quot;))),
4965 5016 new_string("monitor")),
4966 5017 nil)),
4967 5018 cons(avm,
4968   -cons(new_integer(8998158),
  5019 +cons(new_integer(9001742),
4969 5020 cons(register_monitor,
4970 5021 cons(pop2,
4971 5022 cons(kill_next_instr,
4972 5023 cons(kill_next_instr,
4973 5024 nil)))))));
4974 5025  
4975   -new_op_scheme(18035228,1,
  5026 +new_op_scheme(18042396,1,
4976 5027 type_Int32,
4977 5028 cons(new_string("now"),
4978 5029 nil),
4979 5030 nil,
4980 5031 cons(avm,
4981   -cons(new_integer(9017670),
  5032 +cons(new_integer(9021254),
4982 5033 cons(now,
4983 5034 nil))));
4984 5035  
... ... @@ -4994,13 +5045,13 @@ new_string(&quot;microseconds&quot;)),
4994 5045 nil))),
4995 5046 nil),0,1);
4996 5047  
4997   -new_op_scheme(18039836,1,
  5048 +new_op_scheme(18047004,1,
4998 5049 new_string("UTime"),
4999 5050 cons(new_string("now"),
5000 5051 nil),
5001 5052 nil,
5002 5053 cons(avm,
5003   -cons(new_integer(9019974),
  5054 +cons(new_integer(9023558),
5004 5055 cons(now64,
5005 5056 nil))));
5006 5057  
... ... @@ -5030,7 +5081,7 @@ new_string(&quot;daylight_saving_time&quot;)),
5030 5081 nil)))))))))),
5031 5082 nil),0,1);
5032 5083  
5033   -new_op_scheme(18052124,1,
  5084 +new_op_scheme(18059292,1,
5034 5085 new_string("Date_and_Time"),
5035 5086 cons(new_string("convert_time"),
5036 5087 nil),
... ... @@ -5038,11 +5089,11 @@ cons(cons(type_Int32,
5038 5089 new_string("t")),
5039 5090 nil),
5040 5091 cons(avm,
5041   -cons(new_integer(9026118),
  5092 +cons(new_integer(9029702),
5042 5093 cons(convert_time_from_int,
5043 5094 nil))));
5044 5095  
5045   -new_op_scheme(18052636,1,
  5096 +new_op_scheme(18059804,1,
5046 5097 type_Int32,
5047 5098 cons(new_string("convert_time"),
5048 5099 nil),
... ... @@ -5050,11 +5101,11 @@ cons(cons(new_string(&quot;Date_and_Time&quot;),
5050 5101 new_string("d")),
5051 5102 nil),
5052 5103 cons(avm,
5053   -cons(new_integer(9026374),
  5104 +cons(new_integer(9029958),
5054 5105 cons(convert_time_to_int,
5055 5106 nil))));
5056 5107  
5057   -new_op_scheme(18055708,1,
  5108 +new_op_scheme(18062876,1,
5058 5109 new_string("One"),
5059 5110 cons(new_string("set_time"),
5060 5111 nil),
... ... @@ -5062,11 +5113,11 @@ cons(cons(new_string(&quot;UTime&quot;),
5062 5113 new_string("time")),
5063 5114 nil),
5064 5115 cons(avm,
5065   -cons(new_integer(9027894),
  5116 +cons(new_integer(9031478),
5066 5117 cons(set_time,
5067 5118 nil))));
5068 5119  
5069   -new_op_scheme(18059804,1,
  5120 +new_op_scheme(18066972,1,
5070 5121 new_string("One"),
5071 5122 cons(new_string("set_time_zone"),
5072 5123 nil),
... ... @@ -5074,11 +5125,11 @@ cons(cons(type_String,
5074 5125 new_string("time_zone_name")),
5075 5126 nil),
5076 5127 cons(avm,
5077   -cons(new_integer(9029957),
  5128 +cons(new_integer(9033541),
5078 5129 cons(set_time_zone,
5079 5130 nil))));
5080 5131  
5081   -new_op_scheme(18065948,1,
  5132 +new_op_scheme(18073116,1,
5082 5133 new_string("One"),
5083 5134 cons(new_string("print"),
5084 5135 nil),
... ... @@ -5086,34 +5137,34 @@ cons(cons(type_String,
5086 5137 new_string("s")),
5087 5138 nil),
5088 5139 cons(cond,
5089   -cons(new_integer(9034245),
  5140 +cons(new_integer(9037829),
5090 5141 cons(cons(of_type,
5091   -cons(new_integer(9034245),
  5142 +cons(new_integer(9037829),
5092 5143 cons(new_string("Bool"),
5093 5144 cons(app,
5094   -cons(new_integer(9034259),
  5145 +cons(new_integer(9037843),
5095 5146 cons(cons(symbol,
5096   -cons(new_integer(9034258),
  5147 +cons(new_integer(9037842),
5097 5148 new_string("print_string"))),
5098 5149 cons(cons(symbol,
5099   -cons(new_integer(9034260),
  5150 +cons(new_integer(9037844),
5100 5151 new_string("s"))),
5101 5152 nil))))))),
5102 5153 cons(cons(cons(new_string("false"),
5103 5154 nil),
5104   -cons(new_integer(9034278),
  5155 +cons(new_integer(9037862),
5105 5156 cons(symbol,
5106   -cons(new_integer(9034285),
  5157 +cons(new_integer(9037869),
5107 5158 new_string("unique"))))),
5108 5159 cons(cons(cons(new_string("true"),
5109 5160 nil),
5110   -cons(new_integer(9034266),
  5161 +cons(new_integer(9037850),
5111 5162 cons(symbol,
5112   -cons(new_integer(9034273),
  5163 +cons(new_integer(9037857),
5113 5164 new_string("unique"))))),
5114 5165 nil))))));
5115 5166  
5116   -new_op_scheme(18069518,0,
  5167 +new_op_scheme(18076686,0,
5117 5168 new_string("One"),
5118 5169 cons(new_string("print"),
5119 5170 nil),
... ... @@ -5126,70 +5177,70 @@ cons(cons(type_Int32,
5126 5177 new_string("from")),
5127 5178 nil))),
5128 5179 cons(cond,
5129   -cons(new_integer(9036549),
  5180 +cons(new_integer(9040133),
5130 5181 cons(cons(app,
5131   -cons(new_integer(9036554),
  5182 +cons(new_integer(9040138),
5132 5183 cons(cons(symbol,
5133   -cons(new_integer(9036553),
  5184 +cons(new_integer(9040137),
5134 5185 new_string("nth"))),
5135 5186 cons(cons(symbol,
5136   -cons(new_integer(9036558),
  5187 +cons(new_integer(9040142),
5137 5188 new_string("from"))),
5138 5189 cons(cons(symbol,
5139   -cons(new_integer(9036560),
  5190 +cons(new_integer(9040144),
5140 5191 new_string("s"))),
5141 5192 nil))))),
5142 5193 cons(cons(cons(new_string("failure"),
5143 5194 nil),
5144   -cons(new_integer(9037075),
  5195 +cons(new_integer(9040659),
5145 5196 cons(symbol,
5146   -cons(new_integer(9037082),
  5197 +cons(new_integer(9040666),
5147 5198 new_string("unique"))))),
5148 5199 cons(cons(cons(new_string("success"),
5149 5200 cons(new_string("c"),
5150 5201 nil)),
5151   -cons(new_integer(9037334),
  5202 +cons(new_integer(9040918),
5152 5203 cons(cond,
5153   -cons(new_integer(9037337),
  5204 +cons(new_integer(9040921),
5154 5205 cons(cons(anb_write,
5155   -cons(new_integer(9037584),
  5206 +cons(new_integer(9041168),
5156 5207 cons(cons(symbol,
5157   -cons(new_integer(9037581),
  5208 +cons(new_integer(9041165),
5158 5209 new_string("file"))),
5159 5210 cons(symbol,
5160   -cons(new_integer(9037586),
  5211 +cons(new_integer(9041170),
5161 5212 new_string("c")))))),
5162 5213 cons(cons(cons(new_string("failure"),
5163 5214 nil),
5164   -cons(new_integer(9038105),
  5215 +cons(new_integer(9041689),
5165 5216 cons(symbol,
5166   -cons(new_integer(9038112),
  5217 +cons(new_integer(9041696),
5167 5218 new_string("unique"))))),
5168 5219 cons(cons(cons(new_string("success"),
5169 5220 cons(new_string("_"),
5170 5221 nil)),
5171   -cons(new_integer(9038364),
  5222 +cons(new_integer(9041948),
5172 5223 cons(app,
5173   -cons(new_integer(9038371),
  5224 +cons(new_integer(9041955),
5174 5225 cons(cons(symbol,
5175   -cons(new_integer(9038370),
  5226 +cons(new_integer(9041954),
5176 5227 new_string("print"))),
5177 5228 cons(cons(symbol,
5178   -cons(new_integer(9038375),
  5229 +cons(new_integer(9041959),
5179 5230 new_string("file"))),
5180 5231 cons(cons(symbol,
5181   -cons(new_integer(9038377),
  5232 +cons(new_integer(9041961),
5182 5233 new_string("s"))),
5183 5234 cons(cons(app,
5184   -cons(new_integer(9038383),
  5235 +cons(new_integer(9041967),
5185 5236 cons(cons(symbol,
5186   -cons(new_integer(9038383),
  5237 +cons(new_integer(9041967),
5187 5238 new_string("+"))),
5188 5239 cons(cons(symbol,
5189   -cons(new_integer(9038382),
  5240 +cons(new_integer(9041966),
5190 5241 new_string("from"))),
5191 5242 cons(cons(integer_10,
5192   -cons(new_integer(9038384),
  5243 +cons(new_integer(9041968),
5193 5244 cons(new_integer(1),
5194 5245 nil))),
5195 5246 nil))))),
... ... @@ -5197,7 +5248,7 @@ nil)))))))),
5197 5248 nil))))))),
5198 5249 nil))))));
5199 5250  
5200   -new_op_scheme(18078748,1,
  5251 +new_op_scheme(18085916,1,
5201 5252 new_string("One"),
5202 5253 cons(new_string("print"),
5203 5254 nil),
... ... @@ -5208,22 +5259,22 @@ cons(cons(type_String,
5208 5259 new_string("s")),
5209 5260 nil)),
5210 5261 cons(app,
5211   -cons(new_integer(9040905),
  5262 +cons(new_integer(9044489),
5212 5263 cons(cons(symbol,
5213   -cons(new_integer(9040904),
  5264 +cons(new_integer(9044488),
5214 5265 new_string("print"))),
5215 5266 cons(cons(symbol,
5216   -cons(new_integer(9040909),
  5267 +cons(new_integer(9044493),
5217 5268 new_string("file"))),
5218 5269 cons(cons(symbol,
5219   -cons(new_integer(9040911),
  5270 +cons(new_integer(9044495),
5220 5271 new_string("s"))),
5221 5272 cons(cons(integer_10,
5222   -cons(new_integer(9040913),
  5273 +cons(new_integer(9044497),
5223 5274 nil)),
5224 5275 nil)))))));
5225 5276  
5226   -new_op_scheme(18082844,1,
  5277 +new_op_scheme(18090012,1,
5227 5278 new_string("One"),
5228 5279 cons(new_string("print"),
5229 5280 nil),
... ... @@ -5231,34 +5282,34 @@ cons(cons(type_Int32,
5231 5282 new_string("n")),
5232 5283 nil),
5233 5284 cons(cond,
5234   -cons(new_integer(9042693),
  5285 +cons(new_integer(9046277),
5235 5286 cons(cons(of_type,
5236   -cons(new_integer(9042693),
  5287 +cons(new_integer(9046277),
5237 5288 cons(new_string("Bool"),
5238 5289 cons(app,
5239   -cons(new_integer(9042706),
  5290 +cons(new_integer(9046290),
5240 5291 cons(cons(symbol,
5241   -cons(new_integer(9042705),
  5292 +cons(new_integer(9046289),
5242 5293 new_string("print_int32"))),
5243 5294 cons(cons(symbol,
5244   -cons(new_integer(9042707),
  5295 +cons(new_integer(9046291),
5245 5296 new_string("n"))),
5246 5297 nil))))))),
5247 5298 cons(cons(cons(new_string("false"),
5248 5299 nil),
5249   -cons(new_integer(9042726),
  5300 +cons(new_integer(9046310),
5250 5301 cons(symbol,
5251   -cons(new_integer(9042733),
  5302 +cons(new_integer(9046317),
5252 5303 new_string("unique"))))),
5253 5304 cons(cons(cons(new_string("true"),
5254 5305 nil),
5255   -cons(new_integer(9042713),
  5306 +cons(new_integer(9046297),
5256 5307 cons(symbol,
5257   -cons(new_integer(9042720),
  5308 +cons(new_integer(9046304),
5258 5309 new_string("unique"))))),
5259 5310 nil))))));
5260 5311  
5261   -new_op_scheme(18086428,1,
  5312 +new_op_scheme(18093596,1,
5262 5313 new_string("Bool"),
5263 5314 cons(new_string("&"),
5264 5315 nil),
... ... @@ -5268,28 +5319,28 @@ cons(cons(new_string(&quot;Bool&quot;),
5268 5319 new_string("y")),
5269 5320 nil)),
5270 5321 cons(cond,
5271   -cons(new_integer(9043719),
  5322 +cons(new_integer(9047303),
5272 5323 cons(cons(of_type,
5273   -cons(new_integer(9043719),
  5324 +cons(new_integer(9047303),
5274 5325 cons(new_string("Bool"),
5275 5326 cons(symbol,
5276   -cons(new_integer(9043721),
  5327 +cons(new_integer(9047305),
5277 5328 new_string("x")))))),
5278 5329 cons(cons(cons(new_string("false"),
5279 5330 nil),
5280   -cons(new_integer(9043733),
  5331 +cons(new_integer(9047317),
5281 5332 cons(symbol,
5282   -cons(new_integer(9043739),
  5333 +cons(new_integer(9047323),
5283 5334 new_string("false"))))),
5284 5335 cons(cons(cons(new_string("true"),
5285 5336 nil),
5286   -cons(new_integer(9043726),
  5337 +cons(new_integer(9047310),
5287 5338 cons(symbol,
5288   -cons(new_integer(9043728),
  5339 +cons(new_integer(9047312),
5289 5340 new_string("y"))))),
5290 5341 nil))))));
5291 5342  
5292   -new_op_scheme(18088476,1,
  5343 +new_op_scheme(18095644,1,
5293 5344 cons(app_ts,
5294 5345 cons(new_string("List"),
5295 5346 cons(new_utvar("T"),
... ... @@ -5308,45 +5359,45 @@ nil))),
5308 5359 new_string("l2")),
5309 5360 nil)),
5310 5361 cons(cond,
5311   -cons(new_integer(9045765),
  5362 +cons(new_integer(9049349),
5312 5363 cons(cons(symbol,
5313   -cons(new_integer(9045768),
  5364 +cons(new_integer(9049352),
5314 5365 new_string("l1"))),
5315 5366 cons(cons(cons(new_string("[]"),
5316 5367 nil),
5317   -cons(new_integer(9046287),
  5368 +cons(new_integer(9049871),
5318 5369 cons(symbol,
5319   -cons(new_integer(9046290),
  5370 +cons(new_integer(9049874),
5320 5371 new_string("l2"))))),
5321 5372 cons(cons(cons(new_string("[.]"),
5322 5373 cons(new_string("h"),
5323 5374 cons(new_string("t"),
5324 5375 nil))),
5325   -cons(new_integer(9046547),
  5376 +cons(new_integer(9050131),
5326 5377 cons(app,
5327   -cons(new_integer(9046808),
  5378 +cons(new_integer(9050392),
5328 5379 cons(cons(symbol,
5329   -cons(new_integer(9046807),
  5380 +cons(new_integer(9050391),
5330 5381 new_string("reverse_append"))),
5331 5382 cons(cons(symbol,
5332   -cons(new_integer(9046809),
  5383 +cons(new_integer(9050393),
5333 5384 new_string("t"))),
5334 5385 cons(cons(app,
5335   -cons(new_integer(9046815),
  5386 +cons(new_integer(9050399),
5336 5387 cons(cons(symbol,
5337   -cons(new_integer(9046815),
  5388 +cons(new_integer(9050399),
5338 5389 new_string("[.]"))),
5339 5390 cons(cons(symbol,
5340   -cons(new_integer(9046812),
  5391 +cons(new_integer(9050396),
5341 5392 new_string("h"))),
5342 5393 cons(cons(symbol,
5343   -cons(new_integer(9046817),
  5394 +cons(new_integer(9050401),
5344 5395 new_string("l2"))),
5345 5396 nil))))),
5346 5397 nil))))))),
5347 5398 nil))))));
5348 5399  
5349   -new_op_scheme(18095132,1,
  5400 +new_op_scheme(18102300,1,
5350 5401 cons(app_ts,
5351 5402 cons(new_string("List"),
5352 5403 cons(new_utvar("T"),
... ... @@ -5360,19 +5411,19 @@ nil))),
5360 5411 new_string("l")),
5361 5412 nil),
5362 5413 cons(app,
5363   -cons(new_integer(9048850),
  5414 +cons(new_integer(9052434),
5364 5415 cons(cons(symbol,
5365   -cons(new_integer(9048849),
  5416 +cons(new_integer(9052433),
5366 5417 new_string("reverse_append"))),
5367 5418 cons(cons(symbol,
5368   -cons(new_integer(9048851),
  5419 +cons(new_integer(9052435),
5369 5420 new_string("l"))),
5370 5421 cons(cons(symbol,
5371   -cons(new_integer(9048854),
  5422 +cons(new_integer(9052438),
5372 5423 new_string("[]"))),
5373 5424 nil))))));
5374 5425  
5375   -new_op_scheme(18098716,1,
  5426 +new_op_scheme(18105884,1,
5376 5427 cons(app_ts,
5377 5428 cons(new_string("List"),
5378 5429 cons(new_utvar("T"),
... ... @@ -5391,45 +5442,45 @@ nil))),
5391 5442 new_string("l2")),
5392 5443 nil)),
5393 5444 cons(cond,
5394   -cons(new_integer(9050885),
  5445 +cons(new_integer(9054469),
5395 5446 cons(cons(symbol,
5396   -cons(new_integer(9050888),
  5447 +cons(new_integer(9054472),
5397 5448 new_string("l1"))),
5398 5449 cons(cons(cons(new_string("[]"),
5399 5450 nil),
5400   -cons(new_integer(9051407),
  5451 +cons(new_integer(9054991),
5401 5452 cons(symbol,
5402   -cons(new_integer(9051410),
  5453 +cons(new_integer(9054994),
5403 5454 new_string("l2"))))),
5404 5455 cons(cons(cons(new_string("[.]"),
5405 5456 cons(new_string("h"),
5406 5457 cons(new_string("t"),
5407 5458 nil))),
5408   -cons(new_integer(9051667),
  5459 +cons(new_integer(9055251),
5409 5460 cons(app,
5410   -cons(new_integer(9051673),
  5461 +cons(new_integer(9055257),
5411 5462 cons(cons(symbol,
5412   -cons(new_integer(9051673),
  5463 +cons(new_integer(9055257),
5413 5464 new_string("[.]"))),
5414 5465 cons(cons(symbol,
5415   -cons(new_integer(9051670),
  5466 +cons(new_integer(9055254),
5416 5467 new_string("h"))),
5417 5468 cons(cons(app,
5418   -cons(new_integer(9051680),
  5469 +cons(new_integer(9055264),
5419 5470 cons(cons(symbol,
5420   -cons(new_integer(9051679),
  5471 +cons(new_integer(9055263),
5421 5472 new_string("append"))),
5422 5473 cons(cons(symbol,
5423   -cons(new_integer(9051681),
  5474 +cons(new_integer(9055265),
5424 5475 new_string("t"))),
5425 5476 cons(cons(symbol,
5426   -cons(new_integer(9051684),
  5477 +cons(new_integer(9055268),
5427 5478 new_string("l2"))),
5428 5479 nil))))),
5429 5480 nil))))))),
5430 5481 nil))))));
5431 5482  
5432   -new_op_scheme(18104860,1,
  5483 +new_op_scheme(18112028,1,
5433 5484 new_string("Bool"),
5434 5485 cons(new_string("member"),
5435 5486 nil),
... ... @@ -5442,63 +5493,63 @@ cons(cons(new_utvar(&quot;T&quot;),
5442 5493 new_string("x")),
5443 5494 nil)),
5444 5495 cons(cond,
5445   -cons(new_integer(9054214),
  5496 +cons(new_integer(9057798),
5446 5497 cons(cons(symbol,
5447   -cons(new_integer(9054216),
  5498 +cons(new_integer(9057800),
5448 5499 new_string("l"))),
5449 5500 cons(cons(cons(new_string("[]"),
5450 5501 nil),
5451   -cons(new_integer(9054735),
  5502 +cons(new_integer(9058319),
5452 5503 cons(symbol,
5453   -cons(new_integer(9054741),
  5504 +cons(new_integer(9058325),
5454 5505 new_string("false"))))),
5455 5506 cons(cons(cons(new_string("[.]"),
5456 5507 cons(new_string("first"),
5457 5508 cons(new_string("others"),
5458 5509 nil))),
5459   -cons(new_integer(9055004),
  5510 +cons(new_integer(9058588),
5460 5511 cons(cond,
5461   -cons(new_integer(9055243),
  5512 +cons(new_integer(9058827),
5462 5513 cons(cons(of_type,
5463   -cons(new_integer(9055243),
  5514 +cons(new_integer(9058827),
5464 5515 cons(new_string("Bool"),
5465 5516 cons(app,
5466   -cons(new_integer(9055247),
  5517 +cons(new_integer(9058831),
5467 5518 cons(cons(symbol,
5468   -cons(new_integer(9055247),
  5519 +cons(new_integer(9058831),
5469 5520 new_string("="))),
5470 5521 cons(cons(symbol,
5471   -cons(new_integer(9055245),
  5522 +cons(new_integer(9058829),
5472 5523 new_string("x"))),
5473 5524 cons(cons(symbol,
5474   -cons(new_integer(9055253),
  5525 +cons(new_integer(9058837),
5475 5526 new_string("first"))),
5476 5527 nil)))))))),
5477 5528 cons(cons(cons(new_string("false"),
5478 5529 nil),
5479   -cons(new_integer(9055757),
  5530 +cons(new_integer(9059341),
5480 5531 cons(app,
5481   -cons(new_integer(9055765),
  5532 +cons(new_integer(9059349),
5482 5533 cons(cons(symbol,
5483   -cons(new_integer(9055764),
  5534 +cons(new_integer(9059348),
5484 5535 new_string("member"))),
5485 5536 cons(cons(symbol,
5486   -cons(new_integer(9055771),
  5537 +cons(new_integer(9059355),
5487 5538 new_string("others"))),
5488 5539 cons(cons(symbol,
5489   -cons(new_integer(9055773),
  5540 +cons(new_integer(9059357),
5490 5541 new_string("x"))),
5491 5542 nil))))))),
5492 5543 cons(cons(cons(new_string("true"),
5493 5544 nil),
5494   -cons(new_integer(9055501),
  5545 +cons(new_integer(9059085),
5495 5546 cons(symbol,
5496   -cons(new_integer(9055506),
  5547 +cons(new_integer(9059090),
5497 5548 new_string("true"))))),
5498 5549 nil))))))),
5499 5550 nil))))));
5500 5551  
5501   -new_op_scheme(18118684,1,
  5552 +new_op_scheme(18125852,1,
5502 5553 cons(app_ts,
5503 5554 cons(new_string("List"),
5504 5555 cons(new_utvar("B"),
... ... @@ -5517,63 +5568,63 @@ nil))),
5517 5568 new_string("l")),
5518 5569 nil)),
5519 5570 cons(cond,
5520   -cons(new_integer(9060869),
  5571 +cons(new_integer(9064453),
5521 5572 cons(cons(symbol,
5522   -cons(new_integer(9060871),
  5573 +cons(new_integer(9064455),
5523 5574 new_string("l"))),
5524 5575 cons(cons(cons(new_string("[]"),
5525 5576 nil),
5526   -cons(new_integer(9061391),
  5577 +cons(new_integer(9064975),
5527 5578 cons(symbol,
5528   -cons(new_integer(9061395),
  5579 +cons(new_integer(9064979),
5529 5580 new_string("[]"))))),
5530 5581 cons(cons(cons(new_string("[.]"),
5531 5582 cons(new_string("first_arg"),
5532 5583 cons(new_string("others_args"),
5533 5584 nil))),
5534   -cons(new_integer(9061669),
  5585 +cons(new_integer(9065253),
5535 5586 cons(with,
5536   -cons(new_integer(9061905),
  5587 +cons(new_integer(9065489),
5537 5588 cons(new_string("x"),
5538 5589 cons(cons(app,
5539   -cons(new_integer(9061908),
  5590 +cons(new_integer(9065492),
5540 5591 cons(cons(symbol,
5541   -cons(new_integer(9061907),
  5592 +cons(new_integer(9065491),
5542 5593 new_string("f"))),
5543 5594 cons(cons(symbol,
5544   -cons(new_integer(9061917),
  5595 +cons(new_integer(9065501),
5545 5596 new_string("first_arg"))),
5546 5597 nil)))),
5547 5598 cons(app,
5548   -cons(new_integer(9062416),
  5599 +cons(new_integer(9066000),
5549 5600 cons(cons(symbol,
5550   -cons(new_integer(9062416),
  5601 +cons(new_integer(9066000),
5551 5602 new_string("[.]"))),
5552 5603 cons(cons(symbol,
5553   -cons(new_integer(9062413),
  5604 +cons(new_integer(9065997),
5554 5605 new_string("x"))),
5555 5606 cons(cons(app,
5556   -cons(new_integer(9062420),
  5607 +cons(new_integer(9066004),
5557 5608 cons(cons(symbol,
5558   -cons(new_integer(9062419),
  5609 +cons(new_integer(9066003),
5559 5610 new_string("map"))),
5560 5611 cons(cons(symbol,
5561   -cons(new_integer(9062421),
  5612 +cons(new_integer(9066005),
5562 5613 new_string("f"))),
5563 5614 cons(cons(symbol,
5564   -cons(new_integer(9062433),
  5615 +cons(new_integer(9066017),
5565 5616 new_string("others_args"))),
5566 5617 nil))))),
5567 5618 nil))))))))))),
5568 5619 nil))))));
5569 5620  
5570   -new_op_scheme(18130972,1,
  5621 +new_op_scheme(18138140,1,
5571 5622 type_String,
5572 5623 cons(new_string("get_password"),
5573 5624 nil),
5574 5625 nil,
5575 5626 cons(avm,
5576   -cons(new_integer(9065539),
  5627 +cons(new_integer(9069123),
5577 5628 cons(get_password,
5578 5629 nil))));
5579 5630  
... ... @@ -5624,7 +5675,7 @@ new_string(&quot;module&quot;)),
5624 5675 nil)),
5625 5676 nil))))),0,1);
5626 5677  
5627   -new_op_scheme(18150428,1,
  5678 +new_op_scheme(18157596,1,
5628 5679 cons(app_ts,
5629 5680 cons(new_string("LoadModuleResult"),
5630 5681 cons(new_utvar("T"),
... ... @@ -5635,12 +5686,12 @@ cons(cons(type_String,
5635 5686 new_string("module_name")),
5636 5687 nil),
5637 5688 cons(load_module,
5638   -cons(new_integer(9075508),
  5689 +cons(new_integer(9079092),
5639 5690 cons(symbol,
5640   -cons(new_integer(9075520),
  5691 +cons(new_integer(9079104),
5641 5692 new_string("module_name"))))));
5642 5693  
5643   -new_op_scheme(18179100,1,
  5694 +new_op_scheme(18186268,1,
5644 5695 type_ByteArray,
5645 5696 cons(new_string("serialize"),
5646 5697 nil),
... ... @@ -5648,12 +5699,12 @@ cons(cons(new_utvar(&quot;T&quot;),
5648 5699 new_string("d")),
5649 5700 nil),
5650 5701 cons(serialize,
5651   -cons(new_integer(9089609),
  5702 +cons(new_integer(9093193),
5652 5703 cons(symbol,
5653   -cons(new_integer(9089611),
  5704 +cons(new_integer(9093195),
5654 5705 new_string("d"))))));
5655 5706  
5656   -new_op_scheme(18181660,1,
  5707 +new_op_scheme(18188828,1,
5657 5708 cons(app_ts,
5658 5709 cons(new_string("Maybe"),
5659 5710 cons(new_utvar("T"),
... ... @@ -5664,9 +5715,9 @@ cons(cons(type_ByteArray,
5664 5715 new_string("s")),
5665 5716 nil),
5666 5717 cons(unserialize,
5667   -cons(new_integer(9090891),
  5718 +cons(new_integer(9094475),
5668 5719 cons(symbol,
5669   -cons(new_integer(9090893),
  5720 +cons(new_integer(9094477),
5670 5721 new_string("s"))))));
5671 5722  
5672 5723 new_type_scheme(new_integer(0),0,
... ... @@ -5703,7 +5754,7 @@ noname),
5703 5754 nil)),
5704 5755 nil)))),0,1);
5705 5756  
5706   -new_op_scheme(18214940,1,
  5757 +new_op_scheme(18222108,1,
5707 5758 new_string("SaveResult"),
5708 5759 cons(new_string("save"),
5709 5760 nil),
... ... @@ -5713,47 +5764,47 @@ cons(cons(type_String,
5713 5764 new_string("file_name")),
5714 5765 nil)),
5715 5766 cons(cond,
5716   -cons(new_integer(9108997),
  5767 +cons(new_integer(9112581),
5717 5768 cons(cons(app,
5718   -cons(new_integer(9109012),
  5769 +cons(new_integer(9112596),
5719 5770 cons(cons(symbol,
5720   -cons(new_integer(9109011),
  5771 +cons(new_integer(9112595),
5721 5772 new_string("write_to_file"))),
5722 5773 cons(cons(symbol,
5723   -cons(new_integer(9109021),
  5774 +cons(new_integer(9112605),
5724 5775 new_string("file_name"))),
5725 5776 cons(cons(app,
5726   -cons(new_integer(9109032),
  5777 +cons(new_integer(9112616),
5727 5778 cons(cons(symbol,
5728   -cons(new_integer(9109031),
  5779 +cons(new_integer(9112615),
5729 5780 new_string("serialize"))),
5730 5781 cons(cons(symbol,
5731   -cons(new_integer(9109037),
  5782 +cons(new_integer(9112621),
5732 5783 new_string("datum"))),
5733 5784 nil)))),
5734 5785 nil))))),
5735 5786 cons(cons(cons(new_string("cannot_open_file"),
5736 5787 nil),
5737   -cons(new_integer(9109537),
  5788 +cons(new_integer(9113121),
5738 5789 cons(symbol,
5739   -cons(new_integer(9109554),
  5790 +cons(new_integer(9113138),
5740 5791 new_string("cannot_open_file"))))),
5741 5792 cons(cons(cons(new_string("write_error"),
5742 5793 cons(new_string("n"),
5743 5794 nil)),
5744   -cons(new_integer(9109793),
  5795 +cons(new_integer(9113377),
5745 5796 cons(symbol,
5746   -cons(new_integer(9109805),
  5797 +cons(new_integer(9113389),
5747 5798 new_string("write_error"))))),
5748 5799 cons(cons(cons(new_string("ok"),
5749 5800 nil),
5750   -cons(new_integer(9110049),
  5801 +cons(new_integer(9113633),
5751 5802 cons(symbol,
5752   -cons(new_integer(9110052),
  5803 +cons(new_integer(9113636),
5753 5804 new_string("ok"))))),
5754 5805 nil)))))));
5755 5806  
5756   -new_op_scheme(18221596,1,
  5807 +new_op_scheme(18228764,1,
5757 5808 cons(app_ts,
5758 5809 cons(new_string("RetrieveResult"),
5759 5810 cons(new_utvar("T"),
... ... @@ -5764,73 +5815,73 @@ cons(cons(type_String,
5764 5815 new_string("file_name")),
5765 5816 nil),
5766 5817 cons(cond,
5767   -cons(new_integer(9112069),
  5818 +cons(new_integer(9115653),
5768 5819 cons(cons(app,
5769   -cons(new_integer(9112085),
  5820 +cons(new_integer(9115669),
5770 5821 cons(cons(symbol,
5771   -cons(new_integer(9112084),
  5822 +cons(new_integer(9115668),
5772 5823 new_string("read_from_file"))),
5773 5824 cons(cons(symbol,
5774   -cons(new_integer(9112094),
  5825 +cons(new_integer(9115678),
5775 5826 new_string("file_name"))),
5776 5827 nil)))),
5777 5828 cons(cons(cons(new_string("cannot_find_file"),
5778 5829 nil),
5779   -cons(new_integer(9112608),
  5830 +cons(new_integer(9116192),
5780 5831 cons(symbol,
5781   -cons(new_integer(9112625),
  5832 +cons(new_integer(9116209),
5782 5833 new_string("cannot_find_file"))))),
5783 5834 cons(cons(cons(new_string("read_error"),
5784 5835 cons(new_string("ba"),
5785 5836 nil)),
5786   -cons(new_integer(9112864),
  5837 +cons(new_integer(9116448),
5787 5838 cons(symbol,
5788   -cons(new_integer(9112875),
  5839 +cons(new_integer(9116459),
5789 5840 new_string("read_error"))))),
5790 5841 cons(cons(cons(new_string("ok"),
5791 5842 cons(new_string("ba"),
5792 5843 nil)),
5793   -cons(new_integer(9113120),
  5844 +cons(new_integer(9116704),
5794 5845 cons(cond,
5795   -cons(new_integer(9113355),
  5846 +cons(new_integer(9116939),
5796 5847 cons(cons(of_type,
5797   -cons(new_integer(9113357),
  5848 +cons(new_integer(9116941),
5798 5849 cons(cons(app_ts,
5799 5850 cons(new_string("Maybe"),
5800 5851 cons(new_utvar("T"),
5801 5852 nil))),
5802 5853 cons(app,
5803   -cons(new_integer(9113379),
  5854 +cons(new_integer(9116963),
5804 5855 cons(cons(symbol,
5805   -cons(new_integer(9113378),
  5856 +cons(new_integer(9116962),
5806 5857 new_string("unserialize"))),
5807 5858 cons(cons(symbol,
5808   -cons(new_integer(9113381),
  5859 +cons(new_integer(9116965),
5809 5860 new_string("ba"))),
5810 5861 nil))))))),
5811 5862 cons(cons(cons(new_string("failure"),
5812 5863 nil),
5813   -cons(new_integer(9113885),
  5864 +cons(new_integer(9117469),
5814 5865 cons(symbol,
5815   -cons(new_integer(9113896),
  5866 +cons(new_integer(9117480),
5816 5867 new_string("type_error"))))),
5817 5868 cons(cons(cons(new_string("success"),
5818 5869 cons(new_string("d"),
5819 5870 nil)),
5820   -cons(new_integer(9114141),
  5871 +cons(new_integer(9117725),
5821 5872 cons(app,
5822   -cons(new_integer(9114145),
  5873 +cons(new_integer(9117729),
5823 5874 cons(cons(symbol,
5824   -cons(new_integer(9114144),
  5875 +cons(new_integer(9117728),
5825 5876 new_string("ok"))),
5826 5877 cons(cons(symbol,
5827   -cons(new_integer(9114146),
  5878 +cons(new_integer(9117730),
5828 5879 new_string("d"))),
5829 5880 nil)))))),
5830 5881 nil))))))),
5831 5882 nil)))))));
5832 5883  
5833   -new_op_scheme(18256398,0,
  5884 +new_op_scheme(18263566,0,
5834 5885 type_ByteArray,
5835 5886 cons(new_string("£md5"),
5836 5887 nil),
... ... @@ -5838,11 +5889,11 @@ cons(cons(type_ByteArray,
5838 5889 new_string("s")),
5839 5890 nil),
5840 5891 cons(avm,
5841   -cons(new_integer(9128246),
  5892 +cons(new_integer(9131830),
5842 5893 cons(md5_hash,
5843 5894 nil))));
5844 5895  
5845   -new_op_scheme(18256910,0,
  5896 +new_op_scheme(18264078,0,
5846 5897 type_ByteArray,
5847 5898 cons(new_string("£sha1"),
5848 5899 nil),
... ... @@ -5850,11 +5901,11 @@ cons(cons(type_ByteArray,
5850 5901 new_string("s")),
5851 5902 nil),
5852 5903 cons(avm,
5853   -cons(new_integer(9128502),
  5904 +cons(new_integer(9132086),
5854 5905 cons(sha1_hash,
5855 5906 nil))));
5856 5907  
5857   -new_op_scheme(18258972,1,
  5908 +new_op_scheme(18266140,1,
5858 5909 type_ByteArray,
5859 5910 cons(new_string("md5"),
5860 5911 nil),
... ... @@ -5862,22 +5913,22 @@ cons(cons(new_utvar(&quot;T&quot;),
5862 5913 new_string("d")),
5863 5914 nil),
5864 5915 cons(app,
5865   -cons(new_integer(9129538),
  5916 +cons(new_integer(9133122),
5866 5917 cons(cons(symbol,
5867   -cons(new_integer(9129537),
  5918 +cons(new_integer(9133121),
5868 5919 new_string("£md5"))),
5869 5920 cons(cons(app,
5870   -cons(new_integer(9129548),
  5921 +cons(new_integer(9133132),
5871 5922 cons(cons(symbol,
5872   -cons(new_integer(9129547),
  5923 +cons(new_integer(9133131),
5873 5924 new_string("serialize"))),
5874 5925 cons(cons(symbol,
5875   -cons(new_integer(9129549),
  5926 +cons(new_integer(9133133),
5876 5927 new_string("d"))),
5877 5928 nil)))),
5878 5929 nil)))));
5879 5930  
5880   -new_op_scheme(18259484,1,
  5931 +new_op_scheme(18266652,1,
5881 5932 type_ByteArray,
5882 5933 cons(new_string("sha1"),
5883 5934 nil),
... ... @@ -5885,17 +5936,17 @@ cons(cons(new_utvar(&quot;T&quot;),
5885 5936 new_string("d")),
5886 5937 nil),
5887 5938 cons(app,
5888   -cons(new_integer(9129795),
  5939 +cons(new_integer(9133379),
5889 5940 cons(cons(symbol,
5890   -cons(new_integer(9129794),
  5941 +cons(new_integer(9133378),
5891 5942 new_string("£sha1"))),
5892 5943 cons(cons(app,
5893   -cons(new_integer(9129805),
  5944 +cons(new_integer(9133389),
5894 5945 cons(cons(symbol,
5895   -cons(new_integer(9129804),
  5946 +cons(new_integer(9133388),
5896 5947 new_string("serialize"))),
5897 5948 cons(cons(symbol,
5898   -cons(new_integer(9129806),
  5949 +cons(new_integer(9133390),
5899 5950 new_string("d"))),
5900 5951 nil)))),
5901 5952 nil)))));
... ... @@ -5910,7 +5961,7 @@ noname),
5910 5961 nil)),
5911 5962 nil),0,1);
5912 5963  
5913   -new_op_scheme(18273806,0,
  5964 +new_op_scheme(18280974,0,
5914 5965 new_string("£BlowfishKey"),
5915 5966 cons(new_string("£create_blowfish_key"),
5916 5967 nil),
... ... @@ -5918,11 +5969,11 @@ cons(cons(type_String,
5918 5969 new_string("key")),
5919 5970 nil),
5920 5971 cons(avm,
5921   -cons(new_integer(9137933),
  5972 +cons(new_integer(9141517),
5922 5973 cons(create_blowfish_key,
5923 5974 nil))));
5924 5975  
5925   -new_op_scheme(18278414,0,
  5976 +new_op_scheme(18285582,0,
5926 5977 new_string("One"),
5927 5978 cons(new_string("£blowfish_encrypt_block"),
5928 5979 nil),
... ... @@ -5936,11 +5987,11 @@ cons(cons(type_Int32,
5936 5987 new_string("offset")),
5937 5988 nil)))),
5938 5989 cons(avm,
5939   -cons(new_integer(9141255),
  5990 +cons(new_integer(9144839),
5940 5991 cons(blowfish_encrypt_block,
5941 5992 nil))));
5942 5993  
5943   -new_op_scheme(18283534,0,
  5994 +new_op_scheme(18290702,0,
5944 5995 new_string("One"),
5945 5996 cons(new_string("£blowfish_decrypt_block"),
5946 5997 nil),
... ... @@ -5954,11 +6005,11 @@ cons(cons(type_Int32,
5954 6005 new_string("offset")),
5955 6006 nil)))),
5956 6007 cons(avm,
5957   -cons(new_integer(9143815),
  6008 +cons(new_integer(9147399),
5958 6009 cons(blowfish_decrypt_block,
5959 6010 nil))));
5960 6011  
5961   -new_op_scheme(18288654,0,
  6012 +new_op_scheme(18295822,0,
5962 6013 type_ByteArray,
5963 6014 cons(new_string("£make_blowfish_dest_for_encryption"),
5964 6015 nil),
... ... @@ -5966,97 +6017,97 @@ cons(cons(type_Int32,
5966 6017 new_string("size")),
5967 6018 nil),
5968 6019 cons(with,
5969   -cons(new_integer(9145619),
  6020 +cons(new_integer(9149203),
5970 6021 cons(new_string("remainder"),
5971 6022 cons(cons(app,
5972   -cons(new_integer(9145630),
  6023 +cons(new_integer(9149214),
5973 6024 cons(cons(symbol,
5974   -cons(new_integer(9145630),
  6025 +cons(new_integer(9149214),
5975 6026 new_string("mod"))),
5976 6027 cons(cons(symbol,
5977   -cons(new_integer(9145624),
  6028 +cons(new_integer(9149208),
5978 6029 new_string("size"))),
5979 6030 cons(cons(integer_10,
5980   -cons(new_integer(9145631),
  6031 +cons(new_integer(9149215),
5981 6032 cons(new_integer(8),
5982 6033 nil))),
5983 6034 nil))))),
5984 6035 cons(with,
5985   -cons(new_integer(9145875),
  6036 +cons(new_integer(9149459),
5986 6037 cons(new_string("new_size"),
5987 6038 cons(cons(app,
5988   -cons(new_integer(9145934),
  6039 +cons(new_integer(9149518),
5989 6040 cons(cons(symbol,
5990   -cons(new_integer(9145934),
  6041 +cons(new_integer(9149518),
5991 6042 new_string("+"))),
5992 6043 cons(cons(cond,
5993   -cons(new_integer(9145879),
  6044 +cons(new_integer(9149463),
5994 6045 cons(cons(of_type,
5995   -cons(new_integer(9145879),
  6046 +cons(new_integer(9149463),
5996 6047 cons(new_string("Bool"),
5997 6048 cons(app,
5998   -cons(new_integer(9145891),
  6049 +cons(new_integer(9149475),
5999 6050 cons(cons(symbol,
6000   -cons(new_integer(9145891),
  6051 +cons(new_integer(9149475),
6001 6052 new_string("="))),
6002 6053 cons(cons(symbol,
6003   -cons(new_integer(9145889),
  6054 +cons(new_integer(9149473),
6004 6055 new_string("remainder"))),
6005 6056 cons(cons(integer_10,
6006   -cons(new_integer(9145893),
  6057 +cons(new_integer(9149477),
6007 6058 nil)),
6008 6059 nil)))))))),
6009 6060 cons(cons(cons(new_string("false"),
6010 6061 nil),
6011   -cons(new_integer(9145908),
  6062 +cons(new_integer(9149492),
6012 6063 cons(app,
6013   -cons(new_integer(9145915),
  6064 +cons(new_integer(9149499),
6014 6065 cons(cons(symbol,
6015   -cons(new_integer(9145915),
  6066 +cons(new_integer(9149499),
6016 6067 new_string("+"))),
6017 6068 cons(cons(symbol,
6018   -cons(new_integer(9145913),
  6069 +cons(new_integer(9149497),
6019 6070 new_string("size"))),
6020 6071 cons(cons(app,
6021   -cons(new_integer(9145920),
  6072 +cons(new_integer(9149504),
6022 6073 cons(cons(symbol,
6023   -cons(new_integer(9145920),
  6074 +cons(new_integer(9149504),
6024 6075 new_string("-"))),
6025 6076 cons(cons(integer_10,
6026   -cons(new_integer(9145918),
  6077 +cons(new_integer(9149502),
6027 6078 cons(new_integer(8),
6028 6079 nil))),
6029 6080 cons(cons(symbol,
6030   -cons(new_integer(9145930),
  6081 +cons(new_integer(9149514),
6031 6082 new_string("remainder"))),
6032 6083 nil))))),
6033 6084 nil))))))),
6034 6085 cons(cons(cons(new_string("true"),
6035 6086 nil),
6036   -cons(new_integer(9145898),
  6087 +cons(new_integer(9149482),
6037 6088 cons(symbol,
6038   -cons(new_integer(9145903),
  6089 +cons(new_integer(9149487),
6039 6090 new_string("size"))))),
6040 6091 nil))))),
6041 6092 cons(cons(integer_10,
6042   -cons(new_integer(9145936),
  6093 +cons(new_integer(9149520),
6043 6094 cons(new_integer(1),
6044 6095 nil))),
6045 6096 nil))))),
6046 6097 cons(app,
6047   -cons(new_integer(9146137),
  6098 +cons(new_integer(9149721),
6048 6099 cons(cons(symbol,
6049   -cons(new_integer(9146137),
  6100 +cons(new_integer(9149721),
6050 6101 new_string("constant_byte_array"))),
6051 6102 cons(cons(symbol,
6052   -cons(new_integer(9146145),
  6103 +cons(new_integer(9149729),
6053 6104 new_string("new_size"))),
6054 6105 cons(cons(integer_10,
6055   -cons(new_integer(9146147),
  6106 +cons(new_integer(9149731),
6056 6107 nil)),
6057 6108 nil))))))))))))));
6058 6109  
6059   -new_op_scheme(18296334,0,
  6110 +new_op_scheme(18303502,0,
6060 6111 new_string("Int8"),
6061 6112 cons(new_string("£bytes_in_last_block"),
6062 6113 nil),
... ... @@ -6064,67 +6115,67 @@ cons(cons(type_Int32,
6064 6115 new_string("s")),
6065 6116 nil),
6066 6117 cons(cond,
6067   -cons(new_integer(9149445),
  6118 +cons(new_integer(9153029),
6068 6119 cons(cons(of_type,
6069   -cons(new_integer(9149445),
  6120 +cons(new_integer(9153029),
6070 6121 cons(new_string("Bool"),
6071 6122 cons(app,
6072   -cons(new_integer(9149459),
  6123 +cons(new_integer(9153043),
6073 6124 cons(cons(symbol,
6074   -cons(new_integer(9149459),
  6125 +cons(new_integer(9153043),
6075 6126 new_string("="))),
6076 6127 cons(cons(app,
6077   -cons(new_integer(9149454),
  6128 +cons(new_integer(9153038),
6078 6129 cons(cons(symbol,
6079   -cons(new_integer(9149454),
  6130 +cons(new_integer(9153038),
6080 6131 new_string("mod"))),
6081 6132 cons(cons(symbol,
6082   -cons(new_integer(9149448),
  6133 +cons(new_integer(9153032),
6083 6134 new_string("s"))),
6084 6135 cons(cons(integer_10,
6085   -cons(new_integer(9149455),
  6136 +cons(new_integer(9153039),
6086 6137 cons(new_integer(8),
6087 6138 nil))),
6088 6139 nil))))),
6089 6140 cons(cons(integer_10,
6090   -cons(new_integer(9149461),
  6141 +cons(new_integer(9153045),
6091 6142 nil)),
6092 6143 nil)))))))),
6093 6144 cons(cons(cons(new_string("false"),
6094 6145 nil),
6095   -cons(new_integer(9149959),
  6146 +cons(new_integer(9153543),
6096 6147 cons(app,
6097   -cons(new_integer(9149977),
  6148 +cons(new_integer(9153561),
6098 6149 cons(cons(symbol,
6099   -cons(new_integer(9149976),
  6150 +cons(new_integer(9153560),
6100 6151 new_string("truncate_to_int8"))),
6101 6152 cons(cons(app,
6102   -cons(new_integer(9149984),
  6153 +cons(new_integer(9153568),
6103 6154 cons(cons(symbol,
6104   -cons(new_integer(9149984),
  6155 +cons(new_integer(9153568),
6105 6156 new_string("mod"))),
6106 6157 cons(cons(symbol,
6107   -cons(new_integer(9149978),
  6158 +cons(new_integer(9153562),
6108 6159 new_string("s"))),
6109 6160 cons(cons(integer_10,
6110   -cons(new_integer(9149985),
  6161 +cons(new_integer(9153569),
6111 6162 cons(new_integer(8),
6112 6163 nil))),
6113 6164 nil))))),
6114 6165 nil)))))),
6115 6166 cons(cons(cons(new_string("true"),
6116 6167 nil),
6117   -cons(new_integer(9149703),
  6168 +cons(new_integer(9153287),
6118 6169 cons(of_type,
6119   -cons(new_integer(9149705),
  6170 +cons(new_integer(9153289),
6120 6171 cons(new_string("Int8"),
6121 6172 cons(integer_10,
6122   -cons(new_integer(9149711),
  6173 +cons(new_integer(9153295),
6123 6174 cons(new_integer(8),
6124 6175 nil)))))))),
6125 6176 nil))))));
6126 6177  
6127   -new_op_scheme(18300942,0,
  6178 +new_op_scheme(18308110,0,
6128 6179 type_ByteArray,
6129 6180 cons(new_string("£blowfish_encrypt"),
6130 6181 nil),
... ... @@ -6138,81 +6189,81 @@ cons(cons(type_Int32,
6138 6189 new_string("i")),
6139 6190 nil)))),
6140 6191 cons(cond,
6141   -cons(new_integer(9152517),
  6192 +cons(new_integer(9156101),
6142 6193 cons(cons(of_type,
6143   -cons(new_integer(9152517),
  6194 +cons(new_integer(9156101),
6144 6195 cons(new_string("Bool"),
6145 6196 cons(app,
6146   -cons(new_integer(9152522),
  6197 +cons(new_integer(9156106),
6147 6198 cons(cons(symbol,
6148   -cons(new_integer(9152522),
  6199 +cons(new_integer(9156106),
6149 6200 new_string("=<"))),
6150 6201 cons(cons(app,
6151   -cons(new_integer(9152530),
  6202 +cons(new_integer(9156114),
6152 6203 cons(cons(symbol,
6153   -cons(new_integer(9152529),
  6204 +cons(new_integer(9156113),
6154 6205 new_string("length"))),
6155 6206 cons(cons(symbol,
6156   -cons(new_integer(9152536),
  6207 +cons(new_integer(9156120),
6157 6208 new_string("source"))),
6158 6209 nil)))),
6159 6210 cons(cons(symbol,
6160   -cons(new_integer(9152519),
  6211 +cons(new_integer(9156103),
6161 6212 new_string("i"))),
6162 6213 nil)))))))),
6163 6214 cons(cons(cons(new_string("false"),
6164 6215 nil),
6165   -cons(new_integer(9153287),
  6216 +cons(new_integer(9156871),
6166 6217 cons(cond,
6167   -cons(new_integer(9153588),
  6218 +cons(new_integer(9157172),
6168 6219 cons(cons(of_type,
6169   -cons(new_integer(9153588),
  6220 +cons(new_integer(9157172),
6170 6221 cons(new_string("One"),
6171 6222 cons(app,
6172   -cons(new_integer(9153569),
  6223 +cons(new_integer(9157153),
6173 6224 cons(cons(symbol,
6174   -cons(new_integer(9153568),
  6225 +cons(new_integer(9157152),
6175 6226 new_string("£blowfish_encrypt_block"))),
6176 6227 cons(cons(symbol,
6177   -cons(new_integer(9153572),
  6228 +cons(new_integer(9157156),
6178 6229 new_string("key"))),
6179 6230 cons(cons(symbol,
6180   -cons(new_integer(9153579),
  6231 +cons(new_integer(9157163),
6181 6232 new_string("source"))),
6182 6233 cons(cons(symbol,
6183   -cons(new_integer(9153584),
  6234 +cons(new_integer(9157168),
6184 6235 new_string("dest"))),
6185 6236 cons(cons(symbol,
6186   -cons(new_integer(9153586),
  6237 +cons(new_integer(9157170),
6187 6238 new_string("i"))),
6188 6239 nil)))))))))),
6189 6240 cons(cons(cons(new_string("unique"),
6190 6241 nil),
6191   -cons(new_integer(9153588),
  6242 +cons(new_integer(9157172),
6192 6243 cons(app,
6193   -cons(new_integer(9153819),
  6244 +cons(new_integer(9157403),
6194 6245 cons(cons(symbol,
6195   -cons(new_integer(9153818),
  6246 +cons(new_integer(9157402),
6196 6247 new_string("£blowfish_encrypt"))),
6197 6248 cons(cons(symbol,
6198   -cons(new_integer(9153822),
  6249 +cons(new_integer(9157406),
6199 6250 new_string("key"))),
6200 6251 cons(cons(symbol,
6201   -cons(new_integer(9153829),
  6252 +cons(new_integer(9157413),
6202 6253 new_string("source"))),
6203 6254 cons(cons(symbol,
6204   -cons(new_integer(9153834),
  6255 +cons(new_integer(9157418),
6205 6256 new_string("dest"))),
6206 6257 cons(cons(app,
6207   -cons(new_integer(9153837),
  6258 +cons(new_integer(9157421),
6208 6259 cons(cons(symbol,
6209   -cons(new_integer(9153837),
  6260 +cons(new_integer(9157421),
6210 6261 new_string("+"))),
6211 6262 cons(cons(symbol,
6212   -cons(new_integer(9153836),
  6263 +cons(new_integer(9157420),
6213 6264 new_string("i"))),
6214 6265 cons(cons(integer_10,
6215   -cons(new_integer(9153838),
  6266 +cons(new_integer(9157422),
6216 6267 cons(new_integer(8),
6217 6268 nil))),
6218 6269 nil))))),
... ... @@ -6220,40 +6271,40 @@ nil))))))))),
6220 6271 nil)))))),
6221 6272 cons(cons(cons(new_string("true"),
6222 6273 nil),
6223   -cons(new_integer(9152775),
  6274 +cons(new_integer(9156359),
6224 6275 cons(cond,
6225   -cons(new_integer(9153090),
  6276 +cons(new_integer(9156674),
6226 6277 cons(cons(of_type,
6227   -cons(new_integer(9153090),
  6278 +cons(new_integer(9156674),
6228 6279 cons(new_string("One"),
6229 6280 cons(app,
6230   -cons(new_integer(9153040),
  6281 +cons(new_integer(9156624),
6231 6282 cons(cons(symbol,
6232   -cons(new_integer(9153039),
  6283 +cons(new_integer(9156623),
6233 6284 new_string("forget"))),
6234 6285 cons(cons(app,
6235   -cons(new_integer(9153044),
  6286 +cons(new_integer(9156628),
6236 6287 cons(cons(symbol,
6237   -cons(new_integer(9153043),
  6288 +cons(new_integer(9156627),
6238 6289 new_string("put"))),
6239 6290 cons(cons(symbol,
6240   -cons(new_integer(9153048),
  6291 +cons(new_integer(9156632),
6241 6292 new_string("dest"))),
6242 6293 cons(cons(symbol,
6243   -cons(new_integer(9153050),
  6294 +cons(new_integer(9156634),
6244 6295 new_string("i"))),
6245 6296 cons(cons(app,
6246   -cons(new_integer(9153072),
  6297 +cons(new_integer(9156656),
6247 6298 cons(cons(symbol,
6248   -cons(new_integer(9153071),
  6299 +cons(new_integer(9156655),
6249 6300 new_string("£bytes_in_last_block"))),
6250 6301 cons(cons(app,
6251   -cons(new_integer(9153079),
  6302 +cons(new_integer(9156663),
6252 6303 cons(cons(symbol,
6253   -cons(new_integer(9153078),
  6304 +cons(new_integer(9156662),
6254 6305 new_string("length"))),
6255 6306 cons(cons(symbol,
6256   -cons(new_integer(9153085),
  6307 +cons(new_integer(9156669),
6257 6308 new_string("source"))),
6258 6309 nil)))),
6259 6310 nil)))),
... ... @@ -6261,14 +6312,14 @@ nil)))))),
6261 6312 nil))))))),
6262 6313 cons(cons(cons(new_string("unique"),
6263 6314 nil),
6264   -cons(new_integer(9153090),
  6315 +cons(new_integer(9156674),
6265 6316 cons(symbol,
6266   -cons(new_integer(9153095),
  6317 +cons(new_integer(9156679),
6267 6318 new_string("dest"))))),
6268 6319 nil)))))),
6269 6320 nil))))));
6270 6321  
6271   -new_op_scheme(18308622,0,
  6322 +new_op_scheme(18315790,0,
6272 6323 type_ByteArray,
6273 6324 cons(new_string("£blowfish_decrypt"),
6274 6325 nil),
... ... @@ -6282,91 +6333,91 @@ cons(cons(type_Int32,
6282 6333 new_string("i")),
6283 6334 nil)))),
6284 6335 cons(cond,
6285   -cons(new_integer(9156357),
  6336 +cons(new_integer(9159941),
6286 6337 cons(cons(of_type,
6287   -cons(new_integer(9156357),
  6338 +cons(new_integer(9159941),
6288 6339 cons(new_string("Bool"),
6289 6340 cons(app,
6290   -cons(new_integer(9156362),
  6341 +cons(new_integer(9159946),
6291 6342 cons(cons(symbol,
6292   -cons(new_integer(9156362),
  6343 +cons(new_integer(9159946),
6293 6344 new_string("=<"))),
6294 6345 cons(cons(app,
6295   -cons(new_integer(9156380),
  6346 +cons(new_integer(9159964),
6296 6347 cons(cons(symbol,
6297   -cons(new_integer(9156380),
  6348 +cons(new_integer(9159964),
6298 6349 new_string("-"))),
6299 6350 cons(cons(app,
6300   -cons(new_integer(9156371),
  6351 +cons(new_integer(9159955),
6301 6352 cons(cons(symbol,
6302   -cons(new_integer(9156370),
  6353 +cons(new_integer(9159954),
6303 6354 new_string("length"))),
6304 6355 cons(cons(symbol,
6305   -cons(new_integer(9156377),
  6356 +cons(new_integer(9159961),
6306 6357 new_string("source"))),
6307 6358 nil)))),
6308 6359 cons(cons(integer_10,
6309   -cons(new_integer(9156382),
  6360 +cons(new_integer(9159966),
6310 6361 cons(new_integer(1),
6311 6362 nil))),
6312 6363 nil))))),
6313 6364 cons(cons(symbol,
6314   -cons(new_integer(9156359),
  6365 +cons(new_integer(9159943),
6315 6366 new_string("i"))),
6316 6367 nil)))))))),
6317 6368 cons(cons(cons(new_string("false"),
6318 6369 nil),
6319   -cons(new_integer(9157127),
  6370 +cons(new_integer(9160711),
6320 6371 cons(cond,
6321   -cons(new_integer(9157428),
  6372 +cons(new_integer(9161012),
6322 6373 cons(cons(of_type,
6323   -cons(new_integer(9157428),
  6374 +cons(new_integer(9161012),
6324 6375 cons(new_string("One"),
6325 6376 cons(app,
6326   -cons(new_integer(9157409),
  6377 +cons(new_integer(9160993),
6327 6378 cons(cons(symbol,
6328   -cons(new_integer(9157408),
  6379 +cons(new_integer(9160992),
6329 6380 new_string("£blowfish_decrypt_block"))),
6330 6381 cons(cons(symbol,
6331   -cons(new_integer(9157412),
  6382 +cons(new_integer(9160996),
6332 6383 new_string("key"))),
6333 6384 cons(cons(symbol,
6334   -cons(new_integer(9157419),
  6385 +cons(new_integer(9161003),
6335 6386 new_string("source"))),
6336 6387 cons(cons(symbol,
6337   -cons(new_integer(9157424),
  6388 +cons(new_integer(9161008),
6338 6389 new_string("dest"))),
6339 6390 cons(cons(symbol,
6340   -cons(new_integer(9157426),
  6391 +cons(new_integer(9161010),
6341 6392 new_string("i"))),
6342 6393 nil)))))))))),
6343 6394 cons(cons(cons(new_string("unique"),
6344 6395 nil),
6345   -cons(new_integer(9157428),
  6396 +cons(new_integer(9161012),
6346 6397 cons(app,
6347   -cons(new_integer(9157659),
  6398 +cons(new_integer(9161243),
6348 6399 cons(cons(symbol,
6349   -cons(new_integer(9157658),
  6400 +cons(new_integer(9161242),
6350 6401 new_string("£blowfish_decrypt"))),
6351 6402 cons(cons(symbol,
6352   -cons(new_integer(9157662),
  6403 +cons(new_integer(9161246),
6353 6404 new_string("key"))),
6354 6405 cons(cons(symbol,
6355   -cons(new_integer(9157669),
  6406 +cons(new_integer(9161253),
6356 6407 new_string("source"))),
6357 6408 cons(cons(symbol,
6358   -cons(new_integer(9157674),
  6409 +cons(new_integer(9161258),
6359 6410 new_string("dest"))),
6360 6411 cons(cons(app,
6361   -cons(new_integer(9157677),
  6412 +cons(new_integer(9161261),
6362 6413 cons(cons(symbol,
6363   -cons(new_integer(9157677),
  6414 +cons(new_integer(9161261),
6364 6415 new_string("+"))),
6365 6416 cons(cons(symbol,
6366   -cons(new_integer(9157676),
  6417 +cons(new_integer(9161260),
6367 6418 new_string("i"))),
6368 6419 cons(cons(integer_10,
6369   -cons(new_integer(9157678),
  6420 +cons(new_integer(9161262),
6370 6421 cons(new_integer(8),
6371 6422 nil))),
6372 6423 nil))))),
... ... @@ -6374,53 +6425,53 @@ nil))))))))),
6374 6425 nil)))))),
6375 6426 cons(cons(cons(new_string("true"),
6376 6427 nil),
6377   -cons(new_integer(9156615),
  6428 +cons(new_integer(9160199),
6378 6429 cons(cond,
6379   -cons(new_integer(9156927),
  6430 +cons(new_integer(9160511),
6380 6431 cons(cons(of_type,
6381   -cons(new_integer(9156927),
  6432 +cons(new_integer(9160511),
6382 6433 cons(new_string("One"),
6383 6434 cons(app,
6384   -cons(new_integer(9156882),
  6435 +cons(new_integer(9160466),
6385 6436 cons(cons(symbol,
6386   -cons(new_integer(9156881),
  6437 +cons(new_integer(9160465),
6387 6438 new_string("truncate"))),
6388 6439 cons(cons(symbol,
6389   -cons(new_integer(9156886),
  6440 +cons(new_integer(9160470),
6390 6441 new_string("dest"))),
6391 6442 cons(cons(app,
6392   -cons(new_integer(9156889),
  6443 +cons(new_integer(9160473),
6393 6444 cons(cons(symbol,
6394   -cons(new_integer(9156889),
  6445 +cons(new_integer(9160473),
6395 6446 new_string("+"))),
6396 6447 cons(cons(symbol,
6397   -cons(new_integer(9156888),
  6448 +cons(new_integer(9160472),
6398 6449 new_string("i"))),
6399 6450 cons(cons(app,
6400   -cons(new_integer(9156924),
  6451 +cons(new_integer(9160508),
6401 6452 cons(cons(symbol,
6402   -cons(new_integer(9156924),
  6453 +cons(new_integer(9160508),
6403 6454 new_string("-"))),
6404 6455 cons(cons(app,
6405   -cons(new_integer(9156903),
  6456 +cons(new_integer(9160487),
6406 6457 cons(cons(symbol,
6407   -cons(new_integer(9156902),
  6458 +cons(new_integer(9160486),
6408 6459 new_string("int8_to_int32"))),
6409 6460 cons(cons(app,
6410   -cons(new_integer(9156913),
  6461 +cons(new_integer(9160497),
6411 6462 cons(cons(symbol,
6412   -cons(new_integer(9156912),
  6463 +cons(new_integer(9160496),
6413 6464 new_string("force_nth"))),
6414 6465 cons(cons(symbol,
6415   -cons(new_integer(9156914),
  6466 +cons(new_integer(9160498),
6416 6467 new_string("i"))),
6417 6468 cons(cons(symbol,
6418   -cons(new_integer(9156921),
  6469 +cons(new_integer(9160505),
6419 6470 new_string("source"))),
6420 6471 nil))))),
6421 6472 nil)))),
6422 6473 cons(cons(integer_10,
6423   -cons(new_integer(9156925),
  6474 +cons(new_integer(9160509),
6424 6475 cons(new_integer(8),
6425 6476 nil))),
6426 6477 nil))))),
... ... @@ -6428,14 +6479,14 @@ nil))))),
6428 6479 nil)))))))),
6429 6480 cons(cons(cons(new_string("unique"),
6430 6481 nil),
6431   -cons(new_integer(9156927),
  6482 +cons(new_integer(9160511),
6432 6483 cons(symbol,
6433   -cons(new_integer(9156932),
  6484 +cons(new_integer(9160516),
6434 6485 new_string("dest"))))),
6435 6486 nil)))))),
6436 6487 nil))))));
6437 6488  
6438   -new_op_scheme(18317852,1,
  6489 +new_op_scheme(18325020,1,
6439 6490 type_ByteArray,
6440 6491 cons(new_string("blowfish_encrypt"),
6441 6492 nil),
... ... @@ -6445,61 +6496,61 @@ cons(cons(new_utvar(&quot;T&quot;),
6445 6496 new_string("datum")),
6446 6497 nil)),
6447 6498 cons(with,
6448   -cons(new_integer(9160464),
  6499 +cons(new_integer(9164048),
6449 6500 cons(new_string("source"),
6450 6501 cons(cons(app,
6451   -cons(new_integer(9160475),
  6502 +cons(new_integer(9164059),
6452 6503 cons(cons(symbol,
6453   -cons(new_integer(9160474),
  6504 +cons(new_integer(9164058),
6454 6505 new_string("serialize"))),
6455 6506 cons(cons(symbol,
6456   -cons(new_integer(9160480),
  6507 +cons(new_integer(9164064),
6457 6508 new_string("datum"))),
6458 6509 nil)))),
6459 6510 cons(with,
6460   -cons(new_integer(9160720),
  6511 +cons(new_integer(9164304),
6461 6512 cons(new_string("dest"),
6462 6513 cons(cons(app,
6463   -cons(new_integer(9160756),
  6514 +cons(new_integer(9164340),
6464 6515 cons(cons(symbol,
6465   -cons(new_integer(9160755),
  6516 +cons(new_integer(9164339),
6466 6517 new_string("£make_blowfish_dest_for_encryption"))),
6467 6518 cons(cons(app,
6468   -cons(new_integer(9160763),
  6519 +cons(new_integer(9164347),
6469 6520 cons(cons(symbol,
6470   -cons(new_integer(9160762),
  6521 +cons(new_integer(9164346),
6471 6522 new_string("length"))),
6472 6523 cons(cons(symbol,
6473   -cons(new_integer(9160769),
  6524 +cons(new_integer(9164353),
6474 6525 new_string("source"))),
6475 6526 nil)))),
6476 6527 nil)))),
6477 6528 cons(app,
6478   -cons(new_integer(9160981),
  6529 +cons(new_integer(9164565),
6479 6530 cons(cons(symbol,
6480   -cons(new_integer(9160981),
  6531 +cons(new_integer(9164565),
6481 6532 new_string("£blowfish_encrypt"))),
6482 6533 cons(cons(app,
6483   -cons(new_integer(9161002),
  6534 +cons(new_integer(9164586),
6484 6535 cons(cons(symbol,
6485   -cons(new_integer(9161001),
  6536 +cons(new_integer(9164585),
6486 6537 new_string("£create_blowfish_key"))),
6487 6538 cons(cons(symbol,
6488   -cons(new_integer(9161005),
  6539 +cons(new_integer(9164589),
6489 6540 new_string("key"))),
6490 6541 nil)))),
6491 6542 cons(cons(symbol,
6492   -cons(new_integer(9161013),
  6543 +cons(new_integer(9164597),
6493 6544 new_string("source"))),
6494 6545 cons(cons(symbol,
6495   -cons(new_integer(9161018),
  6546 +cons(new_integer(9164602),
6496 6547 new_string("dest"))),
6497 6548 cons(cons(integer_10,
6498   -cons(new_integer(9161020),
  6549 +cons(new_integer(9164604),
6499 6550 nil)),
6500 6551 nil))))))))))))))));
6501 6552  
6502   -new_op_scheme(18322972,1,
  6553 +new_op_scheme(18330140,1,
6503 6554 cons(app_ts,
6504 6555 cons(new_string("Maybe"),
6505 6556 cons(new_utvar("T"),
... ... @@ -6512,53 +6563,53 @@ cons(cons(type_ByteArray,
6512 6563 new_string("source")),
6513 6564 nil)),
6514 6565 cons(with,
6515   -cons(new_integer(9163022),
  6566 +cons(new_integer(9166606),
6516 6567 cons(new_string("dest"),
6517 6568 cons(cons(app,
6518   -cons(new_integer(9163043),
  6569 +cons(new_integer(9166627),
6519 6570 cons(cons(symbol,
6520   -cons(new_integer(9163042),
  6571 +cons(new_integer(9166626),
6521 6572 new_string("constant_byte_array"))),
6522 6573 cons(cons(app,
6523   -cons(new_integer(9163050),
  6574 +cons(new_integer(9166634),
6524 6575 cons(cons(symbol,
6525   -cons(new_integer(9163049),
  6576 +cons(new_integer(9166633),
6526 6577 new_string("length"))),
6527 6578 cons(cons(symbol,
6528   -cons(new_integer(9163056),
  6579 +cons(new_integer(9166640),
6529 6580 new_string("source"))),
6530 6581 nil)))),
6531 6582 cons(cons(integer_10,
6532   -cons(new_integer(9163059),
  6583 +cons(new_integer(9166643),
6533 6584 nil)),
6534 6585 nil))))),
6535 6586 cons(app,
6536   -cons(new_integer(9163279),
  6587 +cons(new_integer(9166863),
6537 6588 cons(cons(symbol,
6538   -cons(new_integer(9163279),
  6589 +cons(new_integer(9166863),
6539 6590 new_string("unserialize"))),
6540 6591 cons(cons(app,
6541   -cons(new_integer(9163297),
  6592 +cons(new_integer(9166881),
6542 6593 cons(cons(symbol,
6543   -cons(new_integer(9163296),
  6594 +cons(new_integer(9166880),
6544 6595 new_string("£blowfish_decrypt"))),
6545 6596 cons(cons(app,
6546   -cons(new_integer(9163318),
  6597 +cons(new_integer(9166902),
6547 6598 cons(cons(symbol,
6548   -cons(new_integer(9163317),
  6599 +cons(new_integer(9166901),
6549 6600 new_string("£create_blowfish_key"))),
6550 6601 cons(cons(symbol,
6551   -cons(new_integer(9163321),
  6602 +cons(new_integer(9166905),
6552 6603 new_string("key"))),
6553 6604 nil)))),
6554 6605 cons(cons(symbol,
6555   -cons(new_integer(9163329),
  6606 +cons(new_integer(9166913),
6556 6607 new_string("source"))),
6557 6608 cons(cons(symbol,
6558   -cons(new_integer(9163334),
  6609 +cons(new_integer(9166918),
6559 6610 new_string("dest"))),
6560 6611 cons(cons(integer_10,
6561   -cons(new_integer(9163336),
  6612 +cons(new_integer(9166920),
6562 6613 nil)),
6563 6614 nil))))))),
6564 6615 nil)))))))));
... ... @@ -6609,7 +6660,7 @@ noname),
6609 6660 nil)),
6610 6661 nil),0,1);
6611 6662  
6612   -new_op_scheme(18371086,0,
  6663 +new_op_scheme(18378254,0,
6613 6664 type_String,
6614 6665 cons(new_string("£to_string"),
6615 6666 nil),
... ... @@ -6618,11 +6669,11 @@ new_integer(2)),
6618 6669 new_string("ptr")),
6619 6670 nil),
6620 6671 cons(avm,
6621   -cons(new_integer(9186573),
  6672 +cons(new_integer(9190157),
6622 6673 cons(print_X509,
6623 6674 nil))));
6624 6675  
6625   -new_op_scheme(18374172,1,
  6676 +new_op_scheme(18381340,1,
6626 6677 type_String,
6627 6678 cons(new_string("to_string"),
6628 6679 nil),
... ... @@ -6630,21 +6681,21 @@ cons(cons(new_string(&quot;X509&quot;),
6630 6681 new_string("certificate")),
6631 6682 nil),
6632 6683 cons(cond,
6633   -cons(new_integer(9188357),
  6684 +cons(new_integer(9191941),
6634 6685 cons(cons(symbol,
6635   -cons(new_integer(9188369),
  6686 +cons(new_integer(9191953),
6636 6687 new_string("certificate"))),
6637 6688 cons(cons(cons(new_string("£x509"),
6638 6689 cons(new_string("ptr"),
6639 6690 nil)),
6640   -cons(new_integer(9188388),
  6691 +cons(new_integer(9191972),
6641 6692 cons(app,
6642   -cons(new_integer(9188400),
  6693 +cons(new_integer(9191984),
6643 6694 cons(cons(symbol,
6644   -cons(new_integer(9188399),
  6695 +cons(new_integer(9191983),
6645 6696 new_string("£to_string"))),
6646 6697 cons(cons(symbol,
6647   -cons(new_integer(9188403),
  6698 +cons(new_integer(9191987),
6648 6699 new_string("ptr"))),
6649 6700 nil)))))),
6650 6701 nil)))));
... ... @@ -6669,7 +6720,7 @@ nil),
6669 6720 nil),
6670 6721 nil))))),0,1);
6671 6722  
6672   -new_op_scheme(18384910,0,
  6723 +new_op_scheme(18392078,0,
6673 6724 new_string("Result_trust_X509_for_ever"),
6674 6725 cons(new_string("£trust_for_ever"),
6675 6726 nil),
... ... @@ -6678,11 +6729,11 @@ new_integer(2)),
6678 6729 new_string("ptr")),
6679 6730 nil),
6680 6731 cons(avm,
6681   -cons(new_integer(9193485),
  6732 +cons(new_integer(9197069),
6682 6733 cons(trust_X509_for_ever,
6683 6734 nil))));
6684 6735  
6685   -new_op_scheme(18387996,1,
  6736 +new_op_scheme(18395164,1,
6686 6737 new_string("Result_trust_X509_for_ever"),
6687 6738 cons(new_string("trust_for_ever"),
6688 6739 nil),
... ... @@ -6690,21 +6741,21 @@ cons(cons(new_string(&quot;X509&quot;),
6690 6741 new_string("cert")),
6691 6742 nil),
6692 6743 cons(cond,
6693   -cons(new_integer(9195269),
  6744 +cons(new_integer(9198853),
6694 6745 cons(cons(symbol,
6695   -cons(new_integer(9195274),
  6746 +cons(new_integer(9198858),
6696 6747 new_string("cert"))),
6697 6748 cons(cons(cons(new_string("£x509"),
6698 6749 cons(new_string("ptr"),
6699 6750 nil)),
6700   -cons(new_integer(9195293),
  6751 +cons(new_integer(9198877),
6701 6752 cons(app,
6702   -cons(new_integer(9195310),
  6753 +cons(new_integer(9198894),
6703 6754 cons(cons(symbol,
6704   -cons(new_integer(9195309),
  6755 +cons(new_integer(9198893),
6705 6756 new_string("£trust_for_ever"))),
6706 6757 cons(cons(symbol,
6707   -cons(new_integer(9195313),
  6758 +cons(new_integer(9198897),
6708 6759 new_string("ptr"))),
6709 6760 nil)))))),
6710 6761 nil)))));
... ... @@ -6726,7 +6777,7 @@ noname),
6726 6777 nil)),
6727 6778 nil))),0,1);
6728 6779  
6729   -new_op_scheme(18401806,0,
  6780 +new_op_scheme(18408974,0,
6730 6781 new_string("£SSL_client_wrap_Result"),
6731 6782 cons(new_string("£ssl_client_wrap"),
6732 6783 nil),
... ... @@ -6735,11 +6786,11 @@ new_string(&quot;Int8&quot;)),
6735 6786 new_string("tcp_conn")),
6736 6787 nil),
6737 6788 cons(avm,
6738   -cons(new_integer(9201933),
  6789 +cons(new_integer(9205517),
6739 6790 cons(ssl_client_wrap,
6740 6791 nil))));
6741 6792  
6742   -new_op_scheme(18405902,0,
  6793 +new_op_scheme(18413070,0,
6743 6794 new_string("Bool"),
6744 6795 cons(new_string("£check_certificate_chain"),
6745 6796 nil),
... ... @@ -6750,11 +6801,11 @@ cons(cons(type_String,
6750 6801 new_string("server_name")),
6751 6802 nil)),
6752 6803 cons(avm,
6753   -cons(new_integer(9204237),
  6804 +cons(new_integer(9207821),
6754 6805 cons(check_certificate_chain,
6755 6806 nil))));
6756 6807  
6757   -new_op_scheme(18409486,0,
  6808 +new_op_scheme(18416654,0,
6758 6809 cons(app_ts,
6759 6810 cons(new_string("Maybe"),
6760 6811 cons(new_string("X509"),
... ... @@ -6766,11 +6817,11 @@ new_integer(1)),
6766 6817 new_string("ssl_obj")),
6767 6818 nil),
6768 6819 cons(avm,
6769   -cons(new_integer(9205773),
  6820 +cons(new_integer(9209357),
6770 6821 cons(get_ssl_certificate,
6771 6822 nil))));
6772 6823  
6773   -new_op_scheme(18413596,1,
  6824 +new_op_scheme(18420764,1,
6774 6825 cons(app_ts,
6775 6826 cons(new_string("Result"),
6776 6827 cons(new_string("SSLConnectError"),
... ... @@ -6794,9 +6845,9 @@ new_string(&quot;Bool&quot;))),
6794 6845 new_string("accept_policy")),
6795 6846 nil)))),
6796 6847 cons(cond,
6797   -cons(new_integer(9209605),
  6848 +cons(new_integer(9213189),
6798 6849 cons(cons(connect_to_IP,
6799   -cons(new_integer(9209666),
  6850 +cons(new_integer(9213250),
6800 6851 cons(cons(app_ts,
6801 6852 cons(new_string("Result"),
6802 6853 cons(new_string("NetworkConnectError"),
... ... @@ -6804,171 +6855,171 @@ cons(cons(type_RWAddr,
6804 6855 new_string("Int8")),
6805 6856 nil)))),
6806 6857 cons(cons(symbol,
6807   -cons(new_integer(9209677),
  6858 +cons(new_integer(9213261),
6808 6859 new_string("ip_address"))),
6809 6860 cons(symbol,
6810   -cons(new_integer(9209685),
  6861 +cons(new_integer(9213269),
6811 6862 new_string("ip_port"))))))),
6812 6863 cons(cons(cons(new_string("error"),
6813 6864 cons(new_string("msg"),
6814 6865 nil)),
6815   -cons(new_integer(9210134),
  6866 +cons(new_integer(9213718),
6816 6867 cons(app,
6817   -cons(new_integer(9210141),
  6868 +cons(new_integer(9213725),
6818 6869 cons(cons(symbol,
6819   -cons(new_integer(9210140),
  6870 +cons(new_integer(9213724),
6820 6871 new_string("error"))),
6821 6872 cons(cons(app,
6822   -cons(new_integer(9210151),
  6873 +cons(new_integer(9213735),
6823 6874 cons(cons(symbol,
6824   -cons(new_integer(9210150),
  6875 +cons(new_integer(9213734),
6825 6876 new_string("tcp_error"))),
6826 6877 cons(cons(symbol,
6827   -cons(new_integer(9210154),
  6878 +cons(new_integer(9213738),
6828 6879 new_string("msg"))),
6829 6880 nil)))),
6830 6881 nil)))))),
6831 6882 cons(cons(cons(new_string("ok"),
6832 6883 cons(new_string("tcp_conn"),
6833 6884 nil)),
6834   -cons(new_integer(9210392),
  6885 +cons(new_integer(9213976),
6835 6886 cons(cond,
6836   -cons(new_integer(9210635),
  6887 +cons(new_integer(9214219),
6837 6888 cons(cons(app,
6838   -cons(new_integer(9210653),
  6889 +cons(new_integer(9214237),
6839 6890 cons(cons(symbol,
6840   -cons(new_integer(9210652),
  6891 +cons(new_integer(9214236),
6841 6892 new_string("£ssl_client_wrap"))),
6842 6893 cons(cons(symbol,
6843   -cons(new_integer(9210661),
  6894 +cons(new_integer(9214245),
6844 6895 new_string("tcp_conn"))),
6845 6896 nil)))),
6846 6897 cons(cons(cons(new_string("£cannot_create_SSL_object"),
6847 6898 nil),
6848   -cons(new_integer(9211179),
  6899 +cons(new_integer(9214763),
6849 6900 cons(app,
6850   -cons(new_integer(9211186),
  6901 +cons(new_integer(9214770),
6851 6902 cons(cons(symbol,
6852   -cons(new_integer(9211185),
  6903 +cons(new_integer(9214769),
6853 6904 new_string("error"))),
6854 6905 cons(cons(symbol,
6855   -cons(new_integer(9211210),
  6906 +cons(new_integer(9214794),
6856 6907 new_string("cannot_create_SSL_object"))),
6857 6908 nil)))))),
6858 6909 cons(cons(cons(new_string("£cannot_connect_under_SSL"),
6859 6910 nil),
6860   -cons(new_integer(9211435),
  6911 +cons(new_integer(9215019),
6861 6912 cons(app,
6862   -cons(new_integer(9211442),
  6913 +cons(new_integer(9215026),
6863 6914 cons(cons(symbol,
6864   -cons(new_integer(9211441),
  6915 +cons(new_integer(9215025),
6865 6916 new_string("error"))),
6866 6917 cons(cons(symbol,
6867   -cons(new_integer(9211466),
  6918 +cons(new_integer(9215050),
6868 6919 new_string("cannot_connect_under_SSL"))),
6869 6920 nil)))))),
6870 6921 cons(cons(cons(new_string("£ok"),
6871 6922 cons(new_string("ssl_obj"),
6872 6923 nil)),
6873   -cons(new_integer(9211678),
  6924 +cons(new_integer(9215262),
6874 6925 cons(cond,
6875   -cons(new_integer(9211921),
  6926 +cons(new_integer(9215505),
6876 6927 cons(cons(of_type,
6877   -cons(new_integer(9211921),
  6928 +cons(new_integer(9215505),
6878 6929 cons(new_string("Bool"),
6879 6930 cons(app,
6880   -cons(new_integer(9211947),
  6931 +cons(new_integer(9215531),
6881 6932 cons(cons(symbol,
6882   -cons(new_integer(9211946),
  6933 +cons(new_integer(9215530),
6883 6934 new_string("£check_certificate_chain"))),
6884 6935 cons(cons(symbol,
6885   -cons(new_integer(9211954),
  6936 +cons(new_integer(9215538),
6886 6937 new_string("ssl_obj"))),
6887 6938 cons(cons(symbol,
6888   -cons(new_integer(9211966),
  6939 +cons(new_integer(9215550),
6889 6940 new_string("server_name"))),
6890 6941 nil)))))))),
6891 6942 cons(cons(cons(new_string("false"),
6892 6943 nil),
6893   -cons(new_integer(9212435),
  6944 +cons(new_integer(9216019),
6894 6945 cons(cond,
6895   -cons(new_integer(9212438),
  6946 +cons(new_integer(9216022),
6896 6947 cons(cons(of_type,
6897   -cons(new_integer(9212438),
  6948 +cons(new_integer(9216022),
6898 6949 cons(new_string("Bool"),
6899 6950 cons(app,
6900   -cons(new_integer(9212453),
  6951 +cons(new_integer(9216037),
6901 6952 cons(cons(symbol,
6902   -cons(new_integer(9212452),
  6953 +cons(new_integer(9216036),
6903 6954 new_string("accept_policy"))),
6904 6955 cons(cons(app,
6905   -cons(new_integer(9212474),
  6956 +cons(new_integer(9216058),
6906 6957 cons(cons(symbol,
6907   -cons(new_integer(9212473),
  6958 +cons(new_integer(9216057),
6908 6959 new_string("£get_ssl_certificate"))),
6909 6960 cons(cons(symbol,
6910   -cons(new_integer(9212481),
  6961 +cons(new_integer(9216065),
6911 6962 new_string("ssl_obj"))),
6912 6963 nil)))),
6913 6964 nil))))))),
6914 6965 cons(cons(cons(new_string("false"),
6915 6966 nil),
6916   -cons(new_integer(9212952),
  6967 +cons(new_integer(9216536),
6917 6968 cons(app,
6918   -cons(new_integer(9212959),
  6969 +cons(new_integer(9216543),
6919 6970 cons(cons(symbol,
6920   -cons(new_integer(9212958),
  6971 +cons(new_integer(9216542),
6921 6972 new_string("error"))),
6922 6973 cons(cons(symbol,
6923   -cons(new_integer(9212990),
  6974 +cons(new_integer(9216574),
6924 6975 new_string("cannot_trust_server_certificate"))),
6925 6976 nil)))))),
6926 6977 cons(cons(cons(new_string("true"),
6927 6978 nil),
6928   -cons(new_integer(9212696),
  6979 +cons(new_integer(9216280),
6929 6980 cons(app,
6930   -cons(new_integer(9212700),
  6981 +cons(new_integer(9216284),
6931 6982 cons(cons(symbol,
6932   -cons(new_integer(9212699),
  6983 +cons(new_integer(9216283),
6933 6984 new_string("ok"))),
6934 6985 cons(cons(app,
6935   -cons(new_integer(9212716),
  6986 +cons(new_integer(9216300),
6936 6987 cons(cons(symbol,
6937   -cons(new_integer(9212715),
  6988 +cons(new_integer(9216299),
6938 6989 new_string("£ssl_connection"))),
6939 6990 cons(cons(symbol,
6940   -cons(new_integer(9212723),
  6991 +cons(new_integer(9216307),
6941 6992 new_string("ssl_obj"))),
6942 6993 cons(cons(symbol,
6943   -cons(new_integer(9212732),
  6994 +cons(new_integer(9216316),
6944 6995 new_string("tcp_conn"))),
6945 6996 cons(cons(symbol,
6946   -cons(new_integer(9212744),
  6997 +cons(new_integer(9216328),
6947 6998 new_string("server_name"))),
6948 6999 nil)))))),
6949 7000 nil)))))),
6950 7001 nil))))))),
6951 7002 cons(cons(cons(new_string("true"),
6952 7003 nil),
6953   -cons(new_integer(9212179),
  7004 +cons(new_integer(9215763),
6954 7005 cons(app,
6955   -cons(new_integer(9212183),
  7006 +cons(new_integer(9215767),
6956 7007 cons(cons(symbol,
6957   -cons(new_integer(9212182),
  7008 +cons(new_integer(9215766),
6958 7009 new_string("ok"))),
6959 7010 cons(cons(app,
6960   -cons(new_integer(9212199),
  7011 +cons(new_integer(9215783),
6961 7012 cons(cons(symbol,
6962   -cons(new_integer(9212198),
  7013 +cons(new_integer(9215782),
6963 7014 new_string("£ssl_connection"))),
6964 7015 cons(cons(symbol,
6965   -cons(new_integer(9212206),
  7016 +cons(new_integer(9215790),
6966 7017 new_string("ssl_obj"))),
6967 7018 cons(cons(symbol,
6968   -cons(new_integer(9212215),
  7019 +cons(new_integer(9215799),
6969 7020 new_string("tcp_conn"))),
6970 7021 cons(cons(symbol,
6971   -cons(new_integer(9212227),
  7022 +cons(new_integer(9215811),
6972 7023 new_string("server_name"))),
6973 7024 nil)))))),
6974 7025 nil)))))),
... ... @@ -6976,7 +7027,7 @@ nil))))))),
6976 7027 nil)))))))),
6977 7028 nil))))));
6978 7029  
6979   -new_op_scheme(18434076,1,
  7030 +new_op_scheme(18441244,1,
6980 7031 cons(app_ts,
6981 7032 cons(new_string("Maybe"),
6982 7033 cons(type_ByteArray,
... ... @@ -6991,11 +7042,11 @@ cons(cons(type_Int32,
6991 7042 new_string("timeout")),
6992 7043 nil))),
6993 7044 cons(avm,
6994   -cons(new_integer(9218573),
  7045 +cons(new_integer(9222157),
6995 7046 cons(ssl_read_byte_array,
6996 7047 nil))));
6997 7048  
6998   -new_op_scheme(18438172,1,
  7049 +new_op_scheme(18445340,1,
6999 7050 cons(app_ts,
7000 7051 cons(new_string("Maybe"),
7001 7052 cons(type_String,
... ... @@ -7010,11 +7061,11 @@ cons(cons(type_Int32,
7010 7061 new_string("timeout")),
7011 7062 nil))),
7012 7063 cons(avm,
7013   -cons(new_integer(9220621),
  7064 +cons(new_integer(9224205),
7014 7065 cons(ssl_read_string,
7015 7066 nil))));
7016 7067  
7017   -new_op_scheme(18444316,1,
  7068 +new_op_scheme(18451484,1,
7018 7069 cons(app_ts,
7019 7070 cons(new_string("Maybe"),
7020 7071 cons(type_Int32,
... ... @@ -7027,11 +7078,11 @@ cons(cons(type_ByteArray,
7027 7078 new_string("data")),
7028 7079 nil)),
7029 7080 cons(avm,
7030   -cons(new_integer(9223437),
  7081 +cons(new_integer(9227021),
7031 7082 cons(ssl_write_byte_array,
7032 7083 nil))));
7033 7084  
7034   -new_op_scheme(18447900,1,
  7085 +new_op_scheme(18455068,1,
7035 7086 cons(app_ts,
7036 7087 cons(new_string("Maybe"),
7037 7088 cons(type_Int32,
... ... @@ -7044,11 +7095,11 @@ cons(cons(type_String,
7044 7095 new_string("data")),
7045 7096 nil)),
7046 7097 cons(avm,
7047   -cons(new_integer(9225229),
  7098 +cons(new_integer(9228813),
7048 7099 cons(ssl_write_string,
7049 7100 nil))));
7050 7101  
7051   -new_op_scheme(18462734,0,
  7102 +new_op_scheme(18469902,0,
7052 7103 cons(app_ts,
7053 7104 cons(new_string("Maybe"),
7054 7105 cons(cons(type_struct_ptr,
... ... @@ -7061,11 +7112,11 @@ new_string(&quot;Int8&quot;)),
7061 7112 new_string("tcp_conn")),
7062 7113 nil),
7063 7114 cons(avm,
7064   -cons(new_integer(9232648),
  7115 +cons(new_integer(9236232),
7065 7116 cons(ssl_server_wrap,
7066 7117 nil))));
7067 7118  
7068   -new_op_scheme(18466318,0,
  7119 +new_op_scheme(18473486,0,
7069 7120 new_string("One"),
7070 7121 cons(new_string("£handle_ssl_request"),
7071 7122 nil),
... ... @@ -7081,50 +7132,50 @@ new_string(&quot;One&quot;))),
7081 7132 new_string("handler")),
7082 7133 nil))),
7083 7134 cons(cond,
7084   -cons(new_integer(9234950),
  7135 +cons(new_integer(9238534),
7085 7136 cons(cons(app,
7086   -cons(new_integer(9234968),
  7137 +cons(new_integer(9238552),
7087 7138 cons(cons(symbol,
7088   -cons(new_integer(9234967),
  7139 +cons(new_integer(9238551),
7089 7140 new_string("£ssl_server_wrap"))),
7090 7141 cons(cons(symbol,
7091   -cons(new_integer(9234976),
  7142 +cons(new_integer(9238560),
7092 7143 new_string("tcp_conn"))),
7093 7144 nil)))),
7094 7145 cons(cons(cons(new_string("failure"),
7095 7146 nil),
7096   -cons(new_integer(9235476),
  7147 +cons(new_integer(9239060),
7097 7148 cons(symbol,
7098   -cons(new_integer(9235483),
  7149 +cons(new_integer(9239067),
7099 7150 new_string("unique"))))),
7100 7151 cons(cons(cons(new_string("success"),
7101 7152 cons(new_string("ssl_obj"),
7102 7153 nil)),
7103   -cons(new_integer(9235741),
  7154 +cons(new_integer(9239325),
7104 7155 cons(app,
7105   -cons(new_integer(9235986),
  7156 +cons(new_integer(9239570),
7106 7157 cons(cons(symbol,
7107   -cons(new_integer(9235985),
  7158 +cons(new_integer(9239569),
7108 7159 new_string("handler"))),
7109 7160 cons(cons(app,
7110   -cons(new_integer(9236002),
  7161 +cons(new_integer(9239586),
7111 7162 cons(cons(symbol,
7112   -cons(new_integer(9236001),
  7163 +cons(new_integer(9239585),
7113 7164 new_string("£ssl_connection"))),
7114 7165 cons(cons(symbol,
7115   -cons(new_integer(9236009),
  7166 +cons(new_integer(9239593),
7116 7167 new_string("ssl_obj"))),
7117 7168 cons(cons(symbol,
7118   -cons(new_integer(9236018),
  7169 +cons(new_integer(9239602),
7119 7170 new_string("tcp_conn"))),
7120 7171 cons(cons(symbol,
7121   -cons(new_integer(9236030),
  7172 +cons(new_integer(9239614),
7122 7173 new_string("server_name"))),
7123 7174 nil)))))),
7124 7175 nil)))))),
7125 7176 nil))))));
7126 7177  
7127   -new_op_scheme(18473486,0,
  7178 +new_op_scheme(18480654,0,
7128 7179 new_string("One"),
7129 7180 cons(new_string("£run_ssl_server"),
7130 7181 nil),
... ... @@ -7144,103 +7195,103 @@ new_string(&quot;One&quot;))),
7144 7195 new_string("notify")),
7145 7196 nil)))),
7146 7197 cons(cond,
7147   -cons(new_integer(9238790),
  7198 +cons(new_integer(9242374),
7148 7199 cons(cons(app,
7149   -cons(new_integer(9238810),
  7200 +cons(new_integer(9242394),
7150 7201 cons(cons(symbol,
7151   -cons(new_integer(9238809),
  7202 +cons(new_integer(9242393),
7152 7203 new_string("£accept_connection"))),
7153 7204 cons(cons(symbol,
7154   -cons(new_integer(9238811),
  7205 +cons(new_integer(9242395),
7155 7206 new_string("l"))),
7156 7207 nil)))),
7157 7208 cons(cons(cons(new_string("£listener_is_down"),
7158 7209 nil),
7159   -cons(new_integer(9239325),
  7210 +cons(new_integer(9242909),
7160 7211 cons(symbol,
7161   -cons(new_integer(9239567),
  7212 +cons(new_integer(9243151),
7162 7213 new_string("unique"))))),
7163 7214 cons(cons(cons(new_string("£cannot_open_pending_connection"),
7164 7215 nil),
7165   -cons(new_integer(9240107),
  7216 +cons(new_integer(9243691),
7166 7217 cons(cond,
7167   -cons(new_integer(9240344),
  7218 +cons(new_integer(9243928),
7168 7219 cons(cons(of_type,
7169   -cons(new_integer(9240344),
  7220 +cons(new_integer(9243928),
7170 7221 cons(new_string("One"),
7171 7222 cons(app,
7172   -cons(new_integer(9240336),
  7223 +cons(new_integer(9243920),
7173 7224 cons(cons(symbol,
7174   -cons(new_integer(9240335),
  7225 +cons(new_integer(9243919),
7175 7226 new_string("notify"))),
7176 7227 cons(cons(symbol,
7177   -cons(new_integer(9240342),
  7228 +cons(new_integer(9243926),
7178 7229 new_string("unique"))),
7179 7230 nil))))))),
7180 7231 cons(cons(cons(new_string("unique"),
7181 7232 nil),
7182   -cons(new_integer(9240344),
  7233 +cons(new_integer(9243928),
7183 7234 cons(app,
7184   -cons(new_integer(9240361),
  7235 +cons(new_integer(9243945),
7185 7236 cons(cons(symbol,
7186   -cons(new_integer(9240360),
  7237 +cons(new_integer(9243944),
7187 7238 new_string("£run_ssl_server"))),
7188 7239 cons(cons(symbol,
7189   -cons(new_integer(9240362),
  7240 +cons(new_integer(9243946),
7190 7241 new_string("l"))),
7191 7242 cons(cons(symbol,
7192   -cons(new_integer(9240374),
  7243 +cons(new_integer(9243958),
7193 7244 new_string("server_name"))),
7194 7245 cons(cons(symbol,
7195   -cons(new_integer(9240382),
  7246 +cons(new_integer(9243966),
7196 7247 new_string("handler"))),
7197 7248 cons(cons(symbol,
7198   -cons(new_integer(9240389),
  7249 +cons(new_integer(9243973),
7199 7250 new_string("notify"))),
7200 7251 nil))))))))),
7201 7252 nil)))))),
7202 7253 cons(cons(cons(new_string("£ok"),
7203 7254 cons(new_string("tcp_conn"),
7204 7255 nil)),
7205   -cons(new_integer(9241113),
  7256 +cons(new_integer(9244697),
7206 7257 cons(delegate,
7207   -cons(new_integer(9241361),
  7258 +cons(new_integer(9244945),
7208 7259 cons(cons(app,
7209   -cons(new_integer(9241382),
  7260 +cons(new_integer(9244966),
7210 7261 cons(cons(symbol,
7211   -cons(new_integer(9241381),
  7262 +cons(new_integer(9244965),
7212 7263 new_string("£handle_ssl_request"))),
7213 7264 cons(cons(symbol,
7214   -cons(new_integer(9241390),
  7265 +cons(new_integer(9244974),
7215 7266 new_string("tcp_conn"))),
7216 7267 cons(cons(symbol,
7217   -cons(new_integer(9241402),
  7268 +cons(new_integer(9244986),
7218 7269 new_string("server_name"))),
7219 7270 cons(cons(symbol,
7220   -cons(new_integer(9241645),
  7271 +cons(new_integer(9245229),
7221 7272 new_string("handler"))),
7222 7273 nil)))))),
7223 7274 cons(app,
7224   -cons(new_integer(9241890),
  7275 +cons(new_integer(9245474),
7225 7276 cons(cons(symbol,
7226   -cons(new_integer(9241889),
  7277 +cons(new_integer(9245473),
7227 7278 new_string("£run_ssl_server"))),
7228 7279 cons(cons(symbol,
7229   -cons(new_integer(9241891),
  7280 +cons(new_integer(9245475),
7230 7281 new_string("l"))),
7231 7282 cons(cons(symbol,
7232   -cons(new_integer(9241903),
  7283 +cons(new_integer(9245487),
7233 7284 new_string("server_name"))),
7234 7285 cons(cons(symbol,
7235   -cons(new_integer(9242153),
  7286 +cons(new_integer(9245737),
7236 7287 new_string("handler"))),
7237 7288 cons(cons(symbol,
7238   -cons(new_integer(9242160),
  7289 +cons(new_integer(9245744),
7239 7290 new_string("notify"))),
7240 7291 nil)))))))))))),
7241 7292 nil)))))));
7242 7293  
7243   -new_op_scheme(18485788,1,
  7294 +new_op_scheme(18492956,1,
7244 7295 new_string("StartServerResult"),
7245 7296 cons(new_string("start_ssl_server"),
7246 7297 nil),
... ... @@ -7265,91 +7316,91 @@ new_string(&quot;One&quot;))),
7265 7316 new_string("notify")),
7266 7317 nil))))),
7267 7318 cons(cond,
7268   -cons(new_integer(9245190),
  7319 +cons(new_integer(9248774),
7269 7320 cons(cons(app,
7270   -cons(new_integer(9245201),
  7321 +cons(new_integer(9248785),
7271 7322 cons(cons(symbol,
7272   -cons(new_integer(9245200),
  7323 +cons(new_integer(9248784),
7273 7324 new_string("£listener"))),
7274 7325 cons(cons(symbol,
7275   -cons(new_integer(9245208),
  7326 +cons(new_integer(9248792),
7276 7327 new_string("ip_addr"))),
7277 7328 cons(cons(symbol,
7278   -cons(new_integer(9245216),
  7329 +cons(new_integer(9248800),
7279 7330 new_string("ip_port"))),
7280 7331 nil))))),
7281 7332 cons(cons(cons(new_string("£cannot_create_the_socket"),
7282 7333 nil),
7283   -cons(new_integer(9245733),
  7334 +cons(new_integer(9249317),
7284 7335 cons(symbol,
7285   -cons(new_integer(9245985),
  7336 +cons(new_integer(9249569),
7286 7337 new_string("cannot_create_the_socket"))))),
7287 7338 cons(cons(cons(new_string("£cannot_bind_to_port"),
7288 7339 nil),
7289   -cons(new_integer(9246240),
  7340 +cons(new_integer(9249824),
7290 7341 cons(symbol,
7291   -cons(new_integer(9246492),
  7342 +cons(new_integer(9250076),
7292 7343 new_string("cannot_bind_to_port"))))),
7293 7344 cons(cons(cons(new_string("£cannot_listen_on_port"),
7294 7345 nil),
7295   -cons(new_integer(9246754),
  7346 +cons(new_integer(9250338),
7296 7347 cons(symbol,
7297   -cons(new_integer(9247006),
  7348 +cons(new_integer(9250590),
7298 7349 new_string("cannot_listen_on_port"))))),
7299 7350 cons(cons(cons(new_string("£ok"),
7300 7351 cons(new_string("l"),
7301 7352 nil)),
7302   -cons(new_integer(9247250),
  7353 +cons(new_integer(9250834),
7303 7354 cons(delegate,
7304   -cons(new_integer(9247505),
  7355 +cons(new_integer(9251089),
7305 7356 cons(cons(app,
7306   -cons(new_integer(9247522),
  7357 +cons(new_integer(9251106),
7307 7358 cons(cons(symbol,
7308   -cons(new_integer(9247521),
  7359 +cons(new_integer(9251105),
7309 7360 new_string("£run_ssl_server"))),
7310 7361 cons(cons(symbol,
7311   -cons(new_integer(9247523),
  7362 +cons(new_integer(9251107),
7312 7363 new_string("l"))),
7313 7364 cons(cons(symbol,
7314   -cons(new_integer(9247535),
  7365 +cons(new_integer(9251119),
7315 7366 new_string("server_name"))),
7316 7367 cons(cons(app,
7317   -cons(new_integer(9247544),
  7368 +cons(new_integer(9251128),
7318 7369 cons(cons(symbol,
7319   -cons(new_integer(9247543),
  7370 +cons(new_integer(9251127),
7320 7371 new_string("handler"))),
7321 7372 cons(cons(app,
7322   -cons(new_integer(9247552),
  7373 +cons(new_integer(9251136),
7323 7374 cons(cons(symbol,
7324   -cons(new_integer(9247551),
  7375 +cons(new_integer(9251135),
7325 7376 new_string("£server"))),
7326 7377 cons(cons(symbol,
7327   -cons(new_integer(9247553),
  7378 +cons(new_integer(9251137),
7328 7379 new_string("l"))),
7329 7380 nil)))),
7330 7381 nil)))),
7331 7382 cons(cons(symbol,
7332   -cons(new_integer(9247562),
  7383 +cons(new_integer(9251146),
7333 7384 new_string("notify"))),
7334 7385 nil))))))),
7335 7386 cons(app,
7336   -cons(new_integer(9247765),
  7387 +cons(new_integer(9251349),
7337 7388 cons(cons(symbol,
7338   -cons(new_integer(9247764),
  7389 +cons(new_integer(9251348),
7339 7390 new_string("ok"))),
7340 7391 cons(cons(app,
7341   -cons(new_integer(9247773),
  7392 +cons(new_integer(9251357),
7342 7393 cons(cons(symbol,
7343   -cons(new_integer(9247772),
  7394 +cons(new_integer(9251356),
7344 7395 new_string("£server"))),
7345 7396 cons(cons(symbol,
7346   -cons(new_integer(9247774),
  7397 +cons(new_integer(9251358),
7347 7398 new_string("l"))),
7348 7399 nil)))),
7349 7400 nil))))))))),
7350 7401 nil))))))));
7351 7402  
7352   -new_op_scheme(18500124,1,
  7403 +new_op_scheme(18507292,1,
7353 7404 cons(app_ts,
7354 7405 cons(new_string("£Tuple2"),
7355 7406 cons(type_Int32,
... ... @@ -7361,11 +7412,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
7361 7412 new_string("connection")),
7362 7413 nil),
7363 7414 cons(avm,
7364   -cons(new_integer(9250375),
  7415 +cons(new_integer(9253959),
7365 7416 cons(local_SSL_addr_port,
7366 7417 nil))));
7367 7418  
7368   -new_op_scheme(18501148,1,
  7419 +new_op_scheme(18508316,1,
7369 7420 cons(app_ts,
7370 7421 cons(new_string("£Tuple2"),
7371 7422 cons(type_Int32,
... ... @@ -7377,11 +7428,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
7377 7428 new_string("connection")),
7378 7429 nil),
7379 7430 cons(avm,
7380   -cons(new_integer(9250887),
  7431 +cons(new_integer(9254471),
7381 7432 cons(remote_SSL_addr_port,
7382 7433 nil))));
7383 7434  
7384   -new_op_scheme(18509838,0,
  7435 +new_op_scheme(18517006,0,
7385 7436 type_Int32,
7386 7437 cons(new_string("£simple_hash"),
7387 7438 nil),
... ... @@ -7391,11 +7442,11 @@ cons(cons(type_ByteArray,
7391 7442 new_string("b")),
7392 7443 nil)),
7393 7444 cons(avm,
7394   -cons(new_integer(9255468),
  7445 +cons(new_integer(9259052),
7395 7446 cons(simple_hash,
7396 7447 nil))));
7397 7448  
7398   -new_op_scheme(18511900,1,
  7449 +new_op_scheme(18519068,1,
7399 7450 type_Int32,
7400 7451 cons(new_string("simple_hash"),
7401 7452 nil),
... ... @@ -7405,20 +7456,20 @@ cons(cons(new_utvar(&quot;T&quot;),
7405 7456 new_string("datum")),
7406 7457 nil)),
7407 7458 cons(app,
7408   -cons(new_integer(9257489),
  7459 +cons(new_integer(9261073),
7409 7460 cons(cons(symbol,
7410   -cons(new_integer(9257488),
  7461 +cons(new_integer(9261072),
7411 7462 new_string("£simple_hash"))),
7412 7463 cons(cons(symbol,
7413   -cons(new_integer(9257503),
  7464 +cons(new_integer(9261087),
7414 7465 new_string("number_of_bits"))),
7415 7466 cons(cons(app,
7416   -cons(new_integer(9257514),
  7467 +cons(new_integer(9261098),
7417 7468 cons(cons(symbol,
7418   -cons(new_integer(9257513),
  7469 +cons(new_integer(9261097),
7419 7470 new_string("serialize"))),
7420 7471 cons(cons(symbol,
7421   -cons(new_integer(9257519),
  7472 +cons(new_integer(9261103),
7422 7473 new_string("datum"))),
7423 7474 nil)))),
7424 7475 nil))))));
... ... @@ -7451,7 +7502,7 @@ noname),
7451 7502 nil)))),
7452 7503 nil),0,1);
7453 7504  
7454   -new_op_scheme(18544156,1,
  7505 +new_op_scheme(18551324,1,
7455 7506 new_string("RGBAImage"),
7456 7507 cons(new_string("create_rgba_image"),
7457 7508 nil),
... ... @@ -7463,11 +7514,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7463 7514 new_string("background")),
7464 7515 nil))),
7465 7516 cons(avm,
7466   -cons(new_integer(9272651),
  7517 +cons(new_integer(9276235),
7467 7518 cons(create_rgba,
7468 7519 nil))));
7469 7520  
7470   -new_op_scheme(18546204,1,
  7521 +new_op_scheme(18553372,1,
7471 7522 new_string("BitMapImage"),
7472 7523 cons(new_string("create_bitmap_image"),
7473 7524 nil),
... ... @@ -7479,11 +7530,11 @@ cons(cons(new_string(&quot;Bit&quot;),
7479 7530 new_string("background")),
7480 7531 nil))),
7481 7532 cons(avm,
7482   -cons(new_integer(9273675),
  7533 +cons(new_integer(9277259),
7483 7534 cons(create_bitmap,
7484 7535 nil))));
7485 7536  
7486   -new_op_scheme(18555932,1,
  7537 +new_op_scheme(18563100,1,
7487 7538 new_string("One"),
7488 7539 cons(new_string("draw_pixel"),
7489 7540 nil),
... ... @@ -7497,7 +7548,7 @@ cons(cons(new_string(&quot;RGBA&quot;),
7497 7548 new_string("color")),
7498 7549 nil)))),
7499 7550 cons(avm,
7500   -cons(new_integer(9280008),
  7551 +cons(new_integer(9283592),
7501 7552 cons(draw_pixel_rgba,
7502 7553 nil))));
7503 7554  
... ... @@ -7515,7 +7566,7 @@ nil),
7515 7566 nil),
7516 7567 nil))),0,1);
7517 7568  
7518   -new_op_scheme(18579484,1,
  7569 +new_op_scheme(18586652,1,
7519 7570 new_string("One"),
7520 7571 cons(new_string("draw_pixel"),
7521 7572 nil),
... ... @@ -7529,11 +7580,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7529 7580 new_string("how")),
7530 7581 nil)))),
7531 7582 cons(avm,
7532   -cons(new_integer(9291784),
  7583 +cons(new_integer(9295368),
7533 7584 cons(draw_pixel_bitmap,
7534 7585 nil))));
7535 7586  
7536   -new_op_scheme(18592796,1,
  7587 +new_op_scheme(18599964,1,
7537 7588 new_string("RGBA"),
7538 7589 cons(new_string("get_pixel"),
7539 7590 nil),
... ... @@ -7545,11 +7596,11 @@ cons(cons(type_Int32,
7545 7596 new_string("y")),
7546 7597 nil))),
7547 7598 cons(avm,
7548   -cons(new_integer(9297934),
  7599 +cons(new_integer(9301518),
7549 7600 cons(get_pixel_rgba,
7550 7601 nil))));
7551 7602  
7552   -new_op_scheme(18598428,1,
  7603 +new_op_scheme(18605596,1,
7553 7604 new_string("Bit"),
7554 7605 cons(new_string("get_pixel"),
7555 7606 nil),
... ... @@ -7561,7 +7612,7 @@ cons(cons(type_Int32,
7561 7612 new_string("y")),
7562 7613 nil))),
7563 7614 cons(avm,
7564   -cons(new_integer(9300750),
  7615 +cons(new_integer(9304334),
7565 7616 cons(get_pixel_bitmap,
7566 7617 nil))));
7567 7618  
... ... @@ -7581,7 +7632,7 @@ new_string(&quot;v&quot;)),
7581 7632 nil))))),
7582 7633 nil),0,1);
7583 7634  
7584   -new_op_scheme(18626076,1,
  7635 +new_op_scheme(18633244,1,
7585 7636 new_string("One"),
7586 7637 cons(new_string("draw_rectangle"),
7587 7638 nil),
... ... @@ -7593,11 +7644,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7593 7644 new_string("color_of_rectangle")),
7594 7645 nil))),
7595 7646 cons(avm,
7596   -cons(new_integer(9314574),
  7647 +cons(new_integer(9318158),
7597 7648 cons(draw_rectangle_to_rgba,
7598 7649 nil))));
7599 7650  
7600   -new_op_scheme(18632220,1,
  7651 +new_op_scheme(18639388,1,
7601 7652 new_string("One"),
7602 7653 cons(new_string("draw_rectangle"),
7603 7654 nil),
... ... @@ -7609,7 +7660,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7609 7660 new_string("how")),
7610 7661 nil))),
7611 7662 cons(avm,
7612   -cons(new_integer(9317646),
  7663 +cons(new_integer(9321230),
7613 7664 cons(draw_rectangle_to_bitmap,
7614 7665 nil))));
7615 7666  
... ... @@ -7642,7 +7693,7 @@ nil),
7642 7693 nil),
7643 7694 nil)))))))),0,1);
7644 7695  
7645   -new_op_scheme(18689564,1,
  7696 +new_op_scheme(18696732,1,
7646 7697 new_string("One"),
7647 7698 cons(new_string("crop_and_encrust"),
7648 7699 nil),
... ... @@ -7660,11 +7711,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7660 7711 new_string("t")),
7661 7712 nil)))))),
7662 7713 cons(avm,
7663   -cons(new_integer(9347086),
  7714 +cons(new_integer(9350670),
7664 7715 cons(crop_and_encrust_rgba_rgba,
7665 7716 nil))));
7666 7717  
7667   -new_op_scheme(18695708,1,
  7718 +new_op_scheme(18702876,1,
7668 7719 new_string("One"),
7669 7720 cons(new_string("crop_and_encrust"),
7670 7721 nil),
... ... @@ -7684,11 +7735,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7684 7735 new_string("t")),
7685 7736 nil))))))),
7686 7737 cons(avm,
7687   -cons(new_integer(9350414),
  7738 +cons(new_integer(9353998),
7688 7739 cons(crop_and_encrust_bitmap_rgba,
7689 7740 nil))));
7690 7741  
7691   -new_op_scheme(18704412,1,
  7742 +new_op_scheme(18711580,1,
7692 7743 new_string("One"),
7693 7744 cons(new_string("crop_and_encrust"),
7694 7745 nil),
... ... @@ -7708,7 +7759,7 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
7708 7759 new_string("t")),
7709 7760 nil))))))),
7710 7761 cons(avm,
7711   -cons(new_integer(9355016),
  7762 +cons(new_integer(9358600),
7712 7763 cons(crop_and_encrust_bitmap_bitmap,
7713 7764 nil))));
7714 7765  
... ... @@ -7723,7 +7774,7 @@ noname),
7723 7774 nil)),
7724 7775 nil),0,1);
7725 7776  
7726   -new_op_scheme(18753052,1,
  7777 +new_op_scheme(18760220,1,
7727 7778 cons(app_ts,
7728 7779 cons(new_string("Maybe"),
7729 7780 cons(new_string("SystemFont"),
... ... @@ -7734,11 +7785,11 @@ cons(cons(type_String,
7734 7785 new_string("font_name")),
7735 7786 nil),
7736 7787 cons(avm,
7737   -cons(new_integer(9377800),
  7788 +cons(new_integer(9381384),
7738 7789 cons(load_system_font,
7739 7790 nil))));
7740 7791  
7741   -new_op_scheme(18773020,1,
  7792 +new_op_scheme(18780188,1,
7742 7793 type_Int32,
7743 7794 cons(new_string("draw_system_character"),
7744 7795 nil),
... ... @@ -7758,11 +7809,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
7758 7809 new_string("character_color")),
7759 7810 nil))))))),
7760 7811 cons(avm,
7761   -cons(new_integer(9389070),
  7812 +cons(new_integer(9392654),
7762 7813 cons(draw_system_char_rgba,
7763 7814 nil))));
7764 7815  
7765   -new_op_scheme(18779164,1,
  7816 +new_op_scheme(18786332,1,
7766 7817 type_Int32,
7767 7818 cons(new_string("draw_system_character"),
7768 7819 nil),
... ... @@ -7782,7 +7833,7 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
7782 7833 new_string("paint_mode")),
7783 7834 nil))))))),
7784 7835 cons(avm,
7785   -cons(new_integer(9392142),
  7836 +cons(new_integer(9395726),
7786 7837 cons(draw_system_char_bitmap,
7787 7838 nil))));
7788 7839  
... ... @@ -7802,7 +7853,7 @@ new_string(&quot;depth&quot;)),
7802 7853 nil))))),
7803 7854 nil),0,1);
7804 7855  
7805   -new_op_scheme(18796060,1,
  7856 +new_op_scheme(18803228,1,
7806 7857 new_string("SystemFontInfo"),
7807 7858 cons(new_string("get_font_info"),
7808 7859 nil),
... ... @@ -7810,7 +7861,7 @@ cons(cons(new_string(&quot;SystemFont&quot;),
7810 7861 new_string("font")),
7811 7862 nil),
7812 7863 cons(avm,
7813   -cons(new_integer(9398088),
  7864 +cons(new_integer(9401672),
7814 7865 cons(get_font_info,
7815 7866 nil))));
7816 7867  
... ... @@ -7828,7 +7879,7 @@ new_string(&quot;width&quot;)),
7828 7879 nil)))),
7829 7880 nil),0,1);
7830 7881  
7831   -new_op_scheme(18801180,1,
  7882 +new_op_scheme(18808348,1,
7832 7883 new_string("SystemCharacterInfo"),
7833 7884 cons(new_string("get_char_info"),
7834 7885 nil),
... ... @@ -7838,7 +7889,7 @@ cons(cons(new_string(&quot;Int8&quot;),
7838 7889 new_string("code")),
7839 7890 nil)),
7840 7891 cons(avm,
7841   -cons(new_integer(9400911),
  7892 +cons(new_integer(9404495),
7842 7893 cons(get_char_info,
7843 7894 nil))));
7844 7895  
... ... @@ -7853,7 +7904,7 @@ noname),
7853 7904 nil)),
7854 7905 nil),0,1);
7855 7906  
7856   -new_op_scheme(18812444,1,
  7907 +new_op_scheme(18819612,1,
7857 7908 cons(app_ts,
7858 7909 cons(new_string("£Tuple2"),
7859 7910 cons(type_Int32,
... ... @@ -7865,11 +7916,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
7865 7916 new_string("im")),
7866 7917 nil),
7867 7918 cons(avm,
7868   -cons(new_integer(9407246),
  7919 +cons(new_integer(9410830),
7869 7920 cons(host_image_size,
7870 7921 nil))));
7871 7922  
7872   -new_op_scheme(18817052,1,
  7923 +new_op_scheme(18824220,1,
7873 7924 new_string("HostImage"),
7874 7925 cons(new_string("to_host_image"),
7875 7926 nil),
... ... @@ -7879,11 +7930,11 @@ cons(cons(type_Int32,
7879 7930 new_string("reduction_factor")),
7880 7931 nil)),
7881 7932 cons(avm,
7882   -cons(new_integer(9409806),
  7933 +cons(new_integer(9413390),
7883 7934 cons(rgba_to_host_image,
7884 7935 nil))));
7885 7936  
7886   -new_op_scheme(18821148,1,
  7937 +new_op_scheme(18828316,1,
7887 7938 new_string("One"),
7888 7939 cons(new_string("draw_pixel"),
7889 7940 nil),
... ... @@ -7897,11 +7948,11 @@ cons(cons(new_string(&quot;RGB&quot;),
7897 7948 new_string("color")),
7898 7949 nil)))),
7899 7950 cons(avm,
7900   -cons(new_integer(9412366),
  7951 +cons(new_integer(9415950),
7901 7952 cons(draw_pixel_host_image,
7902 7953 nil))));
7903 7954  
7904   -new_op_scheme(18826268,1,
  7955 +new_op_scheme(18833436,1,
7905 7956 new_string("One"),
7906 7957 cons(new_string("draw_rectangle"),
7907 7958 nil),
... ... @@ -7913,11 +7964,11 @@ cons(cons(new_string(&quot;RGB&quot;),
7913 7964 new_string("color_of_rectangle")),
7914 7965 nil))),
7915 7966 cons(avm,
7916   -cons(new_integer(9414670),
  7967 +cons(new_integer(9418254),
7917 7968 cons(draw_rectangle_to_host_image,
7918 7969 nil))));
7919 7970  
7920   -new_op_scheme(18830876,1,
  7971 +new_op_scheme(18838044,1,
7921 7972 type_Int32,
7922 7973 cons(new_string("draw_system_character"),
7923 7974 nil),
... ... @@ -7937,7 +7988,7 @@ cons(cons(new_string(&quot;RGB&quot;),
7937 7988 new_string("character_color")),
7938 7989 nil))))))),
7939 7990 cons(avm,
7940   -cons(new_integer(9417998),
  7991 +cons(new_integer(9421582),
7941 7992 cons(draw_system_char_host_image,
7942 7993 nil))));
7943 7994  
... ... @@ -7968,7 +8019,7 @@ new_string(&quot;samples&quot;)),
7968 8019 nil))))),
7969 8020 nil),0,1);
7970 8021  
7971   -new_op_scheme(18857500,1,
  8022 +new_op_scheme(18864668,1,
7972 8023 new_string("HostImage"),
7973 8024 cons(new_string("to_host_image"),
7974 8025 nil),
... ... @@ -7978,11 +8029,11 @@ cons(cons(type_Int32,
7978 8029 new_string("reducing_factor")),
7979 8030 nil)),
7980 8031 cons(avm,
7981   -cons(new_integer(9430030),
  8032 +cons(new_integer(9433614),
7982 8033 cons(jpeg_bitmap_to_host_image,
7983 8034 nil))));
7984 8035  
7985   -new_op_scheme(18869788,1,
  8036 +new_op_scheme(18876956,1,
7986 8037 new_string("RGBAImage"),
7987 8038 cons(new_string("to_RGBA"),
7988 8039 nil),
... ... @@ -7992,11 +8043,11 @@ cons(cons(type_Int32,
7992 8043 new_string("reducing_factor")),
7993 8044 nil)),
7994 8045 cons(avm,
7995   -cons(new_integer(9436174),
  8046 +cons(new_integer(9439758),
7996 8047 cons(jpeg_bitmap_to_rgba_image,
7997 8048 nil))));
7998 8049  
7999   -new_op_scheme(18874396,1,
  8050 +new_op_scheme(18881564,1,
8000 8051 new_string("JPEG_BitMapImage"),
8001 8052 cons(new_string("to_JPEG"),
8002 8053 nil),
... ... @@ -8004,7 +8055,7 @@ cons(cons(new_string(&quot;RGBAImage&quot;),
8004 8055 new_string("image")),
8005 8056 nil),
8006 8057 cons(avm,
8007   -cons(new_integer(9438222),
  8058 +cons(new_integer(9441806),
8008 8059 cons(rgba_image_to_jpeg_bitmap,
8009 8060 nil))));
8010 8061  
... ... @@ -8020,7 +8071,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
8020 8071 nil))),
8021 8072 nil),0,1);
8022 8073  
8023   -new_op_scheme(18884110,0,
  8074 +new_op_scheme(18891278,0,
8024 8075 cons(app_ts,
8025 8076 cons(new_string("Maybe"),
8026 8077 cons(new_string("£JPEG_compress_info"),
... ... @@ -8040,11 +8091,11 @@ new_string(&quot;Int8&quot;)),
8040 8091 new_string("output_file")),
8041 8092 nil))))),
8042 8093 cons(avm,
8043   -cons(new_integer(9444359),
  8094 +cons(new_integer(9447943),
8044 8095 cons(create_JPEG_compress_info,
8045 8096 nil))));
8046 8097  
8047   -new_op_scheme(18890766,0,
  8098 +new_op_scheme(18897934,0,
8048 8099 new_string("One"),
8049 8100 cons(new_string("£jpeg_write_scanline"),
8050 8101 nil),
... ... @@ -8056,11 +8107,11 @@ cons(cons(type_Int32,
8056 8107 new_string("start")),
8057 8108 nil))),
8058 8109 cons(avm,
8059   -cons(new_integer(9447175),
  8110 +cons(new_integer(9450759),
8060 8111 cons(jpeg_write_scanline,
8061 8112 nil))));
8062 8113  
8063   -new_op_scheme(18896398,0,
  8114 +new_op_scheme(18903566,0,
8064 8115 new_string("One"),
8065 8116 cons(new_string("£jpeg_write_scanlines"),
8066 8117 nil),
... ... @@ -8076,84 +8127,84 @@ cons(cons(type_Int32,
8076 8127 new_string("i")),
8077 8128 nil))))),
8078 8129 cons(cond,
8079   -cons(new_integer(9450502),
  8130 +cons(new_integer(9454086),
8080 8131 cons(cons(of_type,
8081   -cons(new_integer(9450502),
  8132 +cons(new_integer(9454086),
8082 8133 cons(new_string("Bool"),
8083 8134 cons(app,
8084   -cons(new_integer(9450507),
  8135 +cons(new_integer(9454091),
8085 8136 cons(cons(symbol,
8086   -cons(new_integer(9450507),
  8137 +cons(new_integer(9454091),
8087 8138 new_string("=<"))),
8088 8139 cons(cons(symbol,
8089   -cons(new_integer(9450514),
  8140 +cons(new_integer(9454098),
8090 8141 new_string("height"))),
8091 8142 cons(cons(symbol,
8092   -cons(new_integer(9450504),
  8143 +cons(new_integer(9454088),
8093 8144 new_string("i"))),
8094 8145 nil)))))))),
8095 8146 cons(cons(cons(new_string("false"),
8096 8147 nil),
8097   -cons(new_integer(9450531),
  8148 +cons(new_integer(9454115),
8098 8149 cons(cond,
8099   -cons(new_integer(9450805),
  8150 +cons(new_integer(9454389),
8100 8151 cons(cons(of_type,
8101   -cons(new_integer(9450805),
  8152 +cons(new_integer(9454389),
8102 8153 cons(new_string("One"),
8103 8154 cons(app,
8104   -cons(new_integer(9450777),
  8155 +cons(new_integer(9454361),
8105 8156 cons(cons(symbol,
8106   -cons(new_integer(9450776),
  8157 +cons(new_integer(9454360),
8107 8158 new_string("£jpeg_write_scanline"))),
8108 8159 cons(cons(symbol,
8109   -cons(new_integer(9450782),
  8160 +cons(new_integer(9454366),
8110 8161 new_string("cinfo"))),
8111 8162 cons(cons(symbol,
8112   -cons(new_integer(9450790),
  8163 +cons(new_integer(9454374),
8113 8164 new_string("samples"))),
8114 8165 cons(cons(app,
8115   -cons(new_integer(9450802),
  8166 +cons(new_integer(9454386),
8116 8167 cons(cons(symbol,
8117   -cons(new_integer(9450802),
  8168 +cons(new_integer(9454386),
8118 8169 new_string("*"))),
8119 8170 cons(cons(symbol,
8120   -cons(new_integer(9450801),
  8171 +cons(new_integer(9454385),
8121 8172 new_string("row_stride"))),
8122 8173 cons(cons(symbol,
8123   -cons(new_integer(9450803),
  8174 +cons(new_integer(9454387),
8124 8175 new_string("i"))),
8125 8176 nil))))),
8126 8177 nil))))))))),
8127 8178 cons(cons(cons(new_string("unique"),
8128 8179 nil),
8129   -cons(new_integer(9450805),
  8180 +cons(new_integer(9454389),
8130 8181 cons(app,
8131   -cons(new_integer(9451034),
  8182 +cons(new_integer(9454618),
8132 8183 cons(cons(symbol,
8133   -cons(new_integer(9451033),
  8184 +cons(new_integer(9454617),
8134 8185 new_string("£jpeg_write_scanlines"))),
8135 8186 cons(cons(symbol,
8136   -cons(new_integer(9451039),
  8187 +cons(new_integer(9454623),
8137 8188 new_string("cinfo"))),
8138 8189 cons(cons(symbol,
8139   -cons(new_integer(9451047),
  8190 +cons(new_integer(9454631),
8140 8191 new_string("samples"))),
8141 8192 cons(cons(symbol,
8142   -cons(new_integer(9451058),
  8193 +cons(new_integer(9454642),
8143 8194 new_string("row_stride"))),
8144 8195 cons(cons(symbol,
8145   -cons(new_integer(9451065),
  8196 +cons(new_integer(9454649),
8146 8197 new_string("height"))),
8147 8198 cons(cons(app,
8148   -cons(new_integer(9451068),
  8199 +cons(new_integer(9454652),
8149 8200 cons(cons(symbol,
8150   -cons(new_integer(9451068),
  8201 +cons(new_integer(9454652),
8151 8202 new_string("+"))),
8152 8203 cons(cons(symbol,
8153   -cons(new_integer(9451067),
  8204 +cons(new_integer(9454651),
8154 8205 new_string("i"))),
8155 8206 cons(cons(integer_10,
8156   -cons(new_integer(9451069),
  8207 +cons(new_integer(9454653),
8157 8208 cons(new_integer(1),
8158 8209 nil))),
8159 8210 nil))))),
... ... @@ -8161,13 +8212,13 @@ nil)))))))))),
8161 8212 nil)))))),
8162 8213 cons(cons(cons(new_string("true"),
8163 8214 nil),
8164   -cons(new_integer(9450519),
  8215 +cons(new_integer(9454103),
8165 8216 cons(symbol,
8166   -cons(new_integer(9450526),
  8217 +cons(new_integer(9454110),
8167 8218 new_string("unique"))))),
8168 8219 nil))))));
8169 8220  
8170   -new_op_scheme(18904078,0,
  8221 +new_op_scheme(18911246,0,
8171 8222 new_string("One"),
8172 8223 cons(new_string("£jpeg_finish_compress"),
8173 8224 nil),
... ... @@ -8175,7 +8226,7 @@ cons(cons(new_string(&quot;£JPEG_compress_info&quot;),
8175 8226 new_string("cinfo")),
8176 8227 nil),
8177 8228 cons(avm,
8178   -cons(new_integer(9453319),
  8229 +cons(new_integer(9456903),
8179 8230 cons(jpeg_finish_compress,
8180 8231 nil))));
8181 8232  
... ... @@ -8193,7 +8244,7 @@ nil),
8193 8244 nil),
8194 8245 nil))),0,1);
8195 8246  
8196   -new_op_scheme(18911772,1,
  8247 +new_op_scheme(18918940,1,
8197 8248 new_string("Result_JPEG_write"),
8198 8249 cons(new_string("write_image_to_JPEG_file"),
8199 8250 nil),
... ... @@ -8205,93 +8256,93 @@ cons(cons(type_Int32,
8205 8256 new_string("quality")),
8206 8257 nil))),
8207 8258 cons(with,
8208   -cons(new_integer(9457681),
  8259 +cons(new_integer(9461265),
8209 8260 cons(new_string("quality"),
8210 8261 cons(cons(cond,
8211   -cons(new_integer(9457684),
  8262 +cons(new_integer(9461268),
8212 8263 cons(cons(of_type,
8213   -cons(new_integer(9457684),
  8264 +cons(new_integer(9461268),
8214 8265 cons(new_string("Bool"),
8215 8266 cons(app,
8216   -cons(new_integer(9457694),
  8267 +cons(new_integer(9461278),
8217 8268 cons(cons(symbol,
8218   -cons(new_integer(9457694),
  8269 +cons(new_integer(9461278),
8219 8270 new_string("<"))),
8220 8271 cons(cons(symbol,
8221   -cons(new_integer(9457692),
  8272 +cons(new_integer(9461276),
8222 8273 new_string("quality"))),
8223 8274 cons(cons(integer_10,
8224   -cons(new_integer(9457696),
  8275 +cons(new_integer(9461280),
8225 8276 nil)),
8226 8277 nil)))))))),
8227 8278 cons(cons(cons(new_string("false"),
8228 8279 nil),
8229   -cons(new_integer(9457708),
  8280 +cons(new_integer(9461292),
8230 8281 cons(cond,
8231   -cons(new_integer(9457711),
  8282 +cons(new_integer(9461295),
8232 8283 cons(cons(of_type,
8233   -cons(new_integer(9457711),
  8284 +cons(new_integer(9461295),
8234 8285 cons(new_string("Bool"),
8235 8286 cons(app,
8236   -cons(new_integer(9457721),
  8287 +cons(new_integer(9461305),
8237 8288 cons(cons(symbol,
8238   -cons(new_integer(9457721),
  8289 +cons(new_integer(9461305),
8239 8290 new_string("<"))),
8240 8291 cons(cons(integer_10,
8241   -cons(new_integer(9457725),
  8292 +cons(new_integer(9461309),
8242 8293 cons(new_integer(100),
8243 8294 nil))),
8244 8295 cons(cons(symbol,
8245   -cons(new_integer(9457719),
  8296 +cons(new_integer(9461303),
8246 8297 new_string("quality"))),
8247 8298 nil)))))))),
8248 8299 cons(cons(cons(new_string("false"),
8249 8300 nil),
8250   -cons(new_integer(9457739),
  8301 +cons(new_integer(9461323),
8251 8302 cons(symbol,
8252   -cons(new_integer(9457747),
  8303 +cons(new_integer(9461331),
8253 8304 new_string("quality"))))),
8254 8305 cons(cons(cons(new_string("true"),
8255 8306 nil),
8256   -cons(new_integer(9457730),
  8307 +cons(new_integer(9461314),
8257 8308 cons(integer_10,
8258   -cons(new_integer(9457734),
  8309 +cons(new_integer(9461318),
8259 8310 cons(new_integer(100),
8260 8311 nil))))),
8261 8312 nil))))))),
8262 8313 cons(cons(cons(new_string("true"),
8263 8314 nil),
8264   -cons(new_integer(9457701),
  8315 +cons(new_integer(9461285),
8265 8316 cons(integer_10,
8266   -cons(new_integer(9457703),
  8317 +cons(new_integer(9461287),
8267 8318 nil)))),
8268 8319 nil))))),
8269 8320 cons(cond,
8270   -cons(new_integer(9457925),
  8321 +cons(new_integer(9461509),
8271 8322 cons(cons(connect_to_file,
8272   -cons(new_integer(9457962),
  8323 +cons(new_integer(9461546),
8273 8324 cons(cons(app_ts,
8274 8325 cons(new_string("Maybe"),
8275 8326 cons(cons(type_WAddr,
8276 8327 new_string("Int8")),
8277 8328 nil))),
8278 8329 cons(symbol,
8279   -cons(new_integer(9457972),
  8330 +cons(new_integer(9461556),
8280 8331 new_string("file_name")))))),
8281 8332 cons(cons(cons(new_string("failure"),
8282 8333 nil),
8283   -cons(new_integer(9458451),
  8334 +cons(new_integer(9462035),
8284 8335 cons(symbol,
8285   -cons(new_integer(9458470),
  8336 +cons(new_integer(9462054),
8286 8337 new_string("cannot_create_file"))))),
8287 8338 cons(cons(cons(new_string("success"),
8288 8339 cons(new_string("output_file"),
8289 8340 nil)),
8290   -cons(new_integer(9458720),
  8341 +cons(new_integer(9462304),
8291 8342 cons(cond,
8292   -cons(new_integer(9458955),
  8343 +cons(new_integer(9462539),
8293 8344 cons(cons(symbol,
8294   -cons(new_integer(9458961),
  8345 +cons(new_integer(9462545),
8295 8346 new_string("image"))),
8296 8347 cons(cons(cons(new_string("img"),
8297 8348 cons(new_string("format"),
... ... @@ -8299,120 +8350,120 @@ cons(new_string(&quot;nw&quot;),
8299 8350 cons(new_string("nh"),
8300 8351 cons(new_string("samples"),
8301 8352 nil))))),
8302   -cons(new_integer(9458995),
  8353 +cons(new_integer(9462579),
8303 8354 cons(cond,
8304   -cons(new_integer(9459211),
  8355 +cons(new_integer(9462795),
8305 8356 cons(cons(app,
8306   -cons(new_integer(9459239),
  8357 +cons(new_integer(9462823),
8307 8358 cons(cons(symbol,
8308   -cons(new_integer(9459238),
  8359 +cons(new_integer(9462822),
8309 8360 new_string("£create_JPEG_compress_info"))),
8310 8361 cons(cons(symbol,
8311   -cons(new_integer(9459241),
  8362 +cons(new_integer(9462825),
8312 8363 new_string("nw"))),
8313 8364 cons(cons(symbol,
8314   -cons(new_integer(9459244),
  8365 +cons(new_integer(9462828),
8315 8366 new_string("nh"))),
8316 8367 cons(cons(symbol,
8317   -cons(new_integer(9459251),
  8368 +cons(new_integer(9462835),
8318 8369 new_string("format"))),
8319 8370 cons(cons(symbol,
8320   -cons(new_integer(9459259),
  8371 +cons(new_integer(9462843),
8321 8372 new_string("quality"))),
8322 8373 cons(cons(symbol,
8323   -cons(new_integer(9459271),
  8374 +cons(new_integer(9462855),
8324 8375 new_string("output_file"))),
8325 8376 nil)))))))),
8326 8377 cons(cons(cons(new_string("failure"),
8327 8378 nil),
8328   -cons(new_integer(9459737),
  8379 +cons(new_integer(9463321),
8329 8380 cons(symbol,
8330   -cons(new_integer(9459755),
  8381 +cons(new_integer(9463339),
8331 8382 new_string("compression_error"))))),
8332 8383 cons(cons(cons(new_string("success"),
8333 8384 cons(new_string("cinfo"),
8334 8385 nil)),
8335   -cons(new_integer(9460000),
  8386 +cons(new_integer(9463584),
8336 8387 cons(with,
8337   -cons(new_integer(9460256),
  8388 +cons(new_integer(9463840),
8338 8389 cons(new_string("row_stride"),
8339 8390 cons(cons(app,
8340   -cons(new_integer(9460260),
  8391 +cons(new_integer(9463844),
8341 8392 cons(cons(symbol,
8342   -cons(new_integer(9460260),
  8393 +cons(new_integer(9463844),
8343 8394 new_string("*"))),
8344 8395 cons(cons(symbol,
8345   -cons(new_integer(9460259),
  8396 +cons(new_integer(9463843),
8346 8397 new_string("nw"))),
8347 8398 cons(cons(cond,
8348   -cons(new_integer(9460263),
  8399 +cons(new_integer(9463847),
8349 8400 cons(cons(symbol,
8350   -cons(new_integer(9460270),
  8401 +cons(new_integer(9463854),
8351 8402 new_string("format"))),
8352 8403 cons(cons(cons(new_string("rgb"),
8353 8404 nil),
8354   -cons(new_integer(9460283),
  8405 +cons(new_integer(9463867),
8355 8406 cons(integer_10,
8356   -cons(new_integer(9460285),
  8407 +cons(new_integer(9463869),
8357 8408 cons(new_integer(3),
8358 8409 nil))))),
8359 8410 cons(cons(cons(new_string("greyscale"),
8360 8411 nil),
8361   -cons(new_integer(9460301),
  8412 +cons(new_integer(9463885),
8362 8413 cons(integer_10,
8363   -cons(new_integer(9460303),
  8414 +cons(new_integer(9463887),
8364 8415 cons(new_integer(1),
8365 8416 nil))))),
8366 8417 nil))))),
8367 8418 nil))))),
8368 8419 cons(cond,
8369   -cons(new_integer(9460548),
  8420 +cons(new_integer(9464132),
8370 8421 cons(cons(of_type,
8371   -cons(new_integer(9460548),
  8422 +cons(new_integer(9464132),
8372 8423 cons(new_string("One"),
8373 8424 cons(app,
8374   -cons(new_integer(9460517),
  8425 +cons(new_integer(9464101),
8375 8426 cons(cons(symbol,
8376   -cons(new_integer(9460517),
  8427 +cons(new_integer(9464101),
8377 8428 new_string("£jpeg_write_scanlines"))),
8378 8429 cons(cons(symbol,
8379   -cons(new_integer(9460522),
  8430 +cons(new_integer(9464106),
8380 8431 new_string("cinfo"))),
8381 8432 cons(cons(symbol,
8382   -cons(new_integer(9460530),
  8433 +cons(new_integer(9464114),
8383 8434 new_string("samples"))),
8384 8435 cons(cons(symbol,
8385   -cons(new_integer(9460541),
  8436 +cons(new_integer(9464125),
8386 8437 new_string("row_stride"))),
8387 8438 cons(cons(symbol,
8388   -cons(new_integer(9460544),
  8439 +cons(new_integer(9464128),
8389 8440 new_string("nh"))),
8390 8441 cons(cons(integer_10,
8391   -cons(new_integer(9460546),
  8442 +cons(new_integer(9464130),
8392 8443 nil)),
8393 8444 nil))))))))))),
8394 8445 cons(cons(cons(new_string("unique"),
8395 8446 nil),
8396   -cons(new_integer(9460548),
  8447 +cons(new_integer(9464132),
8397 8448 cons(cond,
8398   -cons(new_integer(9460780),
  8449 +cons(new_integer(9464364),
8399 8450 cons(cons(of_type,
8400   -cons(new_integer(9460780),
  8451 +cons(new_integer(9464364),
8401 8452 cons(new_string("One"),
8402 8453 cons(app,
8403   -cons(new_integer(9460773),
  8454 +cons(new_integer(9464357),
8404 8455 cons(cons(symbol,
8405   -cons(new_integer(9460772),
  8456 +cons(new_integer(9464356),
8406 8457 new_string("£jpeg_finish_compress"))),
8407 8458 cons(cons(symbol,
8408   -cons(new_integer(9460778),
  8459 +cons(new_integer(9464362),
8409 8460 new_string("cinfo"))),
8410 8461 nil))))))),
8411 8462 cons(cons(cons(new_string("unique"),
8412 8463 nil),
8413   -cons(new_integer(9460780),
  8464 +cons(new_integer(9464364),
8414 8465 cons(symbol,
8415   -cons(new_integer(9461009),
  8466 +cons(new_integer(9464593),
8416 8467 new_string("ok"))))),
8417 8468 nil)))))),
8418 8469 nil)))))))))),
... ... @@ -8432,7 +8483,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
8432 8483 nil))),
8433 8484 nil),0,1);
8434 8485  
8435   -new_op_scheme(18929166,0,
  8486 +new_op_scheme(18936334,0,
8436 8487 cons(app_ts,
8437 8488 cons(new_string("Maybe"),
8438 8489 cons(new_string("£JPEG_decompress_info"),
... ... @@ -8444,7 +8495,7 @@ new_string(&quot;Int8&quot;)),
8444 8495 new_string("source_file")),
8445 8496 nil),
8446 8497 cons(avm,
8447   -cons(new_integer(9465863),
  8498 +cons(new_integer(9469447),
8448 8499 cons(create_JPEG_decompress_info,
8449 8500 nil))));
8450 8501  
... ... @@ -8465,7 +8516,7 @@ noname),
8465 8516 nil)))),
8466 8517 nil),0,1);
8467 8518  
8468   -new_op_scheme(18933774,0,
  8519 +new_op_scheme(18940942,0,
8469 8520 cons(app_ts,
8470 8521 cons(new_string("£Tuple3"),
8471 8522 cons(type_Int32,
... ... @@ -8478,11 +8529,11 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
8478 8529 new_string("cinfo")),
8479 8530 nil),
8480 8531 cons(avm,
8481   -cons(new_integer(9468679),
  8532 +cons(new_integer(9472263),
8482 8533 cons(jpeg_image_parameters,
8483 8534 nil))));
8484 8535  
8485   -new_op_scheme(18939406,0,
  8536 +new_op_scheme(18946574,0,
8486 8537 cons(app_ts,
8487 8538 cons(new_string("Maybe"),
8488 8539 cons(new_string("One"),
... ... @@ -8497,11 +8548,11 @@ cons(cons(type_Int32,
8497 8548 new_string("offset")),
8498 8549 nil))),
8499 8550 cons(avm,
8500   -cons(new_integer(9471495),
  8551 +cons(new_integer(9475079),
8501 8552 cons(jpeg_read_scanline,
8502 8553 nil))));
8503 8554  
8504   -new_op_scheme(18945038,0,
  8555 +new_op_scheme(18952206,0,
8505 8556 new_string("One"),
8506 8557 cons(new_string("£jpeg_read_scanlines"),
8507 8558 nil),
... ... @@ -8517,102 +8568,102 @@ cons(cons(type_Int32,
8517 8568 new_string("offset")),
8518 8569 nil))))),
8519 8570 cons(cond,
8520   -cons(new_integer(9474821),
  8571 +cons(new_integer(9478405),
8521 8572 cons(cons(of_type,
8522   -cons(new_integer(9474821),
  8573 +cons(new_integer(9478405),
8523 8574 cons(new_string("Bool"),
8524 8575 cons(app,
8525   -cons(new_integer(9474826),
  8576 +cons(new_integer(9478410),
8526 8577 cons(cons(symbol,
8527   -cons(new_integer(9474826),
  8578 +cons(new_integer(9478410),
8528 8579 new_string("=<"))),
8529 8580 cons(cons(symbol,
8530   -cons(new_integer(9474823),
  8581 +cons(new_integer(9478407),
8531 8582 new_string("n"))),
8532 8583 cons(cons(integer_10,
8533   -cons(new_integer(9474828),
  8584 +cons(new_integer(9478412),
8534 8585 nil)),
8535 8586 nil)))))))),
8536 8587 cons(cons(cons(new_string("false"),
8537 8588 nil),
8538   -cons(new_integer(9474845),
  8589 +cons(new_integer(9478429),
8539 8590 cons(cond,
8540   -cons(new_integer(9475077),
  8591 +cons(new_integer(9478661),
8541 8592 cons(cons(app,
8542   -cons(new_integer(9475098),
  8593 +cons(new_integer(9478682),
8543 8594 cons(cons(symbol,
8544   -cons(new_integer(9475097),
  8595 +cons(new_integer(9478681),
8545 8596 new_string("£jpeg_read_scanline"))),
8546 8597 cons(cons(symbol,
8547   -cons(new_integer(9475103),
  8598 +cons(new_integer(9478687),
8548 8599 new_string("cinfo"))),
8549 8600 cons(cons(symbol,
8550   -cons(new_integer(9475108),
  8601 +cons(new_integer(9478692),
8551 8602 new_string("dest"))),
8552 8603 cons(cons(symbol,
8553   -cons(new_integer(9475115),
  8604 +cons(new_integer(9478699),
8554 8605 new_string("offset"))),
8555 8606 nil)))))),
8556 8607 cons(cons(cons(new_string("failure"),
8557 8608 nil),
8558   -cons(new_integer(9475603),
  8609 +cons(new_integer(9479187),
8559 8610 cons(symbol,
8560   -cons(new_integer(9475610),
  8611 +cons(new_integer(9479194),
8561 8612 new_string("unique"))))),
8562 8613 cons(cons(cons(new_string("success"),
8563 8614 cons(new_string("_"),
8564 8615 nil)),
8565   -cons(new_integer(9475862),
  8616 +cons(new_integer(9479446),
8566 8617 cons(app,
8567   -cons(new_integer(9476126),
  8618 +cons(new_integer(9479710),
8568 8619 cons(cons(symbol,
8569   -cons(new_integer(9476125),
  8620 +cons(new_integer(9479709),
8570 8621 new_string("£jpeg_read_scanlines"))),
8571 8622 cons(cons(app,
8572   -cons(new_integer(9476128),
  8623 +cons(new_integer(9479712),
8573 8624 cons(cons(symbol,
8574   -cons(new_integer(9476128),
  8625 +cons(new_integer(9479712),
8575 8626 new_string("-"))),
8576 8627 cons(cons(symbol,
8577   -cons(new_integer(9476127),
  8628 +cons(new_integer(9479711),
8578 8629 new_string("n"))),
8579 8630 cons(cons(integer_10,
8580   -cons(new_integer(9476129),
  8631 +cons(new_integer(9479713),
8581 8632 cons(new_integer(1),
8582 8633 nil))),
8583 8634 nil))))),
8584 8635 cons(cons(symbol,
8585   -cons(new_integer(9476135),
  8636 +cons(new_integer(9479719),
8586 8637 new_string("cinfo"))),
8587 8638 cons(cons(symbol,
8588   -cons(new_integer(9476140),
  8639 +cons(new_integer(9479724),
8589 8640 new_string("dest"))),
8590 8641 cons(cons(symbol,
8591   -cons(new_integer(9476151),
  8642 +cons(new_integer(9479735),
8592 8643 new_string("row_stride"))),
8593 8644 cons(cons(app,
8594   -cons(new_integer(9476159),
  8645 +cons(new_integer(9479743),
8595 8646 cons(cons(symbol,
8596   -cons(new_integer(9476159),
  8647 +cons(new_integer(9479743),
8597 8648 new_string("+"))),
8598 8649 cons(cons(symbol,
8599   -cons(new_integer(9476158),
  8650 +cons(new_integer(9479742),
8600 8651 new_string("offset"))),
8601 8652 cons(cons(symbol,
8602   -cons(new_integer(9476169),
  8653 +cons(new_integer(9479753),
8603 8654 new_string("row_stride"))),
8604 8655 nil))))),
8605 8656 nil)))))))))),
8606 8657 nil))))))),
8607 8658 cons(cons(cons(new_string("true"),
8608 8659 nil),
8609   -cons(new_integer(9474833),
  8660 +cons(new_integer(9478417),
8610 8661 cons(symbol,
8611   -cons(new_integer(9474840),
  8662 +cons(new_integer(9478424),
8612 8663 new_string("unique"))))),
8613 8664 nil))))));
8614 8665  
8615   -new_op_scheme(18954766,0,
  8666 +new_op_scheme(18961934,0,
8616 8667 new_string("One"),
8617 8668 cons(new_string("£jpeg_finish_decompress"),
8618 8669 nil),
... ... @@ -8620,7 +8671,7 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
8620 8671 new_string("cinfo")),
8621 8672 nil),
8622 8673 cons(avm,
8623   -cons(new_integer(9478663),
  8674 +cons(new_integer(9482247),
8624 8675 cons(jpeg_finish_decompress,
8625 8676 nil))));
8626 8677  
... ... @@ -8640,7 +8691,7 @@ noname),
8640 8691 nil)),
8641 8692 nil))),0,1);
8642 8693  
8643   -new_op_scheme(18962460,1,
  8694 +new_op_scheme(18969628,1,
8644 8695 new_string("Result_JPEG_read"),
8645 8696 cons(new_string("read_image_from_JPEG_file"),
8646 8697 nil),
... ... @@ -8648,57 +8699,57 @@ cons(cons(type_String,
8648 8699 new_string("file_name")),
8649 8700 nil),
8650 8701 cons(cond,
8651   -cons(new_integer(9482501),
  8702 +cons(new_integer(9486085),
8652 8703 cons(cons(connect_to_file,
8653   -cons(new_integer(9482537),
  8704 +cons(new_integer(9486121),
8654 8705 cons(cons(app_ts,
8655 8706 cons(new_string("Maybe"),
8656 8707 cons(cons(type_RAddr,
8657 8708 new_string("Int8")),
8658 8709 nil))),
8659 8710 cons(symbol,
8660   -cons(new_integer(9482547),
  8711 +cons(new_integer(9486131),
8661 8712 new_string("file_name")))))),
8662 8713 cons(cons(cons(new_string("failure"),
8663 8714 nil),
8664   -cons(new_integer(9483027),
  8715 +cons(new_integer(9486611),
8665 8716 cons(symbol,
8666   -cons(new_integer(9483044),
  8717 +cons(new_integer(9486628),
8667 8718 new_string("cannot_open_file"))))),
8668 8719 cons(cons(cons(new_string("success"),
8669 8720 cons(new_string("source_file"),
8670 8721 nil)),
8671   -cons(new_integer(9483296),
  8722 +cons(new_integer(9486880),
8672 8723 cons(cond,
8673   -cons(new_integer(9483531),
  8724 +cons(new_integer(9487115),
8674 8725 cons(cons(app,
8675   -cons(new_integer(9483561),
  8726 +cons(new_integer(9487145),
8676 8727 cons(cons(symbol,
8677   -cons(new_integer(9483560),
  8728 +cons(new_integer(9487144),
8678 8729 new_string("£create_JPEG_decompress_info"))),
8679 8730 cons(cons(symbol,
8680   -cons(new_integer(9483572),
  8731 +cons(new_integer(9487156),
8681 8732 new_string("source_file"))),
8682 8733 nil)))),
8683 8734 cons(cons(cons(new_string("failure"),
8684 8735 nil),
8685   -cons(new_integer(9484057),
  8736 +cons(new_integer(9487641),
8686 8737 cons(symbol,
8687   -cons(new_integer(9484074),
  8738 +cons(new_integer(9487658),
8688 8739 new_string("decompress_error"))))),
8689 8740 cons(cons(cons(new_string("success"),
8690 8741 cons(new_string("cinfo"),
8691 8742 nil)),
8692   -cons(new_integer(9484320),
  8743 +cons(new_integer(9487904),
8693 8744 cons(cond,
8694   -cons(new_integer(9484323),
  8745 +cons(new_integer(9487907),
8695 8746 cons(cons(app,
8696   -cons(new_integer(9484347),
  8747 +cons(new_integer(9487931),
8697 8748 cons(cons(symbol,
8698   -cons(new_integer(9484346),
  8749 +cons(new_integer(9487930),
8699 8750 new_string("£jpeg_image_parameters"))),
8700 8751 cons(cons(symbol,
8701   -cons(new_integer(9484352),
  8752 +cons(new_integer(9487936),
8702 8753 new_string("cinfo"))),
8703 8754 nil)))),
8704 8755 cons(cons(cons(new_string("£tuple"),
... ... @@ -8706,142 +8757,142 @@ cons(new_string(&quot;w&quot;),
8706 8757 cons(new_string("h"),
8707 8758 cons(new_string("f"),
8708 8759 nil)))),
8709   -cons(new_integer(9484369),
  8760 +cons(new_integer(9487953),
8710 8761 cons(with,
8711   -cons(new_integer(9484568),
  8762 +cons(new_integer(9488152),
8712 8763 cons(new_string("sw"),
8713 8764 cons(cons(of_type,
8714   -cons(new_integer(9484570),
  8765 +cons(new_integer(9488154),
8715 8766 cons(type_Int32,
8716 8767 cons(cond,
8717   -cons(new_integer(9484579),
  8768 +cons(new_integer(9488163),
8718 8769 cons(cons(symbol,
8719   -cons(new_integer(9484581),
  8770 +cons(new_integer(9488165),
8720 8771 new_string("f"))),
8721 8772 cons(cons(cons(new_string("rgb"),
8722 8773 nil),
8723   -cons(new_integer(9484594),
  8774 +cons(new_integer(9488178),
8724 8775 cons(integer_10,
8725   -cons(new_integer(9484596),
  8776 +cons(new_integer(9488180),
8726 8777 cons(new_integer(3),
8727 8778 nil))))),
8728 8779 cons(cons(cons(new_string("greyscale"),
8729 8780 nil),
8730   -cons(new_integer(9484612),
  8781 +cons(new_integer(9488196),
8731 8782 cons(integer_10,
8732   -cons(new_integer(9484614),
  8783 +cons(new_integer(9488198),
8733 8784 cons(new_integer(1),
8734 8785 nil))))),
8735 8786 nil)))))))),
8736 8787 cons(with,
8737   -cons(new_integer(9484826),
  8788 +cons(new_integer(9488410),
8738 8789 cons(new_string("dest"),
8739 8790 cons(cons(app,
8740   -cons(new_integer(9484847),
  8791 +cons(new_integer(9488431),
8741 8792 cons(cons(symbol,
8742   -cons(new_integer(9484846),
  8793 +cons(new_integer(9488430),
8743 8794 new_string("constant_byte_array"))),
8744 8795 cons(cons(app,
8745   -cons(new_integer(9484849),
  8796 +cons(new_integer(9488433),
8746 8797 cons(cons(symbol,
8747   -cons(new_integer(9484849),
  8798 +cons(new_integer(9488433),
8748 8799 new_string("*"))),
8749 8800 cons(cons(symbol,
8750   -cons(new_integer(9484848),
  8801 +cons(new_integer(9488432),
8751 8802 new_string("w"))),
8752 8803 cons(cons(app,
8753   -cons(new_integer(9484851),
  8804 +cons(new_integer(9488435),
8754 8805 cons(cons(symbol,
8755   -cons(new_integer(9484851),
  8806 +cons(new_integer(9488435),
8756 8807 new_string("*"))),
8757 8808 cons(cons(symbol,
8758   -cons(new_integer(9484850),
  8809 +cons(new_integer(9488434),
8759 8810 new_string("h"))),
8760 8811 cons(cons(symbol,
8761   -cons(new_integer(9484853),
  8812 +cons(new_integer(9488437),
8762 8813 new_string("sw"))),
8763 8814 nil))))),
8764 8815 nil))))),
8765 8816 cons(cons(integer_10,
8766   -cons(new_integer(9484855),
  8817 +cons(new_integer(9488439),
8767 8818 nil)),
8768 8819 nil))))),
8769 8820 cons(cond,
8770   -cons(new_integer(9485113),
  8821 +cons(new_integer(9488697),
8771 8822 cons(cons(of_type,
8772   -cons(new_integer(9485113),
  8823 +cons(new_integer(9488697),
8773 8824 cons(new_string("One"),
8774 8825 cons(app,
8775   -cons(new_integer(9485092),
  8826 +cons(new_integer(9488676),
8776 8827 cons(cons(symbol,
8777   -cons(new_integer(9485092),
  8828 +cons(new_integer(9488676),
8778 8829 new_string("£jpeg_read_scanlines"))),
8779 8830 cons(cons(symbol,
8780   -cons(new_integer(9485093),
  8831 +cons(new_integer(9488677),
8781 8832 new_string("h"))),
8782 8833 cons(cons(symbol,
8783   -cons(new_integer(9485099),
  8834 +cons(new_integer(9488683),
8784 8835 new_string("cinfo"))),
8785 8836 cons(cons(symbol,
8786   -cons(new_integer(9485104),
  8837 +cons(new_integer(9488688),
8787 8838 new_string("dest"))),
8788 8839 cons(cons(app,
8789   -cons(new_integer(9485107),
  8840 +cons(new_integer(9488691),
8790 8841 cons(cons(symbol,
8791   -cons(new_integer(9485107),
  8842 +cons(new_integer(9488691),
8792 8843 new_string("*"))),
8793 8844 cons(cons(symbol,
8794   -cons(new_integer(9485106),
  8845 +cons(new_integer(9488690),
8795 8846 new_string("w"))),
8796 8847 cons(cons(symbol,
8797   -cons(new_integer(9485109),
  8848 +cons(new_integer(9488693),
8798 8849 new_string("sw"))),
8799 8850 nil))))),
8800 8851 cons(cons(integer_10,
8801   -cons(new_integer(9485111),
  8852 +cons(new_integer(9488695),
8802 8853 nil)),
8803 8854 nil))))))))))),
8804 8855 cons(cons(cons(new_string("unique"),
8805 8856 nil),
8806   -cons(new_integer(9485113),
  8857 +cons(new_integer(9488697),
8807 8858 cons(cond,
8808   -cons(new_integer(9485358),
  8859 +cons(new_integer(9488942),
8809 8860 cons(cons(of_type,
8810   -cons(new_integer(9485358),
  8861 +cons(new_integer(9488942),
8811 8862 cons(new_string("One"),
8812 8863 cons(app,
8813   -cons(new_integer(9485351),
  8864 +cons(new_integer(9488935),
8814 8865 cons(cons(symbol,
8815   -cons(new_integer(9485350),
  8866 +cons(new_integer(9488934),
8816 8867 new_string("£jpeg_finish_decompress"))),
8817 8868 cons(cons(symbol,
8818   -cons(new_integer(9485356),
  8869 +cons(new_integer(9488940),
8819 8870 new_string("cinfo"))),
8820 8871 nil))))))),
8821 8872 cons(cons(cons(new_string("unique"),
8822 8873 nil),
8823   -cons(new_integer(9485358),
  8874 +cons(new_integer(9488942),
8824 8875 cons(app,
8825   -cons(new_integer(9485586),
  8876 +cons(new_integer(9489170),
8826 8877 cons(cons(symbol,
8827   -cons(new_integer(9485585),
  8878 +cons(new_integer(9489169),
8828 8879 new_string("ok"))),
8829 8880 cons(cons(app,
8830   -cons(new_integer(9485590),
  8881 +cons(new_integer(9489174),
8831 8882 cons(cons(symbol,
8832   -cons(new_integer(9485589),
  8883 +cons(new_integer(9489173),
8833 8884 new_string("img"))),
8834 8885 cons(cons(symbol,
8835   -cons(new_integer(9485591),
  8886 +cons(new_integer(9489175),
8836 8887 new_string("f"))),
8837 8888 cons(cons(symbol,
8838   -cons(new_integer(9485593),
  8889 +cons(new_integer(9489177),
8839 8890 new_string("w"))),
8840 8891 cons(cons(symbol,
8841   -cons(new_integer(9485595),
  8892 +cons(new_integer(9489179),
8842 8893 new_string("h"))),
8843 8894 cons(cons(symbol,
8844   -cons(new_integer(9485600),
  8895 +cons(new_integer(9489184),
8845 8896 new_string("dest"))),
8846 8897 nil))))))),
8847 8898 nil)))))),
... ... @@ -9082,7 +9133,7 @@ new_string(&quot;£gc&quot;)),
9082 9133 nil))),
9083 9134 nil),0,1);
9084 9135  
9085   -new_op_scheme(19025948,1,
  9136 +new_op_scheme(19033116,1,
9086 9137 cons(app_ts,
9087 9138 cons(new_string("£Tuple2"),
9088 9139 cons(type_Int32,
... ... @@ -9094,11 +9145,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9094 9145 new_string("hw")),
9095 9146 nil),
9096 9147 cons(avm,
9097   -cons(new_integer(9513998),
  9148 +cons(new_integer(9517582),
9098 9149 cons(host_window_size,
9099 9150 nil))));
9100 9151  
9101   -new_op_scheme(19031068,1,
  9152 +new_op_scheme(19038236,1,
9102 9153 new_string("One"),
9103 9154 cons(new_string("resize"),
9104 9155 nil),
... ... @@ -9110,11 +9161,11 @@ cons(cons(type_Int32,
9110 9161 new_string("height")),
9111 9162 nil))),
9112 9163 cons(avm,
9113   -cons(new_integer(9517320),
  9164 +cons(new_integer(9520904),
9114 9165 cons(resize_host_window,
9115 9166 nil))));
9116 9167  
9117   -new_op_scheme(19037724,1,
  9168 +new_op_scheme(19044892,1,
9118 9169 cons(app_ts,
9119 9170 cons(new_string("£Tuple2"),
9120 9171 cons(type_Int32,
... ... @@ -9124,11 +9175,11 @@ cons(new_string(&quot;screen_size&quot;),
9124 9175 nil),
9125 9176 nil,
9126 9177 cons(avm,
9127   -cons(new_integer(9519624),
  9178 +cons(new_integer(9523208),
9128 9179 cons(screen_size,
9129 9180 nil))));
9130 9181  
9131   -new_op_scheme(19041820,1,
  9182 +new_op_scheme(19048988,1,
9132 9183 new_string("One"),
9133 9184 cons(new_string("change_title"),
9134 9185 nil),
... ... @@ -9138,11 +9189,11 @@ cons(cons(type_String,
9138 9189 new_string("new_title")),
9139 9190 nil)),
9140 9191 cons(avm,
9141   -cons(new_integer(9522190),
  9192 +cons(new_integer(9525774),
9142 9193 cons(change_host_window_title,
9143 9194 nil))));
9144 9195  
9145   -new_op_scheme(19049998,0,
  9196 +new_op_scheme(19057166,0,
9146 9197 new_string("Bool"),
9147 9198 cons(new_string("£window_event_pending"),
9148 9199 nil),
... ... @@ -9151,11 +9202,11 @@ new_integer(3)),
9151 9202 new_string("handle")),
9152 9203 nil),
9153 9204 cons(avm,
9154   -cons(new_integer(9526280),
  9205 +cons(new_integer(9529864),
9155 9206 cons(window_event_pending,
9156 9207 nil))));
9157 9208  
9158   -new_op_scheme(19055630,0,
  9209 +new_op_scheme(19062798,0,
9159 9210 cons(app_ts,
9160 9211 cons(new_string("HostWindowEvent"),
9161 9212 cons(new_utvar("E"),
... ... @@ -9167,11 +9218,11 @@ new_integer(3)),
9167 9218 new_string("handle")),
9168 9219 nil),
9169 9220 cons(avm,
9170   -cons(new_integer(9529096),
  9221 +cons(new_integer(9532680),
9171 9222 cons(get_host_window_event,
9172 9223 nil))));
9173 9224  
9174   -new_op_scheme(19063310,0,
  9225 +new_op_scheme(19070478,0,
9175 9226 cons(app_ts,
9176 9227 cons(new_string("List"),
9177 9228 cons(cons(app_ts,
... ... @@ -9188,107 +9239,107 @@ cons(cons(type_Int32,
9188 9239 new_string("max")),
9189 9240 nil)),
9190 9241 cons(cond,
9191   -cons(new_integer(9533190),
  9242 +cons(new_integer(9536774),
9192 9243 cons(cons(of_type,
9193   -cons(new_integer(9533190),
  9244 +cons(new_integer(9536774),
9194 9245 cons(new_string("Bool"),
9195 9246 cons(app,
9196   -cons(new_integer(9533197),
  9247 +cons(new_integer(9536781),
9197 9248 cons(cons(symbol,
9198   -cons(new_integer(9533197),
  9249 +cons(new_integer(9536781),
9199 9250 new_string("=<"))),
9200 9251 cons(cons(symbol,
9201   -cons(new_integer(9533194),
  9252 +cons(new_integer(9536778),
9202 9253 new_string("max"))),
9203 9254 cons(cons(integer_10,
9204   -cons(new_integer(9533199),
  9255 +cons(new_integer(9536783),
9205 9256 nil)),
9206 9257 nil)))))))),
9207 9258 cons(cons(cons(new_string("false"),
9208 9259 nil),
9209   -cons(new_integer(9533212),
  9260 +cons(new_integer(9536796),
9210 9261 cons(cond,
9211   -cons(new_integer(9533446),
  9262 +cons(new_integer(9537030),
9212 9263 cons(cons(of_type,
9213   -cons(new_integer(9533446),
  9264 +cons(new_integer(9537030),
9214 9265 cons(new_string("Bool"),
9215 9266 cons(app,
9216   -cons(new_integer(9533469),
  9267 +cons(new_integer(9537053),
9217 9268 cons(cons(symbol,
9218   -cons(new_integer(9533468),
  9269 +cons(new_integer(9537052),
9219 9270 new_string("£window_event_pending"))),
9220 9271 cons(cons(symbol,
9221   -cons(new_integer(9533475),
  9272 +cons(new_integer(9537059),
9222 9273 new_string("handle"))),
9223 9274 nil))))))),
9224 9275 cons(cons(cons(new_string("false"),
9225 9276 nil),
9226   -cons(new_integer(9534472),
  9277 +cons(new_integer(9538056),
9227 9278 cons(symbol,
9228   -cons(new_integer(9534476),
  9279 +cons(new_integer(9538060),
9229 9280 new_string("[]"))))),
9230 9281 cons(cons(cons(new_string("true"),
9231 9282 nil),
9232   -cons(new_integer(9533704),
  9283 +cons(new_integer(9537288),
9233 9284 cons(with,
9234   -cons(new_integer(9533717),
  9285 +cons(new_integer(9537301),
9235 9286 cons(new_string("first"),
9236 9287 cons(cons(app,
9237   -cons(new_integer(9533741),
  9288 +cons(new_integer(9537325),
9238 9289 cons(cons(symbol,
9239   -cons(new_integer(9533740),
  9290 +cons(new_integer(9537324),
9240 9291 new_string("£get_host_window_event"))),
9241 9292 cons(cons(symbol,
9242   -cons(new_integer(9533747),
  9293 +cons(new_integer(9537331),
9243 9294 new_string("handle"))),
9244 9295 nil)))),
9245 9296 cons(with,
9246   -cons(new_integer(9533973),
  9297 +cons(new_integer(9537557),
9247 9298 cons(new_string("others"),
9248 9299 cons(cons(app,
9249   -cons(new_integer(9533998),
  9300 +cons(new_integer(9537582),
9250 9301 cons(cons(symbol,
9251   -cons(new_integer(9533997),
  9302 +cons(new_integer(9537581),
9252 9303 new_string("£get_host_window_events"))),
9253 9304 cons(cons(symbol,
9254   -cons(new_integer(9534004),
  9305 +cons(new_integer(9537588),
9255 9306 new_string("handle"))),
9256 9307 cons(cons(app,
9257   -cons(new_integer(9534009),
  9308 +cons(new_integer(9537593),
9258 9309 cons(cons(symbol,
9259   -cons(new_integer(9534009),
  9310 +cons(new_integer(9537593),
9260 9311 new_string("-"))),
9261 9312 cons(cons(symbol,
9262   -cons(new_integer(9534008),
  9313 +cons(new_integer(9537592),
9263 9314 new_string("max"))),
9264 9315 cons(cons(integer_10,
9265   -cons(new_integer(9534010),
  9316 +cons(new_integer(9537594),
9266 9317 cons(new_integer(1),
9267 9318 nil))),
9268 9319 nil))))),
9269 9320 nil))))),
9270 9321 cons(app,
9271   -cons(new_integer(9534228),
  9322 +cons(new_integer(9537812),
9272 9323 cons(cons(symbol,
9273   -cons(new_integer(9534228),
  9324 +cons(new_integer(9537812),
9274 9325 new_string("[.]"))),
9275 9326 cons(cons(symbol,
9276   -cons(new_integer(9534225),
  9327 +cons(new_integer(9537809),
9277 9328 new_string("first"))),
9278 9329 cons(cons(symbol,
9279   -cons(new_integer(9534234),
  9330 +cons(new_integer(9537818),
9280 9331 new_string("others"))),
9281 9332 nil))))))))))))))),
9282 9333 nil))))))),
9283 9334 cons(cons(cons(new_string("true"),
9284 9335 nil),
9285   -cons(new_integer(9533204),
  9336 +cons(new_integer(9536788),
9286 9337 cons(symbol,
9287   -cons(new_integer(9533207),
  9338 +cons(new_integer(9536791),
9288 9339 new_string("[]"))))),
9289 9340 nil))))));
9290 9341  
9291   -new_op_scheme(19072526,0,
  9342 +new_op_scheme(19079694,0,
9292 9343 new_string("Bool"),
9293 9344 cons(new_string("£default_host_window_handling"),
9294 9345 nil),
... ... @@ -9331,7 +9382,7 @@ new_string(&quot;event_handler&quot;)),
9331 9382 nil))))),
9332 9383 no_term);
9333 9384  
9334   -new_op_scheme(19079182,0,
  9385 +new_op_scheme(19086350,0,
9335 9386 new_string("One"),
9336 9387 cons(new_string("£begin_paint"),
9337 9388 nil),
... ... @@ -9339,11 +9390,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9339 9390 new_string("window")),
9340 9391 nil),
9341 9392 cons(avm,
9342   -cons(new_integer(9540872),
  9393 +cons(new_integer(9544456),
9343 9394 cons(begin_paint,
9344 9395 nil))));
9345 9396  
9346   -new_op_scheme(19082766,0,
  9397 +new_op_scheme(19089934,0,
9347 9398 new_string("One"),
9348 9399 cons(new_string("£end_paint"),
9349 9400 nil),
... ... @@ -9351,11 +9402,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
9351 9402 new_string("window")),
9352 9403 nil),
9353 9404 cons(avm,
9354   -cons(new_integer(9542664),
  9405 +cons(new_integer(9546248),
9355 9406 cons(end_paint,
9356 9407 nil))));
9357 9408  
9358   -new_op_scheme(19086862,0,
  9409 +new_op_scheme(19094030,0,
9359 9410 new_string("Bool"),
9360 9411 cons(new_string("£handle_host_window_events"),
9361 9412 nil),
... ... @@ -9392,129 +9443,129 @@ nil))))),
9392 9443 new_string("eh")),
9393 9444 nil)))),
9394 9445 cons(cond,
9395   -cons(new_integer(9545478),
  9446 +cons(new_integer(9549062),
9396 9447 cons(cons(symbol,
9397   -cons(new_integer(9545480),
  9448 +cons(new_integer(9549064),
9398 9449 new_string("l"))),
9399 9450 cons(cons(cons(new_string("[]"),
9400 9451 nil),
9401   -cons(new_integer(9546000),
  9452 +cons(new_integer(9549584),
9402 9453 cons(symbol,
9403   -cons(new_integer(9546006),
  9454 +cons(new_integer(9549590),
9404 9455 new_string("false"))))),
9405 9456 cons(cons(cons(new_string("[.]"),
9406 9457 cons(new_string("e1"),
9407 9458 cons(new_string("es"),
9408 9459 nil))),
9409   -cons(new_integer(9546262),
  9460 +cons(new_integer(9549846),
9410 9461 cons(cond,
9411   -cons(new_integer(9546265),
  9462 +cons(new_integer(9549849),
9412 9463 cons(cons(symbol,
9413   -cons(new_integer(9546268),
  9464 +cons(new_integer(9549852),
9414 9465 new_string("e1"))),
9415 9466 cons(cons(cons(new_string("quit"),
9416 9467 nil),
9417   -cons(new_integer(9546794),
  9468 +cons(new_integer(9550378),
9418 9469 cons(cond,
9419   -cons(new_integer(9546819),
  9470 +cons(new_integer(9550403),
9420 9471 cons(cons(of_type,
9421   -cons(new_integer(9546819),
  9472 +cons(new_integer(9550403),
9422 9473 cons(new_string("One"),
9423 9474 cons(app,
9424   -cons(new_integer(9546802),
  9475 +cons(new_integer(9550386),
9425 9476 cons(cons(symbol,
9426   -cons(new_integer(9546801),
  9477 +cons(new_integer(9550385),
9427 9478 new_string("forget"))),
9428 9479 cons(cons(app,
9429   -cons(new_integer(9546805),
  9480 +cons(new_integer(9550389),
9430 9481 cons(cons(symbol,
9431   -cons(new_integer(9546804),
  9482 +cons(new_integer(9550388),
9432 9483 new_string("eh"))),
9433 9484 cons(cons(symbol,
9434   -cons(new_integer(9546811),
  9485 +cons(new_integer(9550395),
9435 9486 new_string("window"))),
9436 9487 cons(cons(symbol,
9437   -cons(new_integer(9546816),
  9488 +cons(new_integer(9550400),
9438 9489 new_string("quit"))),
9439 9490 nil))))),
9440 9491 nil))))))),
9441 9492 cons(cons(cons(new_string("unique"),
9442 9493 nil),
9443   -cons(new_integer(9546819),
  9494 +cons(new_integer(9550403),
9444 9495 cons(symbol,
9445   -cons(new_integer(9546824),
  9496 +cons(new_integer(9550408),
9446 9497 new_string("true"))))),
9447 9498 nil)))))),
9448 9499 cons(cons(cons(new_string("expose"),
9449 9500 nil),
9450   -cons(new_integer(9547050),
  9501 +cons(new_integer(9550634),
9451 9502 cons(cond,
9452   -cons(new_integer(9547299),
  9503 +cons(new_integer(9550883),
9453 9504 cons(cons(of_type,
9454   -cons(new_integer(9547299),
  9505 +cons(new_integer(9550883),
9455 9506 cons(new_string("One"),
9456 9507 cons(app,
9457   -cons(new_integer(9547291),
  9508 +cons(new_integer(9550875),
9458 9509 cons(cons(symbol,
9459   -cons(new_integer(9547290),
  9510 +cons(new_integer(9550874),
9460 9511 new_string("£begin_paint"))),
9461 9512 cons(cons(symbol,
9462   -cons(new_integer(9547297),
  9513 +cons(new_integer(9550881),
9463 9514 new_string("window"))),
9464 9515 nil))))))),
9465 9516 cons(cons(cons(new_string("unique"),
9466 9517 nil),
9467   -cons(new_integer(9547299),
  9518 +cons(new_integer(9550883),
9468 9519 cons(cond,
9469   -cons(new_integer(9547604),
  9520 +cons(new_integer(9551188),
9470 9521 cons(cons(of_type,
9471   -cons(new_integer(9547604),
  9522 +cons(new_integer(9551188),
9472 9523 cons(new_string("One"),
9473 9524 cons(app,
9474   -cons(new_integer(9547537),
  9525 +cons(new_integer(9551121),
9475 9526 cons(cons(symbol,
9476   -cons(new_integer(9547536),
  9527 +cons(new_integer(9551120),
9477 9528 new_string("pm"))),
9478 9529 cons(cons(symbol,
9479   -cons(new_integer(9547543),
  9530 +cons(new_integer(9551127),
9480 9531 new_string("window"))),
9481 9532 cons(cons(cond,
9482   -cons(new_integer(9547547),
  9533 +cons(new_integer(9551131),
9483 9534 cons(cons(app,
9484   -cons(new_integer(9547553),
  9535 +cons(new_integer(9551137),
9485 9536 cons(cons(symbol,
9486   -cons(new_integer(9547552),
  9537 +cons(new_integer(9551136),
9487 9538 new_string("size"))),
9488 9539 cons(cons(symbol,
9489   -cons(new_integer(9547559),
  9540 +cons(new_integer(9551143),
9490 9541 new_string("window"))),
9491 9542 nil)))),
9492 9543 cons(cons(cons(new_string("£tuple"),
9493 9544 cons(new_string("winw"),
9494 9545 cons(new_string("winh"),
9495 9546 nil))),
9496   -cons(new_integer(9547580),
  9547 +cons(new_integer(9551164),
9497 9548 cons(app,
9498   -cons(new_integer(9547602),
  9549 +cons(new_integer(9551186),
9499 9550 cons(cons(symbol,
9500   -cons(new_integer(9547602),
  9551 +cons(new_integer(9551186),
9501 9552 new_string("[.]"))),
9502 9553 cons(cons(app,
9503   -cons(new_integer(9547587),
  9554 +cons(new_integer(9551171),
9504 9555 cons(cons(symbol,
9505   -cons(new_integer(9547586),
  9556 +cons(new_integer(9551170),
9506 9557 new_string("rect"))),
9507 9558 cons(cons(integer_10,
9508   -cons(new_integer(9547588),
  9559 +cons(new_integer(9551172),
9509 9560 nil)),
9510 9561 cons(cons(integer_10,
9511   -cons(new_integer(9547590),
  9562 +cons(new_integer(9551174),
9512 9563 nil)),
9513 9564 cons(cons(symbol,
9514   -cons(new_integer(9547595),
  9565 +cons(new_integer(9551179),
9515 9566 new_string("winw"))),
9516 9567 cons(cons(symbol,
9517   -cons(new_integer(9547600),
  9568 +cons(new_integer(9551184),
9518 9569 new_string("winh"))),
9519 9570 nil))))))),
9520 9571 cons(cons(symbol,
... ... @@ -9525,40 +9576,40 @@ nil)))),
9525 9576 nil)))))))),
9526 9577 cons(cons(cons(new_string("unique"),
9527 9578 nil),
9528   -cons(new_integer(9547604),
  9579 +cons(new_integer(9551188),
9529 9580 cons(cond,
9530   -cons(new_integer(9547809),
  9581 +cons(new_integer(9551393),
9531 9582 cons(cons(of_type,
9532   -cons(new_integer(9547809),
  9583 +cons(new_integer(9551393),
9533 9584 cons(new_string("One"),
9534 9585 cons(app,
9535   -cons(new_integer(9547801),
  9586 +cons(new_integer(9551385),
9536 9587 cons(cons(symbol,
9537   -cons(new_integer(9547800),
  9588 +cons(new_integer(9551384),
9538 9589 new_string("£end_paint"))),
9539 9590 cons(cons(symbol,
9540   -cons(new_integer(9547807),
  9591 +cons(new_integer(9551391),
9541 9592 new_string("window"))),
9542 9593 nil))))))),
9543 9594 cons(cons(cons(new_string("unique"),
9544 9595 nil),
9545   -cons(new_integer(9547809),
  9596 +cons(new_integer(9551393),
9546 9597 cons(app,
9547   -cons(new_integer(9548073),
  9598 +cons(new_integer(9551657),
9548 9599 cons(cons(symbol,
9549   -cons(new_integer(9548072),
  9600 +cons(new_integer(9551656),
9550 9601 new_string("£handle_host_window_events"))),
9551 9602 cons(cons(symbol,
9552   -cons(new_integer(9548075),
  9603 +cons(new_integer(9551659),
9553 9604 new_string("es"))),
9554 9605 cons(cons(symbol,
9555   -cons(new_integer(9548082),
  9606 +cons(new_integer(9551666),
9556 9607 new_string("window"))),
9557 9608 cons(cons(symbol,
9558   -cons(new_integer(9548085),
  9609 +cons(new_integer(9551669),
9559 9610 new_string("pm"))),
9560 9611 cons(cons(symbol,
9561   -cons(new_integer(9548088),
  9612 +cons(new_integer(9551672),
9562 9613 new_string("eh"))),
9563 9614 nil))))))))),
9564 9615 nil)))))),
... ... @@ -9566,76 +9617,76 @@ nil)))))),
9566 9617 nil)))))),
9567 9618 cons(cons(cons(new_string("pointer_entering"),
9568 9619 nil),
9569   -cons(new_integer(9548330),
  9620 +cons(new_integer(9551914),
9570 9621 cons(app,
9571   -cons(new_integer(9548361),
  9622 +cons(new_integer(9551945),
9572 9623 cons(cons(symbol,
9573   -cons(new_integer(9548360),
  9624 +cons(new_integer(9551944),
9574 9625 new_string("£default_host_window_handling"))),
9575 9626 cons(cons(symbol,
9576   -cons(new_integer(9548363),
  9627 +cons(new_integer(9551947),
9577 9628 new_string("e1"))),
9578 9629 cons(cons(symbol,
9579   -cons(new_integer(9548366),
  9630 +cons(new_integer(9551950),
9580 9631 new_string("es"))),
9581 9632 cons(cons(symbol,
9582   -cons(new_integer(9548373),
  9633 +cons(new_integer(9551957),
9583 9634 new_string("window"))),
9584 9635 cons(cons(symbol,
9585   -cons(new_integer(9548376),
  9636 +cons(new_integer(9551960),
9586 9637 new_string("pm"))),
9587 9638 cons(cons(symbol,
9588   -cons(new_integer(9548379),
  9639 +cons(new_integer(9551963),
9589 9640 new_string("eh"))),
9590 9641 nil)))))))))),
9591 9642 cons(cons(cons(new_string("pointer_leaving"),
9592 9643 nil),
9593   -cons(new_integer(9548586),
  9644 +cons(new_integer(9552170),
9594 9645 cons(app,
9595   -cons(new_integer(9548617),
  9646 +cons(new_integer(9552201),
9596 9647 cons(cons(symbol,
9597   -cons(new_integer(9548616),
  9648 +cons(new_integer(9552200),
9598 9649 new_string("£default_host_window_handling"))),
9599 9650 cons(cons(symbol,
9600   -cons(new_integer(9548619),
  9651 +cons(new_integer(9552203),
9601 9652 new_string("e1"))),
9602 9653 cons(cons(symbol,
9603   -cons(new_integer(9548622),
  9654 +cons(new_integer(9552206),
9604 9655 new_string("es"))),
9605 9656 cons(cons(symbol,
9606   -cons(new_integer(9548629),
  9657 +cons(new_integer(9552213),
9607 9658 new_string("window"))),
9608 9659 cons(cons(symbol,
9609   -cons(new_integer(9548632),
  9660 +cons(new_integer(9552216),
9610 9661 new_string("pm"))),
9611 9662 cons(cons(symbol,
9612   -cons(new_integer(9548635),
  9663 +cons(new_integer(9552219),
9613 9664 new_string("eh"))),
9614 9665 nil)))))))))),
9615 9666 cons(cons(cons(new_string("key_down"),
9616 9667 cons(new_string("ks"),
9617 9668 cons(new_string("kk"),
9618 9669 nil))),
9619   -cons(new_integer(9548842),
  9670 +cons(new_integer(9552426),
9620 9671 cons(app,
9621   -cons(new_integer(9548873),
  9672 +cons(new_integer(9552457),
9622 9673 cons(cons(symbol,
9623   -cons(new_integer(9548872),
  9674 +cons(new_integer(9552456),
9624 9675 new_string("£default_host_window_handling"))),
9625 9676 cons(cons(symbol,
9626   -cons(new_integer(9548875),
  9677 +cons(new_integer(9552459),
9627 9678 new_string("e1"))),
9628 9679 cons(cons(symbol,
9629   -cons(new_integer(9548878),
  9680 +cons(new_integer(9552462),
9630 9681 new_string("es"))),
9631 9682 cons(cons(symbol,
9632   -cons(new_integer(9548885),
  9683 +cons(new_integer(9552469),
9633 9684 new_string("window"))),
9634 9685 cons(cons(symbol,
9635   -cons(new_integer(9548888),
  9686 +cons(new_integer(9552472),
9636 9687 new_string("pm"))),
9637 9688 cons(cons(symbol,
9638   -cons(new_integer(9548891),
  9689 +cons(new_integer(9552475),
9639 9690 new_string("eh"))),
9640 9691 nil)))))))))),
9641 9692 cons(cons(cons(new_string("mouse_move"),
... ... @@ -9643,26 +9694,26 @@ cons(new_string(&quot;ks&quot;),
9643 9694 cons(new_string("x"),
9644 9695 cons(new_string("y"),
9645 9696 nil)))),
9646   -cons(new_integer(9549098),
  9697 +cons(new_integer(9552682),
9647 9698 cons(app,
9648   -cons(new_integer(9549129),
  9699 +cons(new_integer(9552713),
9649 9700 cons(cons(symbol,
9650   -cons(new_integer(9549128),
  9701 +cons(new_integer(9552712),
9651 9702 new_string("£default_host_window_handling"))),
9652 9703 cons(cons(symbol,
9653   -cons(new_integer(9549131),
  9704 +cons(new_integer(9552715),
9654 9705 new_string("e1"))),
9655 9706 cons(cons(symbol,
9656   -cons(new_integer(9549134),
  9707 +cons(new_integer(9552718),
9657 9708 new_string("es"))),
9658 9709 cons(cons(symbol,
9659   -cons(new_integer(9549141),
  9710 +cons(new_integer(9552725),
9660 9711 new_string("window"))),
9661 9712 cons(cons(symbol,
9662   -cons(new_integer(9549144),
  9713 +cons(new_integer(9552728),
9663 9714 new_string("pm"))),
9664 9715 cons(cons(symbol,
9665   -cons(new_integer(9549147),
  9716 +cons(new_integer(9552731),
9666 9717 new_string("eh"))),
9667 9718 nil)))))))))),
9668 9719 cons(cons(cons(new_string("mouse_click"),
... ... @@ -9671,26 +9722,26 @@ cons(new_string(&quot;mc&quot;),
9671 9722 cons(new_string("x"),
9672 9723 cons(new_string("y"),
9673 9724 nil))))),
9674   -cons(new_integer(9549354),
  9725 +cons(new_integer(9552938),
9675 9726 cons(app,
9676   -cons(new_integer(9549385),
  9727 +cons(new_integer(9552969),
9677 9728 cons(cons(symbol,
9678   -cons(new_integer(9549384),
  9729 +cons(new_integer(9552968),
9679 9730 new_string("£default_host_window_handling"))),
9680 9731 cons(cons(symbol,
9681   -cons(new_integer(9549387),
  9732 +cons(new_integer(9552971),
9682 9733 new_string("e1"))),
9683 9734 cons(cons(symbol,
9684   -cons(new_integer(9549390),
  9735 +cons(new_integer(9552974),
9685 9736 new_string("es"))),
9686 9737 cons(cons(symbol,
9687   -cons(new_integer(9549397),
  9738 +cons(new_integer(9552981),
9688 9739 new_string("window"))),
9689 9740 cons(cons(symbol,
9690   -cons(new_integer(9549400),
  9741 +cons(new_integer(9552984),
9691 9742 new_string("pm"))),
9692 9743 cons(cons(symbol,
9693   -cons(new_integer(9549403),
  9744 +cons(new_integer(9552987),
9694 9745 new_string("eh"))),
9695 9746 nil)))))))))),
9696 9747 cons(cons(cons(new_string("mouse_wheel"),
... ... @@ -9699,124 +9750,124 @@ cons(new_string(&quot;d&quot;),
9699 9750 cons(new_string("x"),
9700 9751 cons(new_string("y"),
9701 9752 nil))))),
9702   -cons(new_integer(9549610),
  9753 +cons(new_integer(9553194),
9703 9754 cons(app,
9704   -cons(new_integer(9549641),
  9755 +cons(new_integer(9553225),
9705 9756 cons(cons(symbol,
9706   -cons(new_integer(9549640),
  9757 +cons(new_integer(9553224),
9707 9758 new_string("£default_host_window_handling"))),
9708 9759 cons(cons(symbol,
9709   -cons(new_integer(9549643),
  9760 +cons(new_integer(9553227),
9710 9761 new_string("e1"))),
9711 9762 cons(cons(symbol,
9712   -cons(new_integer(9549646),
  9763 +cons(new_integer(9553230),
9713 9764 new_string("es"))),
9714 9765 cons(cons(symbol,
9715   -cons(new_integer(9549653),
  9766 +cons(new_integer(9553237),
9716 9767 new_string("window"))),
9717 9768 cons(cons(symbol,
9718   -cons(new_integer(9549656),
  9769 +cons(new_integer(9553240),
9719 9770 new_string("pm"))),
9720 9771 cons(cons(symbol,
9721   -cons(new_integer(9549659),
  9772 +cons(new_integer(9553243),
9722 9773 new_string("eh"))),
9723 9774 nil)))))))))),
9724 9775 cons(cons(cons(new_string("tick"),
9725 9776 nil),
9726   -cons(new_integer(9549866),
  9777 +cons(new_integer(9553450),
9727 9778 cons(app,
9728   -cons(new_integer(9549897),
  9779 +cons(new_integer(9553481),
9729 9780 cons(cons(symbol,
9730   -cons(new_integer(9549896),
  9781 +cons(new_integer(9553480),
9731 9782 new_string("£default_host_window_handling"))),
9732 9783 cons(cons(symbol,
9733   -cons(new_integer(9549899),
  9784 +cons(new_integer(9553483),
9734 9785 new_string("e1"))),
9735 9786 cons(cons(symbol,
9736   -cons(new_integer(9549902),
  9787 +cons(new_integer(9553486),
9737 9788 new_string("es"))),
9738 9789 cons(cons(symbol,
9739   -cons(new_integer(9549909),
  9790 +cons(new_integer(9553493),
9740 9791 new_string("window"))),
9741 9792 cons(cons(symbol,
9742   -cons(new_integer(9549912),
  9793 +cons(new_integer(9553496),
9743 9794 new_string("pm"))),
9744 9795 cons(cons(symbol,
9745   -cons(new_integer(9549915),
  9796 +cons(new_integer(9553499),
9746 9797 new_string("eh"))),
9747 9798 nil)))))))))),
9748 9799 cons(cons(cons(new_string("repaint"),
9749 9800 cons(new_string("l"),
9750 9801 nil)),
9751   -cons(new_integer(9550122),
  9802 +cons(new_integer(9553706),
9752 9803 cons(cond,
9753   -cons(new_integer(9550137),
  9804 +cons(new_integer(9553721),
9754 9805 cons(cons(of_type,
9755   -cons(new_integer(9550137),
  9806 +cons(new_integer(9553721),
9756 9807 cons(new_string("One"),
9757 9808 cons(app,
9758   -cons(new_integer(9550127),
  9809 +cons(new_integer(9553711),
9759 9810 cons(cons(symbol,
9760   -cons(new_integer(9550126),
  9811 +cons(new_integer(9553710),
9761 9812 new_string("pm"))),
9762 9813 cons(cons(symbol,
9763   -cons(new_integer(9550133),
  9814 +cons(new_integer(9553717),
9764 9815 new_string("window"))),
9765 9816 cons(cons(symbol,
9766   -cons(new_integer(9550135),
  9817 +cons(new_integer(9553719),
9767 9818 new_string("l"))),
9768 9819 nil)))))))),
9769 9820 cons(cons(cons(new_string("unique"),
9770 9821 nil),
9771   -cons(new_integer(9550137),
  9822 +cons(new_integer(9553721),
9772 9823 cons(app,
9773   -cons(new_integer(9550407),
  9824 +cons(new_integer(9553991),
9774 9825 cons(cons(symbol,
9775   -cons(new_integer(9550406),
  9826 +cons(new_integer(9553990),
9776 9827 new_string("£handle_host_window_events"))),
9777 9828 cons(cons(symbol,
9778   -cons(new_integer(9550409),
  9829 +cons(new_integer(9553993),
9779 9830 new_string("es"))),
9780 9831 cons(cons(symbol,
9781   -cons(new_integer(9550416),
  9832 +cons(new_integer(9554000),
9782 9833 new_string("window"))),
9783 9834 cons(cons(symbol,
9784   -cons(new_integer(9550419),
  9835 +cons(new_integer(9554003),
9785 9836 new_string("pm"))),
9786 9837 cons(cons(symbol,
9787   -cons(new_integer(9550422),
  9838 +cons(new_integer(9554006),
9788 9839 new_string("eh"))),
9789 9840 nil))))))))),
9790 9841 nil)))))),
9791 9842 cons(cons(cons(new_string("specific"),
9792 9843 cons(new_string("spe"),
9793 9844 nil)),
9794   -cons(new_integer(9550634),
  9845 +cons(new_integer(9554218),
9795 9846 cons(app,
9796   -cons(new_integer(9550665),
  9847 +cons(new_integer(9554249),
9797 9848 cons(cons(symbol,
9798   -cons(new_integer(9550664),
  9849 +cons(new_integer(9554248),
9799 9850 new_string("£default_host_window_handling"))),
9800 9851 cons(cons(symbol,
9801   -cons(new_integer(9550667),
  9852 +cons(new_integer(9554251),
9802 9853 new_string("e1"))),
9803 9854 cons(cons(symbol,
9804   -cons(new_integer(9550670),
  9855 +cons(new_integer(9554254),
9805 9856 new_string("es"))),
9806 9857 cons(cons(symbol,
9807   -cons(new_integer(9550677),
  9858 +cons(new_integer(9554261),
9808 9859 new_string("window"))),
9809 9860 cons(cons(symbol,
9810   -cons(new_integer(9550680),
  9861 +cons(new_integer(9554264),
9811 9862 new_string("pm"))),
9812 9863 cons(cons(symbol,
9813   -cons(new_integer(9550683),
  9864 +cons(new_integer(9554267),
9814 9865 new_string("eh"))),
9815 9866 nil)))))))))),
9816 9867 nil)))))))))))))))),
9817 9868 nil))))));
9818 9869  
9819   -new_op_scheme(19103758,0,
  9870 +new_op_scheme(19110926,0,
9820 9871 new_string("Bool"),
9821 9872 cons(new_string("£default_host_window_handling"),
9822 9873 nil),
... ... @@ -9858,78 +9909,78 @@ nil))))),
9858 9909 new_string("event_handler")),
9859 9910 nil))))),
9860 9911 cons(with,
9861   -cons(new_integer(9554192),
  9912 +cons(new_integer(9557776),
9862 9913 cons(new_string("rects"),
9863 9914 cons(cons(app,
9864   -cons(new_integer(9554207),
  9915 +cons(new_integer(9557791),
9865 9916 cons(cons(symbol,
9866   -cons(new_integer(9554206),
  9917 +cons(new_integer(9557790),
9867 9918 new_string("event_handler"))),
9868 9919 cons(cons(symbol,
9869   -cons(new_integer(9554213),
  9920 +cons(new_integer(9557797),
9870 9921 new_string("window"))),
9871 9922 cons(cons(symbol,
9872   -cons(new_integer(9554215),
  9923 +cons(new_integer(9557799),
9873 9924 new_string("e"))),
9874 9925 nil))))),
9875 9926 cons(cond,
9876   -cons(new_integer(9555466),
  9927 +cons(new_integer(9559050),
9877 9928 cons(cons(of_type,
9878   -cons(new_integer(9555466),
  9929 +cons(new_integer(9559050),
9879 9930 cons(new_string("One"),
9880 9931 cons(cond,
9881   -cons(new_integer(9554440),
  9932 +cons(new_integer(9558024),
9882 9933 cons(cons(symbol,
9883   -cons(new_integer(9554446),
  9934 +cons(new_integer(9558030),
9884 9935 new_string("rects"))),
9885 9936 cons(cons(cons(new_string("[]"),
9886 9937 nil),
9887   -cons(new_integer(9554962),
  9938 +cons(new_integer(9558546),
9888 9939 cons(symbol,
9889   -cons(new_integer(9554969),
  9940 +cons(new_integer(9558553),
9890 9941 new_string("unique"))))),
9891 9942 cons(cons(cons(new_string("[.]"),
9892 9943 cons(new_string("_"),
9893 9944 cons(new_string("_"),
9894 9945 nil))),
9895   -cons(new_integer(9555222),
  9946 +cons(new_integer(9558806),
9896 9947 cons(app,
9897   -cons(new_integer(9555236),
  9948 +cons(new_integer(9558820),
9898 9949 cons(cons(symbol,
9899   -cons(new_integer(9555235),
  9950 +cons(new_integer(9558819),
9900 9951 new_string("paint_method"))),
9901 9952 cons(cons(symbol,
9902   -cons(new_integer(9555242),
  9953 +cons(new_integer(9558826),
9903 9954 new_string("window"))),
9904 9955 cons(cons(symbol,
9905   -cons(new_integer(9555248),
  9956 +cons(new_integer(9558832),
9906 9957 new_string("rects"))),
9907 9958 nil))))))),
9908 9959 nil)))))))),
9909 9960 cons(cons(cons(new_string("unique"),
9910 9961 nil),
9911   -cons(new_integer(9555466),
  9962 +cons(new_integer(9559050),
9912 9963 cons(app,
9913   -cons(new_integer(9555745),
  9964 +cons(new_integer(9559329),
9914 9965 cons(cons(symbol,
9915   -cons(new_integer(9555744),
  9966 +cons(new_integer(9559328),
9916 9967 new_string("£handle_host_window_events"))),
9917 9968 cons(cons(symbol,
9918   -cons(new_integer(9555746),
  9969 +cons(new_integer(9559330),
9919 9970 new_string("l"))),
9920 9971 cons(cons(symbol,
9921   -cons(new_integer(9555753),
  9972 +cons(new_integer(9559337),
9922 9973 new_string("window"))),
9923 9974 cons(cons(symbol,
9924   -cons(new_integer(9555766),
  9975 +cons(new_integer(9559350),
9925 9976 new_string("paint_method"))),
9926 9977 cons(cons(symbol,
9927   -cons(new_integer(9555780),
  9978 +cons(new_integer(9559364),
9928 9979 new_string("event_handler"))),
9929 9980 nil))))))))),
9930 9981 nil)))))))));
9931 9982  
9932   -new_op_scheme(19115036,1,
  9983 +new_op_scheme(19122204,1,
9933 9984 new_string("One"),
9934 9985 cons(new_string("generic_host_window_handler"),
9935 9986 nil),
... ... @@ -9975,88 +10026,88 @@ nil))))),
9975 10026 new_string("compress")),
9976 10027 nil)))),
9977 10028 cons(cond,
9978   -cons(new_integer(9559558),
  10029 +cons(new_integer(9563142),
9979 10030 cons(cons(of_type,
9980   -cons(new_integer(9559558),
  10031 +cons(new_integer(9563142),
9981 10032 cons(new_string("Bool"),
9982 10033 cons(app,
9983   -cons(new_integer(9559586),
  10034 +cons(new_integer(9563170),
9984 10035 cons(cons(symbol,
9985   -cons(new_integer(9559585),
  10036 +cons(new_integer(9563169),
9986 10037 new_string("£handle_host_window_events"))),
9987 10038 cons(cons(app,
9988   -cons(new_integer(9559595),
  10039 +cons(new_integer(9563179),
9989 10040 cons(cons(symbol,
9990   -cons(new_integer(9559594),
  10041 +cons(new_integer(9563178),
9991 10042 new_string("compress"))),
9992 10043 cons(cons(app,
9993   -cons(new_integer(9559619),
  10044 +cons(new_integer(9563203),
9994 10045 cons(cons(symbol,
9995   -cons(new_integer(9559618),
  10046 +cons(new_integer(9563202),
9996 10047 new_string("£get_host_window_events"))),
9997 10048 cons(cons(app,
9998   -cons(new_integer(9559627),
  10049 +cons(new_integer(9563211),
9999 10050 cons(cons(symbol,
10000   -cons(new_integer(9559626),
  10051 +cons(new_integer(9563210),
10001 10052 new_string("£handle"))),
10002 10053 cons(cons(symbol,
10003   -cons(new_integer(9559633),
  10054 +cons(new_integer(9563217),
10004 10055 new_string("window"))),
10005 10056 nil)))),
10006 10057 cons(cons(integer_10,
10007   -cons(new_integer(9559638),
  10058 +cons(new_integer(9563222),
10008 10059 cons(new_integer(200),
10009 10060 nil))),
10010 10061 nil))))),
10011 10062 nil)))),
10012 10063 cons(cons(symbol,
10013   -cons(new_integer(9559848),
  10064 +cons(new_integer(9563432),
10014 10065 new_string("window"))),
10015 10066 cons(cons(symbol,
10016   -cons(new_integer(9559861),
  10067 +cons(new_integer(9563445),
10017 10068 new_string("paint_method"))),
10018 10069 cons(cons(symbol,
10019   -cons(new_integer(9559875),
  10070 +cons(new_integer(9563459),
10020 10071 new_string("event_handler"))),
10021 10072 nil)))))))))),
10022 10073 cons(cons(cons(new_string("false"),
10023 10074 nil),
10024   -cons(new_integer(9560328),
  10075 +cons(new_integer(9563912),
10025 10076 cons(cond,
10026   -cons(new_integer(9560344),
  10077 +cons(new_integer(9563928),
10027 10078 cons(cons(of_type,
10028   -cons(new_integer(9560344),
  10079 +cons(new_integer(9563928),
10029 10080 cons(new_string("One"),
10030 10081 cons(symbol,
10031   -cons(new_integer(9560343),
  10082 +cons(new_integer(9563927),
10032 10083 new_string("wait_for_event")))))),
10033 10084 cons(cons(cons(new_string("unique"),
10034 10085 nil),
10035   -cons(new_integer(9560344),
  10086 +cons(new_integer(9563928),
10036 10087 cons(app,
10037   -cons(new_integer(9560613),
  10088 +cons(new_integer(9564197),
10038 10089 cons(cons(symbol,
10039   -cons(new_integer(9560612),
  10090 +cons(new_integer(9564196),
10040 10091 new_string("generic_host_window_handler"))),
10041 10092 cons(cons(symbol,
10042   -cons(new_integer(9560619),
  10093 +cons(new_integer(9564203),
10043 10094 new_string("window"))),
10044 10095 cons(cons(symbol,
10045   -cons(new_integer(9560632),
  10096 +cons(new_integer(9564216),
10046 10097 new_string("paint_method"))),
10047 10098 cons(cons(symbol,
10048   -cons(new_integer(9560646),
  10099 +cons(new_integer(9564230),
10049 10100 new_string("event_handler"))),
10050 10101 cons(cons(symbol,
10051   -cons(new_integer(9560655),
  10102 +cons(new_integer(9564239),
10052 10103 new_string("compress"))),
10053 10104 nil))))))))),
10054 10105 nil)))))),
10055 10106 cons(cons(cons(new_string("true"),
10056 10107 nil),
10057   -cons(new_integer(9560072),
  10108 +cons(new_integer(9563656),
10058 10109 cons(symbol,
10059   -cons(new_integer(9560079),
  10110 +cons(new_integer(9563663),
10060 10111 new_string("unique"))))),
10061 10112 nil))))));
10062 10113  
... ... @@ -10071,7 +10122,7 @@ nil),
10071 10122 nil),
10072 10123 nil)),0,1);
10073 10124  
10074   -new_op_scheme(19130382,0,
  10125 +new_op_scheme(19137550,0,
10075 10126 cons(app_ts,
10076 10127 cons(new_string("Maybe"),
10077 10128 cons(cons(app_ts,
... ... @@ -10098,11 +10149,11 @@ cons(cons(new_string(&quot;HostWindowSort&quot;),
10098 10149 new_string("sort")),
10099 10150 nil)))))),
10100 10151 cons(avm,
10101   -cons(new_integer(9567752),
  10152 +cons(new_integer(9571336),
10102 10153 cons(open_host_window,
10103 10154 nil))));
10104 10155  
10105   -new_op_scheme(19138588,1,
  10156 +new_op_scheme(19145756,1,
10106 10157 cons(app_ts,
10107 10158 cons(new_string("Maybe"),
10108 10159 cons(new_string("HostWindow"),
... ... @@ -10155,9 +10206,9 @@ nil))))),
10155 10206 new_string("compress")),
10156 10207 nil)))))),
10157 10208 cons(cond,
10158   -cons(new_integer(9571846),
  10209 +cons(new_integer(9575430),
10159 10210 cons(cons(symbol,
10160   -cons(new_integer(9571848),
  10211 +cons(new_integer(9575432),
10161 10212 new_string("r"))),
10162 10213 cons(cons(cons(new_string("rect"),
10163 10214 cons(new_string("x"),
... ... @@ -10165,120 +10216,120 @@ cons(new_string(&quot;y&quot;),
10165 10216 cons(new_string("u"),
10166 10217 cons(new_string("v"),
10167 10218 nil))))),
10168   -cons(new_integer(9571870),
  10219 +cons(new_integer(9575454),
10169 10220 cons(cond,
10170   -cons(new_integer(9572102),
  10221 +cons(new_integer(9575686),
10171 10222 cons(cons(app,
10172   -cons(new_integer(9572121),
  10223 +cons(new_integer(9575705),
10173 10224 cons(cons(symbol,
10174   -cons(new_integer(9572120),
  10225 +cons(new_integer(9575704),
10175 10226 new_string("£open_host_window"))),
10176 10227 cons(cons(symbol,
10177   -cons(new_integer(9572122),
  10228 +cons(new_integer(9575706),
10178 10229 new_string("x"))),
10179 10230 cons(cons(symbol,
10180   -cons(new_integer(9572124),
  10231 +cons(new_integer(9575708),
10181 10232 new_string("y"))),
10182 10233 cons(cons(app,
10183   -cons(new_integer(9572127),
  10234 +cons(new_integer(9575711),
10184 10235 cons(cons(symbol,
10185   -cons(new_integer(9572127),
  10236 +cons(new_integer(9575711),
10186 10237 new_string("-"))),
10187 10238 cons(cons(symbol,
10188   -cons(new_integer(9572126),
  10239 +cons(new_integer(9575710),
10189 10240 new_string("u"))),
10190 10241 cons(cons(symbol,
10191   -cons(new_integer(9572128),
  10242 +cons(new_integer(9575712),
10192 10243 new_string("x"))),
10193 10244 nil))))),
10194 10245 cons(cons(app,
10195   -cons(new_integer(9572131),
  10246 +cons(new_integer(9575715),
10196 10247 cons(cons(symbol,
10197   -cons(new_integer(9572131),
  10248 +cons(new_integer(9575715),
10198 10249 new_string("-"))),
10199 10250 cons(cons(symbol,
10200   -cons(new_integer(9572130),
  10251 +cons(new_integer(9575714),
10201 10252 new_string("v"))),
10202 10253 cons(cons(symbol,
10203   -cons(new_integer(9572132),
  10254 +cons(new_integer(9575716),
10204 10255 new_string("y"))),
10205 10256 nil))))),
10206 10257 cons(cons(symbol,
10207   -cons(new_integer(9572138),
  10258 +cons(new_integer(9575722),
10208 10259 new_string("title"))),
10209 10260 cons(cons(symbol,
10210   -cons(new_integer(9572143),
  10261 +cons(new_integer(9575727),
10211 10262 new_string("sort"))),
10212 10263 nil))))))))),
10213 10264 cons(cons(cons(new_string("failure"),
10214 10265 nil),
10215   -cons(new_integer(9572628),
  10266 +cons(new_integer(9576212),
10216 10267 cons(symbol,
10217   -cons(new_integer(9572636),
  10268 +cons(new_integer(9576220),
10218 10269 new_string("failure"))))),
10219 10270 cons(cons(cons(new_string("success"),
10220 10271 cons(new_string("p"),
10221 10272 nil)),
10222   -cons(new_integer(9572887),
  10273 +cons(new_integer(9576471),
10223 10274 cons(cond,
10224   -cons(new_integer(9572890),
  10275 +cons(new_integer(9576474),
10225 10276 cons(cons(symbol,
10226   -cons(new_integer(9572892),
  10277 +cons(new_integer(9576476),
10227 10278 new_string("p"))),
10228 10279 cons(cons(cons(new_string("£tuple"),
10229 10280 cons(new_string("handle"),
10230 10281 cons(new_string("gc"),
10231 10282 nil))),
10232   -cons(new_integer(9572912),
  10283 +cons(new_integer(9576496),
10233 10284 cons(with,
10234   -cons(new_integer(9573140),
  10285 +cons(new_integer(9576724),
10235 10286 cons(new_string("win"),
10236 10287 cons(cons(app,
10237   -cons(new_integer(9573149),
  10288 +cons(new_integer(9576733),
10238 10289 cons(cons(symbol,
10239   -cons(new_integer(9573148),
  10290 +cons(new_integer(9576732),
10240 10291 new_string("£window"))),
10241 10292 cons(cons(symbol,
10242   -cons(new_integer(9573155),
  10293 +cons(new_integer(9576739),
10243 10294 new_string("handle"))),
10244 10295 cons(cons(symbol,
10245   -cons(new_integer(9573158),
  10296 +cons(new_integer(9576742),
10246 10297 new_string("gc"))),
10247 10298 nil))))),
10248 10299 cons(delegate,
10249   -cons(new_integer(9573394),
  10300 +cons(new_integer(9576978),
10250 10301 cons(cons(app,
10251   -cons(new_integer(9573423),
  10302 +cons(new_integer(9577007),
10252 10303 cons(cons(symbol,
10253   -cons(new_integer(9573422),
  10304 +cons(new_integer(9577006),
10254 10305 new_string("generic_host_window_handler"))),
10255 10306 cons(cons(symbol,
10256   -cons(new_integer(9573426),
  10307 +cons(new_integer(9577010),
10257 10308 new_string("win"))),
10258 10309 cons(cons(symbol,
10259   -cons(new_integer(9573691),
  10310 +cons(new_integer(9577275),
10260 10311 new_string("paint_method"))),
10261 10312 cons(cons(symbol,
10262   -cons(new_integer(9573948),
  10313 +cons(new_integer(9577532),
10263 10314 new_string("event_handler"))),
10264 10315 cons(cons(symbol,
10265   -cons(new_integer(9574199),
  10316 +cons(new_integer(9577783),
10266 10317 new_string("compress"))),
10267 10318 nil))))))),
10268 10319 cons(app,
10269   -cons(new_integer(9574418),
  10320 +cons(new_integer(9578002),
10270 10321 cons(cons(symbol,
10271   -cons(new_integer(9574417),
  10322 +cons(new_integer(9578001),
10272 10323 new_string("success"))),
10273 10324 cons(cons(symbol,
10274   -cons(new_integer(9574421),
  10325 +cons(new_integer(9578005),
10275 10326 new_string("win"))),
10276 10327 nil))))))))))))),
10277 10328 nil)))))),
10278 10329 nil))))))),
10279 10330 nil)))));
10280 10331  
10281   -new_op_scheme(19154972,1,
  10332 +new_op_scheme(19162140,1,
10282 10333 new_string("One"),
10283 10334 cons(new_string("show"),
10284 10335 nil),
... ... @@ -10286,11 +10337,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
10286 10337 new_string("win")),
10287 10338 nil),
10288 10339 cons(avm,
10289   -cons(new_integer(9578510),
  10340 +cons(new_integer(9582094),
10290 10341 cons(show_host_window,
10291 10342 nil))));
10292 10343  
10293   -new_op_scheme(19159068,1,
  10344 +new_op_scheme(19166236,1,
10294 10345 new_string("One"),
10295 10346 cons(new_string("hide"),
10296 10347 nil),
... ... @@ -10298,11 +10349,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
10298 10349 new_string("win")),
10299 10350 nil),
10300 10351 cons(avm,
10301   -cons(new_integer(9580558),
  10352 +cons(new_integer(9584142),
10302 10353 cons(hide_host_window,
10303 10354 nil))));
10304 10355  
10305   -new_op_scheme(19168796,1,
  10356 +new_op_scheme(19175964,1,
10306 10357 new_string("Bool"),
10307 10358 cons(new_string("queue_event"),
10308 10359 nil),
... ... @@ -10315,11 +10366,11 @@ nil))),
10315 10366 new_string("e")),
10316 10367 nil)),
10317 10368 cons(avm,
10318   -cons(new_integer(9585928),
  10369 +cons(new_integer(9589512),
10319 10370 cons(queue_event,
10320 10371 nil))));
10321 10372  
10322   -new_op_scheme(19179036,1,
  10373 +new_op_scheme(19186204,1,
10323 10374 new_string("One"),
10324 10375 cons(new_string("paint_rectangle"),
10325 10376 nil),
... ... @@ -10331,11 +10382,11 @@ cons(cons(new_string(&quot;RGB&quot;),
10331 10382 new_string("color")),
10332 10383 nil))),
10333 10384 cons(avm,
10334   -cons(new_integer(9591054),
  10385 +cons(new_integer(9594638),
10335 10386 cons(paint_rectangle,
10336 10387 nil))));
10337 10388  
10338   -new_op_scheme(19184668,1,
  10389 +new_op_scheme(19191836,1,
10339 10390 new_string("One"),
10340 10391 cons(new_string("paint_rectangle"),
10341 10392 nil),
... ... @@ -10347,11 +10398,11 @@ cons(cons(new_string(&quot;RGB&quot;),
10347 10398 new_string("color")),
10348 10399 nil))),
10349 10400 cons(avm,
10350   -cons(new_integer(9593870),
  10401 +cons(new_integer(9597454),
10351 10402 cons(paint_rectangle_to_buffer,
10352 10403 nil))));
10353 10404  
10354   -new_op_scheme(19202076,1,
  10405 +new_op_scheme(19209244,1,
10355 10406 new_string("One"),
10356 10407 cons(new_string("paint_image"),
10357 10408 nil),
... ... @@ -10367,11 +10418,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
10367 10418 new_string("image")),
10368 10419 nil))))),
10369 10420 cons(avm,
10370   -cons(new_integer(9603086),
  10421 +cons(new_integer(9606670),
10371 10422 cons(paint_host_image,
10372 10423 nil))));
10373 10424  
10374   -new_op_scheme(19208732,1,
  10425 +new_op_scheme(19215900,1,
10375 10426 new_string("One"),
10376 10427 cons(new_string("paint_image"),
10377 10428 nil),
... ... @@ -10387,11 +10438,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
10387 10438 new_string("image")),
10388 10439 nil))))),
10389 10440 cons(avm,
10390   -cons(new_integer(9606414),
  10441 +cons(new_integer(9609998),
10391 10442 cons(paint_host_image_to_buffer,
10392 10443 nil))));
10393 10444  
10394   -new_op_scheme(19214876,1,
  10445 +new_op_scheme(19222044,1,
10395 10446 new_string("One"),
10396 10447 cons(new_string("map_to_host_window"),
10397 10448 nil),
... ... @@ -10415,7 +10466,7 @@ cons(cons(type_Int32,
10415 10466 new_string("y")),
10416 10467 nil))))))))),
10417 10468 cons(avm,
10418   -cons(new_integer(9610510),
  10469 +cons(new_integer(9614094),
10419 10470 cons(map_RGBA_to_host_window,
10420 10471 nil))));
10421 10472  
... ... @@ -10442,7 +10493,7 @@ noname),
10442 10493 nil)),
10443 10494 nil),0,1);
10444 10495  
10445   -new_op_scheme(19240988,1,
  10496 +new_op_scheme(19248156,1,
10446 10497 cons(app_ts,
10447 10498 cons(new_string("Result"),
10448 10499 cons(new_string("SQLite3Error"),
... ... @@ -10535,7 +10586,7 @@ new_string(&quot;cursor&quot;)),
10535 10586 nil)))),
10536 10587 nil),0,1);
10537 10588  
10538   -new_op_scheme(19272220,1,
  10589 +new_op_scheme(19279388,1,
10539 10590 cons(app_ts,
10540 10591 cons(new_string("Result"),
10541 10592 cons(new_string("SQLite3Error"),
... ... @@ -10553,7 +10604,7 @@ new_string(&quot;sql_command&quot;)),
10553 10604 nil)),
10554 10605 no_term);
10555 10606  
10556   -new_op_scheme(19290638,0,
  10607 +new_op_scheme(19297806,0,
10557 10608 cons(type_struct_ptr,
10558 10609 new_integer(8)),
10559 10610 cons(new_string("£sqlite3_open"),
... ... @@ -10562,11 +10613,11 @@ cons(cons(type_String,
10562 10613 new_string("filename")),
10563 10614 nil),
10564 10615 cons(avm,
10565   -cons(new_integer(9646600),
  10616 +cons(new_integer(9650184),
10566 10617 cons(sqlite3_open,
10567 10618 nil))));
10568 10619  
10569   -new_op_scheme(19294222,0,
  10620 +new_op_scheme(19301390,0,
10570 10621 type_Int32,
10571 10622 cons(new_string("£sqlite3_errcode"),
10572 10623 nil),
... ... @@ -10575,11 +10626,11 @@ new_integer(8)),
10575 10626 new_string("s")),
10576 10627 nil),
10577 10628 cons(avm,
10578   -cons(new_integer(9648392),
  10629 +cons(new_integer(9651976),
10579 10630 cons(sqlite3_errcode,
10580 10631 nil))));
10581 10632  
10582   -new_op_scheme(19297806,0,
  10633 +new_op_scheme(19304974,0,
10583 10634 type_String,
10584 10635 cons(new_string("£sqlite3_errmsg"),
10585 10636 nil),
... ... @@ -10588,11 +10639,11 @@ new_integer(8)),
10588 10639 new_string("s")),
10589 10640 nil),
10590 10641 cons(avm,
10591   -cons(new_integer(9650184),
  10642 +cons(new_integer(9653768),
10592 10643 cons(sqlite3_errmsg,
10593 10644 nil))));
10594 10645  
10595   -new_op_scheme(19301916,1,
  10646 +new_op_scheme(19309084,1,
10596 10647 cons(app_ts,
10597 10648 cons(new_string("Result"),
10598 10649 cons(new_string("SQLite3Error"),
... ... @@ -10604,88 +10655,88 @@ cons(cons(type_String,
10604 10655 new_string("filename")),
10605 10656 nil),
10606 10657 cons(with,
10607   -cons(new_integer(9652241),
  10658 +cons(new_integer(9655825),
10608 10659 cons(new_string("handle"),
10609 10660 cons(cons(app,
10610   -cons(new_integer(9652256),
  10661 +cons(new_integer(9655840),
10611 10662 cons(cons(symbol,
10612   -cons(new_integer(9652255),
  10663 +cons(new_integer(9655839),
10613 10664 new_string("£sqlite3_open"))),
10614 10665 cons(cons(symbol,
10615   -cons(new_integer(9652264),
  10666 +cons(new_integer(9655848),
10616 10667 new_string("filename"))),
10617 10668 nil)))),
10618 10669 cons(with,
10619   -cons(new_integer(9652497),
  10670 +cons(new_integer(9656081),
10620 10671 cons(new_string("code"),
10621 10672 cons(cons(app,
10622   -cons(new_integer(9652515),
  10673 +cons(new_integer(9656099),
10623 10674 cons(cons(symbol,
10624   -cons(new_integer(9652514),
  10675 +cons(new_integer(9656098),
10625 10676 new_string("£sqlite3_errcode"))),
10626 10677 cons(cons(symbol,
10627   -cons(new_integer(9652521),
  10678 +cons(new_integer(9656105),
10628 10679 new_string("handle"))),
10629 10680 nil)))),
10630 10681 cons(cond,
10631   -cons(new_integer(9652744),
  10682 +cons(new_integer(9656328),
10632 10683 cons(cons(of_type,
10633   -cons(new_integer(9652744),
  10684 +cons(new_integer(9656328),
10634 10685 cons(new_string("Bool"),
10635 10686 cons(app,
10636   -cons(new_integer(9652751),
  10687 +cons(new_integer(9656335),
10637 10688 cons(cons(symbol,
10638   -cons(new_integer(9652751),
  10689 +cons(new_integer(9656335),
10639 10690 new_string("="))),
10640 10691 cons(cons(symbol,
10641   -cons(new_integer(9652749),
  10692 +cons(new_integer(9656333),
10642 10693 new_string("code"))),
10643 10694 cons(cons(integer_10,
10644   -cons(new_integer(9652753),
  10695 +cons(new_integer(9656337),
10645 10696 nil)),
10646 10697 nil)))))))),
10647 10698 cons(cons(cons(new_string("false"),
10648 10699 nil),
10649   -cons(new_integer(9653258),
  10700 +cons(new_integer(9656842),
10650 10701 cons(app,
10651   -cons(new_integer(9653265),
  10702 +cons(new_integer(9656849),
10652 10703 cons(cons(symbol,
10653   -cons(new_integer(9653264),
  10704 +cons(new_integer(9656848),
10654 10705 new_string("error"))),
10655 10706 cons(cons(app,
10656   -cons(new_integer(9653273),
  10707 +cons(new_integer(9656857),
10657 10708 cons(cons(symbol,
10658   -cons(new_integer(9653272),
  10709 +cons(new_integer(9656856),
10659 10710 new_string("sqlite3"))),
10660 10711 cons(cons(symbol,
10661   -cons(new_integer(9653277),
  10712 +cons(new_integer(9656861),
10662 10713 new_string("code"))),
10663 10714 cons(cons(app,
10664   -cons(new_integer(9653294),
  10715 +cons(new_integer(9656878),
10665 10716 cons(cons(symbol,
10666   -cons(new_integer(9653293),
  10717 +cons(new_integer(9656877),
10667 10718 new_string("£sqlite3_errmsg"))),
10668 10719 cons(cons(symbol,
10669   -cons(new_integer(9653300),
  10720 +cons(new_integer(9656884),
10670 10721 new_string("handle"))),
10671 10722 nil)))),
10672 10723 nil))))),
10673 10724 nil)))))),
10674 10725 cons(cons(cons(new_string("true"),
10675 10726 nil),
10676   -cons(new_integer(9653002),
  10727 +cons(new_integer(9656586),
10677 10728 cons(app,
10678   -cons(new_integer(9653006),
  10729 +cons(new_integer(9656590),
10679 10730 cons(cons(symbol,
10680   -cons(new_integer(9653005),
  10731 +cons(new_integer(9656589),
10681 10732 new_string("ok"))),
10682 10733 cons(cons(app,
10683   -cons(new_integer(9653016),
  10734 +cons(new_integer(9656600),
10684 10735 cons(cons(symbol,
10685   -cons(new_integer(9653015),
  10736 +cons(new_integer(9656599),
10686 10737 new_string("£database"))),
10687 10738 cons(cons(symbol,
10688   -cons(new_integer(9653022),
  10739 +cons(new_integer(9656606),
10689 10740 new_string("handle"))),
10690 10741 nil)))),
10691 10742 nil)))))),
... ... @@ -10711,7 +10762,7 @@ nil),
10711 10762 nil),
10712 10763 nil))))),0,1);
10713 10764  
10714   -new_op_scheme(19312142,0,
  10765 +new_op_scheme(19319310,0,
10715 10766 new_string("£SQLite3DatumType"),
10716 10767 cons(new_string("£get_cell_type"),
10717 10768 nil),
... ... @@ -10722,11 +10773,11 @@ cons(cons(type_Int32,
10722 10773 new_string("iCol")),
10723 10774 nil)),
10724 10775 cons(avm,
10725   -cons(new_integer(9657608),
  10776 +cons(new_integer(9661192),
10726 10777 cons(sqlite3_column_type,
10727 10778 nil))));
10728 10779  
10729   -new_op_scheme(19316750,0,
  10780 +new_op_scheme(19323918,0,
10730 10781 type_String,
10731 10782 cons(new_string("£get_cell_name"),
10732 10783 nil),
... ... @@ -10737,11 +10788,11 @@ cons(cons(type_Int32,
10737 10788 new_string("iCol")),
10738 10789 nil)),
10739 10790 cons(avm,
10740   -cons(new_integer(9659912),
  10791 +cons(new_integer(9663496),
10741 10792 cons(sqlite3_column_name,
10742 10793 nil))));
10743 10794  
10744   -new_op_scheme(19321358,0,
  10795 +new_op_scheme(19328526,0,
10745 10796 type_Int32,
10746 10797 cons(new_string("£sqlite3_column_int"),
10747 10798 nil),
... ... @@ -10752,11 +10803,11 @@ cons(cons(type_Int32,
10752 10803 new_string("iCol")),
10753 10804 nil)),
10754 10805 cons(avm,
10755   -cons(new_integer(9662216),
  10806 +cons(new_integer(9665800),
10756 10807 cons(sqlite3_column_int,
10757 10808 nil))));
10758 10809  
10759   -new_op_scheme(19325454,0,
  10810 +new_op_scheme(19332622,0,
10760 10811 type_Float,
10761 10812 cons(new_string("£sqlite3_column_double"),
10762 10813 nil),
... ... @@ -10767,11 +10818,11 @@ cons(cons(type_Int32,
10767 10818 new_string("iCol")),
10768 10819 nil)),
10769 10820 cons(avm,
10770   -cons(new_integer(9664264),
  10821 +cons(new_integer(9667848),
10771 10822 cons(sqlite3_column_double,
10772 10823 nil))));
10773 10824  
10774   -new_op_scheme(19329550,0,
  10825 +new_op_scheme(19336718,0,
10775 10826 type_String,
10776 10827 cons(new_string("£sqlite3_column_text"),
10777 10828 nil),
... ... @@ -10782,11 +10833,11 @@ cons(cons(type_Int32,
10782 10833 new_string("iCol")),
10783 10834 nil)),
10784 10835 cons(avm,
10785   -cons(new_integer(9666312),
  10836 +cons(new_integer(9669896),
10786 10837 cons(sqlite3_column_text,
10787 10838 nil))));
10788 10839  
10789   -new_op_scheme(19333646,0,
  10840 +new_op_scheme(19340814,0,
10790 10841 type_ByteArray,
10791 10842 cons(new_string("£sqlite3_column_blob"),
10792 10843 nil),
... ... @@ -10797,11 +10848,11 @@ cons(cons(type_Int32,
10797 10848 new_string("iCol")),
10798 10849 nil)),
10799 10850 cons(avm,
10800   -cons(new_integer(9668360),
  10851 +cons(new_integer(9671944),
10801 10852 cons(sqlite3_column_blob,
10802 10853 nil))));
10803 10854  
10804   -new_op_scheme(19337742,0,
  10855 +new_op_scheme(19344910,0,
10805 10856 new_string("SQLite3Datum"),
10806 10857 cons(new_string("£get_cell_value"),
10807 10858 nil),
... ... @@ -10812,112 +10863,112 @@ cons(cons(type_Int32,
10812 10863 new_string("iCol")),
10813 10864 nil)),
10814 10865 cons(cond,
10815   -cons(new_integer(9670406),
  10866 +cons(new_integer(9673990),
10816 10867 cons(cons(app,
10817   -cons(new_integer(9670422),
  10868 +cons(new_integer(9674006),
10818 10869 cons(cons(symbol,
10819   -cons(new_integer(9670421),
  10870 +cons(new_integer(9674005),
10820 10871 new_string("£get_cell_type"))),
10821 10872 cons(cons(symbol,
10822   -cons(new_integer(9670426),
  10873 +cons(new_integer(9674010),
10823 10874 new_string("stmt"))),
10824 10875 cons(cons(symbol,
10825   -cons(new_integer(9670431),
  10876 +cons(new_integer(9674015),
10826 10877 new_string("iCol"))),
10827 10878 nil))))),
10828 10879 cons(cons(cons(new_string("£integer"),
10829 10880 nil),
10830   -cons(new_integer(9670934),
  10881 +cons(new_integer(9674518),
10831 10882 cons(app,
10832   -cons(new_integer(9670944),
  10883 +cons(new_integer(9674528),
10833 10884 cons(cons(symbol,
10834   -cons(new_integer(9670942),
  10885 +cons(new_integer(9674526),
10835 10886 new_string("integer"))),
10836 10887 cons(cons(app,
10837   -cons(new_integer(9670964),
  10888 +cons(new_integer(9674548),
10838 10889 cons(cons(symbol,
10839   -cons(new_integer(9670963),
  10890 +cons(new_integer(9674547),
10840 10891 new_string("£sqlite3_column_int"))),
10841 10892 cons(cons(symbol,
10842   -cons(new_integer(9670968),
  10893 +cons(new_integer(9674552),
10843 10894 new_string("stmt"))),
10844 10895 cons(cons(symbol,
10845   -cons(new_integer(9670973),
  10896 +cons(new_integer(9674557),
10846 10897 new_string("iCol"))),
10847 10898 nil))))),
10848 10899 nil)))))),
10849 10900 cons(cons(cons(new_string("£float"),
10850 10901 nil),
10851   -cons(new_integer(9671190),
  10902 +cons(new_integer(9674774),
10852 10903 cons(app,
10853   -cons(new_integer(9671200),
  10904 +cons(new_integer(9674784),
10854 10905 cons(cons(symbol,
10855   -cons(new_integer(9671196),
  10906 +cons(new_integer(9674780),
10856 10907 new_string("float"))),
10857 10908 cons(cons(app,
10858   -cons(new_integer(9671223),
  10909 +cons(new_integer(9674807),
10859 10910 cons(cons(symbol,
10860   -cons(new_integer(9671222),
  10911 +cons(new_integer(9674806),
10861 10912 new_string("£sqlite3_column_double"))),
10862 10913 cons(cons(symbol,
10863   -cons(new_integer(9671227),
  10914 +cons(new_integer(9674811),
10864 10915 new_string("stmt"))),
10865 10916 cons(cons(symbol,
10866   -cons(new_integer(9671232),
  10917 +cons(new_integer(9674816),
10867 10918 new_string("iCol"))),
10868 10919 nil))))),
10869 10920 nil)))))),
10870 10921 cons(cons(cons(new_string("£text"),
10871 10922 nil),
10872   -cons(new_integer(9671446),
  10923 +cons(new_integer(9675030),
10873 10924 cons(app,
10874   -cons(new_integer(9671456),
  10925 +cons(new_integer(9675040),
10875 10926 cons(cons(symbol,
10876   -cons(new_integer(9671451),
  10927 +cons(new_integer(9675035),
10877 10928 new_string("text"))),
10878 10929 cons(cons(app,
10879   -cons(new_integer(9671477),
  10930 +cons(new_integer(9675061),
10880 10931 cons(cons(symbol,
10881   -cons(new_integer(9671476),
  10932 +cons(new_integer(9675060),
10882 10933 new_string("£sqlite3_column_text"))),
10883 10934 cons(cons(symbol,
10884   -cons(new_integer(9671481),
  10935 +cons(new_integer(9675065),
10885 10936 new_string("stmt"))),
10886 10937 cons(cons(symbol,
10887   -cons(new_integer(9671486),
  10938 +cons(new_integer(9675070),
10888 10939 new_string("iCol"))),
10889 10940 nil))))),
10890 10941 nil)))))),
10891 10942 cons(cons(cons(new_string("£blob"),
10892 10943 nil),
10893   -cons(new_integer(9671702),
  10944 +cons(new_integer(9675286),
10894 10945 cons(app,
10895   -cons(new_integer(9671712),
  10946 +cons(new_integer(9675296),
10896 10947 cons(cons(symbol,
10897   -cons(new_integer(9671707),
  10948 +cons(new_integer(9675291),
10898 10949 new_string("blob"))),
10899 10950 cons(cons(app,
10900   -cons(new_integer(9671733),
  10951 +cons(new_integer(9675317),
10901 10952 cons(cons(symbol,
10902   -cons(new_integer(9671732),
  10953 +cons(new_integer(9675316),
10903 10954 new_string("£sqlite3_column_blob"))),
10904 10955 cons(cons(symbol,
10905   -cons(new_integer(9671737),
  10956 +cons(new_integer(9675321),
10906 10957 new_string("stmt"))),
10907 10958 cons(cons(symbol,
10908   -cons(new_integer(9671742),
  10959 +cons(new_integer(9675326),
10909 10960 new_string("iCol"))),
10910 10961 nil))))),
10911 10962 nil)))))),
10912 10963 cons(cons(cons(new_string("£null"),
10913 10964 nil),
10914   -cons(new_integer(9671958),
  10965 +cons(new_integer(9675542),
10915 10966 cons(symbol,
10916   -cons(new_integer(9671963),
  10967 +cons(new_integer(9675547),
10917 10968 new_string("null"))))),
10918 10969 nil)))))))));
10919 10970  
10920   -new_op_scheme(19345422,0,
  10971 +new_op_scheme(19352590,0,
10921 10972 cons(functype,
10922 10973 cons(cons(type_Int32,
10923 10974 nil),
... ... @@ -10931,78 +10982,78 @@ cons(cons(type_Int32,
10931 10982 new_string("column_count")),
10932 10983 nil)),
10933 10984 cons(lambda,
10934   -cons(new_integer(9674257),
  10985 +cons(new_integer(9677841),
10935 10986 cons(cons(cons(type_Int32,
10936 10987 new_string("i")),
10937 10988 nil),
10938 10989 cons(cond,
10939   -cons(new_integer(9674504),
  10990 +cons(new_integer(9678088),
10940 10991 cons(cons(of_type,
10941   -cons(new_integer(9674504),
  10992 +cons(new_integer(9678088),
10942 10993 cons(new_string("Bool"),
10943 10994 cons(app,
10944   -cons(new_integer(9674508),
  10995 +cons(new_integer(9678092),
10945 10996 cons(cons(symbol,
10946   -cons(new_integer(9674508),
  10997 +cons(new_integer(9678092),
10947 10998 new_string("<"))),
10948 10999 cons(cons(symbol,
10949   -cons(new_integer(9674506),
  11000 +cons(new_integer(9678090),
10950 11001 new_string("i"))),
10951 11002 cons(cons(integer_10,
10952   -cons(new_integer(9674510),
  11003 +cons(new_integer(9678094),
10953 11004 nil)),
10954 11005 nil)))))))),
10955 11006 cons(cons(cons(new_string("false"),
10956 11007 nil),
10957   -cons(new_integer(9674547),
  11008 +cons(new_integer(9678131),
10958 11009 cons(cond,
10959   -cons(new_integer(9674760),
  11010 +cons(new_integer(9678344),
10960 11011 cons(cons(of_type,
10961   -cons(new_integer(9674760),
  11012 +cons(new_integer(9678344),
10962 11013 cons(new_string("Bool"),
10963 11014 cons(app,
10964   -cons(new_integer(9674765),
  11015 +cons(new_integer(9678349),
10965 11016 cons(cons(symbol,
10966   -cons(new_integer(9674765),
  11017 +cons(new_integer(9678349),
10967 11018 new_string("=<"))),
10968 11019 cons(cons(symbol,
10969   -cons(new_integer(9674778),
  11020 +cons(new_integer(9678362),
10970 11021 new_string("column_count"))),
10971 11022 cons(cons(symbol,
10972   -cons(new_integer(9674762),
  11023 +cons(new_integer(9678346),
10973 11024 new_string("i"))),
10974 11025 nil)))))))),
10975 11026 cons(cons(cons(new_string("false"),
10976 11027 nil),
10977   -cons(new_integer(9674803),
  11028 +cons(new_integer(9678387),
10978 11029 cons(app,
10979   -cons(new_integer(9675030),
  11030 +cons(new_integer(9678614),
10980 11031 cons(cons(symbol,
10981   -cons(new_integer(9675029),
  11032 +cons(new_integer(9678613),
10982 11033 new_string("£get_cell_value"))),
10983 11034 cons(cons(symbol,
10984   -cons(new_integer(9675034),
  11035 +cons(new_integer(9678618),
10985 11036 new_string("stmt"))),
10986 11037 cons(cons(symbol,
10987   -cons(new_integer(9675036),
  11038 +cons(new_integer(9678620),
10988 11039 new_string("i"))),
10989 11040 nil))))))),
10990 11041 cons(cons(cons(new_string("true"),
10991 11042 nil),
10992   -cons(new_integer(9674783),
  11043 +cons(new_integer(9678367),
10993 11044 cons(symbol,
10994   -cons(new_integer(9674798),
  11045 +cons(new_integer(9678382),
10995 11046 new_string("no_such_column"))))),
10996 11047 nil))))))),
10997 11048 cons(cons(cons(new_string("true"),
10998 11049 nil),
10999   -cons(new_integer(9674527),
  11050 +cons(new_integer(9678111),
11000 11051 cons(symbol,
11001   -cons(new_integer(9674542),
  11052 +cons(new_integer(9678126),
11002 11053 new_string("no_such_column"))))),
11003 11054 nil)))))))));
11004 11055  
11005   -new_op_scheme(19351054,0,
  11056 +new_op_scheme(19358222,0,
11006 11057 cons(functype,
11007 11058 cons(cons(type_Int32,
11008 11059 nil),
... ... @@ -11016,84 +11067,84 @@ cons(cons(type_Int32,
11016 11067 new_string("column_count")),
11017 11068 nil)),
11018 11069 cons(lambda,
11019   -cons(new_integer(9677073),
  11070 +cons(new_integer(9680657),
11020 11071 cons(cons(cons(type_Int32,
11021 11072 new_string("i")),
11022 11073 nil),
11023 11074 cons(cond,
11024   -cons(new_integer(9677320),
  11075 +cons(new_integer(9680904),
11025 11076 cons(cons(of_type,
11026   -cons(new_integer(9677320),
  11077 +cons(new_integer(9680904),
11027 11078 cons(new_string("Bool"),
11028 11079 cons(app,
11029   -cons(new_integer(9677324),
  11080 +cons(new_integer(9680908),
11030 11081 cons(cons(symbol,
11031   -cons(new_integer(9677324),
  11082 +cons(new_integer(9680908),
11032 11083 new_string("<"))),
11033 11084 cons(cons(symbol,
11034   -cons(new_integer(9677322),
  11085 +cons(new_integer(9680906),
11035 11086 new_string("i"))),
11036 11087 cons(cons(integer_10,
11037   -cons(new_integer(9677326),
  11088 +cons(new_integer(9680910),
11038 11089 nil)),
11039 11090 nil)))))))),
11040 11091 cons(cons(cons(new_string("false"),
11041 11092 nil),
11042   -cons(new_integer(9677363),
  11093 +cons(new_integer(9680947),
11043 11094 cons(cond,
11044   -cons(new_integer(9677576),
  11095 +cons(new_integer(9681160),
11045 11096 cons(cons(of_type,
11046   -cons(new_integer(9677576),
  11097 +cons(new_integer(9681160),
11047 11098 cons(new_string("Bool"),
11048 11099 cons(app,
11049   -cons(new_integer(9677581),
  11100 +cons(new_integer(9681165),
11050 11101 cons(cons(symbol,
11051   -cons(new_integer(9677581),
  11102 +cons(new_integer(9681165),
11052 11103 new_string("=<"))),
11053 11104 cons(cons(symbol,
11054   -cons(new_integer(9677594),
  11105 +cons(new_integer(9681178),
11055 11106 new_string("column_count"))),
11056 11107 cons(cons(symbol,
11057   -cons(new_integer(9677578),
  11108 +cons(new_integer(9681162),
11058 11109 new_string("i"))),
11059 11110 nil)))))))),
11060 11111 cons(cons(cons(new_string("false"),
11061 11112 nil),
11062   -cons(new_integer(9677619),
  11113 +cons(new_integer(9681203),
11063 11114 cons(app,
11064   -cons(new_integer(9677835),
  11115 +cons(new_integer(9681419),
11065 11116 cons(cons(symbol,
11066   -cons(new_integer(9677834),
  11117 +cons(new_integer(9681418),
11067 11118 new_string("text"))),
11068 11119 cons(cons(app,
11069   -cons(new_integer(9677850),
  11120 +cons(new_integer(9681434),
11070 11121 cons(cons(symbol,
11071   -cons(new_integer(9677849),
  11122 +cons(new_integer(9681433),
11072 11123 new_string("£get_cell_name"))),
11073 11124 cons(cons(symbol,
11074   -cons(new_integer(9677854),
  11125 +cons(new_integer(9681438),
11075 11126 new_string("stmt"))),
11076 11127 cons(cons(symbol,
11077   -cons(new_integer(9677856),
  11128 +cons(new_integer(9681440),
11078 11129 new_string("i"))),
11079 11130 nil))))),
11080 11131 nil)))))),
11081 11132 cons(cons(cons(new_string("true"),
11082 11133 nil),
11083   -cons(new_integer(9677599),
  11134 +cons(new_integer(9681183),
11084 11135 cons(symbol,
11085   -cons(new_integer(9677614),
  11136 +cons(new_integer(9681198),
11086 11137 new_string("no_such_column"))))),
11087 11138 nil))))))),
11088 11139 cons(cons(cons(new_string("true"),
11089 11140 nil),
11090   -cons(new_integer(9677343),
  11141 +cons(new_integer(9680927),
11091 11142 cons(symbol,
11092   -cons(new_integer(9677358),
  11143 +cons(new_integer(9680942),
11093 11144 new_string("no_such_column"))))),
11094 11145 nil)))))))));
11095 11146  
11096   -new_op_scheme(19357198,0,
  11147 +new_op_scheme(19364366,0,
11097 11148 type_Int32,
11098 11149 cons(new_string("£column_count"),
11099 11150 nil),
... ... @@ -11102,7 +11153,7 @@ new_integer(9)),
11102 11153 new_string("stmt")),
11103 11154 nil),
11104 11155 cons(avm,
11105   -cons(new_integer(9679880),
  11156 +cons(new_integer(9683464),
11106 11157 cons(sqlite3_column_count,
11107 11158 nil))));
11108 11159  
... ... @@ -11120,7 +11171,7 @@ nil),
11120 11171 nil),
11121 11172 nil))),0,1);
11122 11173  
11123   -new_op_scheme(19363342,0,
  11174 +new_op_scheme(19370510,0,
11124 11175 new_string("£SQLite3NextRowResult"),
11125 11176 cons(new_string("£go_to_next_row"),
11126 11177 nil),
... ... @@ -11129,11 +11180,11 @@ new_integer(9)),
11129 11180 new_string("stmt")),
11130 11181 nil),
11131 11182 cons(avm,
11132   -cons(new_integer(9682952),
  11183 +cons(new_integer(9686536),
11133 11184 cons(sqlite3_go_to_next_row,
11134 11185 nil))));
11135 11186  
11136   -new_op_scheme(19366926,0,
  11187 +new_op_scheme(19374094,0,
11137 11188 cons(functype,
11138 11189 cons(cons(new_string("SQLite3HeadersOrRow"),
11139 11190 nil),
... ... @@ -11151,131 +11202,131 @@ new_string(&quot;Bool&quot;)),
11151 11202 new_string("first")),
11152 11203 nil))),
11153 11204 cons(with,
11154   -cons(new_integer(9685270),
  11205 +cons(new_integer(9688854),
11155 11206 cons(new_string("num_columns"),
11156 11207 cons(cons(app,
11157   -cons(new_integer(9685285),
  11208 +cons(new_integer(9688869),
11158 11209 cons(cons(symbol,
11159   -cons(new_integer(9685284),
  11210 +cons(new_integer(9688868),
11160 11211 new_string("£column_count"))),
11161 11212 cons(cons(symbol,
11162   -cons(new_integer(9685289),
  11213 +cons(new_integer(9688873),
11163 11214 new_string("stmt"))),
11164 11215 nil)))),
11165 11216 cons(lambda,
11166   -cons(new_integer(9685540),
  11217 +cons(new_integer(9689124),
11167 11218 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
11168 11219 new_string("askFor")),
11169 11220 nil),
11170 11221 cons(cond,
11171   -cons(new_integer(9685776),
  11222 +cons(new_integer(9689360),
11172 11223 cons(cons(symbol,
11173   -cons(new_integer(9685783),
  11224 +cons(new_integer(9689367),
11174 11225 new_string("askFor"))),
11175 11226 cons(cons(cons(new_string("headers"),
11176 11227 nil),
11177   -cons(new_integer(9686308),
  11228 +cons(new_integer(9689892),
11178 11229 cons(app,
11179   -cons(new_integer(9686313),
  11230 +cons(new_integer(9689897),
11180 11231 cons(cons(symbol,
11181   -cons(new_integer(9686312),
  11232 +cons(new_integer(9689896),
11182 11233 new_string("row"))),
11183 11234 cons(cons(app,
11184   -cons(new_integer(9686324),
  11235 +cons(new_integer(9689908),
11185 11236 cons(cons(symbol,
11186   -cons(new_integer(9686323),
  11237 +cons(new_integer(9689907),
11187 11238 new_string("£make_cols"))),
11188 11239 cons(cons(symbol,
11189   -cons(new_integer(9686328),
  11240 +cons(new_integer(9689912),
11190 11241 new_string("stmt"))),
11191 11242 cons(cons(symbol,
11192   -cons(new_integer(9686341),
  11243 +cons(new_integer(9689925),
11193 11244 new_string("num_columns"))),
11194 11245 nil))))),
11195 11246 nil)))))),
11196 11247 cons(cons(cons(new_string("next_row"),
11197 11248 nil),
11198   -cons(new_integer(9686565),
  11249 +cons(new_integer(9690149),
11199 11250 cons(cond,
11200   -cons(new_integer(9686803),
  11251 +cons(new_integer(9690387),
11201 11252 cons(cons(of_type,
11202   -cons(new_integer(9686803),
  11253 +cons(new_integer(9690387),
11203 11254 cons(new_string("Bool"),
11204 11255 cons(anb_read,
11205   -cons(new_integer(9686805),
  11256 +cons(new_integer(9690389),
11206 11257 cons(symbol,
11207   -cons(new_integer(9686810),
  11258 +cons(new_integer(9690394),
11208 11259 new_string("first")))))))),
11209 11260 cons(cons(cons(new_string("false"),
11210 11261 nil),
11211   -cons(new_integer(9687317),
  11262 +cons(new_integer(9690901),
11212 11263 cons(cond,
11213   -cons(new_integer(9687320),
  11264 +cons(new_integer(9690904),
11214 11265 cons(cons(app,
11215   -cons(new_integer(9687337),
  11266 +cons(new_integer(9690921),
11216 11267 cons(cons(symbol,
11217   -cons(new_integer(9687336),
  11268 +cons(new_integer(9690920),
11218 11269 new_string("£go_to_next_row"))),
11219 11270 cons(cons(symbol,
11220   -cons(new_integer(9687341),
  11271 +cons(new_integer(9690925),
11221 11272 new_string("stmt"))),
11222 11273 nil)))),
11223 11274 cons(cons(cons(new_string("no_more_row"),
11224 11275 nil),
11225   -cons(new_integer(9687851),
  11276 +cons(new_integer(9691435),
11226 11277 cons(symbol,
11227   -cons(new_integer(9687863),
  11278 +cons(new_integer(9691447),
11228 11279 new_string("no_more_row"))))),
11229 11280 cons(cons(cons(new_string("row"),
11230 11281 nil),
11231   -cons(new_integer(9688107),
  11282 +cons(new_integer(9691691),
11232 11283 cons(app,
11233   -cons(new_integer(9688112),
  11284 +cons(new_integer(9691696),
11234 11285 cons(cons(symbol,
11235   -cons(new_integer(9688111),
  11286 +cons(new_integer(9691695),
11236 11287 new_string("row"))),
11237 11288 cons(cons(app,
11238   -cons(new_integer(9688122),
  11289 +cons(new_integer(9691706),
11239 11290 cons(cons(symbol,
11240   -cons(new_integer(9688121),
  11291 +cons(new_integer(9691705),
11241 11292 new_string("£make_row"))),
11242 11293 cons(cons(symbol,
11243   -cons(new_integer(9688126),
  11294 +cons(new_integer(9691710),
11244 11295 new_string("stmt"))),
11245 11296 cons(cons(symbol,
11246   -cons(new_integer(9688138),
  11297 +cons(new_integer(9691722),
11247 11298 new_string("num_columns"))),
11248 11299 nil))))),
11249 11300 nil)))))),
11250 11301 cons(cons(cons(new_string("error"),
11251 11302 nil),
11252   -cons(new_integer(9688363),
  11303 +cons(new_integer(9691947),
11253 11304 cons(app,
11254   -cons(new_integer(9688370),
  11305 +cons(new_integer(9691954),
11255 11306 cons(cons(symbol,
11256   -cons(new_integer(9688369),
  11307 +cons(new_integer(9691953),
11257 11308 new_string("error"))),
11258 11309 cons(cons(app,
11259   -cons(new_integer(9688378),
  11310 +cons(new_integer(9691962),
11260 11311 cons(cons(symbol,
11261   -cons(new_integer(9688377),
  11312 +cons(new_integer(9691961),
11262 11313 new_string("sqlite3"))),
11263 11314 cons(cons(app,
11264   -cons(new_integer(9688395),
  11315 +cons(new_integer(9691979),
11265 11316 cons(cons(symbol,
11266   -cons(new_integer(9688394),
  11317 +cons(new_integer(9691978),
11267 11318 new_string("£sqlite3_errcode"))),
11268 11319 cons(cons(symbol,
11269   -cons(new_integer(9688397),
  11320 +cons(new_integer(9691981),
11270 11321 new_string("db"))),
11271 11322 nil)))),
11272 11323 cons(cons(app,
11273   -cons(new_integer(9688415),
  11324 +cons(new_integer(9691999),
11274 11325 cons(cons(symbol,
11275   -cons(new_integer(9688414),
  11326 +cons(new_integer(9691998),
11276 11327 new_string("£sqlite3_errmsg"))),
11277 11328 cons(cons(symbol,
11278   -cons(new_integer(9688417),
  11329 +cons(new_integer(9692001),
11279 11330 new_string("db"))),
11280 11331 nil)))),
11281 11332 nil))))),
... ... @@ -11283,38 +11334,38 @@ nil)))))),
11283 11334 nil)))))))),
11284 11335 cons(cons(cons(new_string("true"),
11285 11336 nil),
11286   -cons(new_integer(9687061),
  11337 +cons(new_integer(9690645),
11287 11338 cons(cond,
11288   -cons(new_integer(9687078),
  11339 +cons(new_integer(9690662),
11289 11340 cons(cons(of_type,
11290   -cons(new_integer(9687078),
  11341 +cons(new_integer(9690662),
11291 11342 cons(new_string("One"),
11292 11343 cons(anb_write,
11293   -cons(new_integer(9687071),
  11344 +cons(new_integer(9690655),
11294 11345 cons(cons(symbol,
11295   -cons(new_integer(9687068),
  11346 +cons(new_integer(9690652),
11296 11347 new_string("first"))),
11297 11348 cons(symbol,
11298   -cons(new_integer(9687077),
  11349 +cons(new_integer(9690661),
11299 11350 new_string("false"))))))))),
11300 11351 cons(cons(cons(new_string("unique"),
11301 11352 nil),
11302   -cons(new_integer(9687078),
  11353 +cons(new_integer(9690662),
11303 11354 cons(app,
11304   -cons(new_integer(9687083),
  11355 +cons(new_integer(9690667),
11305 11356 cons(cons(symbol,
11306   -cons(new_integer(9687082),
  11357 +cons(new_integer(9690666),
11307 11358 new_string("row"))),
11308 11359 cons(cons(app,
11309   -cons(new_integer(9687093),
  11360 +cons(new_integer(9690677),
11310 11361 cons(cons(symbol,
11311   -cons(new_integer(9687092),
  11362 +cons(new_integer(9690676),
11312 11363 new_string("£make_row"))),
11313 11364 cons(cons(symbol,
11314   -cons(new_integer(9687097),
  11365 +cons(new_integer(9690681),
11315 11366 new_string("stmt"))),
11316 11367 cons(cons(symbol,
11317   -cons(new_integer(9687109),
  11368 +cons(new_integer(9690693),
11318 11369 new_string("num_columns"))),
11319 11370 nil))))),
11320 11371 nil)))))),
... ... @@ -11322,7 +11373,7 @@ nil)))))),
11322 11373 nil))))))),
11323 11374 nil)))))))))))));
11324 11375  
11325   -new_op_scheme(19379214,0,
  11376 +new_op_scheme(19386382,0,
11326 11377 cons(app_ts,
11327 11378 cons(new_string("Result"),
11328 11379 cons(type_Int32,
... ... @@ -11338,11 +11389,11 @@ cons(cons(type_String,
11338 11389 new_string("sql_command")),
11339 11390 nil)),
11340 11391 cons(avm,
11341   -cons(new_integer(9691144),
  11392 +cons(new_integer(9694728),
11342 11393 cons(sqlite3_prepare,
11343 11394 nil))));
11344 11395  
11345   -new_op_scheme(19383836,1,
  11396 +new_op_scheme(19391004,1,
11346 11397 cons(app_ts,
11347 11398 cons(new_string("Result"),
11348 11399 cons(new_string("SQLite3Error"),
... ... @@ -11359,54 +11410,54 @@ cons(cons(type_String,
11359 11410 new_string("sql_command")),
11360 11411 nil)),
11361 11412 cons(cond,
11362   -cons(new_integer(9693446),
  11413 +cons(new_integer(9697030),
11363 11414 cons(cons(symbol,
11364   -cons(new_integer(9693449),
  11415 +cons(new_integer(9697033),
11365 11416 new_string("db"))),
11366 11417 cons(cons(cons(new_string("£database"),
11367 11418 cons(new_string("db1"),
11368 11419 nil)),
11369   -cons(new_integer(9693472),
  11420 +cons(new_integer(9697056),
11370 11421 cons(protect,
11371   -cons(new_integer(9693707),
  11422 +cons(new_integer(9697291),
11372 11423 cons(cond,
11373   -cons(new_integer(9693958),
  11424 +cons(new_integer(9697542),
11374 11425 cons(cons(app,
11375   -cons(new_integer(9693968),
  11426 +cons(new_integer(9697552),
11376 11427 cons(cons(symbol,
11377   -cons(new_integer(9693967),
  11428 +cons(new_integer(9697551),
11378 11429 new_string("£prepare"))),
11379 11430 cons(cons(symbol,
11380   -cons(new_integer(9693971),
  11431 +cons(new_integer(9697555),
11381 11432 new_string("db1"))),
11382 11433 cons(cons(symbol,
11383   -cons(new_integer(9693983),
  11434 +cons(new_integer(9697567),
11384 11435 new_string("sql_command"))),
11385 11436 nil))))),
11386 11437 cons(cons(cons(new_string("error"),
11387 11438 cons(new_string("i"),
11388 11439 nil)),
11389   -cons(new_integer(9694485),
  11440 +cons(new_integer(9698069),
11390 11441 cons(app,
11391   -cons(new_integer(9694492),
  11442 +cons(new_integer(9698076),
11392 11443 cons(cons(symbol,
11393   -cons(new_integer(9694491),
  11444 +cons(new_integer(9698075),
11394 11445 new_string("error"))),
11395 11446 cons(cons(app,
11396   -cons(new_integer(9694500),
  11447 +cons(new_integer(9698084),
11397 11448 cons(cons(symbol,
11398   -cons(new_integer(9694499),
  11449 +cons(new_integer(9698083),
11399 11450 new_string("sqlite3"))),
11400 11451 cons(cons(symbol,
11401   -cons(new_integer(9694501),
  11452 +cons(new_integer(9698085),
11402 11453 new_string("i"))),
11403 11454 cons(cons(app,
11404   -cons(new_integer(9694518),
  11455 +cons(new_integer(9698102),
11405 11456 cons(cons(symbol,
11406   -cons(new_integer(9694517),
  11457 +cons(new_integer(9698101),
11407 11458 new_string("£sqlite3_errmsg"))),
11408 11459 cons(cons(symbol,
11409   -cons(new_integer(9694521),
  11460 +cons(new_integer(9698105),
11410 11461 new_string("db1"))),
11411 11462 nil)))),
11412 11463 nil))))),
... ... @@ -11414,103 +11465,103 @@ nil)))))),
11414 11465 cons(cons(cons(new_string("ok"),
11415 11466 cons(new_string("stmt"),
11416 11467 nil)),
11417   -cons(new_integer(9694741),
  11468 +cons(new_integer(9698325),
11418 11469 cons(cond,
11419   -cons(new_integer(9694988),
  11470 +cons(new_integer(9698572),
11420 11471 cons(cons(app,
11421   -cons(new_integer(9695005),
  11472 +cons(new_integer(9698589),
11422 11473 cons(cons(symbol,
11423   -cons(new_integer(9695004),
  11474 +cons(new_integer(9698588),
11424 11475 new_string("£go_to_next_row"))),
11425 11476 cons(cons(symbol,
11426   -cons(new_integer(9695009),
  11477 +cons(new_integer(9698593),
11427 11478 new_string("stmt"))),
11428 11479 nil)))),
11429 11480 cons(cons(cons(new_string("no_more_row"),
11430 11481 nil),
11431   -cons(new_integer(9695520),
  11482 +cons(new_integer(9699104),
11432 11483 cons(app,
11433   -cons(new_integer(9695524),
  11484 +cons(new_integer(9699108),
11434 11485 cons(cons(symbol,
11435   -cons(new_integer(9695523),
  11486 +cons(new_integer(9699107),
11436 11487 new_string("ok"))),
11437 11488 cons(cons(lambda,
11438   -cons(new_integer(9695551),
  11489 +cons(new_integer(9699135),
11439 11490 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
11440 11491 new_string("_")),
11441 11492 nil),
11442 11493 cons(symbol,
11443   -cons(new_integer(9695563),
  11494 +cons(new_integer(9699147),
11444 11495 new_string("no_more_row")))))),
11445 11496 nil)))))),
11446 11497 cons(cons(cons(new_string("row"),
11447 11498 nil),
11448   -cons(new_integer(9695776),
  11499 +cons(new_integer(9699360),
11449 11500 cons(with,
11450   -cons(new_integer(9695789),
  11501 +cons(new_integer(9699373),
11451 11502 cons(new_string("first"),
11452 11503 cons(cons(app,
11453   -cons(new_integer(9695794),
  11504 +cons(new_integer(9699378),
11454 11505 cons(cons(symbol,
11455   -cons(new_integer(9695793),
  11506 +cons(new_integer(9699377),
11456 11507 new_string("var"))),
11457 11508 cons(cons(of_type,
11458   -cons(new_integer(9695795),
  11509 +cons(new_integer(9699379),
11459 11510 cons(new_string("Bool"),
11460 11511 cons(symbol,
11461   -cons(new_integer(9695804),
  11512 +cons(new_integer(9699388),
11462 11513 new_string("true")))))),
11463 11514 nil)))),
11464 11515 cons(app,
11465   -cons(new_integer(9696036),
  11516 +cons(new_integer(9699620),
11466 11517 cons(cons(symbol,
11467   -cons(new_integer(9696036),
  11518 +cons(new_integer(9699620),
11468 11519 new_string("ok"))),
11469 11520 cons(cons(app,
11470   -cons(new_integer(9696049),
  11521 +cons(new_integer(9699633),
11471 11522 cons(cons(symbol,
11472   -cons(new_integer(9696048),
  11523 +cons(new_integer(9699632),
11473 11524 new_string("£make_cursor"))),
11474 11525 cons(cons(symbol,
11475   -cons(new_integer(9696052),
  11526 +cons(new_integer(9699636),
11476 11527 new_string("db1"))),
11477 11528 cons(cons(symbol,
11478   -cons(new_integer(9696057),
  11529 +cons(new_integer(9699641),
11479 11530 new_string("stmt"))),
11480 11531 cons(cons(symbol,
11481   -cons(new_integer(9696063),
  11532 +cons(new_integer(9699647),
11482 11533 new_string("first"))),
11483 11534 nil)))))),
11484 11535 nil)))))))))),
11485 11536 cons(cons(cons(new_string("error"),
11486 11537 nil),
11487   -cons(new_integer(9696288),
  11538 +cons(new_integer(9699872),
11488 11539 cons(app,
11489   -cons(new_integer(9696295),
  11540 +cons(new_integer(9699879),
11490 11541 cons(cons(symbol,
11491   -cons(new_integer(9696294),
  11542 +cons(new_integer(9699878),
11492 11543 new_string("error"))),
11493 11544 cons(cons(app,
11494   -cons(new_integer(9696303),
  11545 +cons(new_integer(9699887),
11495 11546 cons(cons(symbol,
11496   -cons(new_integer(9696302),
  11547 +cons(new_integer(9699886),
11497 11548 new_string("sqlite3"))),
11498 11549 cons(cons(app,
11499   -cons(new_integer(9696320),
  11550 +cons(new_integer(9699904),
11500 11551 cons(cons(symbol,
11501   -cons(new_integer(9696319),
  11552 +cons(new_integer(9699903),
11502 11553 new_string("£sqlite3_errcode"))),
11503 11554 cons(cons(symbol,
11504   -cons(new_integer(9696323),
  11555 +cons(new_integer(9699907),
11505 11556 new_string("db1"))),
11506 11557 nil)))),
11507 11558 cons(cons(app,
11508   -cons(new_integer(9696341),
  11559 +cons(new_integer(9699925),
11509 11560 cons(cons(symbol,
11510   -cons(new_integer(9696340),
  11561 +cons(new_integer(9699924),
11511 11562 new_string("£sqlite3_errmsg"))),
11512 11563 cons(cons(symbol,
11513   -cons(new_integer(9696344),
  11564 +cons(new_integer(9699928),
11514 11565 new_string("db1"))),
11515 11566 nil)))),
11516 11567 nil))))),
... ...
anubis_dev/include/bytecode.h
  Show/Hide comments   View file @53870d7
... ... @@ -505,6 +505,7 @@ typedef enum {
505 505 sc_item(sqlite3_errcode,0)\
506 506 sc_item(sqlite3_errmsg,0)\
507 507 sc_item(create_udp_client_socket,0)\
  508 + sc_item(create_udp_client_broadcast_socket,0)\
508 509 sc_item(create_udp_server_socket,0)\
509 510 sc_item(udp_receive,0)\
510 511 sc_item(udp_send,0)\
... ...
anubis_dev/include/minver.h
  Show/Hide comments   View file @53870d7
1 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 1815 define Maybe(RWAddr(Int8))
1816 1816 £create_udp_client_socket
1817 1817 = £avm{ create_udp_client_socket }.
1818   -
  1818 +
  1819 +
1819 1820 public define Create_UDP_Client_Socket_Result
1820 1821 create_udp_client_socket
1821 1822 =
... ... @@ -1824,7 +1825,20 @@ public define Create_UDP_Client_Socket_Result
1824 1825 failure then cannot_create_the_socket,
1825 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 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 * [>] 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 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 4941 MAM(m_IP) += 1+2;
4942 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 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 28 //
29 29  
30 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 33 FILEFLAGSMASK 0x3fL
34 34 #ifdef _DEBUG
35 35 FILEFLAGS 0x1L
... ... @@ -47,14 +47,14 @@ BEGIN
47 47 VALUE "Comments", "Anubis Run Time\0"
48 48 VALUE "CompanyName", "Alain Prouté & David René\0"
49 49 VALUE "FileDescription", "anbexec\0"
50   - VALUE "FileVersion", "1, 7, 15, 0, 0\0""
  50 + VALUE "FileVersion", "1, 7, 16, 0, 0\0""
51 51 VALUE "InternalName", "anbexec\0"
52 52 VALUE "LegalCopyright", "Copyright © 2000-2007 Alain Prouté, David René\0"
53 53 VALUE "LegalTrademarks", "\0"
54 54 VALUE "OriginalFilename", "anbexec.exe\0"
55 55 VALUE "PrivateBuild", "\0"
56 56 VALUE "ProductName", "anbexec\0"
57   - VALUE "ProductVersion", "1, 7, 15, 0, 0\0""
  57 + VALUE "ProductVersion", "1, 7, 16, 0, 0\0""
58 58 VALUE "SpecialBuild", "\0"
59 59 END
60 60 END
... ...