(ex:import-libraries-for-run '(((rnrs base) 0)) '(&build~0~3309) 0) (define ex:make-variable-transformer #f) (define ex:identifier? #f) (define ex:bound-identifier=? #f) (define ex:free-identifier=? #f) (define ex:generate-temporaries #f) (define ex:datum->syntax #f) (define ex:syntax->datum #f) (define ex:environment #f) (define ex:environment-bindings #f) (define ex:eval #f) (define ex:syntax-violation #f) (define ex:expand-file #f) (define ex:repl #f) (define ex:expand-r5rs-file #f) (define ex:invalid-form #f) (define ex:register-macro! #f) (define ex:syntax-rename #f) (define ex:map-while #f) (define ex:dotted-length #f) (define ex:dotted-butlast #f) (define ex:dotted-last #f) (define ex:uncompress #f) (define ex:free=? #f) ((lambda (&*toplevel-env*~0~3761) ((lambda (&*usage-env*~0~3764) ((lambda (&*phase*~0~3767) ((lambda (&*color*~0~3770) ((lambda (&*macro-table*~0~3773) ((lambda (&*env-table*~0~3776) ((lambda (&*current-library*~0~3779) ((lambda (&*used*~0~3782) ((lambda (&*trace*~0~3785) ((lambda (&*syntax-reflected*~0~3788) ((lambda (&:identifier~0~3791) ((lambda (&make-identifier~0~3794) ((lambda (&make-library-language~0~3939 &library-language-names~0~3938 &source->syntax~0~3937 &toplevel-template~0~3936 &write-file~0~3935 &read-file~0~3934 &normalize~0~3933 &expand-r5rs-file~0~3932 &expand-file~0~3931 &expand-toplevel-sequence~0~3930 &reset-toplevel!~0~3929 &repl~0~3928 &invalid-form~0~3927 &check~0~3926 &compose~0~3925 &list->string~0~3924 &drop-tail~0~3923 &unionv~0~3922 &check-set?~0~3921 &map-while~0~3920 &dotted-last~0~3919 &dotted-butlast~0~3918 &dotted-length~0~3917 &dotted-map~0~3916 &dotted-memp~0~3915 &sexp-map~0~3914 &flatten~0~3913 &format-mapping~0~3912 &environment-bindings~0~3911 &r6rs-eval~0~3910 &environment~0~3909 &r6rs-environment-env~0~3908 &r6rs-environment-imported-libraries~0~3907 &make-r6rs-environment~0~3906 &eval-template~0~3905 &syntax-debug~0~3904 &syntax-violation~0~3903 &subversion-condition?~0~3902 &subversion-reference?~0~3901 &version-reference?~0~3900 &subversion?~0~3899 &version?~0~3898 &library-ref-helper~0~3897 &library-ref~0~3896 &scan-library-name~0~3895 &unify-imports~0~3894 &compose-levels~0~3893 &scan-levels~0~3892 &scan-import-spec~0~3891 &scan-imports~0~3890 &scan-export-set~0~3889 &scan-exports~0~3888 &import-libraries-for-expand~0~3887 ¤t-builds~0~3886 &env-import!~0~3885 &expand-library-or-program~0~3884 &expand-library~0~3883 &expand-program~0~3882 &check-used~0~3881 &merge-used-with-parent-frame!~0~3880 ®ister-use!~0~3879 &add-fresh-used-frame!~0~3878 &segment-tail~0~3877 &segment-depth~0~3876 &free-meta-variables~0~3875 &process-template~0~3874 &expand-syntax~0~3873 &process-clauses~0~3872 &expand-syntax-case~0~3871 &check-expression-body~0~3870 &check-valid-definition~0~3869 &check-toplevel~0~3868 &check-expression-sequence~0~3867 &parse-local-syntax~0~3866 &parse-definition~0~3865 &emit-body~0~3864 &scan-sequence~0~3863 &wrap-exp~0~3862 &wrap-env~0~3861 &make-wrap~0~3860 &formals?~0~3859 &expand-lambda~0~3858 &expand-or~0~3857 &expand-and~0~3856 &expand-local-syntax~0~3855 &expand-begin~0~3854 &expand-set!~0~3853 &expand-if~0~3852 &expand-quote~0~3851 &check-implicit-import-of-mutable~0~3850 &operator-binding~0~3849 &head-expand~0~3848 &expand~0~3847 &invoke-macro~0~3846 ®ister-macro!~0~3845 &binding->macro~0~3844 &make-user-macro~0~3843 &make-variable-transformer~0~3842 &make-transformer~0~3841 &make-expander~0~3840 ¯o-proc~0~3839 ¯o-type~0~3838 &make-macro~0~3837 &rename~0~3836 &generate-temporaries~0~3835 &syntax->datum~0~3834 &datum->syntax~0~3833 &syntax-rename~0~3832 &syntax-reflect~0~3831 &uncompress~0~3830 &compress~0~3829 &env-reify~0~3828 &env-reflect~0~3827 &duplicate?~0~3826 &env-lookup~0~3825 &env-extend!~0~3824 &env-extend~0~3823 &make-unit-env~0~3822 &make-null-env~0~3821 &check-binding-level~0~3820 &source-level~0~3819 &make-toplevel-mapping~0~3818 &make-local-mapping~0~3817 &binding~0~3816 &binding-mutable-set!~0~3815 &binding-library~0~3814 &binding-dimension~0~3813 &binding-mutable?~0~3812 &binding-levels~0~3811 &binding-name~0~3810 &binding-type~0~3809 &make-binding~0~3808 &generate-color~0~3807 &make-free-name~0~3806 &generate-guid~0~3805 &free=?~0~3804 &free-identifier=?~0~3803 &bound-identifier=?~0~3802 &id-library~0~3801 &id-maybe-library~0~3800 &id-displacement~0~3799 &id-transformer-envs~0~3798 &id-colors~0~3797 &id-name~0~3796 &identifier?~0~3795) (set! &identifier?~0~3795 (record-predicate &:identifier~0~3791)) (set! &id-name~0~3796 (record-accessor &:identifier~0~3791 0)) (set! &id-colors~0~3797 (record-accessor &:identifier~0~3791 1)) (set! &id-transformer-envs~0~3798 (record-accessor &:identifier~0~3791 2)) (set! &id-displacement~0~3799 (record-accessor &:identifier~0~3791 3)) (set! &id-maybe-library~0~3800 (record-accessor &:identifier~0~3791 4)) (set! &id-library~0~3801 (lambda (&id~0~11107) (let ((x (&id-maybe-library~0~3800 &id~0~11107))) (if x x &*current-library*~0~3779)))) (set! &bound-identifier=?~0~3802 (lambda (&x~0~11100 &y~0~11101) (&check~0~3926 &x~0~11100 &identifier?~0~3795 'bound-identifier=?) (&check~0~3926 &y~0~11101 &identifier?~0~3795 'bound-identifier=?) (if (eq? (&id-name~0~3796 &x~0~11100) (&id-name~0~3796 &y~0~11101)) (equal? (&id-colors~0~3797 &x~0~11100) (&id-colors~0~3797 &y~0~11101)) #f))) (set! &free-identifier=?~0~3803 (lambda (&x~0~11076 &y~0~11077) (&check~0~3926 &x~0~11076 &identifier?~0~3795 'free-identifier=?) (&check~0~3926 &y~0~11077 &identifier?~0~3795 'free-identifier=?) ((lambda (&bx~0~11080 &by~0~11081) ((lambda (&result~0~11084) (if &result~0~11084 (if &bx~0~11080 (begin (&check-binding-level~0~3820 &x~0~11076 &bx~0~11080) (&check-binding-level~0~3820 &y~0~11077 &by~0~11081)) #f) #f) (if &result~0~11084 (if (®ister-use!~0~3879 &x~0~11076 &bx~0~11080) (®ister-use!~0~3879 &y~0~11077 &by~0~11081) #f) #f) &result~0~11084) (if &bx~0~11080 (if &by~0~11081 (eq? (&binding-name~0~3810 &bx~0~11080) (&binding-name~0~3810 &by~0~11081)) #f) (if (not &by~0~11081) (eq? (&id-name~0~3796 &x~0~11076) (&id-name~0~3796 &y~0~11077)) #f)))) (&binding~0~3816 &x~0~11076) (&binding~0~3816 &y~0~11077)))) (set! &free=?~0~3804 (lambda (&x~0~11058 &symbol~0~11059) (if (&identifier?~0~3795 &x~0~11058) ((lambda (&bx~0~11064) ((lambda (&result~0~11067) (if &result~0~11067 (if &bx~0~11064 (&check-binding-level~0~3820 &x~0~11058 &bx~0~11064) #f) #f) (if &result~0~11067 (®ister-use!~0~3879 &x~0~11058 &bx~0~11064) #f) &result~0~11067) (if &bx~0~11064 (eq? (&binding-name~0~3810 &bx~0~11064) &symbol~0~11059) #f))) (&binding~0~3816 &x~0~11058)) #f))) (set! &generate-guid~0~3805 ((lambda (&token~0~11052 &ticks~0~11053) (lambda (&symbol~0~11055) (set! &ticks~0~11053 (+ &ticks~0~11053 1)) (string->symbol (string-append ex:guid-prefix (symbol->string &symbol~0~11055) "~" &token~0~11052 "~" (number->string &ticks~0~11053))))) (ex:unique-token) 0)) (set! &make-free-name~0~3806 (lambda (&symbol~0~11049) (string->symbol (string-append ex:free-prefix (symbol->string &symbol~0~11049))))) (set! &generate-color~0~3807 (lambda () (&generate-guid~0~3805 'c))) (set! &make-binding~0~3808 (lambda (&type~0~11041 &name~0~11042 &levels~0~11043 &content~0~11044 &library~0~11045) (list &type~0~11041 &name~0~11042 &levels~0~11043 &content~0~11044 &library~0~11045))) (set! &binding-type~0~3809 (lambda (&b~0~11039) (car &b~0~11039))) (set! &binding-name~0~3810 (lambda (&b~0~11037) (cadr &b~0~11037))) (set! &binding-levels~0~3811 (lambda (&b~0~11035) (caddr &b~0~11035))) (set! &binding-mutable?~0~3812 (lambda (&b~0~11033) (cadddr &b~0~11033))) (set! &binding-dimension~0~3813 (lambda (&b~0~11031) (cadddr &b~0~11031))) (set! &binding-library~0~3814 (lambda (&b~0~11029) (car (cddddr &b~0~11029)))) (set! &binding-mutable-set!~0~3815 (lambda (&b~0~11026 &x~0~11027) (set-car! (cdddr &b~0~11026) &x~0~11027))) (set! &binding~0~3816 (lambda (&id~0~11001) ((lambda (&name~0~11004) (((lambda (&loop~0~11010) ((lambda (&temp~0~11013) (set! &loop~0~11010 &temp~0~11013) ((lambda () &loop~0~11010))) (lambda (&env~0~11018 &envs~0~11019 &colors~0~11020) (let ((x (&env-lookup~0~3825 (cons &name~0~11004 &colors~0~11020) &env~0~11018))) (if x x (if (pair? &envs~0~11019) (&loop~0~11010 (&env-reify~0~3828 (car &envs~0~11019)) (cdr &envs~0~11019) (cdr &colors~0~11020)) #f)))))) ex:undefined) &*usage-env*~0~3764 (&id-transformer-envs~0~3798 &id~0~11001) (&id-colors~0~3797 &id~0~11001))) (&id-name~0~3796 &id~0~11001)))) (set! &make-local-mapping~0~3817 (lambda (&type~0~10997 &id~0~10998 &content~0~10999) (cons (cons (&id-name~0~3796 &id~0~10998) (&id-colors~0~3797 &id~0~10998)) (&make-binding~0~3808 &type~0~10997 (&generate-guid~0~3805 (&id-name~0~3796 &id~0~10998)) (list (&source-level~0~3819 &id~0~10998)) &content~0~10999 &*current-library*~0~3779)))) (set! &make-toplevel-mapping~0~3818 (lambda (&type~0~10991 &id~0~10992 &content~0~10993) (if (null? (&id-colors~0~3797 &id~0~10992)) (cons (cons (&id-name~0~3796 &id~0~10992) (&id-colors~0~3797 &id~0~10992)) (&make-binding~0~3808 &type~0~10991 (&make-free-name~0~3806 (&id-name~0~3796 &id~0~10992)) '(0) &content~0~10993 &*current-library*~0~3779)) (&make-local-mapping~0~3817 &type~0~10991 &id~0~10992 &content~0~10993)))) (set! &source-level~0~3819 (lambda (&id~0~10989) (- &*phase*~0~3767 (&id-displacement~0~3799 &id~0~10989)))) (set! &check-binding-level~0~3820 (lambda (&id~0~10979 &binding~0~10980) (if &binding~0~10980 (let ((x (memv (&source-level~0~3819 &id~0~10979) (&binding-levels~0~3811 &binding~0~10980)))) (if x x (&syntax-violation~0~3903 "invalid reference" (string-append "Attempt to use binding of " (symbol->string (&id-name~0~3796 &id~0~10979)) " in library (" (&list->string~0~3924 (&id-library~0~3801 &id~0~10979) " ") ") at invalid level " (number->string (&source-level~0~3819 &id~0~10979)) ". Binding is only available at levels: " (&list->string~0~3924 (&binding-levels~0~3811 &binding~0~10980) " ")) &id~0~10979))) (let ((x (if (null? (&id-library~0~3801 &id~0~10979)) (= &*phase*~0~3767 0) #f))) (if x x (&syntax-violation~0~3903 "invalid reference" (string-append "No binding available for " (symbol->string (&id-name~0~3796 &id~0~10979)) " in library (" (&list->string~0~3924 (&id-library~0~3801 &id~0~10979) " ") ")") &id~0~10979)))))) (set! &make-null-env~0~3821 (lambda () '())) (set! &make-unit-env~0~3822 (lambda () (&env-extend~0~3823 '() (&make-null-env~0~3821)))) (set! &env-extend~0~3823 (lambda (&mappings~0~10972 &env~0~10973) (cons (list &mappings~0~10972) &env~0~10973))) (set! &env-extend!~0~3824 (lambda (&mappings~0~10966 &env~0~10967) ((lambda (&frame~0~10970) (set-car! &frame~0~10970 (append &mappings~0~10966 (car &frame~0~10970)))) (car &env~0~10967)))) (set! &env-lookup~0~3825 (lambda (&key~0~10952 &env~0~10953) (if (pair? &env~0~10953) (let ((x ((lambda (&probe~0~10959) (if &probe~0~10959 (let ((x (cdr &probe~0~10959))) (if x x (&syntax-violation~0~3903 #f "Out of context reference to identifier" (car &key~0~10952)))) #f)) (assoc &key~0~10952 (caar &env~0~10953))))) (if x x (&env-lookup~0~3825 &key~0~10952 (cdr &env~0~10953)))) #f))) (set! &duplicate?~0~3826 (lambda (&id~0~10949 &env~0~10950) (assoc (cons (&id-name~0~3796 &id~0~10949) (&id-colors~0~3797 &id~0~10949)) (caar &env~0~10950)))) (set! &env-reflect~0~3827 (lambda (&env~0~10936) (if (if (not (null? &*env-table*~0~3776)) (eq? &env~0~10936 (cdar &*env-table*~0~3776)) #f) (begin (caar &*env-table*~0~3776)) (begin ((lambda (&key~0~10945) (set! &*env-table*~0~3776 (cons (cons &key~0~10945 &env~0~10936) &*env-table*~0~3776)) &key~0~10945) (&generate-guid~0~3805 'env)))))) (set! &env-reify~0~3828 (lambda (&key-or-env~0~10933) (if (symbol? &key-or-env~0~10933) (cdr (assq &key-or-env~0~10933 &*env-table*~0~3776)) &key-or-env~0~10933))) (set! &compress~0~3829 (lambda (&env-table~0~10899) ((lambda (&frame-table~0~10902 &count~0~10903) (for-each (lambda (&entry~0~10924) (for-each (lambda (&frame~0~10926) (if (not (assq &frame~0~10926 &frame-table~0~10902)) (begin (set! &frame-table~0~10902 (cons (cons &frame~0~10926 &count~0~10903) &frame-table~0~10902)) (set! &count~0~10903 (+ 1 &count~0~10903))))) (cdr &entry~0~10924))) &env-table~0~10899) (cons (map (lambda (&env-entry~0~10905) (cons (car &env-entry~0~10905) (map (lambda (&frame~0~10907) (cdr (assq &frame~0~10907 &frame-table~0~10902))) (cdr &env-entry~0~10905)))) &env-table~0~10899) (map (lambda (&frame-entry~0~10909) (cons (cdr &frame-entry~0~10909) (list (map (lambda (&mapping~0~10911) (cons (car &mapping~0~10911) ((lambda (&binding~0~10914) ((lambda (&t~0~10918) (if (memv &t~0~10918 '(pattern-variable)) (begin #f) (begin &binding~0~10914))) (&binding-type~0~3809 &binding~0~10914))) (cdr &mapping~0~10911)))) (caar &frame-entry~0~10909))))) &frame-table~0~10902))) '() 0))) (set! &uncompress~0~3830 (lambda (&compressed-env-table~0~10893) (map (lambda (&env-entry~0~10895) (cons (car &env-entry~0~10895) (map (lambda (&frame-abbrev~0~10897) (cdr (assv &frame-abbrev~0~10897 (cdr &compressed-env-table~0~10893)))) (cdr &env-entry~0~10895)))) (car &compressed-env-table~0~10893)))) (set! &syntax-reflect~0~3831 (lambda (&id~0~10884) (set! &*syntax-reflected*~0~3788 #t) (list 'ex:syntax-rename (list 'quote (&id-name~0~3796 &id~0~10884)) (list 'quote (&id-colors~0~3797 &id~0~10884)) (list 'quote (cons (&env-reflect~0~3827 &*usage-env*~0~3764) (&id-transformer-envs~0~3798 &id~0~10884))) (- (- &*phase*~0~3767 (&id-displacement~0~3799 &id~0~10884)) 1) (list 'quote (&id-library~0~3801 &id~0~10884))))) (set! &syntax-rename~0~3832 (lambda (&name~0~10878 &colors~0~10879 &transformer-envs~0~10880 &transformer-phase~0~10881 &source-library~0~10882) (&make-identifier~0~3794 &name~0~10878 (cons &*color*~0~3770 &colors~0~10879) &transformer-envs~0~10880 (- &*phase*~0~3767 &transformer-phase~0~10881) &source-library~0~10882))) (set! &datum->syntax~0~3833 (lambda (&tid~0~10868 &datum~0~10869) (&check~0~3926 &tid~0~10868 &identifier?~0~3795 'datum->syntax) (&sexp-map~0~3914 (lambda (&leaf~0~10871) (if (symbol? &leaf~0~10871) (begin (&make-identifier~0~3794 &leaf~0~10871 (&id-colors~0~3797 &tid~0~10868) (&id-transformer-envs~0~3798 &tid~0~10868) (&id-displacement~0~3799 &tid~0~10868) (&id-maybe-library~0~3800 &tid~0~10868))) (begin &leaf~0~10871))) &datum~0~10869))) (set! &syntax->datum~0~3834 (lambda (&exp~0~10857) (&sexp-map~0~3914 (lambda (&leaf~0~10859) (if (&identifier?~0~3795 &leaf~0~10859) (begin (&id-name~0~3796 &leaf~0~10859)) (if (symbol? &leaf~0~10859) (begin (assertion-violation 'syntax->datum "A symbol is not a valid syntax object" &leaf~0~10859)) (begin &leaf~0~10859)))) &exp~0~10857))) (set! &generate-temporaries~0~3835 (lambda (&ls~0~10851) (&check~0~3926 &ls~0~10851 list? 'generate-temporaries) (map (lambda (&ignore~0~10853) (&make-identifier~0~3794 'temp (list (&generate-color~0~3807)) (list (&make-null-env~0~3821)) &*phase*~0~3767 #f)) &ls~0~10851))) (set! &rename~0~3836 (lambda (&type~0~10845 &symbol~0~10846) (&make-identifier~0~3794 &symbol~0~10846 (list &*color*~0~3770) (list (&env-extend~0~3823 (list (cons (cons &symbol~0~10846 '()) (&make-binding~0~3808 &type~0~10845 &symbol~0~10846 '(0) #f '()))) (&make-null-env~0~3821))) &*phase*~0~3767 #f))) (set! &make-macro~0~3837 (lambda (&type~0~10842 &proc~0~10843) (list &type~0~10842 &proc~0~10843))) (set! ¯o-type~0~3838 car) (set! ¯o-proc~0~3839 cadr) (set! &make-expander~0~3840 (lambda (&proc~0~10839) (&make-macro~0~3837 'expander &proc~0~10839))) (set! &make-transformer~0~3841 (lambda (&proc~0~10836) (&make-macro~0~3837 'transformer &proc~0~10836))) (set! &make-variable-transformer~0~3842 (lambda (&proc~0~10833) (&make-macro~0~3837 'variable-transformer &proc~0~10833))) (set! &make-user-macro~0~3843 (lambda (&procedure-or-macro~0~10830) (if (procedure? &procedure-or-macro~0~10830) (&make-transformer~0~3841 &procedure-or-macro~0~10830) &procedure-or-macro~0~10830))) (set! &binding->macro~0~3844 (lambda (&binding~0~10821 &t~0~10822) ((lambda (&t~0~10826) (if &t~0~10826 (cdr &t~0~10826) (begin (&syntax-violation~0~3903 #f "Reference to macro keyword out of context" &t~0~10822)))) (assq (&binding-name~0~3810 &binding~0~10821) &*macro-table*~0~3773)))) (set! ®ister-macro!~0~3845 (lambda (&binding-name~0~10817 &procedure-or-macro~0~10818) (set! &*macro-table*~0~3773 (cons (cons &binding-name~0~10817 (&make-user-macro~0~3843 &procedure-or-macro~0~10818)) &*macro-table*~0~3773)))) (set! &invoke-macro~0~3846 (lambda (¯o~0~10813 &t~0~10814) (set! &*color*~0~3770 (&generate-color~0~3807)) ((¯o-proc~0~3839 ¯o~0~10813) &t~0~10814))) (set! &expand~0~3847 (lambda (&t~0~10758) ((lambda (&saved~0~10762) (set! &*trace*~0~3785 (cons &t~0~10758 &*trace*~0~3785)) (call-with-values (lambda () ((lambda (&binding~0~10767) (if &binding~0~10767 (begin ((lambda (&t~0~10774) (if (memv &t~0~10774 '(macro)) (begin ((lambda (¯o~0~10780) ((lambda (&expanded-once~0~10783) ((lambda (&t~0~10787) (if (memv &t~0~10787 '(expander)) (begin &expanded-once~0~10783) (begin (&expand~0~3847 &expanded-once~0~10783)))) (¯o-type~0~3838 ¯o~0~10780))) (&invoke-macro~0~3846 ¯o~0~10780 &t~0~10758))) (&binding->macro~0~3844 &binding~0~10767 &t~0~10758))) (if (memv &t~0~10774 '(variable)) (begin (&check-implicit-import-of-mutable~0~3850 &binding~0~10767 &t~0~10758) (if (list? &t~0~10758) (cons (&binding-name~0~3810 &binding~0~10767) (map &expand~0~3847 (cdr &t~0~10758))) (&binding-name~0~3810 &binding~0~10767))) (if (memv &t~0~10774 '(pattern-variable)) (begin (&syntax-violation~0~3903 #f "Pattern variable used outside syntax template" &t~0~10758)))))) (&binding-type~0~3809 &binding~0~10767))) (if (list? &t~0~10758) (begin (map &expand~0~3847 &t~0~10758)) (if (&identifier?~0~3795 &t~0~10758) (begin (&make-free-name~0~3806 (&id-name~0~3796 &t~0~10758))) (if (pair? &t~0~10758) (begin (&syntax-violation~0~3903 #f "Invalid procedure call syntax" &t~0~10758)) (if (symbol? &t~0~10758) (begin (&syntax-violation~0~3903 #f "Symbol may not appear in syntax object" &t~0~10758)) (begin &t~0~10758))))))) (&operator-binding~0~3849 &t~0~10758))) (lambda &results~0~10809 (set! &*trace*~0~3785 &saved~0~10762) (apply values &results~0~10809)))) &*trace*~0~3785))) (set! &head-expand~0~3848 (lambda (&t~0~10720) ((lambda (&saved~0~10724) (set! &*trace*~0~3785 (cons &t~0~10720 &*trace*~0~3785)) (call-with-values (lambda () ((lambda (&binding~0~10729) (if &binding~0~10729 (begin ((lambda (&t~0~10736) (if (memv &t~0~10736 '(macro)) (begin ((lambda (¯o~0~10742) ((lambda (&t~0~10746) (if (memv &t~0~10746 '(expander)) (begin (values &t~0~10720 &binding~0~10729)) (begin (&head-expand~0~3848 (&invoke-macro~0~3846 ¯o~0~10742 &t~0~10720))))) (¯o-type~0~3838 ¯o~0~10742))) (&binding->macro~0~3844 &binding~0~10729 &t~0~10720))) (begin (values &t~0~10720 &binding~0~10729)))) (&binding-type~0~3809 &binding~0~10729))) (begin (values &t~0~10720 &binding~0~10729)))) (&operator-binding~0~3849 &t~0~10720))) (lambda &results~0~10754 (set! &*trace*~0~3785 &saved~0~10724) (apply values &results~0~10754)))) &*trace*~0~3785))) (set! &operator-binding~0~3849 (lambda (&t~0~10709) ((lambda (&operator~0~10712) (if (&identifier?~0~3795 &operator~0~10712) ((lambda (&binding~0~10717) (&check-binding-level~0~3820 &operator~0~10712 &binding~0~10717) (®ister-use!~0~3879 &operator~0~10712 &binding~0~10717) &binding~0~10717) (&binding~0~3816 &operator~0~10712)) #f)) (if (pair? &t~0~10709) (car &t~0~10709) &t~0~10709)))) (set! &check-implicit-import-of-mutable~0~3850 (lambda (&binding~0~10703 &t~0~10704) (let ((x (equal? (&binding-library~0~3814 &binding~0~10703) &*current-library*~0~3779))) (if x x (let ((x (not (&binding-mutable?~0~3812 &binding~0~10703)))) (if x x (&syntax-violation~0~3903 #f (string-append "Attempt to implicitly import variable that is mutable in library (" (&list->string~0~3924 (&binding-library~0~3814 &binding~0~10703) " ") ")") &t~0~10704))))))) (set! &expand-quote~0~3851 (lambda (&exp~0~10657) ((lambda (&x~0~10670 &sk~0~10671 &fk~0~10672) (if (pair? &x~0~10670) ((lambda (&x~0~10675 &sk~0~10676 &fk~0~10677) (&sk~0~10676)) (car &x~0~10670) (lambda () ((lambda (&x~0~10680 &sk~0~10681 &fk~0~10682) (if (pair? &x~0~10680) ((lambda (&x~0~10685 &sk~0~10686 &fk~0~10687) (&sk~0~10686 &x~0~10685)) (car &x~0~10680) (lambda (&datum~0~10689) ((lambda (&x~0~10691 &sk~0~10692 &fk~0~10693) (if (null? &x~0~10691) (&sk~0~10692) (&fk~0~10693))) (cdr &x~0~10680) (lambda () (&sk~0~10681 &datum~0~10689)) &fk~0~10682)) &fk~0~10682) (&fk~0~10682))) (cdr &x~0~10670) (lambda (&datum~0~10697) (&sk~0~10671 &datum~0~10697)) &fk~0~10672)) &fk~0~10672) (&fk~0~10672))) &exp~0~10657 (lambda (&datum~0~10699) (&syntax->datum~0~3834 &exp~0~10657)) (lambda () (ex:invalid-form &exp~0~10657))))) (set! &expand-if~0~3852 (lambda (&exp~0~10506) ((lambda (&x~0~10527 &sk~0~10528 &fk~0~10529) (if (pair? &x~0~10527) ((lambda (&x~0~10532 &sk~0~10533 &fk~0~10534) (&sk~0~10533)) (car &x~0~10527) (lambda () ((lambda (&x~0~10537 &sk~0~10538 &fk~0~10539) (if (pair? &x~0~10537) ((lambda (&x~0~10542 &sk~0~10543 &fk~0~10544) (&sk~0~10543 &x~0~10542)) (car &x~0~10537) (lambda (&e1~0~10546) ((lambda (&x~0~10548 &sk~0~10549 &fk~0~10550) (if (pair? &x~0~10548) ((lambda (&x~0~10553 &sk~0~10554 &fk~0~10555) (&sk~0~10554 &x~0~10553)) (car &x~0~10548) (lambda (&e2~0~10557) ((lambda (&x~0~10559 &sk~0~10560 &fk~0~10561) (if (pair? &x~0~10559) ((lambda (&x~0~10564 &sk~0~10565 &fk~0~10566) (&sk~0~10565 &x~0~10564)) (car &x~0~10559) (lambda (&e3~0~10568) ((lambda (&x~0~10570 &sk~0~10571 &fk~0~10572) (if (null? &x~0~10570) (&sk~0~10571) (&fk~0~10572))) (cdr &x~0~10559) (lambda () (&sk~0~10560 &e3~0~10568)) &fk~0~10561)) &fk~0~10561) (&fk~0~10561))) (cdr &x~0~10548) (lambda (&e3~0~10576) (&sk~0~10549 &e2~0~10557 &e3~0~10576)) &fk~0~10550)) &fk~0~10550) (&fk~0~10550))) (cdr &x~0~10537) (lambda (&e2~0~10578 &e3~0~10579) (&sk~0~10538 &e1~0~10546 &e2~0~10578 &e3~0~10579)) &fk~0~10539)) &fk~0~10539) (&fk~0~10539))) (cdr &x~0~10527) (lambda (&e1~0~10581 &e2~0~10582 &e3~0~10583) (&sk~0~10528 &e1~0~10581 &e2~0~10582 &e3~0~10583)) &fk~0~10529)) &fk~0~10529) (&fk~0~10529))) &exp~0~10506 (lambda (&e1~0~10585 &e2~0~10586 &e3~0~10587) (list 'if (&expand~0~3847 &e1~0~10585) (&expand~0~3847 &e2~0~10586) (&expand~0~3847 &e3~0~10587))) (lambda () ((lambda (&x~0~10607 &sk~0~10608 &fk~0~10609) (if (pair? &x~0~10607) ((lambda (&x~0~10612 &sk~0~10613 &fk~0~10614) (&sk~0~10613)) (car &x~0~10607) (lambda () ((lambda (&x~0~10617 &sk~0~10618 &fk~0~10619) (if (pair? &x~0~10617) ((lambda (&x~0~10622 &sk~0~10623 &fk~0~10624) (&sk~0~10623 &x~0~10622)) (car &x~0~10617) (lambda (&e1~0~10626) ((lambda (&x~0~10628 &sk~0~10629 &fk~0~10630) (if (pair? &x~0~10628) ((lambda (&x~0~10633 &sk~0~10634 &fk~0~10635) (&sk~0~10634 &x~0~10633)) (car &x~0~10628) (lambda (&e2~0~10637) ((lambda (&x~0~10639 &sk~0~10640 &fk~0~10641) (if (null? &x~0~10639) (&sk~0~10640) (&fk~0~10641))) (cdr &x~0~10628) (lambda () (&sk~0~10629 &e2~0~10637)) &fk~0~10630)) &fk~0~10630) (&fk~0~10630))) (cdr &x~0~10617) (lambda (&e2~0~10645) (&sk~0~10618 &e1~0~10626 &e2~0~10645)) &fk~0~10619)) &fk~0~10619) (&fk~0~10619))) (cdr &x~0~10607) (lambda (&e1~0~10647 &e2~0~10648) (&sk~0~10608 &e1~0~10647 &e2~0~10648)) &fk~0~10609)) &fk~0~10609) (&fk~0~10609))) &exp~0~10506 (lambda (&e1~0~10650 &e2~0~10651) (list 'if (&expand~0~3847 &e1~0~10650) (&expand~0~3847 &e2~0~10651))) (lambda () (ex:invalid-form &exp~0~10506))))))) (set! &expand-set!~0~3853 (lambda (&exp~0~10400) ((lambda (&x~0~10419 &sk~0~10420 &fk~0~10421) (if (pair? &x~0~10419) ((lambda (&x~0~10424 &sk~0~10425 &fk~0~10426) (&sk~0~10425)) (car &x~0~10419) (lambda () ((lambda (&x~0~10429 &sk~0~10430 &fk~0~10431) (if (pair? &x~0~10429) ((lambda (&x~0~10434 &sk~0~10435 &fk~0~10436) (if (&identifier?~0~3795 &x~0~10434) ((lambda (&x~0~10439 &sk~0~10440 &fk~0~10441) (&sk~0~10440 &x~0~10439)) &x~0~10434 &sk~0~10435 &fk~0~10436) (&fk~0~10436))) (car &x~0~10429) (lambda (&id~0~10443) ((lambda (&x~0~10445 &sk~0~10446 &fk~0~10447) (if (pair? &x~0~10445) ((lambda (&x~0~10450 &sk~0~10451 &fk~0~10452) (&sk~0~10451 &x~0~10450)) (car &x~0~10445) (lambda (&e~0~10454) ((lambda (&x~0~10456 &sk~0~10457 &fk~0~10458) (if (null? &x~0~10456) (&sk~0~10457) (&fk~0~10458))) (cdr &x~0~10445) (lambda () (&sk~0~10446 &e~0~10454)) &fk~0~10447)) &fk~0~10447) (&fk~0~10447))) (cdr &x~0~10429) (lambda (&e~0~10462) (&sk~0~10430 &id~0~10443 &e~0~10462)) &fk~0~10431)) &fk~0~10431) (&fk~0~10431))) (cdr &x~0~10419) (lambda (&id~0~10464 &e~0~10465) (&sk~0~10420 &id~0~10464 &e~0~10465)) &fk~0~10421)) &fk~0~10421) (&fk~0~10421))) &exp~0~10400 (lambda (&id~0~10467 &e~0~10468) ((lambda (&binding~0~10471) (&check-binding-level~0~3820 &id~0~10467 &binding~0~10471) (®ister-use!~0~3879 &id~0~10467 &binding~0~10471) ((lambda (&t~0~10475) (if (memv &t~0~10475 '(macro)) (begin ((lambda (¯o~0~10481) ((lambda (&t~0~10485) (if (memv &t~0~10485 '(variable-transformer)) (begin (&expand~0~3847 (&invoke-macro~0~3846 ¯o~0~10481 &exp~0~10400))) (begin (&syntax-violation~0~3903 'set! "Keyword being set! is not a variable transformer" &exp~0~10400 &id~0~10467)))) (¯o-type~0~3838 ¯o~0~10481))) (&binding->macro~0~3844 &binding~0~10471 &id~0~10467))) (if (memv &t~0~10475 '(variable)) (begin (let ((x (eq? (&binding-library~0~3814 &binding~0~10471) &*current-library*~0~3779))) (if x x (&syntax-violation~0~3903 'set! "Directly or indirectly imported variable cannot be assigned" &exp~0~10400 &id~0~10467))) (&binding-mutable-set!~0~3815 &binding~0~10471 #t) (list 'set! (&binding-name~0~3810 &binding~0~10471) (&expand~0~3847 &e~0~10468))) (if (memv &t~0~10475 '(pattern-variable)) (begin (&syntax-violation~0~3903 'set! "Pattern variable used outside syntax template" &exp~0~10400 &id~0~10467)))))) (&binding-type~0~3809 &binding~0~10471))) (&binding~0~3816 &id~0~10467))) (lambda () (ex:invalid-form &exp~0~10400))))) (set! &expand-begin~0~3854 (lambda (&exp~0~10307) ((lambda (&x~0~10318 &sk~0~10319 &fk~0~10320) (if (pair? &x~0~10318) ((lambda (&x~0~10323 &sk~0~10324 &fk~0~10325) (&sk~0~10324)) (car &x~0~10318) (lambda () ((lambda (&x~0~10328 &sk~0~10329 &fk~0~10330) (((lambda (&loop~0~10336) ((lambda (&temp~0~10339) (set! &loop~0~10336 &temp~0~10339) ((lambda () &loop~0~10336))) (lambda (&x~0~10344 &result~0~10345) ((lambda (&match-tail~0~10346) (set! &match-tail~0~10346 (lambda () ((lambda (&x~0~10364 &sk~0~10365 &fk~0~10366) (if (null? &x~0~10364) (&sk~0~10365) (&fk~0~10366))) &x~0~10344 (lambda () (apply &sk~0~10329 (if (null? &result~0~10345) (map (lambda (&ignore~0~10371) '()) '(exps)) (apply map list (reverse &result~0~10345))))) (lambda () ((lambda (&x~0~10379 &sk~0~10380 &fk~0~10381) (&sk~0~10380)) &x~0~10344 (lambda () (&fk~0~10330)) (lambda () (ex:invalid-form &x~0~10344))))))) (if (null? &x~0~10344) (begin (&match-tail~0~10346)) (if (pair? &x~0~10344) (begin ((lambda (&x~0~10353 &sk~0~10354 &fk~0~10355) (&sk~0~10354 &x~0~10353)) (car &x~0~10344) (lambda &car-vars~0~10357 (&loop~0~10336 (cdr &x~0~10344) (cons &car-vars~0~10357 &result~0~10345))) &match-tail~0~10346)) (begin (&fk~0~10330))))) ex:undefined)))) ex:undefined) &x~0~10328 '())) (cdr &x~0~10318) (lambda (&exps~0~10387) (&sk~0~10319 &exps~0~10387)) &fk~0~10320)) &fk~0~10320) (&fk~0~10320))) &exp~0~10307 (lambda (&exps~0~10389) (&scan-sequence~0~3863 'expression-sequence #f &exps~0~10389 (lambda (&forms~0~10392 &no-syntax-definitions~0~10393 &no-bound-variables~0~10394) (cons 'begin (map cdr &forms~0~10392))))) (lambda () (ex:invalid-form &exp~0~10307))))) (set! &expand-local-syntax~0~3855 (lambda (&exp~0~10302) (&expand-begin~0~3854 (list (&rename~0~3836 'macro 'begin) &exp~0~10302)))) (set! &expand-and~0~3856 (lambda (&exp~0~10119) ((lambda (&x~0~10128 &sk~0~10129 &fk~0~10130) (if (pair? &x~0~10128) ((lambda (&x~0~10133 &sk~0~10134 &fk~0~10135) (&sk~0~10134 &x~0~10133)) (car &x~0~10128) (lambda (&and~0~10137) ((lambda (&x~0~10139 &sk~0~10140 &fk~0~10141) (if (null? &x~0~10139) (&sk~0~10140) (&fk~0~10141))) (cdr &x~0~10128) (lambda () (&sk~0~10129 &and~0~10137)) &fk~0~10130)) &fk~0~10130) (&fk~0~10130))) &exp~0~10119 (lambda (&and~0~10145) #t) (lambda () ((lambda (&x~0~10159 &sk~0~10160 &fk~0~10161) (if (pair? &x~0~10159) ((lambda (&x~0~10164 &sk~0~10165 &fk~0~10166) (&sk~0~10165 &x~0~10164)) (car &x~0~10159) (lambda (&and~0~10168) ((lambda (&x~0~10170 &sk~0~10171 &fk~0~10172) (if (pair? &x~0~10170) ((lambda (&x~0~10175 &sk~0~10176 &fk~0~10177) (&sk~0~10176 &x~0~10175)) (car &x~0~10170) (lambda (&e~0~10179) ((lambda (&x~0~10181 &sk~0~10182 &fk~0~10183) (if (null? &x~0~10181) (&sk~0~10182) (&fk~0~10183))) (cdr &x~0~10170) (lambda () (&sk~0~10171 &e~0~10179)) &fk~0~10172)) &fk~0~10172) (&fk~0~10172))) (cdr &x~0~10159) (lambda (&e~0~10187) (&sk~0~10160 &and~0~10168 &e~0~10187)) &fk~0~10161)) &fk~0~10161) (&fk~0~10161))) &exp~0~10119 (lambda (&and~0~10189 &e~0~10190) (&expand~0~3847 &e~0~10190)) (lambda () ((lambda (&x~0~10206 &sk~0~10207 &fk~0~10208) (if (pair? &x~0~10206) ((lambda (&x~0~10211 &sk~0~10212 &fk~0~10213) (&sk~0~10212 &x~0~10211)) (car &x~0~10206) (lambda (&and~0~10215) ((lambda (&x~0~10217 &sk~0~10218 &fk~0~10219) (if (pair? &x~0~10217) ((lambda (&x~0~10222 &sk~0~10223 &fk~0~10224) (&sk~0~10223 &x~0~10222)) (car &x~0~10217) (lambda (&e~0~10226) ((lambda (&x~0~10228 &sk~0~10229 &fk~0~10230) (((lambda (&loop~0~10236) ((lambda (&temp~0~10239) (set! &loop~0~10236 &temp~0~10239) ((lambda () &loop~0~10236))) (lambda (&x~0~10244 &result~0~10245) ((lambda (&match-tail~0~10246) (set! &match-tail~0~10246 (lambda () ((lambda (&x~0~10264 &sk~0~10265 &fk~0~10266) (if (null? &x~0~10264) (&sk~0~10265) (&fk~0~10266))) &x~0~10244 (lambda () (apply &sk~0~10229 (if (null? &result~0~10245) (map (lambda (&ignore~0~10271) '()) '(es)) (apply map list (reverse &result~0~10245))))) (lambda () ((lambda (&x~0~10279 &sk~0~10280 &fk~0~10281) (&sk~0~10280)) &x~0~10244 (lambda () (&fk~0~10230)) (lambda () (ex:invalid-form &x~0~10244))))))) (if (null? &x~0~10244) (begin (&match-tail~0~10246)) (if (pair? &x~0~10244) (begin ((lambda (&x~0~10253 &sk~0~10254 &fk~0~10255) (&sk~0~10254 &x~0~10253)) (car &x~0~10244) (lambda &car-vars~0~10257 (&loop~0~10236 (cdr &x~0~10244) (cons &car-vars~0~10257 &result~0~10245))) &match-tail~0~10246)) (begin (&fk~0~10230))))) ex:undefined)))) ex:undefined) &x~0~10228 '())) (cdr &x~0~10217) (lambda (&es~0~10287) (&sk~0~10218 &e~0~10226 &es~0~10287)) &fk~0~10219)) &fk~0~10219) (&fk~0~10219))) (cdr &x~0~10206) (lambda (&e~0~10289 &es~0~10290) (&sk~0~10207 &and~0~10215 &e~0~10289 &es~0~10290)) &fk~0~10208)) &fk~0~10208) (&fk~0~10208))) &exp~0~10119 (lambda (&and~0~10292 &e~0~10293 &es~0~10294) (cons 'if (cons (&expand~0~3847 &e~0~10293) (cons (&expand~0~3847 (cons &and~0~10292 &es~0~10294)) '(#f))))) (lambda () (ex:invalid-form &exp~0~10119))))))))) (set! &expand-or~0~3857 (lambda (&exp~0~9933) ((lambda (&x~0~9942 &sk~0~9943 &fk~0~9944) (if (pair? &x~0~9942) ((lambda (&x~0~9947 &sk~0~9948 &fk~0~9949) (&sk~0~9948 &x~0~9947)) (car &x~0~9942) (lambda (&or~0~9951) ((lambda (&x~0~9953 &sk~0~9954 &fk~0~9955) (if (null? &x~0~9953) (&sk~0~9954) (&fk~0~9955))) (cdr &x~0~9942) (lambda () (&sk~0~9943 &or~0~9951)) &fk~0~9944)) &fk~0~9944) (&fk~0~9944))) &exp~0~9933 (lambda (&or~0~9959) #t) (lambda () ((lambda (&x~0~9973 &sk~0~9974 &fk~0~9975) (if (pair? &x~0~9973) ((lambda (&x~0~9978 &sk~0~9979 &fk~0~9980) (&sk~0~9979 &x~0~9978)) (car &x~0~9973) (lambda (&or~0~9982) ((lambda (&x~0~9984 &sk~0~9985 &fk~0~9986) (if (pair? &x~0~9984) ((lambda (&x~0~9989 &sk~0~9990 &fk~0~9991) (&sk~0~9990 &x~0~9989)) (car &x~0~9984) (lambda (&e~0~9993) ((lambda (&x~0~9995 &sk~0~9996 &fk~0~9997) (if (null? &x~0~9995) (&sk~0~9996) (&fk~0~9997))) (cdr &x~0~9984) (lambda () (&sk~0~9985 &e~0~9993)) &fk~0~9986)) &fk~0~9986) (&fk~0~9986))) (cdr &x~0~9973) (lambda (&e~0~10001) (&sk~0~9974 &or~0~9982 &e~0~10001)) &fk~0~9975)) &fk~0~9975) (&fk~0~9975))) &exp~0~9933 (lambda (&or~0~10003 &e~0~10004) (&expand~0~3847 &e~0~10004)) (lambda () ((lambda (&x~0~10020 &sk~0~10021 &fk~0~10022) (if (pair? &x~0~10020) ((lambda (&x~0~10025 &sk~0~10026 &fk~0~10027) (&sk~0~10026 &x~0~10025)) (car &x~0~10020) (lambda (&or~0~10029) ((lambda (&x~0~10031 &sk~0~10032 &fk~0~10033) (if (pair? &x~0~10031) ((lambda (&x~0~10036 &sk~0~10037 &fk~0~10038) (&sk~0~10037 &x~0~10036)) (car &x~0~10031) (lambda (&e~0~10040) ((lambda (&x~0~10042 &sk~0~10043 &fk~0~10044) (((lambda (&loop~0~10050) ((lambda (&temp~0~10053) (set! &loop~0~10050 &temp~0~10053) ((lambda () &loop~0~10050))) (lambda (&x~0~10058 &result~0~10059) ((lambda (&match-tail~0~10060) (set! &match-tail~0~10060 (lambda () ((lambda (&x~0~10078 &sk~0~10079 &fk~0~10080) (if (null? &x~0~10078) (&sk~0~10079) (&fk~0~10080))) &x~0~10058 (lambda () (apply &sk~0~10043 (if (null? &result~0~10059) (map (lambda (&ignore~0~10085) '()) '(es)) (apply map list (reverse &result~0~10059))))) (lambda () ((lambda (&x~0~10093 &sk~0~10094 &fk~0~10095) (&sk~0~10094)) &x~0~10058 (lambda () (&fk~0~10044)) (lambda () (ex:invalid-form &x~0~10058))))))) (if (null? &x~0~10058) (begin (&match-tail~0~10060)) (if (pair? &x~0~10058) (begin ((lambda (&x~0~10067 &sk~0~10068 &fk~0~10069) (&sk~0~10068 &x~0~10067)) (car &x~0~10058) (lambda &car-vars~0~10071 (&loop~0~10050 (cdr &x~0~10058) (cons &car-vars~0~10071 &result~0~10059))) &match-tail~0~10060)) (begin (&fk~0~10044))))) ex:undefined)))) ex:undefined) &x~0~10042 '())) (cdr &x~0~10031) (lambda (&es~0~10101) (&sk~0~10032 &e~0~10040 &es~0~10101)) &fk~0~10033)) &fk~0~10033) (&fk~0~10033))) (cdr &x~0~10020) (lambda (&e~0~10103 &es~0~10104) (&sk~0~10021 &or~0~10029 &e~0~10103 &es~0~10104)) &fk~0~10022)) &fk~0~10022) (&fk~0~10022))) &exp~0~9933 (lambda (&or~0~10106 &e~0~10107 &es~0~10108) (list 'let (list (list 'x (&expand~0~3847 &e~0~10107))) (list 'if 'x 'x (&expand~0~3847 (cons &or~0~10106 &es~0~10108))))) (lambda () (ex:invalid-form &exp~0~9933))))))))) (set! &expand-lambda~0~3858 (lambda (&exp~0~9778) ((lambda (&x~0~9795 &sk~0~9796 &fk~0~9797) (if (pair? &x~0~9795) ((lambda (&x~0~9800 &sk~0~9801 &fk~0~9802) (&sk~0~9801)) (car &x~0~9795) (lambda () ((lambda (&x~0~9805 &sk~0~9806 &fk~0~9807) (if (pair? &x~0~9805) ((lambda (&x~0~9810 &sk~0~9811 &fk~0~9812) (if (&formals?~0~3859 &x~0~9810) ((lambda (&x~0~9815 &sk~0~9816 &fk~0~9817) (&sk~0~9816 &x~0~9815)) &x~0~9810 &sk~0~9811 &fk~0~9812) (&fk~0~9812))) (car &x~0~9805) (lambda (&formals~0~9819) ((lambda (&x~0~9821 &sk~0~9822 &fk~0~9823) (((lambda (&loop~0~9829) ((lambda (&temp~0~9832) (set! &loop~0~9829 &temp~0~9832) ((lambda () &loop~0~9829))) (lambda (&x~0~9837 &result~0~9838) ((lambda (&match-tail~0~9839) (set! &match-tail~0~9839 (lambda () ((lambda (&x~0~9857 &sk~0~9858 &fk~0~9859) (if (null? &x~0~9857) (&sk~0~9858) (&fk~0~9859))) &x~0~9837 (lambda () (apply &sk~0~9822 (if (null? &result~0~9838) (map (lambda (&ignore~0~9864) '()) '(body)) (apply map list (reverse &result~0~9838))))) (lambda () ((lambda (&x~0~9872 &sk~0~9873 &fk~0~9874) (&sk~0~9873)) &x~0~9837 (lambda () (&fk~0~9823)) (lambda () (ex:invalid-form &x~0~9837))))))) (if (null? &x~0~9837) (begin (&match-tail~0~9839)) (if (pair? &x~0~9837) (begin ((lambda (&x~0~9846 &sk~0~9847 &fk~0~9848) (&sk~0~9847 &x~0~9846)) (car &x~0~9837) (lambda &car-vars~0~9850 (&loop~0~9829 (cdr &x~0~9837) (cons &car-vars~0~9850 &result~0~9838))) &match-tail~0~9839)) (begin (&fk~0~9823))))) ex:undefined)))) ex:undefined) &x~0~9821 '())) (cdr &x~0~9805) (lambda (&body~0~9880) (&sk~0~9806 &formals~0~9819 &body~0~9880)) &fk~0~9807)) &fk~0~9807) (&fk~0~9807))) (cdr &x~0~9795) (lambda (&formals~0~9882 &body~0~9883) (&sk~0~9796 &formals~0~9882 &body~0~9883)) &fk~0~9797)) &fk~0~9797) (&fk~0~9797))) &exp~0~9778 (lambda (&formals~0~9885 &body~0~9886) ((lambda (&saved~0~9890) (set! &*usage-env*~0~3764 (&env-extend~0~3823 (map (lambda (&formal~0~9928) (&make-local-mapping~0~3817 'variable &formal~0~9928 #f)) (&flatten~0~3913 &formals~0~9885)) &*usage-env*~0~3764)) (call-with-values (lambda () ((lambda (&formals~0~9895) ((lambda (&saved~0~9899) (set! &*usage-env*~0~3764 (&env-extend~0~3823 '() &*usage-env*~0~3764)) (call-with-values (lambda () (&scan-sequence~0~3863 'lambda &make-local-mapping~0~3817 &body~0~9886 (lambda (&forms~0~9904 &syntax-definitions~0~9905 &bound-variables~0~9906) (cons 'lambda (cons &formals~0~9895 (if (null? &bound-variables~0~9906) (&emit-body~0~3864 &forms~0~9904 ex:undefined-set!) (list (cons (cons 'lambda (cons &bound-variables~0~9906 (&emit-body~0~3864 &forms~0~9904 ex:undefined-set!))) (map (lambda (&ignore~0~9913) 'ex:undefined) &bound-variables~0~9906))))))))) (lambda &results~0~9917 (set! &*usage-env*~0~3764 &saved~0~9899) (apply values &results~0~9917)))) &*usage-env*~0~3764)) (&dotted-map~0~3916 (lambda (&formal~0~9922) (&binding-name~0~3810 (&binding~0~3816 &formal~0~9922))) &formals~0~9885))) (lambda &results~0~9924 (set! &*usage-env*~0~3764 &saved~0~9890) (apply values &results~0~9924)))) &*usage-env*~0~3764)) (lambda () (ex:invalid-form &exp~0~9778))))) (set! &formals?~0~3859 (lambda (&s~0~9767) (let ((x (null? &s~0~9767))) (if x x (let ((x (&identifier?~0~3795 &s~0~9767))) (if x x (if (pair? &s~0~9767) (if (&identifier?~0~3795 (car &s~0~9767)) (if (&formals?~0~3859 (cdr &s~0~9767)) (not (&dotted-memp~0~3915 (lambda (&x~0~9776) (&bound-identifier=?~0~3802 &x~0~9776 (car &s~0~9767))) (cdr &s~0~9767))) #f) #f) #f))))))) (set! &make-wrap~0~3860 (lambda (&env~0~9764 &exp~0~9765) (cons &env~0~9764 &exp~0~9765))) (set! &wrap-env~0~3861 car) (set! &wrap-exp~0~3862 cdr) (set! &scan-sequence~0~3863 (lambda (&body-type~0~9482 &make-map~0~9483 &body-forms~0~9484 &k~0~9485) ((lambda (&expand-deferred~0~9486) (set! &expand-deferred~0~9486 (lambda (&forms~0~9745) (map (lambda (&form~0~9747) (cons (car &form~0~9747) ((lambda (&deferred?~0~9750 &exp~0~9751) (if &deferred?~0~9750 ((lambda (&saved~0~9756) (set! &*usage-env*~0~3764 (&wrap-env~0~3861 &exp~0~9751)) (call-with-values (lambda () (&expand~0~3847 (&wrap-exp~0~3862 &exp~0~9751))) (lambda &results~0~9760 (set! &*usage-env*~0~3764 &saved~0~9756) (apply values &results~0~9760)))) &*usage-env*~0~3764) &exp~0~9751)) (cadr &form~0~9747) (caddr &form~0~9747)))) &forms~0~9745))) ((lambda (&common-env~0~9489) (&add-fresh-used-frame!~0~3878) (((lambda (&loop~0~9495) ((lambda (&temp~0~9498) (set! &loop~0~9495 &temp~0~9498) ((lambda () &loop~0~9495))) (lambda (&ws~0~9503 &forms~0~9504 &syntax-defs~0~9505 &bound-variables~0~9506) (if (null? &ws~0~9503) (begin (&check-expression-body~0~3870 &body-type~0~9482 &forms~0~9504 &body-forms~0~9484) (&merge-used-with-parent-frame!~0~3880) (&k~0~9485 (reverse (&expand-deferred~0~9486 &forms~0~9504)) (reverse &syntax-defs~0~9505) &bound-variables~0~9506)) (begin ((lambda (&saved~0~9514) (set! &*usage-env*~0~3764 (&wrap-env~0~3861 (car &ws~0~9503))) (call-with-values (lambda () (call-with-values (lambda () (&head-expand~0~3848 (&wrap-exp~0~3862 (car &ws~0~9503)))) (lambda (&form~0~9519 &operator-binding~0~9520) ((lambda (&type~0~9523) (&check-expression-sequence~0~3867 &body-type~0~9482 &type~0~9523 &form~0~9519) (&check-toplevel~0~3868 &body-type~0~9482 &type~0~9523 &form~0~9519) ((lambda (&t~0~9527) (if (memv &t~0~9527 '(import)) (begin ((lambda (&x~0~9541 &sk~0~9542 &fk~0~9543) (if (pair? &x~0~9541) ((lambda (&x~0~9546 &sk~0~9547 &fk~0~9548) (&sk~0~9547)) (car &x~0~9541) (lambda () ((lambda (&x~0~9551 &sk~0~9552 &fk~0~9553) (((lambda (&loop~0~9559) ((lambda (&temp~0~9562) (set! &loop~0~9559 &temp~0~9562) ((lambda () &loop~0~9559))) (lambda (&x~0~9567 &result~0~9568) ((lambda (&match-tail~0~9569) (set! &match-tail~0~9569 (lambda () ((lambda (&x~0~9587 &sk~0~9588 &fk~0~9589) (if (null? &x~0~9587) (&sk~0~9588) (&fk~0~9589))) &x~0~9567 (lambda () (apply &sk~0~9552 (if (null? &result~0~9568) (map (lambda (&ignore~0~9594) '()) '(specs)) (apply map list (reverse &result~0~9568))))) (lambda () ((lambda (&x~0~9602 &sk~0~9603 &fk~0~9604) (&sk~0~9603)) &x~0~9567 (lambda () (&fk~0~9553)) (lambda () (ex:invalid-form &x~0~9567))))))) (if (null? &x~0~9567) (begin (&match-tail~0~9569)) (if (pair? &x~0~9567) (begin ((lambda (&x~0~9576 &sk~0~9577 &fk~0~9578) (&sk~0~9577 &x~0~9576)) (car &x~0~9567) (lambda &car-vars~0~9580 (&loop~0~9559 (cdr &x~0~9567) (cons &car-vars~0~9580 &result~0~9568))) &match-tail~0~9569)) (begin (&fk~0~9553))))) ex:undefined)))) ex:undefined) &x~0~9551 '())) (cdr &x~0~9541) (lambda (&specs~0~9610) (&sk~0~9542 &specs~0~9610)) &fk~0~9543)) &fk~0~9543) (&fk~0~9543))) &form~0~9519 (lambda (&specs~0~9612) (call-with-values (lambda () (&scan-imports~0~3890 &specs~0~9612)) (lambda (&imported-libraries~0~9615 &imports~0~9616) (&import-libraries-for-expand~0~3887 &imported-libraries~0~9615 (map not &imported-libraries~0~9615) 0) (&env-import!~0~3885 (car &form~0~9519) &imports~0~9616 &common-env~0~9489) (&loop~0~9495 (cdr &ws~0~9503) (cons (list #f #f (cons 'ex:import-libraries-for-run (cons (list 'quote &imported-libraries~0~9615) (cons (list 'quote (¤t-builds~0~3886 &imported-libraries~0~9615)) '(0))))) &forms~0~9504) &syntax-defs~0~9505 &bound-variables~0~9506)))) (lambda () (ex:invalid-form &form~0~9519)))) (if (memv &t~0~9527 '(program)) (begin (&loop~0~9495 (cdr &ws~0~9503) (cons (list #f #f (&expand-program~0~3882 &form~0~9519)) &forms~0~9504) &syntax-defs~0~9505 &bound-variables~0~9506)) (if (memv &t~0~9527 '(library)) (begin (&loop~0~9495 (cdr &ws~0~9503) (cons (list #f #f (&expand-library~0~3883 &form~0~9519)) &forms~0~9504) &syntax-defs~0~9505