From b9e22602bb9c7d82500e4e5612bf80e478e28b8c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 11 Apr 2011 13:49:29 +0200 Subject: [PATCH] regen psyntax-pp.scm * module/ice-9/psyntax-pp.scm: Regenerate, to take advantage of better #{}# serialization. --- module/ice-9/psyntax-pp.scm | 11065 +++++++++++++++++----------------- 1 file changed, 5485 insertions(+), 5580 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 53d591295..16c6a90a4 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1579 +2,1571 @@ (if #f #f) (letrec* - ((#{and-map*\ 38}# - (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) + ((#{and-map* 38}# + (lambda (#{f 202}# #{first 203}# . #{rest 204}#) (begin - (let ((#{t\ 210}# (null? #{first\ 203}#))) - (if #{t\ 210}# - #{t\ 210}# - (if (null? #{rest\ 204}#) + (let ((#{t 210}# (null? #{first 203}#))) + (if #{t 210}# + #{t 210}# + (if (null? #{rest 204}#) (letrec* - ((#{andmap\ 214}# - (lambda (#{first\ 215}#) + ((#{andmap 214}# + (lambda (#{first 215}#) (begin - (let ((#{x\ 218}# (car #{first\ 215}#)) - (#{first\ 219}# (cdr #{first\ 215}#))) - (if (null? #{first\ 219}#) - (#{f\ 202}# #{x\ 218}#) - (if (#{f\ 202}# #{x\ 218}#) - (#{andmap\ 214}# #{first\ 219}#) + (let ((#{x 218}# (car #{first 215}#)) + (#{first 219}# (cdr #{first 215}#))) + (if (null? #{first 219}#) + (#{f 202}# #{x 218}#) + (if (#{f 202}# #{x 218}#) + (#{andmap 214}# #{first 219}#) #f))))))) - (begin (#{andmap\ 214}# #{first\ 203}#))) + (begin (#{andmap 214}# #{first 203}#))) (letrec* - ((#{andmap\ 225}# - (lambda (#{first\ 226}# #{rest\ 227}#) + ((#{andmap 225}# + (lambda (#{first 226}# #{rest 227}#) (begin - (let ((#{x\ 232}# (car #{first\ 226}#)) - (#{xr\ 233}# (map car #{rest\ 227}#)) - (#{first\ 234}# (cdr #{first\ 226}#)) - (#{rest\ 235}# (map cdr #{rest\ 227}#))) - (if (null? #{first\ 234}#) - (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) - (if (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) - (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#) + (let ((#{x 232}# (car #{first 226}#)) + (#{xr 233}# (map car #{rest 227}#)) + (#{first 234}# (cdr #{first 226}#)) + (#{rest 235}# (map cdr #{rest 227}#))) + (if (null? #{first 234}#) + (@apply #{f 202}# #{x 232}# #{xr 233}#) + (if (@apply #{f 202}# #{x 232}# #{xr 233}#) + (#{andmap 225}# #{first 234}# #{rest 235}#) #f))))))) (begin - (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))))) + (#{andmap 225}# #{first 203}# #{rest 204}#)))))))))) (begin (letrec* - ((#{make-void\ 240}# - (lambda (#{src\ 798}#) + ((#{make-void 240}# + (lambda (#{src 798}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src\ 798}#))) - (#{make-const\ 242}# - (lambda (#{src\ 800}# #{exp\ 801}#) + #{src 798}#))) + (#{make-const 242}# + (lambda (#{src 800}# #{exp 801}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src\ 800}# - #{exp\ 801}#))) - (#{make-lexical-ref\ 246}# - (lambda (#{src\ 808}# #{name\ 809}# #{gensym\ 810}#) + #{src 800}# + #{exp 801}#))) + (#{make-lexical-ref 246}# + (lambda (#{src 808}# #{name 809}# #{gensym 810}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src\ 808}# - #{name\ 809}# - #{gensym\ 810}#))) - (#{make-lexical-set\ 248}# - (lambda (#{src\ 814}# - #{name\ 815}# - #{gensym\ 816}# - #{exp\ 817}#) + #{src 808}# + #{name 809}# + #{gensym 810}#))) + (#{make-lexical-set 248}# + (lambda (#{src 814}# + #{name 815}# + #{gensym 816}# + #{exp 817}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src\ 814}# - #{name\ 815}# - #{gensym\ 816}# - #{exp\ 817}#))) - (#{make-module-ref\ 250}# - (lambda (#{src\ 822}# - #{mod\ 823}# - #{name\ 824}# - #{public?\ 825}#) + #{src 814}# + #{name 815}# + #{gensym 816}# + #{exp 817}#))) + (#{make-module-ref 250}# + (lambda (#{src 822}# + #{mod 823}# + #{name 824}# + #{public? 825}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src\ 822}# - #{mod\ 823}# - #{name\ 824}# - #{public?\ 825}#))) - (#{make-module-set\ 252}# - (lambda (#{src\ 830}# - #{mod\ 831}# - #{name\ 832}# - #{public?\ 833}# - #{exp\ 834}#) + #{src 822}# + #{mod 823}# + #{name 824}# + #{public? 825}#))) + (#{make-module-set 252}# + (lambda (#{src 830}# + #{mod 831}# + #{name 832}# + #{public? 833}# + #{exp 834}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src\ 830}# - #{mod\ 831}# - #{name\ 832}# - #{public?\ 833}# - #{exp\ 834}#))) - (#{make-toplevel-ref\ 254}# - (lambda (#{src\ 840}# #{name\ 841}#) + #{src 830}# + #{mod 831}# + #{name 832}# + #{public? 833}# + #{exp 834}#))) + (#{make-toplevel-ref 254}# + (lambda (#{src 840}# #{name 841}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src\ 840}# - #{name\ 841}#))) - (#{make-toplevel-set\ 256}# - (lambda (#{src\ 844}# #{name\ 845}# #{exp\ 846}#) + #{src 840}# + #{name 841}#))) + (#{make-toplevel-set 256}# + (lambda (#{src 844}# #{name 845}# #{exp 846}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src\ 844}# - #{name\ 845}# - #{exp\ 846}#))) - (#{make-toplevel-define\ 258}# - (lambda (#{src\ 850}# #{name\ 851}# #{exp\ 852}#) + #{src 844}# + #{name 845}# + #{exp 846}#))) + (#{make-toplevel-define 258}# + (lambda (#{src 850}# #{name 851}# #{exp 852}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src\ 850}# - #{name\ 851}# - #{exp\ 852}#))) - (#{make-conditional\ 260}# - (lambda (#{src\ 856}# - #{test\ 857}# - #{consequent\ 858}# - #{alternate\ 859}#) + #{src 850}# + #{name 851}# + #{exp 852}#))) + (#{make-conditional 260}# + (lambda (#{src 856}# + #{test 857}# + #{consequent 858}# + #{alternate 859}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src\ 856}# - #{test\ 857}# - #{consequent\ 858}# - #{alternate\ 859}#))) - (#{make-application\ 262}# - (lambda (#{src\ 864}# #{proc\ 865}# #{args\ 866}#) + #{src 856}# + #{test 857}# + #{consequent 858}# + #{alternate 859}#))) + (#{make-application 262}# + (lambda (#{src 864}# #{proc 865}# #{args 866}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src\ 864}# - #{proc\ 865}# - #{args\ 866}#))) - (#{make-sequence\ 264}# - (lambda (#{src\ 870}# #{exps\ 871}#) + #{src 864}# + #{proc 865}# + #{args 866}#))) + (#{make-sequence 264}# + (lambda (#{src 870}# #{exps 871}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src\ 870}# - #{exps\ 871}#))) - (#{make-lambda\ 266}# - (lambda (#{src\ 874}# #{meta\ 875}# #{body\ 876}#) + #{src 870}# + #{exps 871}#))) + (#{make-lambda 266}# + (lambda (#{src 874}# #{meta 875}# #{body 876}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src\ 874}# - #{meta\ 875}# - #{body\ 876}#))) - (#{make-lambda-case\ 268}# - (lambda (#{src\ 880}# - #{req\ 881}# - #{opt\ 882}# - #{rest\ 883}# - #{kw\ 884}# - #{inits\ 885}# - #{gensyms\ 886}# - #{body\ 887}# - #{alternate\ 888}#) + #{src 874}# + #{meta 875}# + #{body 876}#))) + (#{make-lambda-case 268}# + (lambda (#{src 880}# + #{req 881}# + #{opt 882}# + #{rest 883}# + #{kw 884}# + #{inits 885}# + #{gensyms 886}# + #{body 887}# + #{alternate 888}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src\ 880}# - #{req\ 881}# - #{opt\ 882}# - #{rest\ 883}# - #{kw\ 884}# - #{inits\ 885}# - #{gensyms\ 886}# - #{body\ 887}# - #{alternate\ 888}#))) - (#{make-let\ 270}# - (lambda (#{src\ 898}# - #{names\ 899}# - #{gensyms\ 900}# - #{vals\ 901}# - #{body\ 902}#) + #{src 880}# + #{req 881}# + #{opt 882}# + #{rest 883}# + #{kw 884}# + #{inits 885}# + #{gensyms 886}# + #{body 887}# + #{alternate 888}#))) + (#{make-let 270}# + (lambda (#{src 898}# + #{names 899}# + #{gensyms 900}# + #{vals 901}# + #{body 902}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src\ 898}# - #{names\ 899}# - #{gensyms\ 900}# - #{vals\ 901}# - #{body\ 902}#))) - (#{make-letrec\ 272}# - (lambda (#{src\ 908}# - #{in-order?\ 909}# - #{names\ 910}# - #{gensyms\ 911}# - #{vals\ 912}# - #{body\ 913}#) + #{src 898}# + #{names 899}# + #{gensyms 900}# + #{vals 901}# + #{body 902}#))) + (#{make-letrec 272}# + (lambda (#{src 908}# + #{in-order? 909}# + #{names 910}# + #{gensyms 911}# + #{vals 912}# + #{body 913}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src\ 908}# - #{in-order?\ 909}# - #{names\ 910}# - #{gensyms\ 911}# - #{vals\ 912}# - #{body\ 913}#))) - (#{make-dynlet\ 274}# - (lambda (#{src\ 920}# - #{fluids\ 921}# - #{vals\ 922}# - #{body\ 923}#) + #{src 908}# + #{in-order? 909}# + #{names 910}# + #{gensyms 911}# + #{vals 912}# + #{body 913}#))) + (#{make-dynlet 274}# + (lambda (#{src 920}# + #{fluids 921}# + #{vals 922}# + #{body 923}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src\ 920}# - #{fluids\ 921}# - #{vals\ 922}# - #{body\ 923}#))) - (#{lambda?\ 277}# - (lambda (#{x\ 928}#) - (if (struct? #{x\ 928}#) - (eq? (struct-vtable #{x\ 928}#) + #{src 920}# + #{fluids 921}# + #{vals 922}# + #{body 923}#))) + (#{lambda? 277}# + (lambda (#{x 928}#) + (if (struct? #{x 928}#) + (eq? (struct-vtable #{x 928}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta\ 279}# - (lambda (#{x\ 932}#) (struct-ref #{x\ 932}# 1))) - (#{set-lambda-meta!\ 281}# - (lambda (#{x\ 934}# #{v\ 935}#) - (struct-set! #{x\ 934}# 1 #{v\ 935}#))) - (#{top-level-eval-hook\ 287}# - (lambda (#{x\ 938}# #{mod\ 939}#) - (primitive-eval #{x\ 938}#))) - (#{local-eval-hook\ 289}# - (lambda (#{x\ 942}# #{mod\ 943}#) - (primitive-eval #{x\ 942}#))) - (#{put-global-definition-hook\ 292}# - (lambda (#{symbol\ 946}# #{type\ 947}# #{val\ 948}#) + (#{lambda-meta 279}# + (lambda (#{x 932}#) (struct-ref #{x 932}# 1))) + (#{set-lambda-meta! 281}# + (lambda (#{x 934}# #{v 935}#) + (struct-set! #{x 934}# 1 #{v 935}#))) + (#{top-level-eval-hook 287}# + (lambda (#{x 938}# #{mod 939}#) + (primitive-eval #{x 938}#))) + (#{local-eval-hook 289}# + (lambda (#{x 942}# #{mod 943}#) + (primitive-eval #{x 942}#))) + (#{put-global-definition-hook 292}# + (lambda (#{symbol 946}# #{type 947}# #{val 948}#) (module-define! (current-module) - #{symbol\ 946}# + #{symbol 946}# (make-syntax-transformer - #{symbol\ 946}# - #{type\ 947}# - #{val\ 948}#)))) - (#{get-global-definition-hook\ 294}# - (lambda (#{symbol\ 952}# #{module\ 953}#) + #{symbol 946}# + #{type 947}# + #{val 948}#)))) + (#{get-global-definition-hook 294}# + (lambda (#{symbol 952}# #{module 953}#) (begin - (if (if (not #{module\ 953}#) (current-module) #f) + (if (if (not #{module 953}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 952}#)) + #{symbol 952}#)) (begin - (let ((#{v\ 959}# (module-variable - (if #{module\ 953}# - (resolve-module (cdr #{module\ 953}#)) - (current-module)) - #{symbol\ 952}#))) - (if #{v\ 959}# - (if (variable-bound? #{v\ 959}#) + (let ((#{v 959}# (module-variable + (if #{module 953}# + (resolve-module (cdr #{module 953}#)) + (current-module)) + #{symbol 952}#))) + (if #{v 959}# + (if (variable-bound? #{v 959}#) (begin - (let ((#{val\ 964}# (variable-ref #{v\ 959}#))) - (if (macro? #{val\ 964}#) - (if (macro-type #{val\ 964}#) - (cons (macro-type #{val\ 964}#) - (macro-binding #{val\ 964}#)) + (let ((#{val 964}# (variable-ref #{v 959}#))) + (if (macro? #{val 964}#) + (if (macro-type #{val 964}#) + (cons (macro-type #{val 964}#) + (macro-binding #{val 964}#)) #f) #f))) #f) #f)))))) - (#{decorate-source\ 296}# - (lambda (#{e\ 968}# #{s\ 969}#) + (#{decorate-source 296}# + (lambda (#{e 968}# #{s 969}#) (begin - (if (if (pair? #{e\ 968}#) #{s\ 969}# #f) - (set-source-properties! #{e\ 968}# #{s\ 969}#)) - #{e\ 968}#))) - (#{maybe-name-value!\ 298}# - (lambda (#{name\ 974}# #{val\ 975}#) - (if (#{lambda?\ 277}# #{val\ 975}#) + (if (if (pair? #{e 968}#) #{s 969}# #f) + (set-source-properties! #{e 968}# #{s 969}#)) + #{e 968}#))) + (#{maybe-name-value! 298}# + (lambda (#{name 974}# #{val 975}#) + (if (#{lambda? 277}# #{val 975}#) (begin - (let ((#{meta\ 979}# - (#{lambda-meta\ 279}# #{val\ 975}#))) - (if (not (assq 'name #{meta\ 979}#)) - (#{set-lambda-meta!\ 281}# - #{val\ 975}# - (cons (cons 'name #{name\ 974}#) #{meta\ 979}#)))))))) - (#{build-void\ 300}# - (lambda (#{source\ 980}#) - (#{make-void\ 240}# #{source\ 980}#))) - (#{build-application\ 302}# - (lambda (#{source\ 982}# - #{fun-exp\ 983}# - #{arg-exps\ 984}#) - (#{make-application\ 262}# - #{source\ 982}# - #{fun-exp\ 983}# - #{arg-exps\ 984}#))) - (#{build-conditional\ 304}# - (lambda (#{source\ 988}# - #{test-exp\ 989}# - #{then-exp\ 990}# - #{else-exp\ 991}#) - (#{make-conditional\ 260}# - #{source\ 988}# - #{test-exp\ 989}# - #{then-exp\ 990}# - #{else-exp\ 991}#))) - (#{build-dynlet\ 306}# - (lambda (#{source\ 996}# - #{fluids\ 997}# - #{vals\ 998}# - #{body\ 999}#) - (#{make-dynlet\ 274}# - #{source\ 996}# - #{fluids\ 997}# - #{vals\ 998}# - #{body\ 999}#))) - (#{build-lexical-reference\ 308}# - (lambda (#{type\ 1004}# - #{source\ 1005}# - #{name\ 1006}# - #{var\ 1007}#) - (#{make-lexical-ref\ 246}# - #{source\ 1005}# - #{name\ 1006}# - #{var\ 1007}#))) - (#{build-lexical-assignment\ 310}# - (lambda (#{source\ 1012}# - #{name\ 1013}# - #{var\ 1014}# - #{exp\ 1015}#) + (let ((#{meta 979}# (#{lambda-meta 279}# #{val 975}#))) + (if (not (assq 'name #{meta 979}#)) + (#{set-lambda-meta! 281}# + #{val 975}# + (cons (cons 'name #{name 974}#) #{meta 979}#)))))))) + (#{build-void 300}# + (lambda (#{source 980}#) + (#{make-void 240}# #{source 980}#))) + (#{build-application 302}# + (lambda (#{source 982}# #{fun-exp 983}# #{arg-exps 984}#) + (#{make-application 262}# + #{source 982}# + #{fun-exp 983}# + #{arg-exps 984}#))) + (#{build-conditional 304}# + (lambda (#{source 988}# + #{test-exp 989}# + #{then-exp 990}# + #{else-exp 991}#) + (#{make-conditional 260}# + #{source 988}# + #{test-exp 989}# + #{then-exp 990}# + #{else-exp 991}#))) + (#{build-dynlet 306}# + (lambda (#{source 996}# + #{fluids 997}# + #{vals 998}# + #{body 999}#) + (#{make-dynlet 274}# + #{source 996}# + #{fluids 997}# + #{vals 998}# + #{body 999}#))) + (#{build-lexical-reference 308}# + (lambda (#{type 1004}# + #{source 1005}# + #{name 1006}# + #{var 1007}#) + (#{make-lexical-ref 246}# + #{source 1005}# + #{name 1006}# + #{var 1007}#))) + (#{build-lexical-assignment 310}# + (lambda (#{source 1012}# + #{name 1013}# + #{var 1014}# + #{exp 1015}#) (begin - (#{maybe-name-value!\ 298}# - #{name\ 1013}# - #{exp\ 1015}#) - (#{make-lexical-set\ 248}# - #{source\ 1012}# - #{name\ 1013}# - #{var\ 1014}# - #{exp\ 1015}#)))) - (#{analyze-variable\ 312}# - (lambda (#{mod\ 1020}# - #{var\ 1021}# - #{modref-cont\ 1022}# - #{bare-cont\ 1023}#) - (if (not #{mod\ 1020}#) - (#{bare-cont\ 1023}# #{var\ 1021}#) + (#{maybe-name-value! 298}# + #{name 1013}# + #{exp 1015}#) + (#{make-lexical-set 248}# + #{source 1012}# + #{name 1013}# + #{var 1014}# + #{exp 1015}#)))) + (#{analyze-variable 312}# + (lambda (#{mod 1020}# + #{var 1021}# + #{modref-cont 1022}# + #{bare-cont 1023}#) + (if (not #{mod 1020}#) + (#{bare-cont 1023}# #{var 1021}#) (begin - (let ((#{kind\ 1030}# (car #{mod\ 1020}#)) - (#{mod\ 1031}# (cdr #{mod\ 1020}#))) - (if (eqv? #{kind\ 1030}# 'public) - (#{modref-cont\ 1022}# - #{mod\ 1031}# - #{var\ 1021}# + (let ((#{kind 1030}# (car #{mod 1020}#)) + (#{mod 1031}# (cdr #{mod 1020}#))) + (if (eqv? #{kind 1030}# 'public) + (#{modref-cont 1022}# + #{mod 1031}# + #{var 1021}# #t) - (if (eqv? #{kind\ 1030}# 'private) + (if (eqv? #{kind 1030}# 'private) (if (not (equal? - #{mod\ 1031}# + #{mod 1031}# (module-name (current-module)))) - (#{modref-cont\ 1022}# - #{mod\ 1031}# - #{var\ 1021}# + (#{modref-cont 1022}# + #{mod 1031}# + #{var 1021}# #f) - (#{bare-cont\ 1023}# #{var\ 1021}#)) - (if (eqv? #{kind\ 1030}# 'bare) - (#{bare-cont\ 1023}# #{var\ 1021}#) - (if (eqv? #{kind\ 1030}# 'hygiene) + (#{bare-cont 1023}# #{var 1021}#)) + (if (eqv? #{kind 1030}# 'bare) + (#{bare-cont 1023}# #{var 1021}#) + (if (eqv? #{kind 1030}# 'hygiene) (if (if (not (equal? - #{mod\ 1031}# + #{mod 1031}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 1031}#) - #{var\ 1021}#) + (resolve-module #{mod 1031}#) + #{var 1021}#) #f) - (#{modref-cont\ 1022}# - #{mod\ 1031}# - #{var\ 1021}# + (#{modref-cont 1022}# + #{mod 1031}# + #{var 1021}# #f) - (#{bare-cont\ 1023}# #{var\ 1021}#)) + (#{bare-cont 1023}# #{var 1021}#)) (syntax-violation #f "bad module kind" - #{var\ 1021}# - #{mod\ 1031}#)))))))))) - (#{build-global-reference\ 314}# - (lambda (#{source\ 1039}# #{var\ 1040}# #{mod\ 1041}#) - (#{analyze-variable\ 312}# - #{mod\ 1041}# - #{var\ 1040}# - (lambda (#{mod\ 1045}# #{var\ 1046}# #{public?\ 1047}#) - (#{make-module-ref\ 250}# - #{source\ 1039}# - #{mod\ 1045}# - #{var\ 1046}# - #{public?\ 1047}#)) - (lambda (#{var\ 1051}#) - (#{make-toplevel-ref\ 254}# - #{source\ 1039}# - #{var\ 1051}#))))) - (#{build-global-assignment\ 316}# - (lambda (#{source\ 1053}# - #{var\ 1054}# - #{exp\ 1055}# - #{mod\ 1056}#) + #{var 1021}# + #{mod 1031}#)))))))))) + (#{build-global-reference 314}# + (lambda (#{source 1039}# #{var 1040}# #{mod 1041}#) + (#{analyze-variable 312}# + #{mod 1041}# + #{var 1040}# + (lambda (#{mod 1045}# #{var 1046}# #{public? 1047}#) + (#{make-module-ref 250}# + #{source 1039}# + #{mod 1045}# + #{var 1046}# + #{public? 1047}#)) + (lambda (#{var 1051}#) + (#{make-toplevel-ref 254}# + #{source 1039}# + #{var 1051}#))))) + (#{build-global-assignment 316}# + (lambda (#{source 1053}# + #{var 1054}# + #{exp 1055}# + #{mod 1056}#) (begin - (#{maybe-name-value!\ 298}# - #{var\ 1054}# - #{exp\ 1055}#) - (#{analyze-variable\ 312}# - #{mod\ 1056}# - #{var\ 1054}# - (lambda (#{mod\ 1061}# #{var\ 1062}# #{public?\ 1063}#) - (#{make-module-set\ 252}# - #{source\ 1053}# - #{mod\ 1061}# - #{var\ 1062}# - #{public?\ 1063}# - #{exp\ 1055}#)) - (lambda (#{var\ 1067}#) - (#{make-toplevel-set\ 256}# - #{source\ 1053}# - #{var\ 1067}# - #{exp\ 1055}#)))))) - (#{build-global-definition\ 318}# - (lambda (#{source\ 1069}# #{var\ 1070}# #{exp\ 1071}#) + (#{maybe-name-value! 298}# + #{var 1054}# + #{exp 1055}#) + (#{analyze-variable 312}# + #{mod 1056}# + #{var 1054}# + (lambda (#{mod 1061}# #{var 1062}# #{public? 1063}#) + (#{make-module-set 252}# + #{source 1053}# + #{mod 1061}# + #{var 1062}# + #{public? 1063}# + #{exp 1055}#)) + (lambda (#{var 1067}#) + (#{make-toplevel-set 256}# + #{source 1053}# + #{var 1067}# + #{exp 1055}#)))))) + (#{build-global-definition 318}# + (lambda (#{source 1069}# #{var 1070}# #{exp 1071}#) (begin - (#{maybe-name-value!\ 298}# - #{var\ 1070}# - #{exp\ 1071}#) - (#{make-toplevel-define\ 258}# - #{source\ 1069}# - #{var\ 1070}# - #{exp\ 1071}#)))) - (#{build-simple-lambda\ 320}# - (lambda (#{src\ 1075}# - #{req\ 1076}# - #{rest\ 1077}# - #{vars\ 1078}# - #{meta\ 1079}# - #{exp\ 1080}#) - (#{make-lambda\ 266}# - #{src\ 1075}# - #{meta\ 1079}# - (#{make-lambda-case\ 268}# - #{src\ 1075}# - #{req\ 1076}# + (#{maybe-name-value! 298}# + #{var 1070}# + #{exp 1071}#) + (#{make-toplevel-define 258}# + #{source 1069}# + #{var 1070}# + #{exp 1071}#)))) + (#{build-simple-lambda 320}# + (lambda (#{src 1075}# + #{req 1076}# + #{rest 1077}# + #{vars 1078}# + #{meta 1079}# + #{exp 1080}#) + (#{make-lambda 266}# + #{src 1075}# + #{meta 1079}# + (#{make-lambda-case 268}# + #{src 1075}# + #{req 1076}# #f - #{rest\ 1077}# + #{rest 1077}# #f '() - #{vars\ 1078}# - #{exp\ 1080}# + #{vars 1078}# + #{exp 1080}# #f)))) - (#{build-case-lambda\ 322}# - (lambda (#{src\ 1087}# #{meta\ 1088}# #{body\ 1089}#) - (#{make-lambda\ 266}# - #{src\ 1087}# - #{meta\ 1088}# - #{body\ 1089}#))) - (#{build-lambda-case\ 324}# - (lambda (#{src\ 1093}# - #{req\ 1094}# - #{opt\ 1095}# - #{rest\ 1096}# - #{kw\ 1097}# - #{inits\ 1098}# - #{vars\ 1099}# - #{body\ 1100}# - #{else-case\ 1101}#) - (#{make-lambda-case\ 268}# - #{src\ 1093}# - #{req\ 1094}# - #{opt\ 1095}# - #{rest\ 1096}# - #{kw\ 1097}# - #{inits\ 1098}# - #{vars\ 1099}# - #{body\ 1100}# - #{else-case\ 1101}#))) - (#{build-primref\ 326}# - (lambda (#{src\ 1111}# #{name\ 1112}#) + (#{build-case-lambda 322}# + (lambda (#{src 1087}# #{meta 1088}# #{body 1089}#) + (#{make-lambda 266}# + #{src 1087}# + #{meta 1088}# + #{body 1089}#))) + (#{build-lambda-case 324}# + (lambda (#{src 1093}# + #{req 1094}# + #{opt 1095}# + #{rest 1096}# + #{kw 1097}# + #{inits 1098}# + #{vars 1099}# + #{body 1100}# + #{else-case 1101}#) + (#{make-lambda-case 268}# + #{src 1093}# + #{req 1094}# + #{opt 1095}# + #{rest 1096}# + #{kw 1097}# + #{inits 1098}# + #{vars 1099}# + #{body 1100}# + #{else-case 1101}#))) + (#{build-primref 326}# + (lambda (#{src 1111}# #{name 1112}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref\ 254}# - #{src\ 1111}# - #{name\ 1112}#) - (#{make-module-ref\ 250}# - #{src\ 1111}# + (#{make-toplevel-ref 254}# + #{src 1111}# + #{name 1112}#) + (#{make-module-ref 250}# + #{src 1111}# '(guile) - #{name\ 1112}# + #{name 1112}# #f)))) - (#{build-data\ 328}# - (lambda (#{src\ 1115}# #{exp\ 1116}#) - (#{make-const\ 242}# #{src\ 1115}# #{exp\ 1116}#))) - (#{build-sequence\ 330}# - (lambda (#{src\ 1119}# #{exps\ 1120}#) - (if (null? (cdr #{exps\ 1120}#)) - (car #{exps\ 1120}#) - (#{make-sequence\ 264}# - #{src\ 1119}# - #{exps\ 1120}#)))) - (#{build-let\ 332}# - (lambda (#{src\ 1123}# - #{ids\ 1124}# - #{vars\ 1125}# - #{val-exps\ 1126}# - #{body-exp\ 1127}#) + (#{build-data 328}# + (lambda (#{src 1115}# #{exp 1116}#) + (#{make-const 242}# #{src 1115}# #{exp 1116}#))) + (#{build-sequence 330}# + (lambda (#{src 1119}# #{exps 1120}#) + (if (null? (cdr #{exps 1120}#)) + (car #{exps 1120}#) + (#{make-sequence 264}# + #{src 1119}# + #{exps 1120}#)))) + (#{build-let 332}# + (lambda (#{src 1123}# + #{ids 1124}# + #{vars 1125}# + #{val-exps 1126}# + #{body-exp 1127}#) (begin (for-each - #{maybe-name-value!\ 298}# - #{ids\ 1124}# - #{val-exps\ 1126}#) - (if (null? #{vars\ 1125}#) - #{body-exp\ 1127}# - (#{make-let\ 270}# - #{src\ 1123}# - #{ids\ 1124}# - #{vars\ 1125}# - #{val-exps\ 1126}# - #{body-exp\ 1127}#))))) - (#{build-named-let\ 334}# - (lambda (#{src\ 1133}# - #{ids\ 1134}# - #{vars\ 1135}# - #{val-exps\ 1136}# - #{body-exp\ 1137}#) + #{maybe-name-value! 298}# + #{ids 1124}# + #{val-exps 1126}#) + (if (null? #{vars 1125}#) + #{body-exp 1127}# + (#{make-let 270}# + #{src 1123}# + #{ids 1124}# + #{vars 1125}# + #{val-exps 1126}# + #{body-exp 1127}#))))) + (#{build-named-let 334}# + (lambda (#{src 1133}# + #{ids 1134}# + #{vars 1135}# + #{val-exps 1136}# + #{body-exp 1137}#) (begin - (let ((#{f\ 1147}# (car #{vars\ 1135}#)) - (#{f-name\ 1148}# (car #{ids\ 1134}#)) - (#{vars\ 1149}# (cdr #{vars\ 1135}#)) - (#{ids\ 1150}# (cdr #{ids\ 1134}#))) + (let ((#{f 1147}# (car #{vars 1135}#)) + (#{f-name 1148}# (car #{ids 1134}#)) + (#{vars 1149}# (cdr #{vars 1135}#)) + (#{ids 1150}# (cdr #{ids 1134}#))) (begin - (let ((#{proc\ 1152}# - (#{build-simple-lambda\ 320}# - #{src\ 1133}# - #{ids\ 1150}# + (let ((#{proc 1152}# + (#{build-simple-lambda 320}# + #{src 1133}# + #{ids 1150}# #f - #{vars\ 1149}# + #{vars 1149}# '() - #{body-exp\ 1137}#))) + #{body-exp 1137}#))) (begin - (#{maybe-name-value!\ 298}# - #{f-name\ 1148}# - #{proc\ 1152}#) + (#{maybe-name-value! 298}# + #{f-name 1148}# + #{proc 1152}#) (for-each - #{maybe-name-value!\ 298}# - #{ids\ 1150}# - #{val-exps\ 1136}#) - (#{make-letrec\ 272}# - #{src\ 1133}# + #{maybe-name-value! 298}# + #{ids 1150}# + #{val-exps 1136}#) + (#{make-letrec 272}# + #{src 1133}# #f - (list #{f-name\ 1148}#) - (list #{f\ 1147}#) - (list #{proc\ 1152}#) - (#{build-application\ 302}# - #{src\ 1133}# - (#{build-lexical-reference\ 308}# + (list #{f-name 1148}#) + (list #{f 1147}#) + (list #{proc 1152}#) + (#{build-application 302}# + #{src 1133}# + (#{build-lexical-reference 308}# 'fun - #{src\ 1133}# - #{f-name\ 1148}# - #{f\ 1147}#) - #{val-exps\ 1136}#))))))))) - (#{build-letrec\ 336}# - (lambda (#{src\ 1153}# - #{in-order?\ 1154}# - #{ids\ 1155}# - #{vars\ 1156}# - #{val-exps\ 1157}# - #{body-exp\ 1158}#) - (if (null? #{vars\ 1156}#) - #{body-exp\ 1158}# + #{src 1133}# + #{f-name 1148}# + #{f 1147}#) + #{val-exps 1136}#))))))))) + (#{build-letrec 336}# + (lambda (#{src 1153}# + #{in-order? 1154}# + #{ids 1155}# + #{vars 1156}# + #{val-exps 1157}# + #{body-exp 1158}#) + (if (null? #{vars 1156}#) + #{body-exp 1158}# (begin (for-each - #{maybe-name-value!\ 298}# - #{ids\ 1155}# - #{val-exps\ 1157}#) - (#{make-letrec\ 272}# - #{src\ 1153}# - #{in-order?\ 1154}# - #{ids\ 1155}# - #{vars\ 1156}# - #{val-exps\ 1157}# - #{body-exp\ 1158}#))))) - (#{make-syntax-object\ 340}# - (lambda (#{expression\ 1165}# - #{wrap\ 1166}# - #{module\ 1167}#) + #{maybe-name-value! 298}# + #{ids 1155}# + #{val-exps 1157}#) + (#{make-letrec 272}# + #{src 1153}# + #{in-order? 1154}# + #{ids 1155}# + #{vars 1156}# + #{val-exps 1157}# + #{body-exp 1158}#))))) + (#{make-syntax-object 340}# + (lambda (#{expression 1165}# + #{wrap 1166}# + #{module 1167}#) (vector 'syntax-object - #{expression\ 1165}# - #{wrap\ 1166}# - #{module\ 1167}#))) - (#{syntax-object?\ 342}# - (lambda (#{x\ 1171}#) - (if (vector? #{x\ 1171}#) - (if (= (vector-length #{x\ 1171}#) 4) - (eq? (vector-ref #{x\ 1171}# 0) 'syntax-object) + #{expression 1165}# + #{wrap 1166}# + #{module 1167}#))) + (#{syntax-object? 342}# + (lambda (#{x 1171}#) + (if (vector? #{x 1171}#) + (if (= (vector-length #{x 1171}#) 4) + (eq? (vector-ref #{x 1171}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression\ 344}# - (lambda (#{x\ 1176}#) (vector-ref #{x\ 1176}# 1))) - (#{syntax-object-wrap\ 346}# - (lambda (#{x\ 1178}#) (vector-ref #{x\ 1178}# 2))) - (#{syntax-object-module\ 348}# - (lambda (#{x\ 1180}#) (vector-ref #{x\ 1180}# 3))) - (#{source-annotation\ 357}# - (lambda (#{x\ 1194}#) - (if (#{syntax-object?\ 342}# #{x\ 1194}#) - (#{source-annotation\ 357}# - (#{syntax-object-expression\ 344}# #{x\ 1194}#)) - (if (pair? #{x\ 1194}#) + (#{syntax-object-expression 344}# + (lambda (#{x 1176}#) (vector-ref #{x 1176}# 1))) + (#{syntax-object-wrap 346}# + (lambda (#{x 1178}#) (vector-ref #{x 1178}# 2))) + (#{syntax-object-module 348}# + (lambda (#{x 1180}#) (vector-ref #{x 1180}# 3))) + (#{source-annotation 357}# + (lambda (#{x 1194}#) + (if (#{syntax-object? 342}# #{x 1194}#) + (#{source-annotation 357}# + (#{syntax-object-expression 344}# #{x 1194}#)) + (if (pair? #{x 1194}#) (begin - (let ((#{props\ 1201}# (source-properties #{x\ 1194}#))) - (if (pair? #{props\ 1201}#) #{props\ 1201}# #f))) + (let ((#{props 1201}# (source-properties #{x 1194}#))) + (if (pair? #{props 1201}#) #{props 1201}# #f))) #f)))) - (#{extend-env\ 364}# - (lambda (#{labels\ 1203}# #{bindings\ 1204}# #{r\ 1205}#) - (if (null? #{labels\ 1203}#) - #{r\ 1205}# - (#{extend-env\ 364}# - (cdr #{labels\ 1203}#) - (cdr #{bindings\ 1204}#) - (cons (cons (car #{labels\ 1203}#) - (car #{bindings\ 1204}#)) - #{r\ 1205}#))))) - (#{extend-var-env\ 366}# - (lambda (#{labels\ 1209}# #{vars\ 1210}# #{r\ 1211}#) - (if (null? #{labels\ 1209}#) - #{r\ 1211}# - (#{extend-var-env\ 366}# - (cdr #{labels\ 1209}#) - (cdr #{vars\ 1210}#) - (cons (cons (car #{labels\ 1209}#) - (cons 'lexical (car #{vars\ 1210}#))) - #{r\ 1211}#))))) - (#{macros-only-env\ 368}# - (lambda (#{r\ 1216}#) - (if (null? #{r\ 1216}#) + (#{extend-env 364}# + (lambda (#{labels 1203}# #{bindings 1204}# #{r 1205}#) + (if (null? #{labels 1203}#) + #{r 1205}# + (#{extend-env 364}# + (cdr #{labels 1203}#) + (cdr #{bindings 1204}#) + (cons (cons (car #{labels 1203}#) + (car #{bindings 1204}#)) + #{r 1205}#))))) + (#{extend-var-env 366}# + (lambda (#{labels 1209}# #{vars 1210}# #{r 1211}#) + (if (null? #{labels 1209}#) + #{r 1211}# + (#{extend-var-env 366}# + (cdr #{labels 1209}#) + (cdr #{vars 1210}#) + (cons (cons (car #{labels 1209}#) + (cons 'lexical (car #{vars 1210}#))) + #{r 1211}#))))) + (#{macros-only-env 368}# + (lambda (#{r 1216}#) + (if (null? #{r 1216}#) '() (begin - (let ((#{a\ 1219}# (car #{r\ 1216}#))) - (if (eq? (car (cdr #{a\ 1219}#)) 'macro) - (cons #{a\ 1219}# - (#{macros-only-env\ 368}# (cdr #{r\ 1216}#))) - (#{macros-only-env\ 368}# (cdr #{r\ 1216}#)))))))) - (#{lookup\ 370}# - (lambda (#{x\ 1220}# #{r\ 1221}# #{mod\ 1222}#) + (let ((#{a 1219}# (car #{r 1216}#))) + (if (eq? (car (cdr #{a 1219}#)) 'macro) + (cons #{a 1219}# + (#{macros-only-env 368}# (cdr #{r 1216}#))) + (#{macros-only-env 368}# (cdr #{r 1216}#)))))))) + (#{lookup 370}# + (lambda (#{x 1220}# #{r 1221}# #{mod 1222}#) (begin - (let ((#{t\ 1228}# (assq #{x\ 1220}# #{r\ 1221}#))) - (if #{t\ 1228}# - (cdr #{t\ 1228}#) - (if (symbol? #{x\ 1220}#) + (let ((#{t 1228}# (assq #{x 1220}# #{r 1221}#))) + (if #{t 1228}# + (cdr #{t 1228}#) + (if (symbol? #{x 1220}#) (begin - (let ((#{t\ 1234}# - (#{get-global-definition-hook\ 294}# - #{x\ 1220}# - #{mod\ 1222}#))) - (if #{t\ 1234}# #{t\ 1234}# '(global)))) + (let ((#{t 1234}# + (#{get-global-definition-hook 294}# + #{x 1220}# + #{mod 1222}#))) + (if #{t 1234}# #{t 1234}# '(global)))) '(displaced-lexical))))))) - (#{global-extend\ 372}# - (lambda (#{type\ 1239}# #{sym\ 1240}# #{val\ 1241}#) - (#{put-global-definition-hook\ 292}# - #{sym\ 1240}# - #{type\ 1239}# - #{val\ 1241}#))) - (#{nonsymbol-id?\ 374}# - (lambda (#{x\ 1245}#) - (if (#{syntax-object?\ 342}# #{x\ 1245}#) + (#{global-extend 372}# + (lambda (#{type 1239}# #{sym 1240}# #{val 1241}#) + (#{put-global-definition-hook 292}# + #{sym 1240}# + #{type 1239}# + #{val 1241}#))) + (#{nonsymbol-id? 374}# + (lambda (#{x 1245}#) + (if (#{syntax-object? 342}# #{x 1245}#) (symbol? - (#{syntax-object-expression\ 344}# #{x\ 1245}#)) + (#{syntax-object-expression 344}# #{x 1245}#)) #f))) - (#{id?\ 376}# - (lambda (#{x\ 1249}#) - (if (symbol? #{x\ 1249}#) + (#{id? 376}# + (lambda (#{x 1249}#) + (if (symbol? #{x 1249}#) #t - (if (#{syntax-object?\ 342}# #{x\ 1249}#) + (if (#{syntax-object? 342}# #{x 1249}#) (symbol? - (#{syntax-object-expression\ 344}# #{x\ 1249}#)) + (#{syntax-object-expression 344}# #{x 1249}#)) #f)))) - (#{id-sym-name&marks\ 379}# - (lambda (#{x\ 1256}# #{w\ 1257}#) - (if (#{syntax-object?\ 342}# #{x\ 1256}#) + (#{id-sym-name&marks 379}# + (lambda (#{x 1256}# #{w 1257}#) + (if (#{syntax-object? 342}# #{x 1256}#) (values - (#{syntax-object-expression\ 344}# #{x\ 1256}#) - (#{join-marks\ 426}# - (car #{w\ 1257}#) - (car (#{syntax-object-wrap\ 346}# #{x\ 1256}#)))) - (values #{x\ 1256}# (car #{w\ 1257}#))))) - (#{gen-label\ 389}# + (#{syntax-object-expression 344}# #{x 1256}#) + (#{join-marks 426}# + (car #{w 1257}#) + (car (#{syntax-object-wrap 346}# #{x 1256}#)))) + (values #{x 1256}# (car #{w 1257}#))))) + (#{gen-label 389}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels\ 391}# - (lambda (#{ls\ 1263}#) - (if (null? #{ls\ 1263}#) + (#{gen-labels 391}# + (lambda (#{ls 1263}#) + (if (null? #{ls 1263}#) '() - (cons (#{gen-label\ 389}#) - (#{gen-labels\ 391}# (cdr #{ls\ 1263}#)))))) - (#{make-ribcage\ 394}# - (lambda (#{symnames\ 1265}# - #{marks\ 1266}# - #{labels\ 1267}#) + (cons (#{gen-label 389}#) + (#{gen-labels 391}# (cdr #{ls 1263}#)))))) + (#{make-ribcage 394}# + (lambda (#{symnames 1265}# + #{marks 1266}# + #{labels 1267}#) (vector 'ribcage - #{symnames\ 1265}# - #{marks\ 1266}# - #{labels\ 1267}#))) - (#{ribcage-symnames\ 398}# - (lambda (#{x\ 1276}#) (vector-ref #{x\ 1276}# 1))) - (#{ribcage-marks\ 400}# - (lambda (#{x\ 1278}#) (vector-ref #{x\ 1278}# 2))) - (#{ribcage-labels\ 402}# - (lambda (#{x\ 1280}#) (vector-ref #{x\ 1280}# 3))) - (#{set-ribcage-symnames!\ 404}# - (lambda (#{x\ 1282}# #{update\ 1283}#) - (vector-set! #{x\ 1282}# 1 #{update\ 1283}#))) - (#{set-ribcage-marks!\ 406}# - (lambda (#{x\ 1286}# #{update\ 1287}#) - (vector-set! #{x\ 1286}# 2 #{update\ 1287}#))) - (#{set-ribcage-labels!\ 408}# - (lambda (#{x\ 1290}# #{update\ 1291}#) - (vector-set! #{x\ 1290}# 3 #{update\ 1291}#))) - (#{anti-mark\ 414}# - (lambda (#{w\ 1294}#) - (cons (cons #f (car #{w\ 1294}#)) - (cons 'shift (cdr #{w\ 1294}#))))) - (#{extend-ribcage!\ 418}# - (lambda (#{ribcage\ 1300}# #{id\ 1301}# #{label\ 1302}#) + #{symnames 1265}# + #{marks 1266}# + #{labels 1267}#))) + (#{ribcage-symnames 398}# + (lambda (#{x 1276}#) (vector-ref #{x 1276}# 1))) + (#{ribcage-marks 400}# + (lambda (#{x 1278}#) (vector-ref #{x 1278}# 2))) + (#{ribcage-labels 402}# + (lambda (#{x 1280}#) (vector-ref #{x 1280}# 3))) + (#{set-ribcage-symnames! 404}# + (lambda (#{x 1282}# #{update 1283}#) + (vector-set! #{x 1282}# 1 #{update 1283}#))) + (#{set-ribcage-marks! 406}# + (lambda (#{x 1286}# #{update 1287}#) + (vector-set! #{x 1286}# 2 #{update 1287}#))) + (#{set-ribcage-labels! 408}# + (lambda (#{x 1290}# #{update 1291}#) + (vector-set! #{x 1290}# 3 #{update 1291}#))) + (#{anti-mark 414}# + (lambda (#{w 1294}#) + (cons (cons #f (car #{w 1294}#)) + (cons 'shift (cdr #{w 1294}#))))) + (#{extend-ribcage! 418}# + (lambda (#{ribcage 1300}# #{id 1301}# #{label 1302}#) (begin - (#{set-ribcage-symnames!\ 404}# - #{ribcage\ 1300}# - (cons (#{syntax-object-expression\ 344}# #{id\ 1301}#) - (#{ribcage-symnames\ 398}# #{ribcage\ 1300}#))) - (#{set-ribcage-marks!\ 406}# - #{ribcage\ 1300}# - (cons (car (#{syntax-object-wrap\ 346}# #{id\ 1301}#)) - (#{ribcage-marks\ 400}# #{ribcage\ 1300}#))) - (#{set-ribcage-labels!\ 408}# - #{ribcage\ 1300}# - (cons #{label\ 1302}# - (#{ribcage-labels\ 402}# #{ribcage\ 1300}#)))))) - (#{make-binding-wrap\ 420}# - (lambda (#{ids\ 1307}# #{labels\ 1308}# #{w\ 1309}#) - (if (null? #{ids\ 1307}#) - #{w\ 1309}# - (cons (car #{w\ 1309}#) + (#{set-ribcage-symnames! 404}# + #{ribcage 1300}# + (cons (#{syntax-object-expression 344}# #{id 1301}#) + (#{ribcage-symnames 398}# #{ribcage 1300}#))) + (#{set-ribcage-marks! 406}# + #{ribcage 1300}# + (cons (car (#{syntax-object-wrap 346}# #{id 1301}#)) + (#{ribcage-marks 400}# #{ribcage 1300}#))) + (#{set-ribcage-labels! 408}# + #{ribcage 1300}# + (cons #{label 1302}# + (#{ribcage-labels 402}# #{ribcage 1300}#)))))) + (#{make-binding-wrap 420}# + (lambda (#{ids 1307}# #{labels 1308}# #{w 1309}#) + (if (null? #{ids 1307}#) + #{w 1309}# + (cons (car #{w 1309}#) (cons (begin - (let ((#{labelvec\ 1316}# - (list->vector #{labels\ 1308}#))) + (let ((#{labelvec 1316}# + (list->vector #{labels 1308}#))) (begin - (let ((#{n\ 1318}# - (vector-length #{labelvec\ 1316}#))) + (let ((#{n 1318}# + (vector-length #{labelvec 1316}#))) (begin - (let ((#{symnamevec\ 1321}# - (make-vector #{n\ 1318}#)) - (#{marksvec\ 1322}# - (make-vector #{n\ 1318}#))) + (let ((#{symnamevec 1321}# + (make-vector #{n 1318}#)) + (#{marksvec 1322}# + (make-vector #{n 1318}#))) (begin (letrec* - ((#{f\ 1326}# - (lambda (#{ids\ 1327}# #{i\ 1328}#) - (if (not (null? #{ids\ 1327}#)) + ((#{f 1326}# + (lambda (#{ids 1327}# #{i 1328}#) + (if (not (null? #{ids 1327}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 379}# - (car #{ids\ 1327}#) - #{w\ 1309}#)) - (lambda (#{symname\ 1329}# - #{marks\ 1330}#) + (#{id-sym-name&marks 379}# + (car #{ids 1327}#) + #{w 1309}#)) + (lambda (#{symname 1329}# + #{marks 1330}#) (begin (vector-set! - #{symnamevec\ 1321}# - #{i\ 1328}# - #{symname\ 1329}#) + #{symnamevec 1321}# + #{i 1328}# + #{symname 1329}#) (vector-set! - #{marksvec\ 1322}# - #{i\ 1328}# - #{marks\ 1330}#) - (#{f\ 1326}# - (cdr #{ids\ 1327}#) - (1+ #{i\ 1328}#))))))))) - (begin (#{f\ 1326}# #{ids\ 1307}# 0))) - (#{make-ribcage\ 394}# - #{symnamevec\ 1321}# - #{marksvec\ 1322}# - #{labelvec\ 1316}#)))))))) - (cdr #{w\ 1309}#)))))) - (#{smart-append\ 422}# - (lambda (#{m1\ 1335}# #{m2\ 1336}#) - (if (null? #{m2\ 1336}#) - #{m1\ 1335}# - (append #{m1\ 1335}# #{m2\ 1336}#)))) - (#{join-wraps\ 424}# - (lambda (#{w1\ 1339}# #{w2\ 1340}#) + #{marksvec 1322}# + #{i 1328}# + #{marks 1330}#) + (#{f 1326}# + (cdr #{ids 1327}#) + (#{1+}# #{i 1328}#))))))))) + (begin (#{f 1326}# #{ids 1307}# 0))) + (#{make-ribcage 394}# + #{symnamevec 1321}# + #{marksvec 1322}# + #{labelvec 1316}#)))))))) + (cdr #{w 1309}#)))))) + (#{smart-append 422}# + (lambda (#{m1 1335}# #{m2 1336}#) + (if (null? #{m2 1336}#) + #{m1 1335}# + (append #{m1 1335}# #{m2 1336}#)))) + (#{join-wraps 424}# + (lambda (#{w1 1339}# #{w2 1340}#) (begin - (let ((#{m1\ 1345}# (car #{w1\ 1339}#)) - (#{s1\ 1346}# (cdr #{w1\ 1339}#))) - (if (null? #{m1\ 1345}#) - (if (null? #{s1\ 1346}#) - #{w2\ 1340}# - (cons (car #{w2\ 1340}#) - (#{smart-append\ 422}# - #{s1\ 1346}# - (cdr #{w2\ 1340}#)))) - (cons (#{smart-append\ 422}# - #{m1\ 1345}# - (car #{w2\ 1340}#)) - (#{smart-append\ 422}# - #{s1\ 1346}# - (cdr #{w2\ 1340}#)))))))) - (#{join-marks\ 426}# - (lambda (#{m1\ 1355}# #{m2\ 1356}#) - (#{smart-append\ 422}# #{m1\ 1355}# #{m2\ 1356}#))) - (#{same-marks?\ 428}# - (lambda (#{x\ 1359}# #{y\ 1360}#) + (let ((#{m1 1345}# (car #{w1 1339}#)) + (#{s1 1346}# (cdr #{w1 1339}#))) + (if (null? #{m1 1345}#) + (if (null? #{s1 1346}#) + #{w2 1340}# + (cons (car #{w2 1340}#) + (#{smart-append 422}# + #{s1 1346}# + (cdr #{w2 1340}#)))) + (cons (#{smart-append 422}# + #{m1 1345}# + (car #{w2 1340}#)) + (#{smart-append 422}# + #{s1 1346}# + (cdr #{w2 1340}#)))))))) + (#{join-marks 426}# + (lambda (#{m1 1355}# #{m2 1356}#) + (#{smart-append 422}# #{m1 1355}# #{m2 1356}#))) + (#{same-marks? 428}# + (lambda (#{x 1359}# #{y 1360}#) (begin - (let ((#{t\ 1365}# (eq? #{x\ 1359}# #{y\ 1360}#))) - (if #{t\ 1365}# - #{t\ 1365}# - (if (not (null? #{x\ 1359}#)) - (if (not (null? #{y\ 1360}#)) - (if (eq? (car #{x\ 1359}#) (car #{y\ 1360}#)) - (#{same-marks?\ 428}# - (cdr #{x\ 1359}#) - (cdr #{y\ 1360}#)) + (let ((#{t 1365}# (eq? #{x 1359}# #{y 1360}#))) + (if #{t 1365}# + #{t 1365}# + (if (not (null? #{x 1359}#)) + (if (not (null? #{y 1360}#)) + (if (eq? (car #{x 1359}#) (car #{y 1360}#)) + (#{same-marks? 428}# + (cdr #{x 1359}#) + (cdr #{y 1360}#)) #f) #f) #f)))))) - (#{id-var-name\ 430}# - (lambda (#{id\ 1371}# #{w\ 1372}#) + (#{id-var-name 430}# + (lambda (#{id 1371}# #{w 1372}#) (letrec* - ((#{search\ 1377}# - (lambda (#{sym\ 1393}# #{subst\ 1394}# #{marks\ 1395}#) - (if (null? #{subst\ 1394}#) - (values #f #{marks\ 1395}#) + ((#{search 1377}# + (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#) + (if (null? #{subst 1394}#) + (values #f #{marks 1395}#) (begin - (let ((#{fst\ 1400}# (car #{subst\ 1394}#))) - (if (eq? #{fst\ 1400}# 'shift) - (#{search\ 1377}# - #{sym\ 1393}# - (cdr #{subst\ 1394}#) - (cdr #{marks\ 1395}#)) + (let ((#{fst 1400}# (car #{subst 1394}#))) + (if (eq? #{fst 1400}# 'shift) + (#{search 1377}# + #{sym 1393}# + (cdr #{subst 1394}#) + (cdr #{marks 1395}#)) (begin - (let ((#{symnames\ 1402}# - (#{ribcage-symnames\ 398}# #{fst\ 1400}#))) - (if (vector? #{symnames\ 1402}#) - (#{search-vector-rib\ 1381}# - #{sym\ 1393}# - #{subst\ 1394}# - #{marks\ 1395}# - #{symnames\ 1402}# - #{fst\ 1400}#) - (#{search-list-rib\ 1379}# - #{sym\ 1393}# - #{subst\ 1394}# - #{marks\ 1395}# - #{symnames\ 1402}# - #{fst\ 1400}#)))))))))) - (#{search-list-rib\ 1379}# - (lambda (#{sym\ 1403}# - #{subst\ 1404}# - #{marks\ 1405}# - #{symnames\ 1406}# - #{ribcage\ 1407}#) + (let ((#{symnames 1402}# + (#{ribcage-symnames 398}# #{fst 1400}#))) + (if (vector? #{symnames 1402}#) + (#{search-vector-rib 1381}# + #{sym 1393}# + #{subst 1394}# + #{marks 1395}# + #{symnames 1402}# + #{fst 1400}#) + (#{search-list-rib 1379}# + #{sym 1393}# + #{subst 1394}# + #{marks 1395}# + #{symnames 1402}# + #{fst 1400}#)))))))))) + (#{search-list-rib 1379}# + (lambda (#{sym 1403}# + #{subst 1404}# + #{marks 1405}# + #{symnames 1406}# + #{ribcage 1407}#) (letrec* - ((#{f\ 1416}# - (lambda (#{symnames\ 1417}# #{i\ 1418}#) - (if (null? #{symnames\ 1417}#) - (#{search\ 1377}# - #{sym\ 1403}# - (cdr #{subst\ 1404}#) - #{marks\ 1405}#) - (if (if (eq? (car #{symnames\ 1417}#) #{sym\ 1403}#) - (#{same-marks?\ 428}# - #{marks\ 1405}# + ((#{f 1416}# + (lambda (#{symnames 1417}# #{i 1418}#) + (if (null? #{symnames 1417}#) + (#{search 1377}# + #{sym 1403}# + (cdr #{subst 1404}#) + #{marks 1405}#) + (if (if (eq? (car #{symnames 1417}#) #{sym 1403}#) + (#{same-marks? 428}# + #{marks 1405}# (list-ref - (#{ribcage-marks\ 400}# #{ribcage\ 1407}#) - #{i\ 1418}#)) + (#{ribcage-marks 400}# #{ribcage 1407}#) + #{i 1418}#)) #f) (values (list-ref - (#{ribcage-labels\ 402}# #{ribcage\ 1407}#) - #{i\ 1418}#) - #{marks\ 1405}#) - (#{f\ 1416}# - (cdr #{symnames\ 1417}#) - (1+ #{i\ 1418}#))))))) - (begin (#{f\ 1416}# #{symnames\ 1406}# 0))))) - (#{search-vector-rib\ 1381}# - (lambda (#{sym\ 1427}# - #{subst\ 1428}# - #{marks\ 1429}# - #{symnames\ 1430}# - #{ribcage\ 1431}#) + (#{ribcage-labels 402}# #{ribcage 1407}#) + #{i 1418}#) + #{marks 1405}#) + (#{f 1416}# + (cdr #{symnames 1417}#) + (#{1+}# #{i 1418}#))))))) + (begin (#{f 1416}# #{symnames 1406}# 0))))) + (#{search-vector-rib 1381}# + (lambda (#{sym 1427}# + #{subst 1428}# + #{marks 1429}# + #{symnames 1430}# + #{ribcage 1431}#) (begin - (let ((#{n\ 1438}# (vector-length #{symnames\ 1430}#))) + (let ((#{n 1438}# (vector-length #{symnames 1430}#))) (letrec* - ((#{f\ 1441}# - (lambda (#{i\ 1442}#) - (if (= #{i\ 1442}# #{n\ 1438}#) - (#{search\ 1377}# - #{sym\ 1427}# - (cdr #{subst\ 1428}#) - #{marks\ 1429}#) + ((#{f 1441}# + (lambda (#{i 1442}#) + (if (= #{i 1442}# #{n 1438}#) + (#{search 1377}# + #{sym 1427}# + (cdr #{subst 1428}#) + #{marks 1429}#) (if (if (eq? (vector-ref - #{symnames\ 1430}# - #{i\ 1442}#) - #{sym\ 1427}#) - (#{same-marks?\ 428}# - #{marks\ 1429}# + #{symnames 1430}# + #{i 1442}#) + #{sym 1427}#) + (#{same-marks? 428}# + #{marks 1429}# (vector-ref - (#{ribcage-marks\ 400}# - #{ribcage\ 1431}#) - #{i\ 1442}#)) + (#{ribcage-marks 400}# + #{ribcage 1431}#) + #{i 1442}#)) #f) (values (vector-ref - (#{ribcage-labels\ 402}# - #{ribcage\ 1431}#) - #{i\ 1442}#) - #{marks\ 1429}#) - (#{f\ 1441}# (1+ #{i\ 1442}#))))))) - (begin (#{f\ 1441}# 0)))))))) + (#{ribcage-labels 402}# #{ribcage 1431}#) + #{i 1442}#) + #{marks 1429}#) + (#{f 1441}# (#{1+}# #{i 1442}#))))))) + (begin (#{f 1441}# 0)))))))) (begin - (if (symbol? #{id\ 1371}#) + (if (symbol? #{id 1371}#) (begin - (let ((#{t\ 1454}# + (let ((#{t 1454}# (call-with-values (lambda () - (#{search\ 1377}# - #{id\ 1371}# - (cdr #{w\ 1372}#) - (car #{w\ 1372}#))) - (lambda (#{x\ 1458}# . #{ignore\ 1459}#) - #{x\ 1458}#)))) - (if #{t\ 1454}# #{t\ 1454}# #{id\ 1371}#))) - (if (#{syntax-object?\ 342}# #{id\ 1371}#) + (#{search 1377}# + #{id 1371}# + (cdr #{w 1372}#) + (car #{w 1372}#))) + (lambda (#{x 1458}# . #{ignore 1459}#) + #{x 1458}#)))) + (if #{t 1454}# #{t 1454}# #{id 1371}#))) + (if (#{syntax-object? 342}# #{id 1371}#) (begin - (let ((#{id\ 1467}# - (#{syntax-object-expression\ 344}# #{id\ 1371}#)) - (#{w1\ 1468}# - (#{syntax-object-wrap\ 346}# #{id\ 1371}#))) + (let ((#{id 1467}# + (#{syntax-object-expression 344}# #{id 1371}#)) + (#{w1 1468}# + (#{syntax-object-wrap 346}# #{id 1371}#))) (begin - (let ((#{marks\ 1470}# - (#{join-marks\ 426}# - (car #{w\ 1372}#) - (car #{w1\ 1468}#)))) + (let ((#{marks 1470}# + (#{join-marks 426}# + (car #{w 1372}#) + (car #{w1 1468}#)))) (call-with-values (lambda () - (#{search\ 1377}# - #{id\ 1467}# - (cdr #{w\ 1372}#) - #{marks\ 1470}#)) - (lambda (#{new-id\ 1474}# #{marks\ 1475}#) + (#{search 1377}# + #{id 1467}# + (cdr #{w 1372}#) + #{marks 1470}#)) + (lambda (#{new-id 1474}# #{marks 1475}#) (begin - (let ((#{t\ 1480}# #{new-id\ 1474}#)) - (if #{t\ 1480}# - #{t\ 1480}# + (let ((#{t 1480}# #{new-id 1474}#)) + (if #{t 1480}# + #{t 1480}# (begin - (let ((#{t\ 1483}# + (let ((#{t 1483}# (call-with-values (lambda () - (#{search\ 1377}# - #{id\ 1467}# - (cdr #{w1\ 1468}#) - #{marks\ 1475}#)) - (lambda (#{x\ 1486}# + (#{search 1377}# + #{id 1467}# + (cdr #{w1 1468}#) + #{marks 1475}#)) + (lambda (#{x 1486}# . - #{ignore\ 1487}#) - #{x\ 1486}#)))) - (if #{t\ 1483}# - #{t\ 1483}# - #{id\ 1467}#)))))))))))) + #{ignore 1487}#) + #{x 1486}#)))) + (if #{t 1483}# + #{t 1483}# + #{id 1467}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1371}#))))))) - (#{free-id=?\ 432}# - (lambda (#{i\ 1492}# #{j\ 1493}#) + #{id 1371}#))))))) + (#{free-id=? 432}# + (lambda (#{i 1492}# #{j 1493}#) (if (eq? (begin - (let ((#{x\ 1499}# #{i\ 1492}#)) - (if (#{syntax-object?\ 342}# #{x\ 1499}#) - (#{syntax-object-expression\ 344}# #{x\ 1499}#) - #{x\ 1499}#))) + (let ((#{x 1499}# #{i 1492}#)) + (if (#{syntax-object? 342}# #{x 1499}#) + (#{syntax-object-expression 344}# #{x 1499}#) + #{x 1499}#))) (begin - (let ((#{x\ 1502}# #{j\ 1493}#)) - (if (#{syntax-object?\ 342}# #{x\ 1502}#) - (#{syntax-object-expression\ 344}# #{x\ 1502}#) - #{x\ 1502}#)))) - (eq? (#{id-var-name\ 430}# #{i\ 1492}# '(())) - (#{id-var-name\ 430}# #{j\ 1493}# '(()))) + (let ((#{x 1502}# #{j 1493}#)) + (if (#{syntax-object? 342}# #{x 1502}#) + (#{syntax-object-expression 344}# #{x 1502}#) + #{x 1502}#)))) + (eq? (#{id-var-name 430}# #{i 1492}# '(())) + (#{id-var-name 430}# #{j 1493}# '(()))) #f))) - (#{bound-id=?\ 434}# - (lambda (#{i\ 1506}# #{j\ 1507}#) - (if (if (#{syntax-object?\ 342}# #{i\ 1506}#) - (#{syntax-object?\ 342}# #{j\ 1507}#) + (#{bound-id=? 434}# + (lambda (#{i 1506}# #{j 1507}#) + (if (if (#{syntax-object? 342}# #{i 1506}#) + (#{syntax-object? 342}# #{j 1507}#) #f) - (if (eq? (#{syntax-object-expression\ 344}# #{i\ 1506}#) - (#{syntax-object-expression\ 344}# #{j\ 1507}#)) - (#{same-marks?\ 428}# - (car (#{syntax-object-wrap\ 346}# #{i\ 1506}#)) - (car (#{syntax-object-wrap\ 346}# #{j\ 1507}#))) + (if (eq? (#{syntax-object-expression 344}# #{i 1506}#) + (#{syntax-object-expression 344}# #{j 1507}#)) + (#{same-marks? 428}# + (car (#{syntax-object-wrap 346}# #{i 1506}#)) + (car (#{syntax-object-wrap 346}# #{j 1507}#))) #f) - (eq? #{i\ 1506}# #{j\ 1507}#)))) - (#{valid-bound-ids?\ 436}# - (lambda (#{ids\ 1516}#) + (eq? #{i 1506}# #{j 1507}#)))) + (#{valid-bound-ids? 436}# + (lambda (#{ids 1516}#) (if (letrec* - ((#{all-ids?\ 1521}# - (lambda (#{ids\ 1522}#) + ((#{all-ids? 1521}# + (lambda (#{ids 1522}#) (begin - (let ((#{t\ 1525}# (null? #{ids\ 1522}#))) - (if #{t\ 1525}# - #{t\ 1525}# - (if (#{id?\ 376}# (car #{ids\ 1522}#)) - (#{all-ids?\ 1521}# (cdr #{ids\ 1522}#)) + (let ((#{t 1525}# (null? #{ids 1522}#))) + (if #{t 1525}# + #{t 1525}# + (if (#{id? 376}# (car #{ids 1522}#)) + (#{all-ids? 1521}# (cdr #{ids 1522}#)) #f))))))) - (begin (#{all-ids?\ 1521}# #{ids\ 1516}#))) - (#{distinct-bound-ids?\ 438}# #{ids\ 1516}#) + (begin (#{all-ids? 1521}# #{ids 1516}#))) + (#{distinct-bound-ids? 438}# #{ids 1516}#) #f))) - (#{distinct-bound-ids?\ 438}# - (lambda (#{ids\ 1530}#) + (#{distinct-bound-ids? 438}# + (lambda (#{ids 1530}#) (letrec* - ((#{distinct?\ 1534}# - (lambda (#{ids\ 1535}#) + ((#{distinct? 1534}# + (lambda (#{ids 1535}#) (begin - (let ((#{t\ 1538}# (null? #{ids\ 1535}#))) - (if #{t\ 1538}# - #{t\ 1538}# - (if (not (#{bound-id-member?\ 440}# - (car #{ids\ 1535}#) - (cdr #{ids\ 1535}#))) - (#{distinct?\ 1534}# (cdr #{ids\ 1535}#)) + (let ((#{t 1538}# (null? #{ids 1535}#))) + (if #{t 1538}# + #{t 1538}# + (if (not (#{bound-id-member? 440}# + (car #{ids 1535}#) + (cdr #{ids 1535}#))) + (#{distinct? 1534}# (cdr #{ids 1535}#)) #f))))))) - (begin (#{distinct?\ 1534}# #{ids\ 1530}#))))) - (#{bound-id-member?\ 440}# - (lambda (#{x\ 1542}# #{list\ 1543}#) - (if (not (null? #{list\ 1543}#)) + (begin (#{distinct? 1534}# #{ids 1530}#))))) + (#{bound-id-member? 440}# + (lambda (#{x 1542}# #{list 1543}#) + (if (not (null? #{list 1543}#)) (begin - (let ((#{t\ 1550}# - (#{bound-id=?\ 434}# - #{x\ 1542}# - (car #{list\ 1543}#)))) - (if #{t\ 1550}# - #{t\ 1550}# - (#{bound-id-member?\ 440}# - #{x\ 1542}# - (cdr #{list\ 1543}#))))) + (let ((#{t 1550}# + (#{bound-id=? 434}# + #{x 1542}# + (car #{list 1543}#)))) + (if #{t 1550}# + #{t 1550}# + (#{bound-id-member? 440}# + #{x 1542}# + (cdr #{list 1543}#))))) #f))) - (#{wrap\ 442}# - (lambda (#{x\ 1552}# #{w\ 1553}# #{defmod\ 1554}#) - (if (if (null? (car #{w\ 1553}#)) - (null? (cdr #{w\ 1553}#)) + (#{wrap 442}# + (lambda (#{x 1552}# #{w 1553}# #{defmod 1554}#) + (if (if (null? (car #{w 1553}#)) + (null? (cdr #{w 1553}#)) #f) - #{x\ 1552}# - (if (#{syntax-object?\ 342}# #{x\ 1552}#) - (#{make-syntax-object\ 340}# - (#{syntax-object-expression\ 344}# #{x\ 1552}#) - (#{join-wraps\ 424}# - #{w\ 1553}# - (#{syntax-object-wrap\ 346}# #{x\ 1552}#)) - (#{syntax-object-module\ 348}# #{x\ 1552}#)) - (if (null? #{x\ 1552}#) - #{x\ 1552}# - (#{make-syntax-object\ 340}# - #{x\ 1552}# - #{w\ 1553}# - #{defmod\ 1554}#)))))) - (#{source-wrap\ 444}# - (lambda (#{x\ 1569}# - #{w\ 1570}# - #{s\ 1571}# - #{defmod\ 1572}#) - (#{wrap\ 442}# - (#{decorate-source\ 296}# - #{x\ 1569}# - #{s\ 1571}#) - #{w\ 1570}# - #{defmod\ 1572}#))) - (#{chi-sequence\ 446}# - (lambda (#{body\ 1577}# - #{r\ 1578}# - #{w\ 1579}# - #{s\ 1580}# - #{mod\ 1581}#) - (#{build-sequence\ 330}# - #{s\ 1580}# + #{x 1552}# + (if (#{syntax-object? 342}# #{x 1552}#) + (#{make-syntax-object 340}# + (#{syntax-object-expression 344}# #{x 1552}#) + (#{join-wraps 424}# + #{w 1553}# + (#{syntax-object-wrap 346}# #{x 1552}#)) + (#{syntax-object-module 348}# #{x 1552}#)) + (if (null? #{x 1552}#) + #{x 1552}# + (#{make-syntax-object 340}# + #{x 1552}# + #{w 1553}# + #{defmod 1554}#)))))) + (#{source-wrap 444}# + (lambda (#{x 1569}# + #{w 1570}# + #{s 1571}# + #{defmod 1572}#) + (#{wrap 442}# + (#{decorate-source 296}# #{x 1569}# #{s 1571}#) + #{w 1570}# + #{defmod 1572}#))) + (#{chi-sequence 446}# + (lambda (#{body 1577}# + #{r 1578}# + #{w 1579}# + #{s 1580}# + #{mod 1581}#) + (#{build-sequence 330}# + #{s 1580}# (letrec* - ((#{dobody\ 1592}# - (lambda (#{body\ 1593}# - #{r\ 1594}# - #{w\ 1595}# - #{mod\ 1596}#) - (if (null? #{body\ 1593}#) + ((#{dobody 1592}# + (lambda (#{body 1593}# + #{r 1594}# + #{w 1595}# + #{mod 1596}#) + (if (null? #{body 1593}#) '() (begin - (let ((#{first\ 1598}# - (#{chi\ 456}# - (car #{body\ 1593}#) - #{r\ 1594}# - #{w\ 1595}# - #{mod\ 1596}#))) - (cons #{first\ 1598}# - (#{dobody\ 1592}# - (cdr #{body\ 1593}#) - #{r\ 1594}# - #{w\ 1595}# - #{mod\ 1596}#)))))))) + (let ((#{first 1598}# + (#{chi 456}# + (car #{body 1593}#) + #{r 1594}# + #{w 1595}# + #{mod 1596}#))) + (cons #{first 1598}# + (#{dobody 1592}# + (cdr #{body 1593}#) + #{r 1594}# + #{w 1595}# + #{mod 1596}#)))))))) (begin - (#{dobody\ 1592}# - #{body\ 1577}# - #{r\ 1578}# - #{w\ 1579}# - #{mod\ 1581}#)))))) - (#{chi-top-sequence\ 448}# - (lambda (#{body\ 1599}# - #{r\ 1600}# - #{w\ 1601}# - #{s\ 1602}# - #{m\ 1603}# - #{esew\ 1604}# - #{mod\ 1605}#) + (#{dobody 1592}# + #{body 1577}# + #{r 1578}# + #{w 1579}# + #{mod 1581}#)))))) + (#{chi-top-sequence 448}# + (lambda (#{body 1599}# + #{r 1600}# + #{w 1601}# + #{s 1602}# + #{m 1603}# + #{esew 1604}# + #{mod 1605}#) (letrec* - ((#{scan\ 1614}# - (lambda (#{body\ 1615}# - #{r\ 1616}# - #{w\ 1617}# - #{s\ 1618}# - #{m\ 1619}# - #{esew\ 1620}# - #{mod\ 1621}# - #{exps\ 1622}#) - (if (null? #{body\ 1615}#) - #{exps\ 1622}# + ((#{scan 1614}# + (lambda (#{body 1615}# + #{r 1616}# + #{w 1617}# + #{s 1618}# + #{m 1619}# + #{esew 1620}# + #{mod 1621}# + #{exps 1622}#) + (if (null? #{body 1615}#) + #{exps 1622}# (call-with-values (lambda () (call-with-values (lambda () (begin - (let ((#{e\ 1635}# (car #{body\ 1615}#))) - (#{syntax-type\ 454}# - #{e\ 1635}# - #{r\ 1616}# - #{w\ 1617}# + (let ((#{e 1635}# (car #{body 1615}#))) + (#{syntax-type 454}# + #{e 1635}# + #{r 1616}# + #{w 1617}# (begin - (let ((#{t\ 1638}# - (#{source-annotation\ 357}# - #{e\ 1635}#))) - (if #{t\ 1638}# - #{t\ 1638}# - #{s\ 1618}#))) + (let ((#{t 1638}# + (#{source-annotation 357}# + #{e 1635}#))) + (if #{t 1638}# #{t 1638}# #{s 1618}#))) #f - #{mod\ 1621}# + #{mod 1621}# #f)))) - (lambda (#{type\ 1640}# - #{value\ 1641}# - #{e\ 1642}# - #{w\ 1643}# - #{s\ 1644}# - #{mod\ 1645}#) - (if (eqv? #{type\ 1640}# 'begin-form) - (let ((#{tmp\ 1653}# #{e\ 1642}#)) - (let ((#{tmp\ 1654}# - ($sc-dispatch #{tmp\ 1653}# '(_)))) - (if #{tmp\ 1654}# + (lambda (#{type 1640}# + #{value 1641}# + #{e 1642}# + #{w 1643}# + #{s 1644}# + #{mod 1645}#) + (if (eqv? #{type 1640}# 'begin-form) + (let ((#{tmp 1653}# #{e 1642}#)) + (let ((#{tmp 1654}# + ($sc-dispatch #{tmp 1653}# '(_)))) + (if #{tmp 1654}# (@apply - (lambda () #{exps\ 1622}#) - #{tmp\ 1654}#) - (let ((#{tmp\ 1655}# + (lambda () #{exps 1622}#) + #{tmp 1654}#) + (let ((#{tmp 1655}# ($sc-dispatch - #{tmp\ 1653}# + #{tmp 1653}# '(_ any . each-any)))) - (if #{tmp\ 1655}# + (if #{tmp 1655}# (@apply - (lambda (#{e1\ 1658}# #{e2\ 1659}#) - (#{scan\ 1614}# - (cons #{e1\ 1658}# #{e2\ 1659}#) - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# - #{m\ 1619}# - #{esew\ 1620}# - #{mod\ 1645}# - #{exps\ 1622}#)) - #{tmp\ 1655}#) + (lambda (#{e1 1658}# #{e2 1659}#) + (#{scan 1614}# + (cons #{e1 1658}# #{e2 1659}#) + #{r 1616}# + #{w 1643}# + #{s 1644}# + #{m 1619}# + #{esew 1620}# + #{mod 1645}# + #{exps 1622}#)) + #{tmp 1655}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1653}#)))))) - (if (eqv? #{type\ 1640}# 'local-syntax-form) - (#{chi-local-syntax\ 466}# - #{value\ 1641}# - #{e\ 1642}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# - #{mod\ 1645}# - (lambda (#{body\ 1662}# - #{r\ 1663}# - #{w\ 1664}# - #{s\ 1665}# - #{mod\ 1666}#) - (#{scan\ 1614}# - #{body\ 1662}# - #{r\ 1663}# - #{w\ 1664}# - #{s\ 1665}# - #{m\ 1619}# - #{esew\ 1620}# - #{mod\ 1666}# - #{exps\ 1622}#))) - (if (eqv? #{type\ 1640}# 'eval-when-form) - (let ((#{tmp\ 1673}# #{e\ 1642}#)) - (let ((#{tmp\ 1674}# + #{tmp 1653}#)))))) + (if (eqv? #{type 1640}# 'local-syntax-form) + (#{chi-local-syntax 466}# + #{value 1641}# + #{e 1642}# + #{r 1616}# + #{w 1643}# + #{s 1644}# + #{mod 1645}# + (lambda (#{body 1662}# + #{r 1663}# + #{w 1664}# + #{s 1665}# + #{mod 1666}#) + (#{scan 1614}# + #{body 1662}# + #{r 1663}# + #{w 1664}# + #{s 1665}# + #{m 1619}# + #{esew 1620}# + #{mod 1666}# + #{exps 1622}#))) + (if (eqv? #{type 1640}# 'eval-when-form) + (let ((#{tmp 1673}# #{e 1642}#)) + (let ((#{tmp 1674}# ($sc-dispatch - #{tmp\ 1673}# + #{tmp 1673}# '(_ each-any any . each-any)))) - (if #{tmp\ 1674}# + (if #{tmp 1674}# (@apply - (lambda (#{x\ 1678}# - #{e1\ 1679}# - #{e2\ 1680}#) + (lambda (#{x 1678}# + #{e1 1679}# + #{e2 1680}#) (begin - (let ((#{when-list\ 1683}# - (#{chi-when-list\ 452}# - #{e\ 1642}# - #{x\ 1678}# - #{w\ 1643}#)) - (#{body\ 1684}# - (cons #{e1\ 1679}# - #{e2\ 1680}#))) - (if (eq? #{m\ 1619}# 'e) + (let ((#{when-list 1683}# + (#{chi-when-list 452}# + #{e 1642}# + #{x 1678}# + #{w 1643}#)) + (#{body 1684}# + (cons #{e1 1679}# + #{e2 1680}#))) + (if (eq? #{m 1619}# 'e) (if (memq 'eval - #{when-list\ 1683}#) - (#{scan\ 1614}# - #{body\ 1684}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# + #{when-list 1683}#) + (#{scan 1614}# + #{body 1684}# + #{r 1616}# + #{w 1643}# + #{s 1644}# (if (memq 'expand - #{when-list\ 1683}#) + #{when-list 1683}#) 'c&e 'e) '(eval) - #{mod\ 1645}# - #{exps\ 1622}#) + #{mod 1645}# + #{exps 1622}#) (begin (if (memq 'expand - #{when-list\ 1683}#) - (#{top-level-eval-hook\ 287}# - (#{chi-top-sequence\ 448}# - #{body\ 1684}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# + #{when-list 1683}#) + (#{top-level-eval-hook 287}# + (#{chi-top-sequence 448}# + #{body 1684}# + #{r 1616}# + #{w 1643}# + #{s 1644}# 'e '(eval) - #{mod\ 1645}#) - #{mod\ 1645}#)) - #{exps\ 1622}#)) + #{mod 1645}#) + #{mod 1645}#)) + #{exps 1622}#)) (if (memq 'load - #{when-list\ 1683}#) + #{when-list 1683}#) (if (begin - (let ((#{t\ 1693}# + (let ((#{t 1693}# (memq 'compile - #{when-list\ 1683}#))) - (if #{t\ 1693}# - #{t\ 1693}# + #{when-list 1683}#))) + (if #{t 1693}# + #{t 1693}# (begin - (let ((#{t\ 1696}# + (let ((#{t 1696}# (memq 'expand - #{when-list\ 1683}#))) - (if #{t\ 1696}# - #{t\ 1696}# - (if (eq? #{m\ 1619}# + #{when-list 1683}#))) + (if #{t 1696}# + #{t 1696}# + (if (eq? #{m 1619}# 'c&e) (memq 'eval - #{when-list\ 1683}#) + #{when-list 1683}#) #f))))))) - (#{scan\ 1614}# - #{body\ 1684}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# + (#{scan 1614}# + #{body 1684}# + #{r 1616}# + #{w 1643}# + #{s 1644}# 'c&e '(compile load) - #{mod\ 1645}# - #{exps\ 1622}#) - (if (if (eq? #{m\ 1619}# + #{mod 1645}# + #{exps 1622}#) + (if (if (eq? #{m 1619}# 'c) #t - (eq? #{m\ 1619}# + (eq? #{m 1619}# 'c&e)) - (#{scan\ 1614}# - #{body\ 1684}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# + (#{scan 1614}# + #{body 1684}# + #{r 1616}# + #{w 1643}# + #{s 1644}# 'c '(load) - #{mod\ 1645}# - #{exps\ 1622}#) - #{exps\ 1622}#)) + #{mod 1645}# + #{exps 1622}#) + #{exps 1622}#)) (if (begin - (let ((#{t\ 1704}# + (let ((#{t 1704}# (memq 'compile - #{when-list\ 1683}#))) - (if #{t\ 1704}# - #{t\ 1704}# + #{when-list 1683}#))) + (if #{t 1704}# + #{t 1704}# (begin - (let ((#{t\ 1707}# + (let ((#{t 1707}# (memq 'expand - #{when-list\ 1683}#))) - (if #{t\ 1707}# - #{t\ 1707}# - (if (eq? #{m\ 1619}# + #{when-list 1683}#))) + (if #{t 1707}# + #{t 1707}# + (if (eq? #{m 1619}# 'c&e) (memq 'eval - #{when-list\ 1683}#) + #{when-list 1683}#) #f))))))) (begin - (#{top-level-eval-hook\ 287}# - (#{chi-top-sequence\ 448}# - #{body\ 1684}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# + (#{top-level-eval-hook 287}# + (#{chi-top-sequence 448}# + #{body 1684}# + #{r 1616}# + #{w 1643}# + #{s 1644}# 'e '(eval) - #{mod\ 1645}#) - #{mod\ 1645}#) - #{exps\ 1622}#) - #{exps\ 1622}#)))))) - #{tmp\ 1674}#) + #{mod 1645}#) + #{mod 1645}#) + #{exps 1622}#) + #{exps 1622}#)))))) + #{tmp 1674}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1673}#)))) - (if (eqv? #{type\ 1640}# 'define-syntax-form) + #{tmp 1673}#)))) + (if (eqv? #{type 1640}# 'define-syntax-form) (begin - (let ((#{n\ 1715}# - (#{id-var-name\ 430}# - #{value\ 1641}# - #{w\ 1643}#)) - (#{r\ 1716}# - (#{macros-only-env\ 368}# - #{r\ 1616}#))) - (if (eqv? #{m\ 1619}# 'c) - (if (memq 'compile #{esew\ 1620}#) + (let ((#{n 1715}# + (#{id-var-name 430}# + #{value 1641}# + #{w 1643}#)) + (#{r 1716}# + (#{macros-only-env 368}# + #{r 1616}#))) + (if (eqv? #{m 1619}# 'c) + (if (memq 'compile #{esew 1620}#) (begin - (let ((#{e\ 1719}# - (#{chi-install-global\ 450}# - #{n\ 1715}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1716}# - #{w\ 1643}# - #{mod\ 1645}#)))) + (let ((#{e 1719}# + (#{chi-install-global 450}# + #{n 1715}# + (#{chi 456}# + #{e 1642}# + #{r 1716}# + #{w 1643}# + #{mod 1645}#)))) (begin - (#{top-level-eval-hook\ 287}# - #{e\ 1719}# - #{mod\ 1645}#) + (#{top-level-eval-hook 287}# + #{e 1719}# + #{mod 1645}#) (if (memq 'load - #{esew\ 1620}#) - (cons #{e\ 1719}# - #{exps\ 1622}#) - #{exps\ 1622}#)))) - (if (memq 'load #{esew\ 1620}#) - (cons (#{chi-install-global\ 450}# - #{n\ 1715}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1716}# - #{w\ 1643}# - #{mod\ 1645}#)) - #{exps\ 1622}#) - #{exps\ 1622}#)) - (if (eqv? #{m\ 1619}# 'c&e) + #{esew 1620}#) + (cons #{e 1719}# + #{exps 1622}#) + #{exps 1622}#)))) + (if (memq 'load #{esew 1620}#) + (cons (#{chi-install-global 450}# + #{n 1715}# + (#{chi 456}# + #{e 1642}# + #{r 1716}# + #{w 1643}# + #{mod 1645}#)) + #{exps 1622}#) + #{exps 1622}#)) + (if (eqv? #{m 1619}# 'c&e) (begin - (let ((#{e\ 1722}# - (#{chi-install-global\ 450}# - #{n\ 1715}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1716}# - #{w\ 1643}# - #{mod\ 1645}#)))) + (let ((#{e 1722}# + (#{chi-install-global 450}# + #{n 1715}# + (#{chi 456}# + #{e 1642}# + #{r 1716}# + #{w 1643}# + #{mod 1645}#)))) (begin - (#{top-level-eval-hook\ 287}# - #{e\ 1722}# - #{mod\ 1645}#) - (cons #{e\ 1722}# - #{exps\ 1622}#)))) + (#{top-level-eval-hook 287}# + #{e 1722}# + #{mod 1645}#) + (cons #{e 1722}# + #{exps 1622}#)))) (begin - (if (memq 'eval #{esew\ 1620}#) - (#{top-level-eval-hook\ 287}# - (#{chi-install-global\ 450}# - #{n\ 1715}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1716}# - #{w\ 1643}# - #{mod\ 1645}#)) - #{mod\ 1645}#)) - #{exps\ 1622}#))))) - (if (eqv? #{type\ 1640}# 'define-form) + (if (memq 'eval #{esew 1620}#) + (#{top-level-eval-hook 287}# + (#{chi-install-global 450}# + #{n 1715}# + (#{chi 456}# + #{e 1642}# + #{r 1716}# + #{w 1643}# + #{mod 1645}#)) + #{mod 1645}#)) + #{exps 1622}#))))) + (if (eqv? #{type 1640}# 'define-form) (begin - (let ((#{n\ 1727}# - (#{id-var-name\ 430}# - #{value\ 1641}# - #{w\ 1643}#))) + (let ((#{n 1727}# + (#{id-var-name 430}# + #{value 1641}# + #{w 1643}#))) (begin - (let ((#{type\ 1729}# - (car (#{lookup\ 370}# - #{n\ 1727}# - #{r\ 1616}# - #{mod\ 1645}#)))) - (if (if (eqv? #{type\ 1729}# + (let ((#{type 1729}# + (car (#{lookup 370}# + #{n 1727}# + #{r 1616}# + #{mod 1645}#)))) + (if (if (eqv? #{type 1729}# 'global) #t - (if (eqv? #{type\ 1729}# + (if (eqv? #{type 1729}# 'core) #t - (if (eqv? #{type\ 1729}# + (if (eqv? #{type 1729}# 'macro) #t - (eqv? #{type\ 1729}# + (eqv? #{type 1729}# 'module-ref)))) (begin - (if (if (if (eq? #{m\ 1619}# + (if (if (if (eq? #{m 1619}# 'c) #t - (eq? #{m\ 1619}# + (eq? #{m 1619}# 'c&e)) (if (not (module-local-variable (current-module) - #{n\ 1727}#)) + #{n 1727}#)) (current-module) #f) #f) (begin - (let ((#{old\ 1736}# + (let ((#{old 1736}# (module-variable (current-module) - #{n\ 1727}#))) + #{n 1727}#))) (if (if (variable? - #{old\ 1736}#) + #{old 1736}#) (variable-bound? - #{old\ 1736}#) + #{old 1736}#) #f) (module-define! (current-module) - #{n\ 1727}# + #{n 1727}# (variable-ref - #{old\ 1736}#)) + #{old 1736}#)) (module-add! (current-module) - #{n\ 1727}# + #{n 1727}# (make-undefined-variable)))))) - (cons (if (eq? #{m\ 1619}# + (cons (if (eq? #{m 1619}# 'c&e) (begin - (let ((#{x\ 1740}# - (#{build-global-definition\ 318}# - #{s\ 1644}# - #{n\ 1727}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1616}# - #{w\ 1643}# - #{mod\ 1645}#)))) + (let ((#{x 1740}# + (#{build-global-definition 318}# + #{s 1644}# + #{n 1727}# + (#{chi 456}# + #{e 1642}# + #{r 1616}# + #{w 1643}# + #{mod 1645}#)))) (begin - (#{top-level-eval-hook\ 287}# - #{x\ 1740}# - #{mod\ 1645}#) - #{x\ 1740}#))) + (#{top-level-eval-hook 287}# + #{x 1740}# + #{mod 1645}#) + #{x 1740}#))) (lambda () - (#{build-global-definition\ 318}# - #{s\ 1644}# - #{n\ 1727}# - (#{chi\ 456}# - #{e\ 1642}# - #{r\ 1616}# - #{w\ 1643}# - #{mod\ 1645}#)))) - #{exps\ 1622}#)) - (if (eqv? #{type\ 1729}# + (#{build-global-definition 318}# + #{s 1644}# + #{n 1727}# + (#{chi 456}# + #{e 1642}# + #{r 1616}# + #{w 1643}# + #{mod 1645}#)))) + #{exps 1622}#)) + (if (eqv? #{type 1729}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e\ 1642}# - (#{wrap\ 442}# - #{value\ 1641}# - #{w\ 1643}# - #{mod\ 1645}#)) + #{e 1642}# + (#{wrap 442}# + #{value 1641}# + #{w 1643}# + #{mod 1645}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1642}# - (#{wrap\ 442}# - #{value\ 1641}# - #{w\ 1643}# - #{mod\ 1645}#)))))))) - (cons (if (eq? #{m\ 1619}# 'c&e) + #{e 1642}# + (#{wrap 442}# + #{value 1641}# + #{w 1643}# + #{mod 1645}#)))))))) + (cons (if (eq? #{m 1619}# 'c&e) (begin - (let ((#{x\ 1745}# - (#{chi-expr\ 458}# - #{type\ 1640}# - #{value\ 1641}# - #{e\ 1642}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# - #{mod\ 1645}#))) + (let ((#{x 1745}# + (#{chi-expr 458}# + #{type 1640}# + #{value 1641}# + #{e 1642}# + #{r 1616}# + #{w 1643}# + #{s 1644}# + #{mod 1645}#))) (begin - (#{top-level-eval-hook\ 287}# - #{x\ 1745}# - #{mod\ 1645}#) - #{x\ 1745}#))) + (#{top-level-eval-hook 287}# + #{x 1745}# + #{mod 1645}#) + #{x 1745}#))) (lambda () - (#{chi-expr\ 458}# - #{type\ 1640}# - #{value\ 1641}# - #{e\ 1642}# - #{r\ 1616}# - #{w\ 1643}# - #{s\ 1644}# - #{mod\ 1645}#))) - #{exps\ 1622}#))))))))) - (lambda (#{exps\ 1746}#) - (#{scan\ 1614}# - (cdr #{body\ 1615}#) - #{r\ 1616}# - #{w\ 1617}# - #{s\ 1618}# - #{m\ 1619}# - #{esew\ 1620}# - #{mod\ 1621}# - #{exps\ 1746}#))))))) + (#{chi-expr 458}# + #{type 1640}# + #{value 1641}# + #{e 1642}# + #{r 1616}# + #{w 1643}# + #{s 1644}# + #{mod 1645}#))) + #{exps 1622}#))))))))) + (lambda (#{exps 1746}#) + (#{scan 1614}# + (cdr #{body 1615}#) + #{r 1616}# + #{w 1617}# + #{s 1618}# + #{m 1619}# + #{esew 1620}# + #{mod 1621}# + #{exps 1746}#))))))) (begin (call-with-values (lambda () - (#{scan\ 1614}# - #{body\ 1599}# - #{r\ 1600}# - #{w\ 1601}# - #{s\ 1602}# - #{m\ 1603}# - #{esew\ 1604}# - #{mod\ 1605}# + (#{scan 1614}# + #{body 1599}# + #{r 1600}# + #{w 1601}# + #{s 1602}# + #{m 1603}# + #{esew 1604}# + #{mod 1605}# '())) - (lambda (#{exps\ 1748}#) - (if (null? #{exps\ 1748}#) - (#{build-void\ 300}# #{s\ 1602}#) - (#{build-sequence\ 330}# - #{s\ 1602}# + (lambda (#{exps 1748}#) + (if (null? #{exps 1748}#) + (#{build-void 300}# #{s 1602}#) + (#{build-sequence 330}# + #{s 1602}# (letrec* - ((#{lp\ 1753}# - (lambda (#{in\ 1754}# #{out\ 1755}#) - (if (null? #{in\ 1754}#) - #{out\ 1755}# + ((#{lp 1753}# + (lambda (#{in 1754}# #{out 1755}#) + (if (null? #{in 1754}#) + #{out 1755}# (begin - (let ((#{e\ 1757}# (car #{in\ 1754}#))) - (#{lp\ 1753}# - (cdr #{in\ 1754}#) - (cons (if (procedure? #{e\ 1757}#) - (#{e\ 1757}#) - #{e\ 1757}#) - #{out\ 1755}#)))))))) - (begin (#{lp\ 1753}# #{exps\ 1748}# '()))))))))))) - (#{chi-install-global\ 450}# - (lambda (#{name\ 1758}# #{e\ 1759}#) - (#{build-global-definition\ 318}# + (let ((#{e 1757}# (car #{in 1754}#))) + (#{lp 1753}# + (cdr #{in 1754}#) + (cons (if (procedure? #{e 1757}#) + (#{e 1757}#) + #{e 1757}#) + #{out 1755}#)))))))) + (begin (#{lp 1753}# #{exps 1748}# '()))))))))))) + (#{chi-install-global 450}# + (lambda (#{name 1758}# #{e 1759}#) + (#{build-global-definition 318}# #f - #{name\ 1758}# - (#{build-application\ 302}# + #{name 1758}# + (#{build-application 302}# #f - (#{build-primref\ 326}# + (#{build-primref 326}# #f 'make-syntax-transformer) - (list (#{build-data\ 328}# #f #{name\ 1758}#) - (#{build-data\ 328}# #f 'macro) - #{e\ 1759}#))))) - (#{chi-when-list\ 452}# - (lambda (#{e\ 1767}# #{when-list\ 1768}# #{w\ 1769}#) + (list (#{build-data 328}# #f #{name 1758}#) + (#{build-data 328}# #f 'macro) + #{e 1759}#))))) + (#{chi-when-list 452}# + (lambda (#{e 1767}# #{when-list 1768}# #{w 1769}#) (letrec* - ((#{f\ 1776}# - (lambda (#{when-list\ 1777}# #{situations\ 1778}#) - (if (null? #{when-list\ 1777}#) - #{situations\ 1778}# - (#{f\ 1776}# - (cdr #{when-list\ 1777}#) + ((#{f 1776}# + (lambda (#{when-list 1777}# #{situations 1778}#) + (if (null? #{when-list 1777}#) + #{situations 1778}# + (#{f 1776}# + (cdr #{when-list 1777}#) (cons (begin - (let ((#{x\ 1780}# (car #{when-list\ 1777}#))) - (if (#{free-id=?\ 432}# - #{x\ 1780}# + (let ((#{x 1780}# (car #{when-list 1777}#))) + (if (#{free-id=? 432}# + #{x 1780}# '#(syntax-object compile ((top) @@ -2010,8 +2002,8 @@ ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 432}# - #{x\ 1780}# + (if (#{free-id=? 432}# + #{x 1780}# '#(syntax-object load ((top) @@ -2447,8 +2439,8 @@ ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'load - (if (#{free-id=?\ 432}# - #{x\ 1780}# + (if (#{free-id=? 432}# + #{x 1780}# '#(syntax-object eval ((top) @@ -2887,8 +2879,8 @@ ("i41" "i40" "i39" "i37"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 432}# - #{x\ 1780}# + (if (#{free-id=? 432}# + #{x 1780}# '#(syntax-object expand ((top) @@ -3330,244 +3322,244 @@ (syntax-violation 'eval-when "invalid situation" - #{e\ 1767}# - (#{wrap\ 442}# - #{x\ 1780}# - #{w\ 1769}# + #{e 1767}# + (#{wrap 442}# + #{x 1780}# + #{w 1769}# #f)))))))) - #{situations\ 1778}#)))))) - (begin (#{f\ 1776}# #{when-list\ 1768}# '()))))) - (#{syntax-type\ 454}# - (lambda (#{e\ 1790}# - #{r\ 1791}# - #{w\ 1792}# - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}# - #{for-car?\ 1796}#) - (if (symbol? #{e\ 1790}#) + #{situations 1778}#)))))) + (begin (#{f 1776}# #{when-list 1768}# '()))))) + (#{syntax-type 454}# + (lambda (#{e 1790}# + #{r 1791}# + #{w 1792}# + #{s 1793}# + #{rib 1794}# + #{mod 1795}# + #{for-car? 1796}#) + (if (symbol? #{e 1790}#) (begin - (let ((#{n\ 1808}# - (#{id-var-name\ 430}# #{e\ 1790}# #{w\ 1792}#))) + (let ((#{n 1808}# + (#{id-var-name 430}# #{e 1790}# #{w 1792}#))) (begin - (let ((#{b\ 1810}# - (#{lookup\ 370}# - #{n\ 1808}# - #{r\ 1791}# - #{mod\ 1795}#))) + (let ((#{b 1810}# + (#{lookup 370}# + #{n 1808}# + #{r 1791}# + #{mod 1795}#))) (begin - (let ((#{type\ 1812}# (car #{b\ 1810}#))) - (if (eqv? #{type\ 1812}# 'lexical) + (let ((#{type 1812}# (car #{b 1810}#))) + (if (eqv? #{type 1812}# 'lexical) (values - #{type\ 1812}# - (cdr #{b\ 1810}#) - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{type\ 1812}# 'global) + #{type 1812}# + (cdr #{b 1810}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{type 1812}# 'global) (values - #{type\ 1812}# - #{n\ 1808}# - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{type\ 1812}# 'macro) - (if #{for-car?\ 1796}# + #{type 1812}# + #{n 1808}# + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{type 1812}# 'macro) + (if #{for-car? 1796}# (values - #{type\ 1812}# - (cdr #{b\ 1810}#) - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (#{syntax-type\ 454}# - (#{chi-macro\ 462}# - (cdr #{b\ 1810}#) - #{e\ 1790}# - #{r\ 1791}# - #{w\ 1792}# - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}#) - #{r\ 1791}# + #{type 1812}# + (cdr #{b 1810}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (#{syntax-type 454}# + (#{chi-macro 462}# + (cdr #{b 1810}#) + #{e 1790}# + #{r 1791}# + #{w 1792}# + #{s 1793}# + #{rib 1794}# + #{mod 1795}#) + #{r 1791}# '(()) - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}# + #{s 1793}# + #{rib 1794}# + #{mod 1795}# #f)) (values - #{type\ 1812}# - (cdr #{b\ 1810}#) - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#)))))))))) - (if (pair? #{e\ 1790}#) + #{type 1812}# + (cdr #{b 1810}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#)))))))))) + (if (pair? #{e 1790}#) (begin - (let ((#{first\ 1826}# (car #{e\ 1790}#))) + (let ((#{first 1826}# (car #{e 1790}#))) (call-with-values (lambda () - (#{syntax-type\ 454}# - #{first\ 1826}# - #{r\ 1791}# - #{w\ 1792}# - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}# + (#{syntax-type 454}# + #{first 1826}# + #{r 1791}# + #{w 1792}# + #{s 1793}# + #{rib 1794}# + #{mod 1795}# #t)) - (lambda (#{ftype\ 1827}# - #{fval\ 1828}# - #{fe\ 1829}# - #{fw\ 1830}# - #{fs\ 1831}# - #{fmod\ 1832}#) - (if (eqv? #{ftype\ 1827}# 'lexical) + (lambda (#{ftype 1827}# + #{fval 1828}# + #{fe 1829}# + #{fw 1830}# + #{fs 1831}# + #{fmod 1832}#) + (if (eqv? #{ftype 1827}# 'lexical) (values 'lexical-call - #{fval\ 1828}# - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'global) + #{fval 1828}# + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'global) (values 'global-call - (#{make-syntax-object\ 340}# - #{fval\ 1828}# - #{w\ 1792}# - #{fmod\ 1832}#) - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'macro) - (#{syntax-type\ 454}# - (#{chi-macro\ 462}# - #{fval\ 1828}# - #{e\ 1790}# - #{r\ 1791}# - #{w\ 1792}# - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}#) - #{r\ 1791}# + (#{make-syntax-object 340}# + #{fval 1828}# + #{w 1792}# + #{fmod 1832}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'macro) + (#{syntax-type 454}# + (#{chi-macro 462}# + #{fval 1828}# + #{e 1790}# + #{r 1791}# + #{w 1792}# + #{s 1793}# + #{rib 1794}# + #{mod 1795}#) + #{r 1791}# '(()) - #{s\ 1793}# - #{rib\ 1794}# - #{mod\ 1795}# - #{for-car?\ 1796}#) - (if (eqv? #{ftype\ 1827}# 'module-ref) + #{s 1793}# + #{rib 1794}# + #{mod 1795}# + #{for-car? 1796}#) + (if (eqv? #{ftype 1827}# 'module-ref) (call-with-values (lambda () - (#{fval\ 1828}# - #{e\ 1790}# - #{r\ 1791}# - #{w\ 1792}#)) - (lambda (#{e\ 1844}# - #{r\ 1845}# - #{w\ 1846}# - #{s\ 1847}# - #{mod\ 1848}#) - (#{syntax-type\ 454}# - #{e\ 1844}# - #{r\ 1845}# - #{w\ 1846}# - #{s\ 1847}# - #{rib\ 1794}# - #{mod\ 1848}# - #{for-car?\ 1796}#))) - (if (eqv? #{ftype\ 1827}# 'core) + (#{fval 1828}# + #{e 1790}# + #{r 1791}# + #{w 1792}#)) + (lambda (#{e 1844}# + #{r 1845}# + #{w 1846}# + #{s 1847}# + #{mod 1848}#) + (#{syntax-type 454}# + #{e 1844}# + #{r 1845}# + #{w 1846}# + #{s 1847}# + #{rib 1794}# + #{mod 1848}# + #{for-car? 1796}#))) + (if (eqv? #{ftype 1827}# 'core) (values 'core-form - #{fval\ 1828}# - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'local-syntax) + #{fval 1828}# + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'local-syntax) (values 'local-syntax-form - #{fval\ 1828}# - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'begin) + #{fval 1828}# + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'begin) (values 'begin-form #f - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'eval-when) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'eval-when) (values 'eval-when-form #f - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) - (if (eqv? #{ftype\ 1827}# 'define) - (let ((#{tmp\ 1859}# #{e\ 1790}#)) - (let ((#{tmp\ 1860}# + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) + (if (eqv? #{ftype 1827}# 'define) + (let ((#{tmp 1859}# #{e 1790}#)) + (let ((#{tmp 1860}# ($sc-dispatch - #{tmp\ 1859}# + #{tmp 1859}# '(_ any any)))) - (if (if #{tmp\ 1860}# + (if (if #{tmp 1860}# (@apply - (lambda (#{name\ 1863}# - #{val\ 1864}#) - (#{id?\ 376}# - #{name\ 1863}#)) - #{tmp\ 1860}#) + (lambda (#{name 1863}# + #{val 1864}#) + (#{id? 376}# + #{name 1863}#)) + #{tmp 1860}#) #f) (@apply - (lambda (#{name\ 1867}# - #{val\ 1868}#) + (lambda (#{name 1867}# + #{val 1868}#) (values 'define-form - #{name\ 1867}# - #{val\ 1868}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#)) - #{tmp\ 1860}#) - (let ((#{tmp\ 1869}# + #{name 1867}# + #{val 1868}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#)) + #{tmp 1860}#) + (let ((#{tmp 1869}# ($sc-dispatch - #{tmp\ 1859}# + #{tmp 1859}# '(_ (any . any) any . each-any)))) - (if (if #{tmp\ 1869}# + (if (if #{tmp 1869}# (@apply - (lambda (#{name\ 1874}# - #{args\ 1875}# - #{e1\ 1876}# - #{e2\ 1877}#) - (if (#{id?\ 376}# - #{name\ 1874}#) - (#{valid-bound-ids?\ 436}# - (#{lambda-var-list\ 486}# - #{args\ 1875}#)) + (lambda (#{name 1874}# + #{args 1875}# + #{e1 1876}# + #{e2 1877}#) + (if (#{id? 376}# + #{name 1874}#) + (#{valid-bound-ids? 436}# + (#{lambda-var-list 486}# + #{args 1875}#)) #f)) - #{tmp\ 1869}#) + #{tmp 1869}#) #f) (@apply - (lambda (#{name\ 1884}# - #{args\ 1885}# - #{e1\ 1886}# - #{e2\ 1887}#) + (lambda (#{name 1884}# + #{args 1885}# + #{e1 1886}# + #{e2 1887}#) (values 'define-form - (#{wrap\ 442}# - #{name\ 1884}# - #{w\ 1792}# - #{mod\ 1795}#) - (#{decorate-source\ 296}# + (#{wrap 442}# + #{name 1884}# + #{w 1792}# + #{mod 1795}#) + (#{decorate-source 296}# (cons '#(syntax-object lambda ((top) @@ -4077,36 +4069,36 @@ "i37"))) (hygiene guile)) - (#{wrap\ 442}# - (cons #{args\ 1885}# - (cons #{e1\ 1886}# - #{e2\ 1887}#)) - #{w\ 1792}# - #{mod\ 1795}#)) - #{s\ 1793}#) + (#{wrap 442}# + (cons #{args 1885}# + (cons #{e1 1886}# + #{e2 1887}#)) + #{w 1792}# + #{mod 1795}#)) + #{s 1793}#) '(()) - #{s\ 1793}# - #{mod\ 1795}#)) - #{tmp\ 1869}#) - (let ((#{tmp\ 1890}# + #{s 1793}# + #{mod 1795}#)) + #{tmp 1869}#) + (let ((#{tmp 1890}# ($sc-dispatch - #{tmp\ 1859}# + #{tmp 1859}# '(_ any)))) - (if (if #{tmp\ 1890}# + (if (if #{tmp 1890}# (@apply - (lambda (#{name\ 1892}#) - (#{id?\ 376}# - #{name\ 1892}#)) - #{tmp\ 1890}#) + (lambda (#{name 1892}#) + (#{id? 376}# + #{name 1892}#)) + #{tmp 1890}#) #f) (@apply - (lambda (#{name\ 1894}#) + (lambda (#{name 1894}#) (values 'define-form - (#{wrap\ 442}# - #{name\ 1894}# - #{w\ 1792}# - #{mod\ 1795}#) + (#{wrap 442}# + #{name 1894}# + #{w 1792}# + #{mod 1795}#) '(#(syntax-object if ((top) @@ -5608,840 +5600,828 @@ (hygiene guile))) '(()) - #{s\ 1793}# - #{mod\ 1795}#)) - #{tmp\ 1890}#) + #{s 1793}# + #{mod 1795}#)) + #{tmp 1890}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1859}#)))))))) - (if (eqv? #{ftype\ 1827}# + #{tmp 1859}#)))))))) + (if (eqv? #{ftype 1827}# 'define-syntax) - (let ((#{tmp\ 1897}# #{e\ 1790}#)) - (let ((#{tmp\ 1898}# + (let ((#{tmp 1897}# #{e 1790}#)) + (let ((#{tmp 1898}# ($sc-dispatch - #{tmp\ 1897}# + #{tmp 1897}# '(_ any any)))) - (if (if #{tmp\ 1898}# + (if (if #{tmp 1898}# (@apply - (lambda (#{name\ 1901}# - #{val\ 1902}#) - (#{id?\ 376}# - #{name\ 1901}#)) - #{tmp\ 1898}#) + (lambda (#{name 1901}# + #{val 1902}#) + (#{id? 376}# + #{name 1901}#)) + #{tmp 1898}#) #f) (@apply - (lambda (#{name\ 1905}# - #{val\ 1906}#) + (lambda (#{name 1905}# + #{val 1906}#) (values 'define-syntax-form - #{name\ 1905}# - #{val\ 1906}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#)) - #{tmp\ 1898}#) + #{name 1905}# + #{val 1906}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#)) + #{tmp 1898}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1897}#)))) + #{tmp 1897}#)))) (values 'call #f - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#))))))))))))))) - (if (#{syntax-object?\ 342}# #{e\ 1790}#) - (#{syntax-type\ 454}# - (#{syntax-object-expression\ 344}# #{e\ 1790}#) - #{r\ 1791}# - (#{join-wraps\ 424}# - #{w\ 1792}# - (#{syntax-object-wrap\ 346}# #{e\ 1790}#)) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#))))))))))))))) + (if (#{syntax-object? 342}# #{e 1790}#) + (#{syntax-type 454}# + (#{syntax-object-expression 344}# #{e 1790}#) + #{r 1791}# + (#{join-wraps 424}# + #{w 1792}# + (#{syntax-object-wrap 346}# #{e 1790}#)) (begin - (let ((#{t\ 1912}# - (#{source-annotation\ 357}# #{e\ 1790}#))) - (if #{t\ 1912}# #{t\ 1912}# #{s\ 1793}#))) - #{rib\ 1794}# + (let ((#{t 1912}# + (#{source-annotation 357}# #{e 1790}#))) + (if #{t 1912}# #{t 1912}# #{s 1793}#))) + #{rib 1794}# (begin - (let ((#{t\ 1916}# - (#{syntax-object-module\ 348}# #{e\ 1790}#))) - (if #{t\ 1916}# #{t\ 1916}# #{mod\ 1795}#))) - #{for-car?\ 1796}#) - (if (self-evaluating? #{e\ 1790}#) + (let ((#{t 1916}# + (#{syntax-object-module 348}# #{e 1790}#))) + (if #{t 1916}# #{t 1916}# #{mod 1795}#))) + #{for-car? 1796}#) + (if (self-evaluating? #{e 1790}#) (values 'constant #f - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#) (values 'other #f - #{e\ 1790}# - #{w\ 1792}# - #{s\ 1793}# - #{mod\ 1795}#))))))) - (#{chi\ 456}# - (lambda (#{e\ 1921}# - #{r\ 1922}# - #{w\ 1923}# - #{mod\ 1924}#) + #{e 1790}# + #{w 1792}# + #{s 1793}# + #{mod 1795}#))))))) + (#{chi 456}# + (lambda (#{e 1921}# #{r 1922}# #{w 1923}# #{mod 1924}#) (call-with-values (lambda () - (#{syntax-type\ 454}# - #{e\ 1921}# - #{r\ 1922}# - #{w\ 1923}# - (#{source-annotation\ 357}# #{e\ 1921}#) + (#{syntax-type 454}# + #{e 1921}# + #{r 1922}# + #{w 1923}# + (#{source-annotation 357}# #{e 1921}#) #f - #{mod\ 1924}# + #{mod 1924}# #f)) - (lambda (#{type\ 1929}# - #{value\ 1930}# - #{e\ 1931}# - #{w\ 1932}# - #{s\ 1933}# - #{mod\ 1934}#) - (#{chi-expr\ 458}# - #{type\ 1929}# - #{value\ 1930}# - #{e\ 1931}# - #{r\ 1922}# - #{w\ 1932}# - #{s\ 1933}# - #{mod\ 1934}#))))) - (#{chi-expr\ 458}# - (lambda (#{type\ 1941}# - #{value\ 1942}# - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'lexical) - (#{build-lexical-reference\ 308}# + (lambda (#{type 1929}# + #{value 1930}# + #{e 1931}# + #{w 1932}# + #{s 1933}# + #{mod 1934}#) + (#{chi-expr 458}# + #{type 1929}# + #{value 1930}# + #{e 1931}# + #{r 1922}# + #{w 1932}# + #{s 1933}# + #{mod 1934}#))))) + (#{chi-expr 458}# + (lambda (#{type 1941}# + #{value 1942}# + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'lexical) + (#{build-lexical-reference 308}# 'value - #{s\ 1946}# - #{e\ 1943}# - #{value\ 1942}#) - (if (if (eqv? #{type\ 1941}# 'core) + #{s 1946}# + #{e 1943}# + #{value 1942}#) + (if (if (eqv? #{type 1941}# 'core) #t - (eqv? #{type\ 1941}# 'core-form)) - (#{value\ 1942}# - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'module-ref) + (eqv? #{type 1941}# 'core-form)) + (#{value 1942}# + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'module-ref) (call-with-values (lambda () - (#{value\ 1942}# - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}#)) - (lambda (#{e\ 1958}# - #{r\ 1959}# - #{w\ 1960}# - #{s\ 1961}# - #{mod\ 1962}#) - (#{chi\ 456}# - #{e\ 1958}# - #{r\ 1959}# - #{w\ 1960}# - #{mod\ 1962}#))) - (if (eqv? #{type\ 1941}# 'lexical-call) - (#{chi-application\ 460}# + (#{value 1942}# #{e 1943}# #{r 1944}# #{w 1945}#)) + (lambda (#{e 1958}# + #{r 1959}# + #{w 1960}# + #{s 1961}# + #{mod 1962}#) + (#{chi 456}# + #{e 1958}# + #{r 1959}# + #{w 1960}# + #{mod 1962}#))) + (if (eqv? #{type 1941}# 'lexical-call) + (#{chi-application 460}# (begin - (let ((#{id\ 1970}# (car #{e\ 1943}#))) - (#{build-lexical-reference\ 308}# + (let ((#{id 1970}# (car #{e 1943}#))) + (#{build-lexical-reference 308}# 'fun - (#{source-annotation\ 357}# #{id\ 1970}#) - (if (#{syntax-object?\ 342}# #{id\ 1970}#) - (syntax->datum #{id\ 1970}#) - #{id\ 1970}#) - #{value\ 1942}#))) - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'global-call) - (#{chi-application\ 460}# - (#{build-global-reference\ 314}# - (#{source-annotation\ 357}# (car #{e\ 1943}#)) - (if (#{syntax-object?\ 342}# #{value\ 1942}#) - (#{syntax-object-expression\ 344}# - #{value\ 1942}#) - #{value\ 1942}#) - (if (#{syntax-object?\ 342}# #{value\ 1942}#) - (#{syntax-object-module\ 348}# #{value\ 1942}#) - #{mod\ 1947}#)) - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'constant) - (#{build-data\ 328}# - #{s\ 1946}# - (#{strip\ 482}# - (#{source-wrap\ 444}# - #{e\ 1943}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) + (#{source-annotation 357}# #{id 1970}#) + (if (#{syntax-object? 342}# #{id 1970}#) + (syntax->datum #{id 1970}#) + #{id 1970}#) + #{value 1942}#))) + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'global-call) + (#{chi-application 460}# + (#{build-global-reference 314}# + (#{source-annotation 357}# (car #{e 1943}#)) + (if (#{syntax-object? 342}# #{value 1942}#) + (#{syntax-object-expression 344}# #{value 1942}#) + #{value 1942}#) + (if (#{syntax-object? 342}# #{value 1942}#) + (#{syntax-object-module 348}# #{value 1942}#) + #{mod 1947}#)) + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'constant) + (#{build-data 328}# + #{s 1946}# + (#{strip 482}# + (#{source-wrap 444}# + #{e 1943}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) '(()))) - (if (eqv? #{type\ 1941}# 'global) - (#{build-global-reference\ 314}# - #{s\ 1946}# - #{value\ 1942}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'call) - (#{chi-application\ 460}# - (#{chi\ 456}# - (car #{e\ 1943}#) - #{r\ 1944}# - #{w\ 1945}# - #{mod\ 1947}#) - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (if (eqv? #{type\ 1941}# 'begin-form) - (let ((#{tmp\ 1977}# #{e\ 1943}#)) - (let ((#{tmp\ 1978}# + (if (eqv? #{type 1941}# 'global) + (#{build-global-reference 314}# + #{s 1946}# + #{value 1942}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'call) + (#{chi-application 460}# + (#{chi 456}# + (car #{e 1943}#) + #{r 1944}# + #{w 1945}# + #{mod 1947}#) + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (if (eqv? #{type 1941}# 'begin-form) + (let ((#{tmp 1977}# #{e 1943}#)) + (let ((#{tmp 1978}# ($sc-dispatch - #{tmp\ 1977}# + #{tmp 1977}# '(_ any . each-any)))) - (if #{tmp\ 1978}# + (if #{tmp 1978}# (@apply - (lambda (#{e1\ 1981}# #{e2\ 1982}#) - (#{chi-sequence\ 446}# - (cons #{e1\ 1981}# #{e2\ 1982}#) - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#)) - #{tmp\ 1978}#) + (lambda (#{e1 1981}# #{e2 1982}#) + (#{chi-sequence 446}# + (cons #{e1 1981}# #{e2 1982}#) + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#)) + #{tmp 1978}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1977}#)))) - (if (eqv? #{type\ 1941}# 'local-syntax-form) - (#{chi-local-syntax\ 466}# - #{value\ 1942}# - #{e\ 1943}# - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}# - #{chi-sequence\ 446}#) - (if (eqv? #{type\ 1941}# 'eval-when-form) - (let ((#{tmp\ 1986}# #{e\ 1943}#)) - (let ((#{tmp\ 1987}# + #{tmp 1977}#)))) + (if (eqv? #{type 1941}# 'local-syntax-form) + (#{chi-local-syntax 466}# + #{value 1942}# + #{e 1943}# + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}# + #{chi-sequence 446}#) + (if (eqv? #{type 1941}# 'eval-when-form) + (let ((#{tmp 1986}# #{e 1943}#)) + (let ((#{tmp 1987}# ($sc-dispatch - #{tmp\ 1986}# + #{tmp 1986}# '(_ each-any any . each-any)))) - (if #{tmp\ 1987}# + (if #{tmp 1987}# (@apply - (lambda (#{x\ 1991}# - #{e1\ 1992}# - #{e2\ 1993}#) + (lambda (#{x 1991}# + #{e1 1992}# + #{e2 1993}#) (begin - (let ((#{when-list\ 1995}# - (#{chi-when-list\ 452}# - #{e\ 1943}# - #{x\ 1991}# - #{w\ 1945}#))) + (let ((#{when-list 1995}# + (#{chi-when-list 452}# + #{e 1943}# + #{x 1991}# + #{w 1945}#))) (if (memq 'eval - #{when-list\ 1995}#) - (#{chi-sequence\ 446}# - (cons #{e1\ 1992}# - #{e2\ 1993}#) - #{r\ 1944}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#) - (#{chi-void\ 470}#))))) - #{tmp\ 1987}#) + #{when-list 1995}#) + (#{chi-sequence 446}# + (cons #{e1 1992}# + #{e2 1993}#) + #{r 1944}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#) + (#{chi-void 470}#))))) + #{tmp 1987}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1986}#)))) - (if (if (eqv? #{type\ 1941}# 'define-form) + #{tmp 1986}#)))) + (if (if (eqv? #{type 1941}# 'define-form) #t - (eqv? #{type\ 1941}# + (eqv? #{type 1941}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1943}# - (#{wrap\ 442}# - #{value\ 1942}# - #{w\ 1945}# - #{mod\ 1947}#)) - (if (eqv? #{type\ 1941}# 'syntax) + #{e 1943}# + (#{wrap 442}# + #{value 1942}# + #{w 1945}# + #{mod 1947}#)) + (if (eqv? #{type 1941}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 444}# - #{e\ 1943}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#)) - (if (eqv? #{type\ 1941}# + (#{source-wrap 444}# + #{e 1943}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#)) + (if (eqv? #{type 1941}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 444}# - #{e\ 1943}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#)) + (#{source-wrap 444}# + #{e 1943}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 444}# - #{e\ 1943}# - #{w\ 1945}# - #{s\ 1946}# - #{mod\ 1947}#)))))))))))))))))) - (#{chi-application\ 460}# - (lambda (#{x\ 2002}# - #{e\ 2003}# - #{r\ 2004}# - #{w\ 2005}# - #{s\ 2006}# - #{mod\ 2007}#) - (let ((#{tmp\ 2014}# #{e\ 2003}#)) - (let ((#{tmp\ 2015}# - ($sc-dispatch #{tmp\ 2014}# '(any . each-any)))) - (if #{tmp\ 2015}# + (#{source-wrap 444}# + #{e 1943}# + #{w 1945}# + #{s 1946}# + #{mod 1947}#)))))))))))))))))) + (#{chi-application 460}# + (lambda (#{x 2002}# + #{e 2003}# + #{r 2004}# + #{w 2005}# + #{s 2006}# + #{mod 2007}#) + (let ((#{tmp 2014}# #{e 2003}#)) + (let ((#{tmp 2015}# + ($sc-dispatch #{tmp 2014}# '(any . each-any)))) + (if #{tmp 2015}# (@apply - (lambda (#{e0\ 2018}# #{e1\ 2019}#) - (#{build-application\ 302}# - #{s\ 2006}# - #{x\ 2002}# - (map (lambda (#{e\ 2020}#) - (#{chi\ 456}# - #{e\ 2020}# - #{r\ 2004}# - #{w\ 2005}# - #{mod\ 2007}#)) - #{e1\ 2019}#))) - #{tmp\ 2015}#) + (lambda (#{e0 2018}# #{e1 2019}#) + (#{build-application 302}# + #{s 2006}# + #{x 2002}# + (map (lambda (#{e 2020}#) + (#{chi 456}# + #{e 2020}# + #{r 2004}# + #{w 2005}# + #{mod 2007}#)) + #{e1 2019}#))) + #{tmp 2015}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2014}#)))))) - (#{chi-macro\ 462}# - (lambda (#{p\ 2023}# - #{e\ 2024}# - #{r\ 2025}# - #{w\ 2026}# - #{s\ 2027}# - #{rib\ 2028}# - #{mod\ 2029}#) + #{tmp 2014}#)))))) + (#{chi-macro 462}# + (lambda (#{p 2023}# + #{e 2024}# + #{r 2025}# + #{w 2026}# + #{s 2027}# + #{rib 2028}# + #{mod 2029}#) (letrec* - ((#{rebuild-macro-output\ 2038}# - (lambda (#{x\ 2039}# #{m\ 2040}#) - (if (pair? #{x\ 2039}#) - (#{decorate-source\ 296}# - (cons (#{rebuild-macro-output\ 2038}# - (car #{x\ 2039}#) - #{m\ 2040}#) - (#{rebuild-macro-output\ 2038}# - (cdr #{x\ 2039}#) - #{m\ 2040}#)) - #{s\ 2027}#) - (if (#{syntax-object?\ 342}# #{x\ 2039}#) + ((#{rebuild-macro-output 2038}# + (lambda (#{x 2039}# #{m 2040}#) + (if (pair? #{x 2039}#) + (#{decorate-source 296}# + (cons (#{rebuild-macro-output 2038}# + (car #{x 2039}#) + #{m 2040}#) + (#{rebuild-macro-output 2038}# + (cdr #{x 2039}#) + #{m 2040}#)) + #{s 2027}#) + (if (#{syntax-object? 342}# #{x 2039}#) (begin - (let ((#{w\ 2048}# - (#{syntax-object-wrap\ 346}# #{x\ 2039}#))) + (let ((#{w 2048}# + (#{syntax-object-wrap 346}# #{x 2039}#))) (begin - (let ((#{ms\ 2051}# (car #{w\ 2048}#)) - (#{s\ 2052}# (cdr #{w\ 2048}#))) - (if (if (pair? #{ms\ 2051}#) - (eq? (car #{ms\ 2051}#) #f) + (let ((#{ms 2051}# (car #{w 2048}#)) + (#{s 2052}# (cdr #{w 2048}#))) + (if (if (pair? #{ms 2051}#) + (eq? (car #{ms 2051}#) #f) #f) - (#{make-syntax-object\ 340}# - (#{syntax-object-expression\ 344}# - #{x\ 2039}#) - (cons (cdr #{ms\ 2051}#) - (if #{rib\ 2028}# - (cons #{rib\ 2028}# - (cdr #{s\ 2052}#)) - (cdr #{s\ 2052}#))) - (#{syntax-object-module\ 348}# #{x\ 2039}#)) - (#{make-syntax-object\ 340}# - (#{decorate-source\ 296}# - (#{syntax-object-expression\ 344}# - #{x\ 2039}#) - #{s\ 2052}#) - (cons (cons #{m\ 2040}# #{ms\ 2051}#) - (if #{rib\ 2028}# - (cons #{rib\ 2028}# - (cons 'shift #{s\ 2052}#)) - (cons 'shift #{s\ 2052}#))) - (#{syntax-object-module\ 348}# - #{x\ 2039}#))))))) - (if (vector? #{x\ 2039}#) + (#{make-syntax-object 340}# + (#{syntax-object-expression 344}# #{x 2039}#) + (cons (cdr #{ms 2051}#) + (if #{rib 2028}# + (cons #{rib 2028}# (cdr #{s 2052}#)) + (cdr #{s 2052}#))) + (#{syntax-object-module 348}# #{x 2039}#)) + (#{make-syntax-object 340}# + (#{decorate-source 296}# + (#{syntax-object-expression 344}# + #{x 2039}#) + #{s 2052}#) + (cons (cons #{m 2040}# #{ms 2051}#) + (if #{rib 2028}# + (cons #{rib 2028}# + (cons 'shift #{s 2052}#)) + (cons 'shift #{s 2052}#))) + (#{syntax-object-module 348}# + #{x 2039}#))))))) + (if (vector? #{x 2039}#) (begin - (let ((#{n\ 2064}# (vector-length #{x\ 2039}#))) + (let ((#{n 2064}# (vector-length #{x 2039}#))) (begin - (let ((#{v\ 2066}# - (#{decorate-source\ 296}# - (make-vector #{n\ 2064}#) - #{x\ 2039}#))) + (let ((#{v 2066}# + (#{decorate-source 296}# + (make-vector #{n 2064}#) + #{x 2039}#))) (letrec* - ((#{loop\ 2069}# - (lambda (#{i\ 2070}#) - (if (= #{i\ 2070}# #{n\ 2064}#) - (begin (if #f #f) #{v\ 2066}#) + ((#{loop 2069}# + (lambda (#{i 2070}#) + (if (= #{i 2070}# #{n 2064}#) + (begin (if #f #f) #{v 2066}#) (begin (vector-set! - #{v\ 2066}# - #{i\ 2070}# - (#{rebuild-macro-output\ 2038}# + #{v 2066}# + #{i 2070}# + (#{rebuild-macro-output 2038}# (vector-ref - #{x\ 2039}# - #{i\ 2070}#) - #{m\ 2040}#)) - (#{loop\ 2069}# - (1+ #{i\ 2070}#))))))) - (begin (#{loop\ 2069}# 0))))))) - (if (symbol? #{x\ 2039}#) + #{x 2039}# + #{i 2070}#) + #{m 2040}#)) + (#{loop 2069}# + (#{1+}# #{i 2070}#))))))) + (begin (#{loop 2069}# 0))))))) + (if (symbol? #{x 2039}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 444}# - #{e\ 2024}# - #{w\ 2026}# - (cdr #{w\ 2026}#) - #{mod\ 2029}#) - #{x\ 2039}#) - (#{decorate-source\ 296}# - #{x\ 2039}# - #{s\ 2027}#)))))))) + (#{source-wrap 444}# + #{e 2024}# + #{w 2026}# + (cdr #{w 2026}#) + #{mod 2029}#) + #{x 2039}#) + (#{decorate-source 296}# + #{x 2039}# + #{s 2027}#)))))))) (begin - (#{rebuild-macro-output\ 2038}# - (#{p\ 2023}# - (#{source-wrap\ 444}# - #{e\ 2024}# - (#{anti-mark\ 414}# #{w\ 2026}#) - #{s\ 2027}# - #{mod\ 2029}#)) + (#{rebuild-macro-output 2038}# + (#{p 2023}# + (#{source-wrap 444}# + #{e 2024}# + (#{anti-mark 414}# #{w 2026}#) + #{s 2027}# + #{mod 2029}#)) (gensym "m")))))) - (#{chi-body\ 464}# - (lambda (#{body\ 2080}# - #{outer-form\ 2081}# - #{r\ 2082}# - #{w\ 2083}# - #{mod\ 2084}#) + (#{chi-body 464}# + (lambda (#{body 2080}# + #{outer-form 2081}# + #{r 2082}# + #{w 2083}# + #{mod 2084}#) (begin - (let ((#{r\ 2092}# - (cons '("placeholder" placeholder) #{r\ 2082}#))) + (let ((#{r 2092}# + (cons '("placeholder" placeholder) #{r 2082}#))) (begin - (let ((#{ribcage\ 2094}# - (#{make-ribcage\ 394}# '() '() '()))) + (let ((#{ribcage 2094}# + (#{make-ribcage 394}# '() '() '()))) (begin - (let ((#{w\ 2097}# - (cons (car #{w\ 2083}#) - (cons #{ribcage\ 2094}# - (cdr #{w\ 2083}#))))) + (let ((#{w 2097}# + (cons (car #{w 2083}#) + (cons #{ribcage 2094}# (cdr #{w 2083}#))))) (letrec* - ((#{parse\ 2109}# - (lambda (#{body\ 2110}# - #{ids\ 2111}# - #{labels\ 2112}# - #{var-ids\ 2113}# - #{vars\ 2114}# - #{vals\ 2115}# - #{bindings\ 2116}#) - (if (null? #{body\ 2110}#) + ((#{parse 2109}# + (lambda (#{body 2110}# + #{ids 2111}# + #{labels 2112}# + #{var-ids 2113}# + #{vars 2114}# + #{vals 2115}# + #{bindings 2116}#) + (if (null? #{body 2110}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 2081}#) + #{outer-form 2081}#) (begin - (let ((#{e\ 2121}# - (cdr (car #{body\ 2110}#))) - (#{er\ 2122}# - (car (car #{body\ 2110}#)))) + (let ((#{e 2121}# (cdr (car #{body 2110}#))) + (#{er 2122}# + (car (car #{body 2110}#)))) (call-with-values (lambda () - (#{syntax-type\ 454}# - #{e\ 2121}# - #{er\ 2122}# + (#{syntax-type 454}# + #{e 2121}# + #{er 2122}# '(()) - (#{source-annotation\ 357}# - #{er\ 2122}#) - #{ribcage\ 2094}# - #{mod\ 2084}# + (#{source-annotation 357}# + #{er 2122}#) + #{ribcage 2094}# + #{mod 2084}# #f)) - (lambda (#{type\ 2124}# - #{value\ 2125}# - #{e\ 2126}# - #{w\ 2127}# - #{s\ 2128}# - #{mod\ 2129}#) - (if (eqv? #{type\ 2124}# 'define-form) + (lambda (#{type 2124}# + #{value 2125}# + #{e 2126}# + #{w 2127}# + #{s 2128}# + #{mod 2129}#) + (if (eqv? #{type 2124}# 'define-form) (begin - (let ((#{id\ 2139}# - (#{wrap\ 442}# - #{value\ 2125}# - #{w\ 2127}# - #{mod\ 2129}#)) - (#{label\ 2140}# - (#{gen-label\ 389}#))) + (let ((#{id 2139}# + (#{wrap 442}# + #{value 2125}# + #{w 2127}# + #{mod 2129}#)) + (#{label 2140}# + (#{gen-label 389}#))) (begin - (let ((#{var\ 2142}# - (#{gen-var\ 484}# - #{id\ 2139}#))) + (let ((#{var 2142}# + (#{gen-var 484}# + #{id 2139}#))) (begin - (#{extend-ribcage!\ 418}# - #{ribcage\ 2094}# - #{id\ 2139}# - #{label\ 2140}#) - (#{parse\ 2109}# - (cdr #{body\ 2110}#) - (cons #{id\ 2139}# - #{ids\ 2111}#) - (cons #{label\ 2140}# - #{labels\ 2112}#) - (cons #{id\ 2139}# - #{var-ids\ 2113}#) - (cons #{var\ 2142}# - #{vars\ 2114}#) - (cons (cons #{er\ 2122}# - (#{wrap\ 442}# - #{e\ 2126}# - #{w\ 2127}# - #{mod\ 2129}#)) - #{vals\ 2115}#) + (#{extend-ribcage! 418}# + #{ribcage 2094}# + #{id 2139}# + #{label 2140}#) + (#{parse 2109}# + (cdr #{body 2110}#) + (cons #{id 2139}# + #{ids 2111}#) + (cons #{label 2140}# + #{labels 2112}#) + (cons #{id 2139}# + #{var-ids 2113}#) + (cons #{var 2142}# + #{vars 2114}#) + (cons (cons #{er 2122}# + (#{wrap 442}# + #{e 2126}# + #{w 2127}# + #{mod 2129}#)) + #{vals 2115}#) (cons (cons 'lexical - #{var\ 2142}#) - #{bindings\ 2116}#))))))) - (if (eqv? #{type\ 2124}# + #{var 2142}#) + #{bindings 2116}#))))))) + (if (eqv? #{type 2124}# 'define-syntax-form) (begin - (let ((#{id\ 2147}# - (#{wrap\ 442}# - #{value\ 2125}# - #{w\ 2127}# - #{mod\ 2129}#)) - (#{label\ 2148}# - (#{gen-label\ 389}#))) + (let ((#{id 2147}# + (#{wrap 442}# + #{value 2125}# + #{w 2127}# + #{mod 2129}#)) + (#{label 2148}# + (#{gen-label 389}#))) (begin - (#{extend-ribcage!\ 418}# - #{ribcage\ 2094}# - #{id\ 2147}# - #{label\ 2148}#) - (#{parse\ 2109}# - (cdr #{body\ 2110}#) - (cons #{id\ 2147}# - #{ids\ 2111}#) - (cons #{label\ 2148}# - #{labels\ 2112}#) - #{var-ids\ 2113}# - #{vars\ 2114}# - #{vals\ 2115}# + (#{extend-ribcage! 418}# + #{ribcage 2094}# + #{id 2147}# + #{label 2148}#) + (#{parse 2109}# + (cdr #{body 2110}#) + (cons #{id 2147}# + #{ids 2111}#) + (cons #{label 2148}# + #{labels 2112}#) + #{var-ids 2113}# + #{vars 2114}# + #{vals 2115}# (cons (cons 'macro - (cons #{er\ 2122}# - (#{wrap\ 442}# - #{e\ 2126}# - #{w\ 2127}# - #{mod\ 2129}#))) - #{bindings\ 2116}#))))) - (if (eqv? #{type\ 2124}# + (cons #{er 2122}# + (#{wrap 442}# + #{e 2126}# + #{w 2127}# + #{mod 2129}#))) + #{bindings 2116}#))))) + (if (eqv? #{type 2124}# 'begin-form) - (let ((#{tmp\ 2151}# - #{e\ 2126}#)) - (let ((#{tmp\ 2152}# + (let ((#{tmp 2151}# #{e 2126}#)) + (let ((#{tmp 2152}# ($sc-dispatch - #{tmp\ 2151}# + #{tmp 2151}# '(_ . each-any)))) - (if #{tmp\ 2152}# + (if #{tmp 2152}# (@apply - (lambda (#{e1\ 2154}#) - (#{parse\ 2109}# + (lambda (#{e1 2154}#) + (#{parse 2109}# (letrec* - ((#{f\ 2157}# - (lambda (#{forms\ 2158}#) - (if (null? #{forms\ 2158}#) - (cdr #{body\ 2110}#) - (cons (cons #{er\ 2122}# - (#{wrap\ 442}# - (car #{forms\ 2158}#) - #{w\ 2127}# - #{mod\ 2129}#)) - (#{f\ 2157}# - (cdr #{forms\ 2158}#))))))) + ((#{f 2157}# + (lambda (#{forms 2158}#) + (if (null? #{forms 2158}#) + (cdr #{body 2110}#) + (cons (cons #{er 2122}# + (#{wrap 442}# + (car #{forms 2158}#) + #{w 2127}# + #{mod 2129}#)) + (#{f 2157}# + (cdr #{forms 2158}#))))))) (begin - (#{f\ 2157}# - #{e1\ 2154}#))) - #{ids\ 2111}# - #{labels\ 2112}# - #{var-ids\ 2113}# - #{vars\ 2114}# - #{vals\ 2115}# - #{bindings\ 2116}#)) - #{tmp\ 2152}#) + (#{f 2157}# + #{e1 2154}#))) + #{ids 2111}# + #{labels 2112}# + #{var-ids 2113}# + #{vars 2114}# + #{vals 2115}# + #{bindings 2116}#)) + #{tmp 2152}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2151}#)))) - (if (eqv? #{type\ 2124}# + #{tmp 2151}#)))) + (if (eqv? #{type 2124}# 'local-syntax-form) - (#{chi-local-syntax\ 466}# - #{value\ 2125}# - #{e\ 2126}# - #{er\ 2122}# - #{w\ 2127}# - #{s\ 2128}# - #{mod\ 2129}# - (lambda (#{forms\ 2161}# - #{er\ 2162}# - #{w\ 2163}# - #{s\ 2164}# - #{mod\ 2165}#) - (#{parse\ 2109}# + (#{chi-local-syntax 466}# + #{value 2125}# + #{e 2126}# + #{er 2122}# + #{w 2127}# + #{s 2128}# + #{mod 2129}# + (lambda (#{forms 2161}# + #{er 2162}# + #{w 2163}# + #{s 2164}# + #{mod 2165}#) + (#{parse 2109}# (letrec* - ((#{f\ 2173}# - (lambda (#{forms\ 2174}#) - (if (null? #{forms\ 2174}#) - (cdr #{body\ 2110}#) - (cons (cons #{er\ 2162}# - (#{wrap\ 442}# - (car #{forms\ 2174}#) - #{w\ 2163}# - #{mod\ 2165}#)) - (#{f\ 2173}# - (cdr #{forms\ 2174}#))))))) + ((#{f 2173}# + (lambda (#{forms 2174}#) + (if (null? #{forms 2174}#) + (cdr #{body 2110}#) + (cons (cons #{er 2162}# + (#{wrap 442}# + (car #{forms 2174}#) + #{w 2163}# + #{mod 2165}#)) + (#{f 2173}# + (cdr #{forms 2174}#))))))) (begin - (#{f\ 2173}# - #{forms\ 2161}#))) - #{ids\ 2111}# - #{labels\ 2112}# - #{var-ids\ 2113}# - #{vars\ 2114}# - #{vals\ 2115}# - #{bindings\ 2116}#))) - (if (null? #{ids\ 2111}#) - (#{build-sequence\ 330}# + (#{f 2173}# + #{forms 2161}#))) + #{ids 2111}# + #{labels 2112}# + #{var-ids 2113}# + #{vars 2114}# + #{vals 2115}# + #{bindings 2116}#))) + (if (null? #{ids 2111}#) + (#{build-sequence 330}# #f - (map (lambda (#{x\ 2177}#) - (#{chi\ 456}# - (cdr #{x\ 2177}#) - (car #{x\ 2177}#) + (map (lambda (#{x 2177}#) + (#{chi 456}# + (cdr #{x 2177}#) + (car #{x 2177}#) '(()) - #{mod\ 2129}#)) - (cons (cons #{er\ 2122}# - (#{source-wrap\ 444}# - #{e\ 2126}# - #{w\ 2127}# - #{s\ 2128}# - #{mod\ 2129}#)) - (cdr #{body\ 2110}#)))) + #{mod 2129}#)) + (cons (cons #{er 2122}# + (#{source-wrap 444}# + #{e 2126}# + #{w 2127}# + #{s 2128}# + #{mod 2129}#)) + (cdr #{body 2110}#)))) (begin - (if (not (#{valid-bound-ids?\ 436}# - #{ids\ 2111}#)) + (if (not (#{valid-bound-ids? 436}# + #{ids 2111}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 2081}#)) + #{outer-form 2081}#)) (letrec* - ((#{loop\ 2184}# - (lambda (#{bs\ 2185}# - #{er-cache\ 2186}# - #{r-cache\ 2187}#) - (if (not (null? #{bs\ 2185}#)) + ((#{loop 2184}# + (lambda (#{bs 2185}# + #{er-cache 2186}# + #{r-cache 2187}#) + (if (not (null? #{bs 2185}#)) (begin - (let ((#{b\ 2190}# - (car #{bs\ 2185}#))) - (if (eq? (car #{b\ 2190}#) + (let ((#{b 2190}# + (car #{bs 2185}#))) + (if (eq? (car #{b 2190}#) 'macro) (begin - (let ((#{er\ 2193}# - (car (cdr #{b\ 2190}#)))) + (let ((#{er 2193}# + (car (cdr #{b 2190}#)))) (begin - (let ((#{r-cache\ 2195}# - (if (eq? #{er\ 2193}# - #{er-cache\ 2186}#) - #{r-cache\ 2187}# - (#{macros-only-env\ 368}# - #{er\ 2193}#)))) + (let ((#{r-cache 2195}# + (if (eq? #{er 2193}# + #{er-cache 2186}#) + #{r-cache 2187}# + (#{macros-only-env 368}# + #{er 2193}#)))) (begin (set-cdr! - #{b\ 2190}# - (#{eval-local-transformer\ 468}# - (#{chi\ 456}# - (cdr (cdr #{b\ 2190}#)) - #{r-cache\ 2195}# + #{b 2190}# + (#{eval-local-transformer 468}# + (#{chi 456}# + (cdr (cdr #{b 2190}#)) + #{r-cache 2195}# '(()) - #{mod\ 2129}#) - #{mod\ 2129}#)) - (#{loop\ 2184}# - (cdr #{bs\ 2185}#) - #{er\ 2193}# - #{r-cache\ 2195}#)))))) - (#{loop\ 2184}# - (cdr #{bs\ 2185}#) - #{er-cache\ 2186}# - #{r-cache\ 2187}#)))))))) + #{mod 2129}#) + #{mod 2129}#)) + (#{loop 2184}# + (cdr #{bs 2185}#) + #{er 2193}# + #{r-cache 2195}#)))))) + (#{loop 2184}# + (cdr #{bs 2185}#) + #{er-cache 2186}# + #{r-cache 2187}#)))))))) (begin - (#{loop\ 2184}# - #{bindings\ 2116}# + (#{loop 2184}# + #{bindings 2116}# #f #f))) (set-cdr! - #{r\ 2092}# - (#{extend-env\ 364}# - #{labels\ 2112}# - #{bindings\ 2116}# - (cdr #{r\ 2092}#))) - (#{build-letrec\ 336}# + #{r 2092}# + (#{extend-env 364}# + #{labels 2112}# + #{bindings 2116}# + (cdr #{r 2092}#))) + (#{build-letrec 336}# #f #t (reverse (map syntax->datum - #{var-ids\ 2113}#)) - (reverse #{vars\ 2114}#) - (map (lambda (#{x\ 2198}#) - (#{chi\ 456}# - (cdr #{x\ 2198}#) - (car #{x\ 2198}#) + #{var-ids 2113}#)) + (reverse #{vars 2114}#) + (map (lambda (#{x 2198}#) + (#{chi 456}# + (cdr #{x 2198}#) + (car #{x 2198}#) '(()) - #{mod\ 2129}#)) + #{mod 2129}#)) (reverse - #{vals\ 2115}#)) - (#{build-sequence\ 330}# + #{vals 2115}#)) + (#{build-sequence 330}# #f - (map (lambda (#{x\ 2202}#) - (#{chi\ 456}# - (cdr #{x\ 2202}#) - (car #{x\ 2202}#) + (map (lambda (#{x 2202}#) + (#{chi 456}# + (cdr #{x 2202}#) + (car #{x 2202}#) '(()) - #{mod\ 2129}#)) - (cons (cons #{er\ 2122}# - (#{source-wrap\ 444}# - #{e\ 2126}# - #{w\ 2127}# - #{s\ 2128}# - #{mod\ 2129}#)) - (cdr #{body\ 2110}#))))))))))))))))))) + #{mod 2129}#)) + (cons (cons #{er 2122}# + (#{source-wrap 444}# + #{e 2126}# + #{w 2127}# + #{s 2128}# + #{mod 2129}#)) + (cdr #{body 2110}#))))))))))))))))))) (begin - (#{parse\ 2109}# - (map (lambda (#{x\ 2117}#) - (cons #{r\ 2092}# - (#{wrap\ 442}# - #{x\ 2117}# - #{w\ 2097}# - #{mod\ 2084}#))) - #{body\ 2080}#) + (#{parse 2109}# + (map (lambda (#{x 2117}#) + (cons #{r 2092}# + (#{wrap 442}# + #{x 2117}# + #{w 2097}# + #{mod 2084}#))) + #{body 2080}#) '() '() '() '() '() '()))))))))))) - (#{chi-local-syntax\ 466}# - (lambda (#{rec?\ 2205}# - #{e\ 2206}# - #{r\ 2207}# - #{w\ 2208}# - #{s\ 2209}# - #{mod\ 2210}# - #{k\ 2211}#) - (let ((#{tmp\ 2219}# #{e\ 2206}#)) - (let ((#{tmp\ 2220}# + (#{chi-local-syntax 466}# + (lambda (#{rec? 2205}# + #{e 2206}# + #{r 2207}# + #{w 2208}# + #{s 2209}# + #{mod 2210}# + #{k 2211}#) + (let ((#{tmp 2219}# #{e 2206}#)) + (let ((#{tmp 2220}# ($sc-dispatch - #{tmp\ 2219}# + #{tmp 2219}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 2220}# + (if #{tmp 2220}# (@apply - (lambda (#{id\ 2225}# - #{val\ 2226}# - #{e1\ 2227}# - #{e2\ 2228}#) + (lambda (#{id 2225}# + #{val 2226}# + #{e1 2227}# + #{e2 2228}#) (begin - (let ((#{ids\ 2230}# #{id\ 2225}#)) - (if (not (#{valid-bound-ids?\ 436}# #{ids\ 2230}#)) + (let ((#{ids 2230}# #{id 2225}#)) + (if (not (#{valid-bound-ids? 436}# #{ids 2230}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 2206}#) + #{e 2206}#) (begin - (let ((#{labels\ 2233}# - (#{gen-labels\ 391}# #{ids\ 2230}#))) + (let ((#{labels 2233}# + (#{gen-labels 391}# #{ids 2230}#))) (begin - (let ((#{new-w\ 2235}# - (#{make-binding-wrap\ 420}# - #{ids\ 2230}# - #{labels\ 2233}# - #{w\ 2208}#))) - (#{k\ 2211}# - (cons #{e1\ 2227}# #{e2\ 2228}#) - (#{extend-env\ 364}# - #{labels\ 2233}# + (let ((#{new-w 2235}# + (#{make-binding-wrap 420}# + #{ids 2230}# + #{labels 2233}# + #{w 2208}#))) + (#{k 2211}# + (cons #{e1 2227}# #{e2 2228}#) + (#{extend-env 364}# + #{labels 2233}# (begin - (let ((#{w\ 2239}# - (if #{rec?\ 2205}# - #{new-w\ 2235}# - #{w\ 2208}#)) - (#{trans-r\ 2240}# - (#{macros-only-env\ 368}# - #{r\ 2207}#))) - (map (lambda (#{x\ 2241}#) + (let ((#{w 2239}# + (if #{rec? 2205}# + #{new-w 2235}# + #{w 2208}#)) + (#{trans-r 2240}# + (#{macros-only-env 368}# + #{r 2207}#))) + (map (lambda (#{x 2241}#) (cons 'macro - (#{eval-local-transformer\ 468}# - (#{chi\ 456}# - #{x\ 2241}# - #{trans-r\ 2240}# - #{w\ 2239}# - #{mod\ 2210}#) - #{mod\ 2210}#))) - #{val\ 2226}#))) - #{r\ 2207}#) - #{new-w\ 2235}# - #{s\ 2209}# - #{mod\ 2210}#))))))))) - #{tmp\ 2220}#) - (let ((#{_\ 2246}# #{tmp\ 2219}#)) + (#{eval-local-transformer 468}# + (#{chi 456}# + #{x 2241}# + #{trans-r 2240}# + #{w 2239}# + #{mod 2210}#) + #{mod 2210}#))) + #{val 2226}#))) + #{r 2207}#) + #{new-w 2235}# + #{s 2209}# + #{mod 2210}#))))))))) + #{tmp 2220}#) + (let ((#{_ 2246}# #{tmp 2219}#)) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 444}# - #{e\ 2206}# - #{w\ 2208}# - #{s\ 2209}# - #{mod\ 2210}#)))))))) - (#{eval-local-transformer\ 468}# - (lambda (#{expanded\ 2247}# #{mod\ 2248}#) + (#{source-wrap 444}# + #{e 2206}# + #{w 2208}# + #{s 2209}# + #{mod 2210}#)))))))) + (#{eval-local-transformer 468}# + (lambda (#{expanded 2247}# #{mod 2248}#) (begin - (let ((#{p\ 2252}# - (#{local-eval-hook\ 289}# - #{expanded\ 2247}# - #{mod\ 2248}#))) - (if (procedure? #{p\ 2252}#) - #{p\ 2252}# + (let ((#{p 2252}# + (#{local-eval-hook 289}# + #{expanded 2247}# + #{mod 2248}#))) + (if (procedure? #{p 2252}#) + #{p 2252}# (syntax-violation #f "nonprocedure transformer" - #{p\ 2252}#)))))) - (#{chi-void\ 470}# - (lambda () (#{build-void\ 300}# #f))) - (#{ellipsis?\ 472}# - (lambda (#{x\ 2254}#) - (if (#{nonsymbol-id?\ 374}# #{x\ 2254}#) - (#{free-id=?\ 432}# - #{x\ 2254}# + #{p 2252}#)))))) + (#{chi-void 470}# + (lambda () (#{build-void 300}# #f))) + (#{ellipsis? 472}# + (lambda (#{x 2254}#) + (if (#{nonsymbol-id? 374}# #{x 2254}#) + (#{free-id=? 432}# + #{x 2254}# '#(syntax-object ... ((top) @@ -6866,243 +6846,241 @@ ("i41" "i40" "i39" "i37"))) (hygiene guile))) #f))) - (#{lambda-formals\ 474}# - (lambda (#{orig-args\ 2258}#) + (#{lambda-formals 474}# + (lambda (#{orig-args 2258}#) (letrec* - ((#{req\ 2261}# - (lambda (#{args\ 2264}# #{rreq\ 2265}#) - (let ((#{tmp\ 2268}# #{args\ 2264}#)) - (let ((#{tmp\ 2269}# ($sc-dispatch #{tmp\ 2268}# '()))) - (if #{tmp\ 2269}# + ((#{req 2261}# + (lambda (#{args 2264}# #{rreq 2265}#) + (let ((#{tmp 2268}# #{args 2264}#)) + (let ((#{tmp 2269}# ($sc-dispatch #{tmp 2268}# '()))) + (if #{tmp 2269}# (@apply (lambda () - (#{check\ 2263}# (reverse #{rreq\ 2265}#) #f)) - #{tmp\ 2269}#) - (let ((#{tmp\ 2270}# - ($sc-dispatch #{tmp\ 2268}# '(any . any)))) - (if (if #{tmp\ 2270}# + (#{check 2263}# (reverse #{rreq 2265}#) #f)) + #{tmp 2269}#) + (let ((#{tmp 2270}# + ($sc-dispatch #{tmp 2268}# '(any . any)))) + (if (if #{tmp 2270}# (@apply - (lambda (#{a\ 2273}# #{b\ 2274}#) - (#{id?\ 376}# #{a\ 2273}#)) - #{tmp\ 2270}#) + (lambda (#{a 2273}# #{b 2274}#) + (#{id? 376}# #{a 2273}#)) + #{tmp 2270}#) #f) (@apply - (lambda (#{a\ 2277}# #{b\ 2278}#) - (#{req\ 2261}# - #{b\ 2278}# - (cons #{a\ 2277}# #{rreq\ 2265}#))) - #{tmp\ 2270}#) - (let ((#{tmp\ 2279}# (list #{tmp\ 2268}#))) - (if (if #{tmp\ 2279}# + (lambda (#{a 2277}# #{b 2278}#) + (#{req 2261}# + #{b 2278}# + (cons #{a 2277}# #{rreq 2265}#))) + #{tmp 2270}#) + (let ((#{tmp 2279}# (list #{tmp 2268}#))) + (if (if #{tmp 2279}# (@apply - (lambda (#{r\ 2281}#) - (#{id?\ 376}# #{r\ 2281}#)) - #{tmp\ 2279}#) + (lambda (#{r 2281}#) + (#{id? 376}# #{r 2281}#)) + #{tmp 2279}#) #f) (@apply - (lambda (#{r\ 2283}#) - (#{check\ 2263}# - (reverse #{rreq\ 2265}#) - #{r\ 2283}#)) - #{tmp\ 2279}#) - (let ((#{else\ 2285}# #{tmp\ 2268}#)) + (lambda (#{r 2283}#) + (#{check 2263}# + (reverse #{rreq 2265}#) + #{r 2283}#)) + #{tmp 2279}#) + (let ((#{else 2285}# #{tmp 2268}#)) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 2258}# - #{args\ 2264}#))))))))))) - (#{check\ 2263}# - (lambda (#{req\ 2286}# #{rest\ 2287}#) - (if (#{distinct-bound-ids?\ 438}# - (if #{rest\ 2287}# - (cons #{rest\ 2287}# #{req\ 2286}#) - #{req\ 2286}#)) - (values #{req\ 2286}# #f #{rest\ 2287}# #f) + #{orig-args 2258}# + #{args 2264}#))))))))))) + (#{check 2263}# + (lambda (#{req 2286}# #{rest 2287}#) + (if (#{distinct-bound-ids? 438}# + (if #{rest 2287}# + (cons #{rest 2287}# #{req 2286}#) + #{req 2286}#)) + (values #{req 2286}# #f #{rest 2287}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 2258}#))))) - (begin (#{req\ 2261}# #{orig-args\ 2258}# '()))))) - (#{chi-simple-lambda\ 476}# - (lambda (#{e\ 2293}# - #{r\ 2294}# - #{w\ 2295}# - #{s\ 2296}# - #{mod\ 2297}# - #{req\ 2298}# - #{rest\ 2299}# - #{meta\ 2300}# - #{body\ 2301}#) + #{orig-args 2258}#))))) + (begin (#{req 2261}# #{orig-args 2258}# '()))))) + (#{chi-simple-lambda 476}# + (lambda (#{e 2293}# + #{r 2294}# + #{w 2295}# + #{s 2296}# + #{mod 2297}# + #{req 2298}# + #{rest 2299}# + #{meta 2300}# + #{body 2301}#) (begin - (let ((#{ids\ 2313}# - (if #{rest\ 2299}# - (append #{req\ 2298}# (list #{rest\ 2299}#)) - #{req\ 2298}#))) + (let ((#{ids 2313}# + (if #{rest 2299}# + (append #{req 2298}# (list #{rest 2299}#)) + #{req 2298}#))) (begin - (let ((#{vars\ 2315}# - (map #{gen-var\ 484}# #{ids\ 2313}#))) + (let ((#{vars 2315}# + (map #{gen-var 484}# #{ids 2313}#))) (begin - (let ((#{labels\ 2317}# - (#{gen-labels\ 391}# #{ids\ 2313}#))) - (#{build-simple-lambda\ 320}# - #{s\ 2296}# - (map syntax->datum #{req\ 2298}#) - (if #{rest\ 2299}# - (syntax->datum #{rest\ 2299}#) + (let ((#{labels 2317}# + (#{gen-labels 391}# #{ids 2313}#))) + (#{build-simple-lambda 320}# + #{s 2296}# + (map syntax->datum #{req 2298}#) + (if #{rest 2299}# + (syntax->datum #{rest 2299}#) #f) - #{vars\ 2315}# - #{meta\ 2300}# - (#{chi-body\ 464}# - #{body\ 2301}# - (#{source-wrap\ 444}# - #{e\ 2293}# - #{w\ 2295}# - #{s\ 2296}# - #{mod\ 2297}#) - (#{extend-var-env\ 366}# - #{labels\ 2317}# - #{vars\ 2315}# - #{r\ 2294}#) - (#{make-binding-wrap\ 420}# - #{ids\ 2313}# - #{labels\ 2317}# - #{w\ 2295}#) - #{mod\ 2297}#)))))))))) - (#{lambda*-formals\ 478}# - (lambda (#{orig-args\ 2320}#) + #{vars 2315}# + #{meta 2300}# + (#{chi-body 464}# + #{body 2301}# + (#{source-wrap 444}# + #{e 2293}# + #{w 2295}# + #{s 2296}# + #{mod 2297}#) + (#{extend-var-env 366}# + #{labels 2317}# + #{vars 2315}# + #{r 2294}#) + (#{make-binding-wrap 420}# + #{ids 2313}# + #{labels 2317}# + #{w 2295}#) + #{mod 2297}#)))))))))) + (#{lambda*-formals 478}# + (lambda (#{orig-args 2320}#) (letrec* - ((#{req\ 2323}# - (lambda (#{args\ 2332}# #{rreq\ 2333}#) - (let ((#{tmp\ 2336}# #{args\ 2332}#)) - (let ((#{tmp\ 2337}# ($sc-dispatch #{tmp\ 2336}# '()))) - (if #{tmp\ 2337}# + ((#{req 2323}# + (lambda (#{args 2332}# #{rreq 2333}#) + (let ((#{tmp 2336}# #{args 2332}#)) + (let ((#{tmp 2337}# ($sc-dispatch #{tmp 2336}# '()))) + (if #{tmp 2337}# (@apply (lambda () - (#{check\ 2331}# - (reverse #{rreq\ 2333}#) + (#{check 2331}# + (reverse #{rreq 2333}#) '() #f '())) - #{tmp\ 2337}#) - (let ((#{tmp\ 2338}# - ($sc-dispatch #{tmp\ 2336}# '(any . any)))) - (if (if #{tmp\ 2338}# + #{tmp 2337}#) + (let ((#{tmp 2338}# + ($sc-dispatch #{tmp 2336}# '(any . any)))) + (if (if #{tmp 2338}# (@apply - (lambda (#{a\ 2341}# #{b\ 2342}#) - (#{id?\ 376}# #{a\ 2341}#)) - #{tmp\ 2338}#) + (lambda (#{a 2341}# #{b 2342}#) + (#{id? 376}# #{a 2341}#)) + #{tmp 2338}#) #f) (@apply - (lambda (#{a\ 2345}# #{b\ 2346}#) - (#{req\ 2323}# - #{b\ 2346}# - (cons #{a\ 2345}# #{rreq\ 2333}#))) - #{tmp\ 2338}#) - (let ((#{tmp\ 2347}# - ($sc-dispatch #{tmp\ 2336}# '(any . any)))) - (if (if #{tmp\ 2347}# + (lambda (#{a 2345}# #{b 2346}#) + (#{req 2323}# + #{b 2346}# + (cons #{a 2345}# #{rreq 2333}#))) + #{tmp 2338}#) + (let ((#{tmp 2347}# + ($sc-dispatch #{tmp 2336}# '(any . any)))) + (if (if #{tmp 2347}# (@apply - (lambda (#{a\ 2350}# #{b\ 2351}#) - (eq? (syntax->datum #{a\ 2350}#) + (lambda (#{a 2350}# #{b 2351}#) + (eq? (syntax->datum #{a 2350}#) #:optional)) - #{tmp\ 2347}#) + #{tmp 2347}#) #f) (@apply - (lambda (#{a\ 2354}# #{b\ 2355}#) - (#{opt\ 2325}# - #{b\ 2355}# - (reverse #{rreq\ 2333}#) + (lambda (#{a 2354}# #{b 2355}#) + (#{opt 2325}# + #{b 2355}# + (reverse #{rreq 2333}#) '())) - #{tmp\ 2347}#) - (let ((#{tmp\ 2356}# + #{tmp 2347}#) + (let ((#{tmp 2356}# ($sc-dispatch - #{tmp\ 2336}# + #{tmp 2336}# '(any . any)))) - (if (if #{tmp\ 2356}# + (if (if #{tmp 2356}# (@apply - (lambda (#{a\ 2359}# #{b\ 2360}#) - (eq? (syntax->datum #{a\ 2359}#) + (lambda (#{a 2359}# #{b 2360}#) + (eq? (syntax->datum #{a 2359}#) #:key)) - #{tmp\ 2356}#) + #{tmp 2356}#) #f) (@apply - (lambda (#{a\ 2363}# #{b\ 2364}#) - (#{key\ 2327}# - #{b\ 2364}# - (reverse #{rreq\ 2333}#) + (lambda (#{a 2363}# #{b 2364}#) + (#{key 2327}# + #{b 2364}# + (reverse #{rreq 2333}#) '() '())) - #{tmp\ 2356}#) - (let ((#{tmp\ 2365}# + #{tmp 2356}#) + (let ((#{tmp 2365}# ($sc-dispatch - #{tmp\ 2336}# + #{tmp 2336}# '(any any)))) - (if (if #{tmp\ 2365}# + (if (if #{tmp 2365}# (@apply - (lambda (#{a\ 2368}# #{b\ 2369}#) - (eq? (syntax->datum - #{a\ 2368}#) + (lambda (#{a 2368}# #{b 2369}#) + (eq? (syntax->datum #{a 2368}#) #:rest)) - #{tmp\ 2365}#) + #{tmp 2365}#) #f) (@apply - (lambda (#{a\ 2372}# #{b\ 2373}#) - (#{rest\ 2329}# - #{b\ 2373}# - (reverse #{rreq\ 2333}#) + (lambda (#{a 2372}# #{b 2373}#) + (#{rest 2329}# + #{b 2373}# + (reverse #{rreq 2333}#) '() '())) - #{tmp\ 2365}#) - (let ((#{tmp\ 2374}# - (list #{tmp\ 2336}#))) - (if (if #{tmp\ 2374}# + #{tmp 2365}#) + (let ((#{tmp 2374}# + (list #{tmp 2336}#))) + (if (if #{tmp 2374}# (@apply - (lambda (#{r\ 2376}#) - (#{id?\ 376}# #{r\ 2376}#)) - #{tmp\ 2374}#) + (lambda (#{r 2376}#) + (#{id? 376}# #{r 2376}#)) + #{tmp 2374}#) #f) (@apply - (lambda (#{r\ 2378}#) - (#{rest\ 2329}# - #{r\ 2378}# - (reverse #{rreq\ 2333}#) + (lambda (#{r 2378}#) + (#{rest 2329}# + #{r 2378}# + (reverse #{rreq 2333}#) '() '())) - #{tmp\ 2374}#) - (let ((#{else\ 2380}# - #{tmp\ 2336}#)) + #{tmp 2374}#) + (let ((#{else 2380}# #{tmp 2336}#)) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 2320}# - #{args\ 2332}#))))))))))))))))) - (#{opt\ 2325}# - (lambda (#{args\ 2381}# #{req\ 2382}# #{ropt\ 2383}#) - (let ((#{tmp\ 2387}# #{args\ 2381}#)) - (let ((#{tmp\ 2388}# ($sc-dispatch #{tmp\ 2387}# '()))) - (if #{tmp\ 2388}# + #{orig-args 2320}# + #{args 2332}#))))))))))))))))) + (#{opt 2325}# + (lambda (#{args 2381}# #{req 2382}# #{ropt 2383}#) + (let ((#{tmp 2387}# #{args 2381}#)) + (let ((#{tmp 2388}# ($sc-dispatch #{tmp 2387}# '()))) + (if #{tmp 2388}# (@apply (lambda () - (#{check\ 2331}# - #{req\ 2382}# - (reverse #{ropt\ 2383}#) + (#{check 2331}# + #{req 2382}# + (reverse #{ropt 2383}#) #f '())) - #{tmp\ 2388}#) - (let ((#{tmp\ 2389}# - ($sc-dispatch #{tmp\ 2387}# '(any . any)))) - (if (if #{tmp\ 2389}# + #{tmp 2388}#) + (let ((#{tmp 2389}# + ($sc-dispatch #{tmp 2387}# '(any . any)))) + (if (if #{tmp 2389}# (@apply - (lambda (#{a\ 2392}# #{b\ 2393}#) - (#{id?\ 376}# #{a\ 2392}#)) - #{tmp\ 2389}#) + (lambda (#{a 2392}# #{b 2393}#) + (#{id? 376}# #{a 2392}#)) + #{tmp 2389}#) #f) (@apply - (lambda (#{a\ 2396}# #{b\ 2397}#) - (#{opt\ 2325}# - #{b\ 2397}# - #{req\ 2382}# - (cons (cons #{a\ 2396}# + (lambda (#{a 2396}# #{b 2397}#) + (#{opt 2325}# + #{b 2397}# + #{req 2382}# + (cons (cons #{a 2396}# '(#(syntax-object #f ((top) @@ -7553,128 +7531,124 @@ "i39" "i37"))) (hygiene guile)))) - #{ropt\ 2383}#))) - #{tmp\ 2389}#) - (let ((#{tmp\ 2398}# + #{ropt 2383}#))) + #{tmp 2389}#) + (let ((#{tmp 2398}# ($sc-dispatch - #{tmp\ 2387}# + #{tmp 2387}# '((any any) . any)))) - (if (if #{tmp\ 2398}# + (if (if #{tmp 2398}# (@apply - (lambda (#{a\ 2402}# - #{init\ 2403}# - #{b\ 2404}#) - (#{id?\ 376}# #{a\ 2402}#)) - #{tmp\ 2398}#) + (lambda (#{a 2402}# + #{init 2403}# + #{b 2404}#) + (#{id? 376}# #{a 2402}#)) + #{tmp 2398}#) #f) (@apply - (lambda (#{a\ 2408}# - #{init\ 2409}# - #{b\ 2410}#) - (#{opt\ 2325}# - #{b\ 2410}# - #{req\ 2382}# - (cons (list #{a\ 2408}# #{init\ 2409}#) - #{ropt\ 2383}#))) - #{tmp\ 2398}#) - (let ((#{tmp\ 2411}# + (lambda (#{a 2408}# #{init 2409}# #{b 2410}#) + (#{opt 2325}# + #{b 2410}# + #{req 2382}# + (cons (list #{a 2408}# #{init 2409}#) + #{ropt 2383}#))) + #{tmp 2398}#) + (let ((#{tmp 2411}# ($sc-dispatch - #{tmp\ 2387}# + #{tmp 2387}# '(any . any)))) - (if (if #{tmp\ 2411}# + (if (if #{tmp 2411}# (@apply - (lambda (#{a\ 2414}# #{b\ 2415}#) - (eq? (syntax->datum #{a\ 2414}#) + (lambda (#{a 2414}# #{b 2415}#) + (eq? (syntax->datum #{a 2414}#) #:key)) - #{tmp\ 2411}#) + #{tmp 2411}#) #f) (@apply - (lambda (#{a\ 2418}# #{b\ 2419}#) - (#{key\ 2327}# - #{b\ 2419}# - #{req\ 2382}# - (reverse #{ropt\ 2383}#) + (lambda (#{a 2418}# #{b 2419}#) + (#{key 2327}# + #{b 2419}# + #{req 2382}# + (reverse #{ropt 2383}#) '())) - #{tmp\ 2411}#) - (let ((#{tmp\ 2420}# + #{tmp 2411}#) + (let ((#{tmp 2420}# ($sc-dispatch - #{tmp\ 2387}# + #{tmp 2387}# '(any any)))) - (if (if #{tmp\ 2420}# + (if (if #{tmp 2420}# (@apply - (lambda (#{a\ 2423}# #{b\ 2424}#) - (eq? (syntax->datum - #{a\ 2423}#) + (lambda (#{a 2423}# #{b 2424}#) + (eq? (syntax->datum #{a 2423}#) #:rest)) - #{tmp\ 2420}#) + #{tmp 2420}#) #f) (@apply - (lambda (#{a\ 2427}# #{b\ 2428}#) - (#{rest\ 2329}# - #{b\ 2428}# - #{req\ 2382}# - (reverse #{ropt\ 2383}#) + (lambda (#{a 2427}# #{b 2428}#) + (#{rest 2329}# + #{b 2428}# + #{req 2382}# + (reverse #{ropt 2383}#) '())) - #{tmp\ 2420}#) - (let ((#{tmp\ 2429}# - (list #{tmp\ 2387}#))) - (if (if #{tmp\ 2429}# + #{tmp 2420}#) + (let ((#{tmp 2429}# + (list #{tmp 2387}#))) + (if (if #{tmp 2429}# (@apply - (lambda (#{r\ 2431}#) - (#{id?\ 376}# #{r\ 2431}#)) - #{tmp\ 2429}#) + (lambda (#{r 2431}#) + (#{id? 376}# #{r 2431}#)) + #{tmp 2429}#) #f) (@apply - (lambda (#{r\ 2433}#) - (#{rest\ 2329}# - #{r\ 2433}# - #{req\ 2382}# - (reverse #{ropt\ 2383}#) + (lambda (#{r 2433}#) + (#{rest 2329}# + #{r 2433}# + #{req 2382}# + (reverse #{ropt 2383}#) '())) - #{tmp\ 2429}#) - (let ((#{else\ 2435}# - #{tmp\ 2387}#)) + #{tmp 2429}#) + (let ((#{else 2435}# #{tmp 2387}#)) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 2320}# - #{args\ 2381}#))))))))))))))))) - (#{key\ 2327}# - (lambda (#{args\ 2436}# - #{req\ 2437}# - #{opt\ 2438}# - #{rkey\ 2439}#) - (let ((#{tmp\ 2444}# #{args\ 2436}#)) - (let ((#{tmp\ 2445}# ($sc-dispatch #{tmp\ 2444}# '()))) - (if #{tmp\ 2445}# + #{orig-args 2320}# + #{args 2381}#))))))))))))))))) + (#{key 2327}# + (lambda (#{args 2436}# + #{req 2437}# + #{opt 2438}# + #{rkey 2439}#) + (let ((#{tmp 2444}# #{args 2436}#)) + (let ((#{tmp 2445}# ($sc-dispatch #{tmp 2444}# '()))) + (if #{tmp 2445}# (@apply (lambda () - (#{check\ 2331}# - #{req\ 2437}# - #{opt\ 2438}# + (#{check 2331}# + #{req 2437}# + #{opt 2438}# #f - (cons #f (reverse #{rkey\ 2439}#)))) - #{tmp\ 2445}#) - (let ((#{tmp\ 2446}# - ($sc-dispatch #{tmp\ 2444}# '(any . any)))) - (if (if #{tmp\ 2446}# + (cons #f (reverse #{rkey 2439}#)))) + #{tmp 2445}#) + (let ((#{tmp 2446}# + ($sc-dispatch #{tmp 2444}# '(any . any)))) + (if (if #{tmp 2446}# (@apply - (lambda (#{a\ 2449}# #{b\ 2450}#) - (#{id?\ 376}# #{a\ 2449}#)) - #{tmp\ 2446}#) + (lambda (#{a 2449}# #{b 2450}#) + (#{id? 376}# #{a 2449}#)) + #{tmp 2446}#) #f) (@apply - (lambda (#{a\ 2453}# #{b\ 2454}#) - (let ((#{tmp\ 2456}# + (lambda (#{a 2453}# #{b 2454}#) + (let ((#{tmp 2456}# (symbol->keyword - (syntax->datum #{a\ 2453}#)))) - (let ((#{k\ 2458}# #{tmp\ 2456}#)) - (#{key\ 2327}# - #{b\ 2454}# - #{req\ 2437}# - #{opt\ 2438}# - (cons (cons #{k\ 2458}# - (cons #{a\ 2453}# + (syntax->datum #{a 2453}#)))) + (let ((#{k 2458}# #{tmp 2456}#)) + (#{key 2327}# + #{b 2454}# + #{req 2437}# + #{opt 2438}# + (cons (cons #{k 2458}# + (cons #{a 2453}# '(#(syntax-object #f ((top) @@ -8150,2001 +8124,1970 @@ "i39" "i37"))) (hygiene guile))))) - #{rkey\ 2439}#))))) - #{tmp\ 2446}#) - (let ((#{tmp\ 2459}# + #{rkey 2439}#))))) + #{tmp 2446}#) + (let ((#{tmp 2459}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '((any any) . any)))) - (if (if #{tmp\ 2459}# + (if (if #{tmp 2459}# (@apply - (lambda (#{a\ 2463}# - #{init\ 2464}# - #{b\ 2465}#) - (#{id?\ 376}# #{a\ 2463}#)) - #{tmp\ 2459}#) + (lambda (#{a 2463}# + #{init 2464}# + #{b 2465}#) + (#{id? 376}# #{a 2463}#)) + #{tmp 2459}#) #f) (@apply - (lambda (#{a\ 2469}# - #{init\ 2470}# - #{b\ 2471}#) - (let ((#{tmp\ 2473}# + (lambda (#{a 2469}# #{init 2470}# #{b 2471}#) + (let ((#{tmp 2473}# (symbol->keyword - (syntax->datum #{a\ 2469}#)))) - (let ((#{k\ 2475}# #{tmp\ 2473}#)) - (#{key\ 2327}# - #{b\ 2471}# - #{req\ 2437}# - #{opt\ 2438}# - (cons (list #{k\ 2475}# - #{a\ 2469}# - #{init\ 2470}#) - #{rkey\ 2439}#))))) - #{tmp\ 2459}#) - (let ((#{tmp\ 2476}# + (syntax->datum #{a 2469}#)))) + (let ((#{k 2475}# #{tmp 2473}#)) + (#{key 2327}# + #{b 2471}# + #{req 2437}# + #{opt 2438}# + (cons (list #{k 2475}# + #{a 2469}# + #{init 2470}#) + #{rkey 2439}#))))) + #{tmp 2459}#) + (let ((#{tmp 2476}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '((any any any) . any)))) - (if (if #{tmp\ 2476}# + (if (if #{tmp 2476}# (@apply - (lambda (#{a\ 2481}# - #{init\ 2482}# - #{k\ 2483}# - #{b\ 2484}#) - (if (#{id?\ 376}# #{a\ 2481}#) + (lambda (#{a 2481}# + #{init 2482}# + #{k 2483}# + #{b 2484}#) + (if (#{id? 376}# #{a 2481}#) (keyword? - (syntax->datum #{k\ 2483}#)) + (syntax->datum #{k 2483}#)) #f)) - #{tmp\ 2476}#) + #{tmp 2476}#) #f) (@apply - (lambda (#{a\ 2491}# - #{init\ 2492}# - #{k\ 2493}# - #{b\ 2494}#) - (#{key\ 2327}# - #{b\ 2494}# - #{req\ 2437}# - #{opt\ 2438}# - (cons (list #{k\ 2493}# - #{a\ 2491}# - #{init\ 2492}#) - #{rkey\ 2439}#))) - #{tmp\ 2476}#) - (let ((#{tmp\ 2495}# + (lambda (#{a 2491}# + #{init 2492}# + #{k 2493}# + #{b 2494}#) + (#{key 2327}# + #{b 2494}# + #{req 2437}# + #{opt 2438}# + (cons (list #{k 2493}# + #{a 2491}# + #{init 2492}#) + #{rkey 2439}#))) + #{tmp 2476}#) + (let ((#{tmp 2495}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '(any)))) - (if (if #{tmp\ 2495}# + (if (if #{tmp 2495}# (@apply - (lambda (#{aok\ 2497}#) + (lambda (#{aok 2497}#) (eq? (syntax->datum - #{aok\ 2497}#) + #{aok 2497}#) #:allow-other-keys)) - #{tmp\ 2495}#) + #{tmp 2495}#) #f) (@apply - (lambda (#{aok\ 2499}#) - (#{check\ 2331}# - #{req\ 2437}# - #{opt\ 2438}# + (lambda (#{aok 2499}#) + (#{check 2331}# + #{req 2437}# + #{opt 2438}# #f (cons #t - (reverse #{rkey\ 2439}#)))) - #{tmp\ 2495}#) - (let ((#{tmp\ 2500}# + (reverse #{rkey 2439}#)))) + #{tmp 2495}#) + (let ((#{tmp 2500}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '(any any any)))) - (if (if #{tmp\ 2500}# + (if (if #{tmp 2500}# (@apply - (lambda (#{aok\ 2504}# - #{a\ 2505}# - #{b\ 2506}#) + (lambda (#{aok 2504}# + #{a 2505}# + #{b 2506}#) (if (eq? (syntax->datum - #{aok\ 2504}#) + #{aok 2504}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 2505}#) + #{a 2505}#) #:rest) #f)) - #{tmp\ 2500}#) + #{tmp 2500}#) #f) (@apply - (lambda (#{aok\ 2512}# - #{a\ 2513}# - #{b\ 2514}#) - (#{rest\ 2329}# - #{b\ 2514}# - #{req\ 2437}# - #{opt\ 2438}# + (lambda (#{aok 2512}# + #{a 2513}# + #{b 2514}#) + (#{rest 2329}# + #{b 2514}# + #{req 2437}# + #{opt 2438}# (cons #t (reverse - #{rkey\ 2439}#)))) - #{tmp\ 2500}#) - (let ((#{tmp\ 2515}# + #{rkey 2439}#)))) + #{tmp 2500}#) + (let ((#{tmp 2515}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '(any . any)))) - (if (if #{tmp\ 2515}# + (if (if #{tmp 2515}# (@apply - (lambda (#{aok\ 2518}# - #{r\ 2519}#) + (lambda (#{aok 2518}# + #{r 2519}#) (if (eq? (syntax->datum - #{aok\ 2518}#) + #{aok 2518}#) #:allow-other-keys) - (#{id?\ 376}# - #{r\ 2519}#) + (#{id? 376}# + #{r 2519}#) #f)) - #{tmp\ 2515}#) + #{tmp 2515}#) #f) (@apply - (lambda (#{aok\ 2524}# - #{r\ 2525}#) - (#{rest\ 2329}# - #{r\ 2525}# - #{req\ 2437}# - #{opt\ 2438}# + (lambda (#{aok 2524}# + #{r 2525}#) + (#{rest 2329}# + #{r 2525}# + #{req 2437}# + #{opt 2438}# (cons #t (reverse - #{rkey\ 2439}#)))) - #{tmp\ 2515}#) - (let ((#{tmp\ 2526}# + #{rkey 2439}#)))) + #{tmp 2515}#) + (let ((#{tmp 2526}# ($sc-dispatch - #{tmp\ 2444}# + #{tmp 2444}# '(any any)))) - (if (if #{tmp\ 2526}# + (if (if #{tmp 2526}# (@apply - (lambda (#{a\ 2529}# - #{b\ 2530}#) + (lambda (#{a 2529}# + #{b 2530}#) (eq? (syntax->datum - #{a\ 2529}#) + #{a 2529}#) #:rest)) - #{tmp\ 2526}#) + #{tmp 2526}#) #f) (@apply - (lambda (#{a\ 2533}# - #{b\ 2534}#) - (#{rest\ 2329}# - #{b\ 2534}# - #{req\ 2437}# - #{opt\ 2438}# + (lambda (#{a 2533}# + #{b 2534}#) + (#{rest 2329}# + #{b 2534}# + #{req 2437}# + #{opt 2438}# (cons #f (reverse - #{rkey\ 2439}#)))) - #{tmp\ 2526}#) - (let ((#{tmp\ 2535}# - (list #{tmp\ 2444}#))) - (if (if #{tmp\ 2535}# + #{rkey 2439}#)))) + #{tmp 2526}#) + (let ((#{tmp 2535}# + (list #{tmp 2444}#))) + (if (if #{tmp 2535}# (@apply - (lambda (#{r\ 2537}#) - (#{id?\ 376}# - #{r\ 2537}#)) - #{tmp\ 2535}#) + (lambda (#{r 2537}#) + (#{id? 376}# + #{r 2537}#)) + #{tmp 2535}#) #f) (@apply - (lambda (#{r\ 2539}#) - (#{rest\ 2329}# - #{r\ 2539}# - #{req\ 2437}# - #{opt\ 2438}# + (lambda (#{r 2539}#) + (#{rest 2329}# + #{r 2539}# + #{req 2437}# + #{opt 2438}# (cons #f (reverse - #{rkey\ 2439}#)))) - #{tmp\ 2535}#) - (let ((#{else\ 2541}# - #{tmp\ 2444}#)) + #{rkey 2439}#)))) + #{tmp 2535}#) + (let ((#{else 2541}# + #{tmp 2444}#)) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 2320}# - #{args\ 2436}#))))))))))))))))))))))) - (#{rest\ 2329}# - (lambda (#{args\ 2542}# - #{req\ 2543}# - #{opt\ 2544}# - #{kw\ 2545}#) - (let ((#{tmp\ 2550}# #{args\ 2542}#)) - (let ((#{tmp\ 2551}# (list #{tmp\ 2550}#))) - (if (if #{tmp\ 2551}# + #{orig-args 2320}# + #{args 2436}#))))))))))))))))))))))) + (#{rest 2329}# + (lambda (#{args 2542}# + #{req 2543}# + #{opt 2544}# + #{kw 2545}#) + (let ((#{tmp 2550}# #{args 2542}#)) + (let ((#{tmp 2551}# (list #{tmp 2550}#))) + (if (if #{tmp 2551}# (@apply - (lambda (#{r\ 2553}#) (#{id?\ 376}# #{r\ 2553}#)) - #{tmp\ 2551}#) + (lambda (#{r 2553}#) (#{id? 376}# #{r 2553}#)) + #{tmp 2551}#) #f) (@apply - (lambda (#{r\ 2555}#) - (#{check\ 2331}# - #{req\ 2543}# - #{opt\ 2544}# - #{r\ 2555}# - #{kw\ 2545}#)) - #{tmp\ 2551}#) - (let ((#{else\ 2557}# #{tmp\ 2550}#)) + (lambda (#{r 2555}#) + (#{check 2331}# + #{req 2543}# + #{opt 2544}# + #{r 2555}# + #{kw 2545}#)) + #{tmp 2551}#) + (let ((#{else 2557}# #{tmp 2550}#)) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 2320}# - #{args\ 2542}#))))))) - (#{check\ 2331}# - (lambda (#{req\ 2558}# - #{opt\ 2559}# - #{rest\ 2560}# - #{kw\ 2561}#) - (if (#{distinct-bound-ids?\ 438}# + #{orig-args 2320}# + #{args 2542}#))))))) + (#{check 2331}# + (lambda (#{req 2558}# + #{opt 2559}# + #{rest 2560}# + #{kw 2561}#) + (if (#{distinct-bound-ids? 438}# (append - #{req\ 2558}# - (map car #{opt\ 2559}#) - (if #{rest\ 2560}# (list #{rest\ 2560}#) '()) - (if (pair? #{kw\ 2561}#) - (map cadr (cdr #{kw\ 2561}#)) + #{req 2558}# + (map car #{opt 2559}#) + (if #{rest 2560}# (list #{rest 2560}#) '()) + (if (pair? #{kw 2561}#) + (map cadr (cdr #{kw 2561}#)) '()))) (values - #{req\ 2558}# - #{opt\ 2559}# - #{rest\ 2560}# - #{kw\ 2561}#) + #{req 2558}# + #{opt 2559}# + #{rest 2560}# + #{kw 2561}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 2320}#))))) - (begin (#{req\ 2323}# #{orig-args\ 2320}# '()))))) - (#{chi-lambda-case\ 480}# - (lambda (#{e\ 2569}# - #{r\ 2570}# - #{w\ 2571}# - #{s\ 2572}# - #{mod\ 2573}# - #{get-formals\ 2574}# - #{clauses\ 2575}#) + #{orig-args 2320}#))))) + (begin (#{req 2323}# #{orig-args 2320}# '()))))) + (#{chi-lambda-case 480}# + (lambda (#{e 2569}# + #{r 2570}# + #{w 2571}# + #{s 2572}# + #{mod 2573}# + #{get-formals 2574}# + #{clauses 2575}#) (letrec* - ((#{expand-req\ 2584}# - (lambda (#{req\ 2591}# - #{opt\ 2592}# - #{rest\ 2593}# - #{kw\ 2594}# - #{body\ 2595}#) + ((#{expand-req 2584}# + (lambda (#{req 2591}# + #{opt 2592}# + #{rest 2593}# + #{kw 2594}# + #{body 2595}#) (begin - (let ((#{vars\ 2603}# - (map #{gen-var\ 484}# #{req\ 2591}#)) - (#{labels\ 2604}# - (#{gen-labels\ 391}# #{req\ 2591}#))) + (let ((#{vars 2603}# + (map #{gen-var 484}# #{req 2591}#)) + (#{labels 2604}# + (#{gen-labels 391}# #{req 2591}#))) (begin - (let ((#{r*\ 2607}# - (#{extend-var-env\ 366}# - #{labels\ 2604}# - #{vars\ 2603}# - #{r\ 2570}#)) - (#{w*\ 2608}# - (#{make-binding-wrap\ 420}# - #{req\ 2591}# - #{labels\ 2604}# - #{w\ 2571}#))) - (#{expand-opt\ 2586}# - (map syntax->datum #{req\ 2591}#) - #{opt\ 2592}# - #{rest\ 2593}# - #{kw\ 2594}# - #{body\ 2595}# - (reverse #{vars\ 2603}#) - #{r*\ 2607}# - #{w*\ 2608}# + (let ((#{r* 2607}# + (#{extend-var-env 366}# + #{labels 2604}# + #{vars 2603}# + #{r 2570}#)) + (#{w* 2608}# + (#{make-binding-wrap 420}# + #{req 2591}# + #{labels 2604}# + #{w 2571}#))) + (#{expand-opt 2586}# + (map syntax->datum #{req 2591}#) + #{opt 2592}# + #{rest 2593}# + #{kw 2594}# + #{body 2595}# + (reverse #{vars 2603}#) + #{r* 2607}# + #{w* 2608}# '() '()))))))) - (#{expand-opt\ 2586}# - (lambda (#{req\ 2609}# - #{opt\ 2610}# - #{rest\ 2611}# - #{kw\ 2612}# - #{body\ 2613}# - #{vars\ 2614}# - #{r*\ 2615}# - #{w*\ 2616}# - #{out\ 2617}# - #{inits\ 2618}#) - (if (pair? #{opt\ 2610}#) - (let ((#{tmp\ 2631}# (car #{opt\ 2610}#))) - (let ((#{tmp\ 2632}# - ($sc-dispatch #{tmp\ 2631}# '(any any)))) - (if #{tmp\ 2632}# + (#{expand-opt 2586}# + (lambda (#{req 2609}# + #{opt 2610}# + #{rest 2611}# + #{kw 2612}# + #{body 2613}# + #{vars 2614}# + #{r* 2615}# + #{w* 2616}# + #{out 2617}# + #{inits 2618}#) + (if (pair? #{opt 2610}#) + (let ((#{tmp 2631}# (car #{opt 2610}#))) + (let ((#{tmp 2632}# + ($sc-dispatch #{tmp 2631}# '(any any)))) + (if #{tmp 2632}# (@apply - (lambda (#{id\ 2635}# #{i\ 2636}#) + (lambda (#{id 2635}# #{i 2636}#) (begin - (let ((#{v\ 2639}# - (#{gen-var\ 484}# #{id\ 2635}#))) + (let ((#{v 2639}# + (#{gen-var 484}# #{id 2635}#))) (begin - (let ((#{l\ 2641}# - (#{gen-labels\ 391}# - (list #{v\ 2639}#)))) + (let ((#{l 2641}# + (#{gen-labels 391}# + (list #{v 2639}#)))) (begin - (let ((#{r**\ 2643}# - (#{extend-var-env\ 366}# - #{l\ 2641}# - (list #{v\ 2639}#) - #{r*\ 2615}#))) + (let ((#{r** 2643}# + (#{extend-var-env 366}# + #{l 2641}# + (list #{v 2639}#) + #{r* 2615}#))) (begin - (let ((#{w**\ 2645}# - (#{make-binding-wrap\ 420}# - (list #{id\ 2635}#) - #{l\ 2641}# - #{w*\ 2616}#))) - (#{expand-opt\ 2586}# - #{req\ 2609}# - (cdr #{opt\ 2610}#) - #{rest\ 2611}# - #{kw\ 2612}# - #{body\ 2613}# - (cons #{v\ 2639}# - #{vars\ 2614}#) - #{r**\ 2643}# - #{w**\ 2645}# + (let ((#{w** 2645}# + (#{make-binding-wrap 420}# + (list #{id 2635}#) + #{l 2641}# + #{w* 2616}#))) + (#{expand-opt 2586}# + #{req 2609}# + (cdr #{opt 2610}#) + #{rest 2611}# + #{kw 2612}# + #{body 2613}# + (cons #{v 2639}# #{vars 2614}#) + #{r** 2643}# + #{w** 2645}# (cons (syntax->datum - #{id\ 2635}#) - #{out\ 2617}#) - (cons (#{chi\ 456}# - #{i\ 2636}# - #{r*\ 2615}# - #{w*\ 2616}# - #{mod\ 2573}#) - #{inits\ 2618}#))))))))))) - #{tmp\ 2632}#) + #{id 2635}#) + #{out 2617}#) + (cons (#{chi 456}# + #{i 2636}# + #{r* 2615}# + #{w* 2616}# + #{mod 2573}#) + #{inits 2618}#))))))))))) + #{tmp 2632}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2631}#)))) - (if #{rest\ 2611}# + #{tmp 2631}#)))) + (if #{rest 2611}# (begin - (let ((#{v\ 2650}# (#{gen-var\ 484}# #{rest\ 2611}#))) + (let ((#{v 2650}# (#{gen-var 484}# #{rest 2611}#))) (begin - (let ((#{l\ 2652}# - (#{gen-labels\ 391}# (list #{v\ 2650}#)))) + (let ((#{l 2652}# + (#{gen-labels 391}# (list #{v 2650}#)))) (begin - (let ((#{r*\ 2654}# - (#{extend-var-env\ 366}# - #{l\ 2652}# - (list #{v\ 2650}#) - #{r*\ 2615}#))) + (let ((#{r* 2654}# + (#{extend-var-env 366}# + #{l 2652}# + (list #{v 2650}#) + #{r* 2615}#))) (begin - (let ((#{w*\ 2656}# - (#{make-binding-wrap\ 420}# - (list #{rest\ 2611}#) - #{l\ 2652}# - #{w*\ 2616}#))) - (#{expand-kw\ 2588}# - #{req\ 2609}# - (if (pair? #{out\ 2617}#) - (reverse #{out\ 2617}#) + (let ((#{w* 2656}# + (#{make-binding-wrap 420}# + (list #{rest 2611}#) + #{l 2652}# + #{w* 2616}#))) + (#{expand-kw 2588}# + #{req 2609}# + (if (pair? #{out 2617}#) + (reverse #{out 2617}#) #f) - (syntax->datum #{rest\ 2611}#) - (if (pair? #{kw\ 2612}#) - (cdr #{kw\ 2612}#) - #{kw\ 2612}#) - #{body\ 2613}# - (cons #{v\ 2650}# #{vars\ 2614}#) - #{r*\ 2654}# - #{w*\ 2656}# - (if (pair? #{kw\ 2612}#) - (car #{kw\ 2612}#) + (syntax->datum #{rest 2611}#) + (if (pair? #{kw 2612}#) + (cdr #{kw 2612}#) + #{kw 2612}#) + #{body 2613}# + (cons #{v 2650}# #{vars 2614}#) + #{r* 2654}# + #{w* 2656}# + (if (pair? #{kw 2612}#) + (car #{kw 2612}#) #f) '() - #{inits\ 2618}#))))))))) - (#{expand-kw\ 2588}# - #{req\ 2609}# - (if (pair? #{out\ 2617}#) - (reverse #{out\ 2617}#) + #{inits 2618}#))))))))) + (#{expand-kw 2588}# + #{req 2609}# + (if (pair? #{out 2617}#) + (reverse #{out 2617}#) #f) #f - (if (pair? #{kw\ 2612}#) - (cdr #{kw\ 2612}#) - #{kw\ 2612}#) - #{body\ 2613}# - #{vars\ 2614}# - #{r*\ 2615}# - #{w*\ 2616}# - (if (pair? #{kw\ 2612}#) (car #{kw\ 2612}#) #f) + (if (pair? #{kw 2612}#) + (cdr #{kw 2612}#) + #{kw 2612}#) + #{body 2613}# + #{vars 2614}# + #{r* 2615}# + #{w* 2616}# + (if (pair? #{kw 2612}#) (car #{kw 2612}#) #f) '() - #{inits\ 2618}#))))) - (#{expand-kw\ 2588}# - (lambda (#{req\ 2658}# - #{opt\ 2659}# - #{rest\ 2660}# - #{kw\ 2661}# - #{body\ 2662}# - #{vars\ 2663}# - #{r*\ 2664}# - #{w*\ 2665}# - #{aok\ 2666}# - #{out\ 2667}# - #{inits\ 2668}#) - (if (pair? #{kw\ 2661}#) - (let ((#{tmp\ 2682}# (car #{kw\ 2661}#))) - (let ((#{tmp\ 2683}# - ($sc-dispatch #{tmp\ 2682}# '(any any any)))) - (if #{tmp\ 2683}# + #{inits 2618}#))))) + (#{expand-kw 2588}# + (lambda (#{req 2658}# + #{opt 2659}# + #{rest 2660}# + #{kw 2661}# + #{body 2662}# + #{vars 2663}# + #{r* 2664}# + #{w* 2665}# + #{aok 2666}# + #{out 2667}# + #{inits 2668}#) + (if (pair? #{kw 2661}#) + (let ((#{tmp 2682}# (car #{kw 2661}#))) + (let ((#{tmp 2683}# + ($sc-dispatch #{tmp 2682}# '(any any any)))) + (if #{tmp 2683}# (@apply - (lambda (#{k\ 2687}# #{id\ 2688}# #{i\ 2689}#) + (lambda (#{k 2687}# #{id 2688}# #{i 2689}#) (begin - (let ((#{v\ 2692}# - (#{gen-var\ 484}# #{id\ 2688}#))) + (let ((#{v 2692}# + (#{gen-var 484}# #{id 2688}#))) (begin - (let ((#{l\ 2694}# - (#{gen-labels\ 391}# - (list #{v\ 2692}#)))) + (let ((#{l 2694}# + (#{gen-labels 391}# + (list #{v 2692}#)))) (begin - (let ((#{r**\ 2696}# - (#{extend-var-env\ 366}# - #{l\ 2694}# - (list #{v\ 2692}#) - #{r*\ 2664}#))) + (let ((#{r** 2696}# + (#{extend-var-env 366}# + #{l 2694}# + (list #{v 2692}#) + #{r* 2664}#))) (begin - (let ((#{w**\ 2698}# - (#{make-binding-wrap\ 420}# - (list #{id\ 2688}#) - #{l\ 2694}# - #{w*\ 2665}#))) - (#{expand-kw\ 2588}# - #{req\ 2658}# - #{opt\ 2659}# - #{rest\ 2660}# - (cdr #{kw\ 2661}#) - #{body\ 2662}# - (cons #{v\ 2692}# - #{vars\ 2663}#) - #{r**\ 2696}# - #{w**\ 2698}# - #{aok\ 2666}# + (let ((#{w** 2698}# + (#{make-binding-wrap 420}# + (list #{id 2688}#) + #{l 2694}# + #{w* 2665}#))) + (#{expand-kw 2588}# + #{req 2658}# + #{opt 2659}# + #{rest 2660}# + (cdr #{kw 2661}#) + #{body 2662}# + (cons #{v 2692}# #{vars 2663}#) + #{r** 2696}# + #{w** 2698}# + #{aok 2666}# (cons (list (syntax->datum - #{k\ 2687}#) + #{k 2687}#) (syntax->datum - #{id\ 2688}#) - #{v\ 2692}#) - #{out\ 2667}#) - (cons (#{chi\ 456}# - #{i\ 2689}# - #{r*\ 2664}# - #{w*\ 2665}# - #{mod\ 2573}#) - #{inits\ 2668}#))))))))))) - #{tmp\ 2683}#) + #{id 2688}#) + #{v 2692}#) + #{out 2667}#) + (cons (#{chi 456}# + #{i 2689}# + #{r* 2664}# + #{w* 2665}# + #{mod 2573}#) + #{inits 2668}#))))))))))) + #{tmp 2683}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2682}#)))) - (#{expand-body\ 2590}# - #{req\ 2658}# - #{opt\ 2659}# - #{rest\ 2660}# + #{tmp 2682}#)))) + (#{expand-body 2590}# + #{req 2658}# + #{opt 2659}# + #{rest 2660}# (if (begin - (let ((#{t\ 2702}# #{aok\ 2666}#)) - (if #{t\ 2702}# - #{t\ 2702}# - (pair? #{out\ 2667}#)))) - (cons #{aok\ 2666}# (reverse #{out\ 2667}#)) + (let ((#{t 2702}# #{aok 2666}#)) + (if #{t 2702}# #{t 2702}# (pair? #{out 2667}#)))) + (cons #{aok 2666}# (reverse #{out 2667}#)) #f) - #{body\ 2662}# - (reverse #{vars\ 2663}#) - #{r*\ 2664}# - #{w*\ 2665}# - (reverse #{inits\ 2668}#) + #{body 2662}# + (reverse #{vars 2663}#) + #{r* 2664}# + #{w* 2665}# + (reverse #{inits 2668}#) '())))) - (#{expand-body\ 2590}# - (lambda (#{req\ 2704}# - #{opt\ 2705}# - #{rest\ 2706}# - #{kw\ 2707}# - #{body\ 2708}# - #{vars\ 2709}# - #{r*\ 2710}# - #{w*\ 2711}# - #{inits\ 2712}# - #{meta\ 2713}#) - (let ((#{tmp\ 2724}# #{body\ 2708}#)) - (let ((#{tmp\ 2725}# - ($sc-dispatch - #{tmp\ 2724}# - '(any any . each-any)))) - (if (if #{tmp\ 2725}# + (#{expand-body 2590}# + (lambda (#{req 2704}# + #{opt 2705}# + #{rest 2706}# + #{kw 2707}# + #{body 2708}# + #{vars 2709}# + #{r* 2710}# + #{w* 2711}# + #{inits 2712}# + #{meta 2713}#) + (let ((#{tmp 2724}# #{body 2708}#)) + (let ((#{tmp 2725}# + ($sc-dispatch #{tmp 2724}# '(any any . each-any)))) + (if (if #{tmp 2725}# (@apply - (lambda (#{docstring\ 2729}# - #{e1\ 2730}# - #{e2\ 2731}#) - (string? (syntax->datum #{docstring\ 2729}#))) - #{tmp\ 2725}#) + (lambda (#{docstring 2729}# + #{e1 2730}# + #{e2 2731}#) + (string? (syntax->datum #{docstring 2729}#))) + #{tmp 2725}#) #f) (@apply - (lambda (#{docstring\ 2735}# - #{e1\ 2736}# - #{e2\ 2737}#) - (#{expand-body\ 2590}# - #{req\ 2704}# - #{opt\ 2705}# - #{rest\ 2706}# - #{kw\ 2707}# - (cons #{e1\ 2736}# #{e2\ 2737}#) - #{vars\ 2709}# - #{r*\ 2710}# - #{w*\ 2711}# - #{inits\ 2712}# + (lambda (#{docstring 2735}# #{e1 2736}# #{e2 2737}#) + (#{expand-body 2590}# + #{req 2704}# + #{opt 2705}# + #{rest 2706}# + #{kw 2707}# + (cons #{e1 2736}# #{e2 2737}#) + #{vars 2709}# + #{r* 2710}# + #{w* 2711}# + #{inits 2712}# (append - #{meta\ 2713}# + #{meta 2713}# (list (cons 'documentation (syntax->datum - #{docstring\ 2735}#)))))) - #{tmp\ 2725}#) - (let ((#{tmp\ 2740}# + #{docstring 2735}#)))))) + #{tmp 2725}#) + (let ((#{tmp 2740}# ($sc-dispatch - #{tmp\ 2724}# + #{tmp 2724}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 2740}# + (if #{tmp 2740}# (@apply - (lambda (#{k\ 2745}# - #{v\ 2746}# - #{e1\ 2747}# - #{e2\ 2748}#) - (#{expand-body\ 2590}# - #{req\ 2704}# - #{opt\ 2705}# - #{rest\ 2706}# - #{kw\ 2707}# - (cons #{e1\ 2747}# #{e2\ 2748}#) - #{vars\ 2709}# - #{r*\ 2710}# - #{w*\ 2711}# - #{inits\ 2712}# + (lambda (#{k 2745}# + #{v 2746}# + #{e1 2747}# + #{e2 2748}#) + (#{expand-body 2590}# + #{req 2704}# + #{opt 2705}# + #{rest 2706}# + #{kw 2707}# + (cons #{e1 2747}# #{e2 2748}#) + #{vars 2709}# + #{r* 2710}# + #{w* 2711}# + #{inits 2712}# (append - #{meta\ 2713}# + #{meta 2713}# (syntax->datum - (map cons #{k\ 2745}# #{v\ 2746}#))))) - #{tmp\ 2740}#) - (let ((#{tmp\ 2752}# + (map cons #{k 2745}# #{v 2746}#))))) + #{tmp 2740}#) + (let ((#{tmp 2752}# ($sc-dispatch - #{tmp\ 2724}# + #{tmp 2724}# '(any . each-any)))) - (if #{tmp\ 2752}# + (if #{tmp 2752}# (@apply - (lambda (#{e1\ 2755}# #{e2\ 2756}#) + (lambda (#{e1 2755}# #{e2 2756}#) (values - #{meta\ 2713}# - #{req\ 2704}# - #{opt\ 2705}# - #{rest\ 2706}# - #{kw\ 2707}# - #{inits\ 2712}# - #{vars\ 2709}# - (#{chi-body\ 464}# - (cons #{e1\ 2755}# #{e2\ 2756}#) - (#{source-wrap\ 444}# - #{e\ 2569}# - #{w\ 2571}# - #{s\ 2572}# - #{mod\ 2573}#) - #{r*\ 2710}# - #{w*\ 2711}# - #{mod\ 2573}#))) - #{tmp\ 2752}#) + #{meta 2713}# + #{req 2704}# + #{opt 2705}# + #{rest 2706}# + #{kw 2707}# + #{inits 2712}# + #{vars 2709}# + (#{chi-body 464}# + (cons #{e1 2755}# #{e2 2756}#) + (#{source-wrap 444}# + #{e 2569}# + #{w 2571}# + #{s 2572}# + #{mod 2573}#) + #{r* 2710}# + #{w* 2711}# + #{mod 2573}#))) + #{tmp 2752}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2724}#))))))))))) + #{tmp 2724}#))))))))))) (begin - (let ((#{tmp\ 2758}# #{clauses\ 2575}#)) - (let ((#{tmp\ 2759}# ($sc-dispatch #{tmp\ 2758}# '()))) - (if #{tmp\ 2759}# - (@apply - (lambda () (values '() #f)) - #{tmp\ 2759}#) - (let ((#{tmp\ 2760}# + (let ((#{tmp 2758}# #{clauses 2575}#)) + (let ((#{tmp 2759}# ($sc-dispatch #{tmp 2758}# '()))) + (if #{tmp 2759}# + (@apply (lambda () (values '() #f)) #{tmp 2759}#) + (let ((#{tmp 2760}# ($sc-dispatch - #{tmp\ 2758}# + #{tmp 2758}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 2760}# + (if #{tmp 2760}# (@apply - (lambda (#{args\ 2767}# - #{e1\ 2768}# - #{e2\ 2769}# - #{args*\ 2770}# - #{e1*\ 2771}# - #{e2*\ 2772}#) + (lambda (#{args 2767}# + #{e1 2768}# + #{e2 2769}# + #{args* 2770}# + #{e1* 2771}# + #{e2* 2772}#) (call-with-values - (lambda () - (#{get-formals\ 2574}# #{args\ 2767}#)) - (lambda (#{req\ 2773}# - #{opt\ 2774}# - #{rest\ 2775}# - #{kw\ 2776}#) + (lambda () (#{get-formals 2574}# #{args 2767}#)) + (lambda (#{req 2773}# + #{opt 2774}# + #{rest 2775}# + #{kw 2776}#) (call-with-values (lambda () - (#{expand-req\ 2584}# - #{req\ 2773}# - #{opt\ 2774}# - #{rest\ 2775}# - #{kw\ 2776}# - (cons #{e1\ 2768}# #{e2\ 2769}#))) - (lambda (#{meta\ 2782}# - #{req\ 2783}# - #{opt\ 2784}# - #{rest\ 2785}# - #{kw\ 2786}# - #{inits\ 2787}# - #{vars\ 2788}# - #{body\ 2789}#) + (#{expand-req 2584}# + #{req 2773}# + #{opt 2774}# + #{rest 2775}# + #{kw 2776}# + (cons #{e1 2768}# #{e2 2769}#))) + (lambda (#{meta 2782}# + #{req 2783}# + #{opt 2784}# + #{rest 2785}# + #{kw 2786}# + #{inits 2787}# + #{vars 2788}# + #{body 2789}#) (call-with-values (lambda () - (#{chi-lambda-case\ 480}# - #{e\ 2569}# - #{r\ 2570}# - #{w\ 2571}# - #{s\ 2572}# - #{mod\ 2573}# - #{get-formals\ 2574}# - (map (lambda (#{tmp\ 2800}# - #{tmp\ 2799}# - #{tmp\ 2798}#) - (cons #{tmp\ 2798}# - (cons #{tmp\ 2799}# - #{tmp\ 2800}#))) - #{e2*\ 2772}# - #{e1*\ 2771}# - #{args*\ 2770}#))) - (lambda (#{meta*\ 2802}# - #{else*\ 2803}#) + (#{chi-lambda-case 480}# + #{e 2569}# + #{r 2570}# + #{w 2571}# + #{s 2572}# + #{mod 2573}# + #{get-formals 2574}# + (map (lambda (#{tmp 2800}# + #{tmp 2799}# + #{tmp 2798}#) + (cons #{tmp 2798}# + (cons #{tmp 2799}# + #{tmp 2800}#))) + #{e2* 2772}# + #{e1* 2771}# + #{args* 2770}#))) + (lambda (#{meta* 2802}# #{else* 2803}#) (values (append - #{meta\ 2782}# - #{meta*\ 2802}#) - (#{build-lambda-case\ 324}# - #{s\ 2572}# - #{req\ 2783}# - #{opt\ 2784}# - #{rest\ 2785}# - #{kw\ 2786}# - #{inits\ 2787}# - #{vars\ 2788}# - #{body\ 2789}# - #{else*\ 2803}#))))))))) - #{tmp\ 2760}#) + #{meta 2782}# + #{meta* 2802}#) + (#{build-lambda-case 324}# + #{s 2572}# + #{req 2783}# + #{opt 2784}# + #{rest 2785}# + #{kw 2786}# + #{inits 2787}# + #{vars 2788}# + #{body 2789}# + #{else* 2803}#))))))))) + #{tmp 2760}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2758}#)))))))))) - (#{strip\ 482}# - (lambda (#{x\ 2806}# #{w\ 2807}#) - (if (memq 'top (car #{w\ 2807}#)) - #{x\ 2806}# + #{tmp 2758}#)))))))))) + (#{strip 482}# + (lambda (#{x 2806}# #{w 2807}#) + (if (memq 'top (car #{w 2807}#)) + #{x 2806}# (letrec* - ((#{f\ 2814}# - (lambda (#{x\ 2815}#) - (if (#{syntax-object?\ 342}# #{x\ 2815}#) - (#{strip\ 482}# - (#{syntax-object-expression\ 344}# #{x\ 2815}#) - (#{syntax-object-wrap\ 346}# #{x\ 2815}#)) - (if (pair? #{x\ 2815}#) + ((#{f 2814}# + (lambda (#{x 2815}#) + (if (#{syntax-object? 342}# #{x 2815}#) + (#{strip 482}# + (#{syntax-object-expression 344}# #{x 2815}#) + (#{syntax-object-wrap 346}# #{x 2815}#)) + (if (pair? #{x 2815}#) (begin - (let ((#{a\ 2822}# (#{f\ 2814}# (car #{x\ 2815}#))) - (#{d\ 2823}# (#{f\ 2814}# (cdr #{x\ 2815}#)))) - (if (if (eq? #{a\ 2822}# (car #{x\ 2815}#)) - (eq? #{d\ 2823}# (cdr #{x\ 2815}#)) + (let ((#{a 2822}# (#{f 2814}# (car #{x 2815}#))) + (#{d 2823}# (#{f 2814}# (cdr #{x 2815}#)))) + (if (if (eq? #{a 2822}# (car #{x 2815}#)) + (eq? #{d 2823}# (cdr #{x 2815}#)) #f) - #{x\ 2815}# - (cons #{a\ 2822}# #{d\ 2823}#)))) - (if (vector? #{x\ 2815}#) + #{x 2815}# + (cons #{a 2822}# #{d 2823}#)))) + (if (vector? #{x 2815}#) (begin - (let ((#{old\ 2829}# (vector->list #{x\ 2815}#))) + (let ((#{old 2829}# (vector->list #{x 2815}#))) (begin - (let ((#{new\ 2831}# - (map #{f\ 2814}# #{old\ 2829}#))) - (if (#{and-map*\ 38}# + (let ((#{new 2831}# + (map #{f 2814}# #{old 2829}#))) + (if (#{and-map* 38}# eq? - #{old\ 2829}# - #{new\ 2831}#) - #{x\ 2815}# - (list->vector #{new\ 2831}#)))))) - #{x\ 2815}#)))))) - (begin (#{f\ 2814}# #{x\ 2806}#)))))) - (#{gen-var\ 484}# - (lambda (#{id\ 2833}#) + #{old 2829}# + #{new 2831}#) + #{x 2815}# + (list->vector #{new 2831}#)))))) + #{x 2815}#)))))) + (begin (#{f 2814}# #{x 2806}#)))))) + (#{gen-var 484}# + (lambda (#{id 2833}#) (begin - (let ((#{id\ 2836}# - (if (#{syntax-object?\ 342}# #{id\ 2833}#) - (#{syntax-object-expression\ 344}# #{id\ 2833}#) - #{id\ 2833}#))) + (let ((#{id 2836}# + (if (#{syntax-object? 342}# #{id 2833}#) + (#{syntax-object-expression 344}# #{id 2833}#) + #{id 2833}#))) (gensym - (string-append (symbol->string #{id\ 2836}#) " ")))))) - (#{lambda-var-list\ 486}# - (lambda (#{vars\ 2838}#) + (string-append (symbol->string #{id 2836}#) " ")))))) + (#{lambda-var-list 486}# + (lambda (#{vars 2838}#) (letrec* - ((#{lvl\ 2844}# - (lambda (#{vars\ 2845}# #{ls\ 2846}# #{w\ 2847}#) - (if (pair? #{vars\ 2845}#) - (#{lvl\ 2844}# - (cdr #{vars\ 2845}#) - (cons (#{wrap\ 442}# - (car #{vars\ 2845}#) - #{w\ 2847}# - #f) - #{ls\ 2846}#) - #{w\ 2847}#) - (if (#{id?\ 376}# #{vars\ 2845}#) - (cons (#{wrap\ 442}# #{vars\ 2845}# #{w\ 2847}# #f) - #{ls\ 2846}#) - (if (null? #{vars\ 2845}#) - #{ls\ 2846}# - (if (#{syntax-object?\ 342}# #{vars\ 2845}#) - (#{lvl\ 2844}# - (#{syntax-object-expression\ 344}# - #{vars\ 2845}#) - #{ls\ 2846}# - (#{join-wraps\ 424}# - #{w\ 2847}# - (#{syntax-object-wrap\ 346}# #{vars\ 2845}#))) - (cons #{vars\ 2845}# #{ls\ 2846}#)))))))) - (begin (#{lvl\ 2844}# #{vars\ 2838}# '() '(()))))))) + ((#{lvl 2844}# + (lambda (#{vars 2845}# #{ls 2846}# #{w 2847}#) + (if (pair? #{vars 2845}#) + (#{lvl 2844}# + (cdr #{vars 2845}#) + (cons (#{wrap 442}# (car #{vars 2845}#) #{w 2847}# #f) + #{ls 2846}#) + #{w 2847}#) + (if (#{id? 376}# #{vars 2845}#) + (cons (#{wrap 442}# #{vars 2845}# #{w 2847}# #f) + #{ls 2846}#) + (if (null? #{vars 2845}#) + #{ls 2846}# + (if (#{syntax-object? 342}# #{vars 2845}#) + (#{lvl 2844}# + (#{syntax-object-expression 344}# #{vars 2845}#) + #{ls 2846}# + (#{join-wraps 424}# + #{w 2847}# + (#{syntax-object-wrap 346}# #{vars 2845}#))) + (cons #{vars 2845}# #{ls 2846}#)))))))) + (begin (#{lvl 2844}# #{vars 2838}# '() '(()))))))) (begin - (lambda (#{src\ 804}# #{name\ 805}#) + (lambda (#{src 804}# #{name 805}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) - #{src\ 804}# - #{name\ 805}#)) - (lambda (#{x\ 1182}# #{update\ 1183}#) - (vector-set! #{x\ 1182}# 1 #{update\ 1183}#)) - (lambda (#{x\ 1186}# #{update\ 1187}#) - (vector-set! #{x\ 1186}# 2 #{update\ 1187}#)) - (lambda (#{x\ 1190}# #{update\ 1191}#) - (vector-set! #{x\ 1190}# 3 #{update\ 1191}#)) - (lambda (#{x\ 1271}#) - (if (vector? #{x\ 1271}#) - (if (= (vector-length #{x\ 1271}#) 4) - (eq? (vector-ref #{x\ 1271}# 0) 'ribcage) + #{src 804}# + #{name 805}#)) + (lambda (#{x 1182}# #{update 1183}#) + (vector-set! #{x 1182}# 1 #{update 1183}#)) + (lambda (#{x 1186}# #{update 1187}#) + (vector-set! #{x 1186}# 2 #{update 1187}#)) + (lambda (#{x 1190}# #{update 1191}#) + (vector-set! #{x 1190}# 3 #{update 1191}#)) + (lambda (#{x 1271}#) + (if (vector? #{x 1271}#) + (if (= (vector-length #{x 1271}#) 4) + (eq? (vector-ref #{x 1271}# 0) 'ribcage) #f) #f)) (begin - (#{global-extend\ 372}# + (#{global-extend 372}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 372}# + (#{global-extend 372}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 372}# + (#{global-extend 372}# 'core 'fluid-let-syntax - (lambda (#{e\ 2858}# - #{r\ 2859}# - #{w\ 2860}# - #{s\ 2861}# - #{mod\ 2862}#) - (let ((#{tmp\ 2868}# #{e\ 2858}#)) - (let ((#{tmp\ 2869}# + (lambda (#{e 2858}# + #{r 2859}# + #{w 2860}# + #{s 2861}# + #{mod 2862}#) + (let ((#{tmp 2868}# #{e 2858}#)) + (let ((#{tmp 2869}# ($sc-dispatch - #{tmp\ 2868}# + #{tmp 2868}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 2869}# + (if (if #{tmp 2869}# (@apply - (lambda (#{var\ 2874}# - #{val\ 2875}# - #{e1\ 2876}# - #{e2\ 2877}#) - (#{valid-bound-ids?\ 436}# #{var\ 2874}#)) - #{tmp\ 2869}#) + (lambda (#{var 2874}# + #{val 2875}# + #{e1 2876}# + #{e2 2877}#) + (#{valid-bound-ids? 436}# #{var 2874}#)) + #{tmp 2869}#) #f) (@apply - (lambda (#{var\ 2883}# - #{val\ 2884}# - #{e1\ 2885}# - #{e2\ 2886}#) + (lambda (#{var 2883}# + #{val 2884}# + #{e1 2885}# + #{e2 2886}#) (begin - (let ((#{names\ 2888}# - (map (lambda (#{x\ 2889}#) - (#{id-var-name\ 430}# - #{x\ 2889}# - #{w\ 2860}#)) - #{var\ 2883}#))) + (let ((#{names 2888}# + (map (lambda (#{x 2889}#) + (#{id-var-name 430}# + #{x 2889}# + #{w 2860}#)) + #{var 2883}#))) (begin (for-each - (lambda (#{id\ 2892}# #{n\ 2893}#) + (lambda (#{id 2892}# #{n 2893}#) (begin - (let ((#{atom-key\ 2898}# - (car (#{lookup\ 370}# - #{n\ 2893}# - #{r\ 2859}# - #{mod\ 2862}#)))) - (if (eqv? #{atom-key\ 2898}# + (let ((#{atom-key 2898}# + (car (#{lookup 370}# + #{n 2893}# + #{r 2859}# + #{mod 2862}#)))) + (if (eqv? #{atom-key 2898}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2858}# - (#{source-wrap\ 444}# - #{id\ 2892}# - #{w\ 2860}# - #{s\ 2861}# - #{mod\ 2862}#)))))) - #{var\ 2883}# - #{names\ 2888}#) - (#{chi-body\ 464}# - (cons #{e1\ 2885}# #{e2\ 2886}#) - (#{source-wrap\ 444}# - #{e\ 2858}# - #{w\ 2860}# - #{s\ 2861}# - #{mod\ 2862}#) - (#{extend-env\ 364}# - #{names\ 2888}# + #{e 2858}# + (#{source-wrap 444}# + #{id 2892}# + #{w 2860}# + #{s 2861}# + #{mod 2862}#)))))) + #{var 2883}# + #{names 2888}#) + (#{chi-body 464}# + (cons #{e1 2885}# #{e2 2886}#) + (#{source-wrap 444}# + #{e 2858}# + #{w 2860}# + #{s 2861}# + #{mod 2862}#) + (#{extend-env 364}# + #{names 2888}# (begin - (let ((#{trans-r\ 2904}# - (#{macros-only-env\ 368}# - #{r\ 2859}#))) - (map (lambda (#{x\ 2905}#) + (let ((#{trans-r 2904}# + (#{macros-only-env 368}# + #{r 2859}#))) + (map (lambda (#{x 2905}#) (cons 'macro - (#{eval-local-transformer\ 468}# - (#{chi\ 456}# - #{x\ 2905}# - #{trans-r\ 2904}# - #{w\ 2860}# - #{mod\ 2862}#) - #{mod\ 2862}#))) - #{val\ 2884}#))) - #{r\ 2859}#) - #{w\ 2860}# - #{mod\ 2862}#))))) - #{tmp\ 2869}#) - (let ((#{_\ 2910}# #{tmp\ 2868}#)) + (#{eval-local-transformer 468}# + (#{chi 456}# + #{x 2905}# + #{trans-r 2904}# + #{w 2860}# + #{mod 2862}#) + #{mod 2862}#))) + #{val 2884}#))) + #{r 2859}#) + #{w 2860}# + #{mod 2862}#))))) + #{tmp 2869}#) + (let ((#{_ 2910}# #{tmp 2868}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 444}# - #{e\ 2858}# - #{w\ 2860}# - #{s\ 2861}# - #{mod\ 2862}#)))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 2858}# + #{w 2860}# + #{s 2861}# + #{mod 2862}#)))))))) + (#{global-extend 372}# 'core 'quote - (lambda (#{e\ 2911}# - #{r\ 2912}# - #{w\ 2913}# - #{s\ 2914}# - #{mod\ 2915}#) - (let ((#{tmp\ 2921}# #{e\ 2911}#)) - (let ((#{tmp\ 2922}# - ($sc-dispatch #{tmp\ 2921}# '(_ any)))) - (if #{tmp\ 2922}# + (lambda (#{e 2911}# + #{r 2912}# + #{w 2913}# + #{s 2914}# + #{mod 2915}#) + (let ((#{tmp 2921}# #{e 2911}#)) + (let ((#{tmp 2922}# + ($sc-dispatch #{tmp 2921}# '(_ any)))) + (if #{tmp 2922}# (@apply - (lambda (#{e\ 2924}#) - (#{build-data\ 328}# - #{s\ 2914}# - (#{strip\ 482}# #{e\ 2924}# #{w\ 2913}#))) - #{tmp\ 2922}#) - (let ((#{_\ 2926}# #{tmp\ 2921}#)) + (lambda (#{e 2924}#) + (#{build-data 328}# + #{s 2914}# + (#{strip 482}# #{e 2924}# #{w 2913}#))) + #{tmp 2922}#) + (let ((#{_ 2926}# #{tmp 2921}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 444}# - #{e\ 2911}# - #{w\ 2913}# - #{s\ 2914}# - #{mod\ 2915}#)))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 2911}# + #{w 2913}# + #{s 2914}# + #{mod 2915}#)))))))) + (#{global-extend 372}# 'core 'syntax (letrec* - ((#{gen-syntax\ 2928}# - (lambda (#{src\ 2943}# - #{e\ 2944}# - #{r\ 2945}# - #{maps\ 2946}# - #{ellipsis?\ 2947}# - #{mod\ 2948}#) - (if (#{id?\ 376}# #{e\ 2944}#) + ((#{gen-syntax 2928}# + (lambda (#{src 2943}# + #{e 2944}# + #{r 2945}# + #{maps 2946}# + #{ellipsis? 2947}# + #{mod 2948}#) + (if (#{id? 376}# #{e 2944}#) (begin - (let ((#{label\ 2956}# - (#{id-var-name\ 430}# #{e\ 2944}# '(())))) + (let ((#{label 2956}# + (#{id-var-name 430}# #{e 2944}# '(())))) (begin - (let ((#{b\ 2959}# - (#{lookup\ 370}# - #{label\ 2956}# - #{r\ 2945}# - #{mod\ 2948}#))) - (if (eq? (car #{b\ 2959}#) 'syntax) + (let ((#{b 2959}# + (#{lookup 370}# + #{label 2956}# + #{r 2945}# + #{mod 2948}#))) + (if (eq? (car #{b 2959}#) 'syntax) (call-with-values (lambda () (begin - (let ((#{var.lev\ 2962}# - (cdr #{b\ 2959}#))) - (#{gen-ref\ 2930}# - #{src\ 2943}# - (car #{var.lev\ 2962}#) - (cdr #{var.lev\ 2962}#) - #{maps\ 2946}#)))) - (lambda (#{var\ 2964}# #{maps\ 2965}#) + (let ((#{var.lev 2962}# (cdr #{b 2959}#))) + (#{gen-ref 2930}# + #{src 2943}# + (car #{var.lev 2962}#) + (cdr #{var.lev 2962}#) + #{maps 2946}#)))) + (lambda (#{var 2964}# #{maps 2965}#) (values - (list 'ref #{var\ 2964}#) - #{maps\ 2965}#))) - (if (#{ellipsis?\ 2947}# #{e\ 2944}#) + (list 'ref #{var 2964}#) + #{maps 2965}#))) + (if (#{ellipsis? 2947}# #{e 2944}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2943}#) + #{src 2943}#) (values - (list 'quote #{e\ 2944}#) - #{maps\ 2946}#))))))) - (let ((#{tmp\ 2970}# #{e\ 2944}#)) - (let ((#{tmp\ 2971}# - ($sc-dispatch #{tmp\ 2970}# '(any any)))) - (if (if #{tmp\ 2971}# + (list 'quote #{e 2944}#) + #{maps 2946}#))))))) + (let ((#{tmp 2970}# #{e 2944}#)) + (let ((#{tmp 2971}# + ($sc-dispatch #{tmp 2970}# '(any any)))) + (if (if #{tmp 2971}# (@apply - (lambda (#{dots\ 2974}# #{e\ 2975}#) - (#{ellipsis?\ 2947}# #{dots\ 2974}#)) - #{tmp\ 2971}#) + (lambda (#{dots 2974}# #{e 2975}#) + (#{ellipsis? 2947}# #{dots 2974}#)) + #{tmp 2971}#) #f) (@apply - (lambda (#{dots\ 2978}# #{e\ 2979}#) - (#{gen-syntax\ 2928}# - #{src\ 2943}# - #{e\ 2979}# - #{r\ 2945}# - #{maps\ 2946}# - (lambda (#{x\ 2980}#) #f) - #{mod\ 2948}#)) - #{tmp\ 2971}#) - (let ((#{tmp\ 2982}# + (lambda (#{dots 2978}# #{e 2979}#) + (#{gen-syntax 2928}# + #{src 2943}# + #{e 2979}# + #{r 2945}# + #{maps 2946}# + (lambda (#{x 2980}#) #f) + #{mod 2948}#)) + #{tmp 2971}#) + (let ((#{tmp 2982}# ($sc-dispatch - #{tmp\ 2970}# + #{tmp 2970}# '(any any . any)))) - (if (if #{tmp\ 2982}# + (if (if #{tmp 2982}# (@apply - (lambda (#{x\ 2986}# - #{dots\ 2987}# - #{y\ 2988}#) - (#{ellipsis?\ 2947}# #{dots\ 2987}#)) - #{tmp\ 2982}#) + (lambda (#{x 2986}# + #{dots 2987}# + #{y 2988}#) + (#{ellipsis? 2947}# #{dots 2987}#)) + #{tmp 2982}#) #f) (@apply - (lambda (#{x\ 2992}# - #{dots\ 2993}# - #{y\ 2994}#) + (lambda (#{x 2992}# #{dots 2993}# #{y 2994}#) (letrec* - ((#{f\ 2998}# - (lambda (#{y\ 2999}# #{k\ 3000}#) - (let ((#{tmp\ 3007}# #{y\ 2999}#)) - (let ((#{tmp\ 3008}# + ((#{f 2998}# + (lambda (#{y 2999}# #{k 3000}#) + (let ((#{tmp 3007}# #{y 2999}#)) + (let ((#{tmp 3008}# ($sc-dispatch - #{tmp\ 3007}# + #{tmp 3007}# '(any . any)))) - (if (if #{tmp\ 3008}# + (if (if #{tmp 3008}# (@apply - (lambda (#{dots\ 3011}# - #{y\ 3012}#) - (#{ellipsis?\ 2947}# - #{dots\ 3011}#)) - #{tmp\ 3008}#) + (lambda (#{dots 3011}# + #{y 3012}#) + (#{ellipsis? 2947}# + #{dots 3011}#)) + #{tmp 3008}#) #f) (@apply - (lambda (#{dots\ 3015}# - #{y\ 3016}#) - (#{f\ 2998}# - #{y\ 3016}# - (lambda (#{maps\ 3017}#) + (lambda (#{dots 3015}# + #{y 3016}#) + (#{f 2998}# + #{y 3016}# + (lambda (#{maps 3017}#) (call-with-values (lambda () - (#{k\ 3000}# + (#{k 3000}# (cons '() - #{maps\ 3017}#))) - (lambda (#{x\ 3019}# - #{maps\ 3020}#) - (if (null? (car #{maps\ 3020}#)) + #{maps 3017}#))) + (lambda (#{x 3019}# + #{maps 3020}#) + (if (null? (car #{maps 3020}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2943}#) + #{src 2943}#) (values - (#{gen-mappend\ 2932}# - #{x\ 3019}# - (car #{maps\ 3020}#)) - (cdr #{maps\ 3020}#)))))))) - #{tmp\ 3008}#) - (let ((#{_\ 3024}# - #{tmp\ 3007}#)) + (#{gen-mappend 2932}# + #{x 3019}# + (car #{maps 3020}#)) + (cdr #{maps 3020}#)))))))) + #{tmp 3008}#) + (let ((#{_ 3024}# + #{tmp 3007}#)) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{src\ 2943}# - #{y\ 2999}# - #{r\ 2945}# - #{maps\ 2946}# - #{ellipsis?\ 2947}# - #{mod\ 2948}#)) - (lambda (#{y\ 3025}# - #{maps\ 3026}#) + (#{gen-syntax 2928}# + #{src 2943}# + #{y 2999}# + #{r 2945}# + #{maps 2946}# + #{ellipsis? 2947}# + #{mod 2948}#)) + (lambda (#{y 3025}# + #{maps 3026}#) (call-with-values (lambda () - (#{k\ 3000}# - #{maps\ 3026}#)) - (lambda (#{x\ 3029}# - #{maps\ 3030}#) + (#{k 3000}# + #{maps 3026}#)) + (lambda (#{x 3029}# + #{maps 3030}#) (values - (#{gen-append\ 2938}# - #{x\ 3029}# - #{y\ 3025}#) - #{maps\ 3030}#)))))))))))) + (#{gen-append 2938}# + #{x 3029}# + #{y 3025}#) + #{maps 3030}#)))))))))))) (begin - (#{f\ 2998}# - #{y\ 2994}# - (lambda (#{maps\ 3001}#) + (#{f 2998}# + #{y 2994}# + (lambda (#{maps 3001}#) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{src\ 2943}# - #{x\ 2992}# - #{r\ 2945}# - (cons '() #{maps\ 3001}#) - #{ellipsis?\ 2947}# - #{mod\ 2948}#)) - (lambda (#{x\ 3003}# - #{maps\ 3004}#) - (if (null? (car #{maps\ 3004}#)) + (#{gen-syntax 2928}# + #{src 2943}# + #{x 2992}# + #{r 2945}# + (cons '() #{maps 3001}#) + #{ellipsis? 2947}# + #{mod 2948}#)) + (lambda (#{x 3003}# #{maps 3004}#) + (if (null? (car #{maps 3004}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2943}#) + #{src 2943}#) (values - (#{gen-map\ 2934}# - #{x\ 3003}# - (car #{maps\ 3004}#)) - (cdr #{maps\ 3004}#)))))))))) - #{tmp\ 2982}#) - (let ((#{tmp\ 3033}# + (#{gen-map 2934}# + #{x 3003}# + (car #{maps 3004}#)) + (cdr #{maps 3004}#)))))))))) + #{tmp 2982}#) + (let ((#{tmp 3033}# ($sc-dispatch - #{tmp\ 2970}# + #{tmp 2970}# '(any . any)))) - (if #{tmp\ 3033}# + (if #{tmp 3033}# (@apply - (lambda (#{x\ 3036}# #{y\ 3037}#) + (lambda (#{x 3036}# #{y 3037}#) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{src\ 2943}# - #{x\ 3036}# - #{r\ 2945}# - #{maps\ 2946}# - #{ellipsis?\ 2947}# - #{mod\ 2948}#)) - (lambda (#{x\ 3038}# #{maps\ 3039}#) + (#{gen-syntax 2928}# + #{src 2943}# + #{x 3036}# + #{r 2945}# + #{maps 2946}# + #{ellipsis? 2947}# + #{mod 2948}#)) + (lambda (#{x 3038}# #{maps 3039}#) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{src\ 2943}# - #{y\ 3037}# - #{r\ 2945}# - #{maps\ 3039}# - #{ellipsis?\ 2947}# - #{mod\ 2948}#)) - (lambda (#{y\ 3042}# - #{maps\ 3043}#) + (#{gen-syntax 2928}# + #{src 2943}# + #{y 3037}# + #{r 2945}# + #{maps 3039}# + #{ellipsis? 2947}# + #{mod 2948}#)) + (lambda (#{y 3042}# #{maps 3043}#) (values - (#{gen-cons\ 2936}# - #{x\ 3038}# - #{y\ 3042}#) - #{maps\ 3043}#)))))) - #{tmp\ 3033}#) - (let ((#{tmp\ 3046}# + (#{gen-cons 2936}# + #{x 3038}# + #{y 3042}#) + #{maps 3043}#)))))) + #{tmp 3033}#) + (let ((#{tmp 3046}# ($sc-dispatch - #{tmp\ 2970}# + #{tmp 2970}# '#(vector (any . each-any))))) - (if #{tmp\ 3046}# + (if #{tmp 3046}# (@apply - (lambda (#{e1\ 3049}# #{e2\ 3050}#) + (lambda (#{e1 3049}# #{e2 3050}#) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{src\ 2943}# - (cons #{e1\ 3049}# - #{e2\ 3050}#) - #{r\ 2945}# - #{maps\ 2946}# - #{ellipsis?\ 2947}# - #{mod\ 2948}#)) - (lambda (#{e\ 3052}# - #{maps\ 3053}#) + (#{gen-syntax 2928}# + #{src 2943}# + (cons #{e1 3049}# #{e2 3050}#) + #{r 2945}# + #{maps 2946}# + #{ellipsis? 2947}# + #{mod 2948}#)) + (lambda (#{e 3052}# #{maps 3053}#) (values - (#{gen-vector\ 2940}# - #{e\ 3052}#) - #{maps\ 3053}#)))) - #{tmp\ 3046}#) - (let ((#{_\ 3057}# #{tmp\ 2970}#)) + (#{gen-vector 2940}# + #{e 3052}#) + #{maps 3053}#)))) + #{tmp 3046}#) + (let ((#{_ 3057}# #{tmp 2970}#)) (values - (list 'quote #{e\ 2944}#) - #{maps\ 2946}#)))))))))))))) - (#{gen-ref\ 2930}# - (lambda (#{src\ 3059}# - #{var\ 3060}# - #{level\ 3061}# - #{maps\ 3062}#) - (if (= #{level\ 3061}# 0) - (values #{var\ 3060}# #{maps\ 3062}#) - (if (null? #{maps\ 3062}#) + (list 'quote #{e 2944}#) + #{maps 2946}#)))))))))))))) + (#{gen-ref 2930}# + (lambda (#{src 3059}# + #{var 3060}# + #{level 3061}# + #{maps 3062}#) + (if (= #{level 3061}# 0) + (values #{var 3060}# #{maps 3062}#) + (if (null? #{maps 3062}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 3059}#) + #{src 3059}#) (call-with-values (lambda () - (#{gen-ref\ 2930}# - #{src\ 3059}# - #{var\ 3060}# - (1- #{level\ 3061}#) - (cdr #{maps\ 3062}#))) - (lambda (#{outer-var\ 3069}# #{outer-maps\ 3070}#) + (#{gen-ref 2930}# + #{src 3059}# + #{var 3060}# + (#{1-}# #{level 3061}#) + (cdr #{maps 3062}#))) + (lambda (#{outer-var 3069}# #{outer-maps 3070}#) (begin - (let ((#{b\ 3074}# - (assq #{outer-var\ 3069}# - (car #{maps\ 3062}#)))) - (if #{b\ 3074}# - (values (cdr #{b\ 3074}#) #{maps\ 3062}#) + (let ((#{b 3074}# + (assq #{outer-var 3069}# + (car #{maps 3062}#)))) + (if #{b 3074}# + (values (cdr #{b 3074}#) #{maps 3062}#) (begin - (let ((#{inner-var\ 3076}# - (#{gen-var\ 484}# 'tmp))) + (let ((#{inner-var 3076}# + (#{gen-var 484}# 'tmp))) (values - #{inner-var\ 3076}# - (cons (cons (cons #{outer-var\ 3069}# - #{inner-var\ 3076}#) - (car #{maps\ 3062}#)) - #{outer-maps\ 3070}#))))))))))))) - (#{gen-mappend\ 2932}# - (lambda (#{e\ 3077}# #{map-env\ 3078}#) + #{inner-var 3076}# + (cons (cons (cons #{outer-var 3069}# + #{inner-var 3076}#) + (car #{maps 3062}#)) + #{outer-maps 3070}#))))))))))))) + (#{gen-mappend 2932}# + (lambda (#{e 3077}# #{map-env 3078}#) (list 'apply '(primitive append) - (#{gen-map\ 2934}# #{e\ 3077}# #{map-env\ 3078}#)))) - (#{gen-map\ 2934}# - (lambda (#{e\ 3082}# #{map-env\ 3083}#) + (#{gen-map 2934}# #{e 3077}# #{map-env 3078}#)))) + (#{gen-map 2934}# + (lambda (#{e 3082}# #{map-env 3083}#) (begin - (let ((#{formals\ 3088}# (map cdr #{map-env\ 3083}#)) - (#{actuals\ 3089}# - (map (lambda (#{x\ 3090}#) - (list 'ref (car #{x\ 3090}#))) - #{map-env\ 3083}#))) - (if (eq? (car #{e\ 3082}#) 'ref) - (car #{actuals\ 3089}#) + (let ((#{formals 3088}# (map cdr #{map-env 3083}#)) + (#{actuals 3089}# + (map (lambda (#{x 3090}#) + (list 'ref (car #{x 3090}#))) + #{map-env 3083}#))) + (if (eq? (car #{e 3082}#) 'ref) + (car #{actuals 3089}#) (if (and-map - (lambda (#{x\ 3097}#) - (if (eq? (car #{x\ 3097}#) 'ref) - (memq (car (cdr #{x\ 3097}#)) - #{formals\ 3088}#) + (lambda (#{x 3097}#) + (if (eq? (car #{x 3097}#) 'ref) + (memq (car (cdr #{x 3097}#)) + #{formals 3088}#) #f)) - (cdr #{e\ 3082}#)) + (cdr #{e 3082}#)) (cons 'map - (cons (list 'primitive (car #{e\ 3082}#)) + (cons (list 'primitive (car #{e 3082}#)) (map (begin - (let ((#{r\ 3103}# + (let ((#{r 3103}# (map cons - #{formals\ 3088}# - #{actuals\ 3089}#))) - (lambda (#{x\ 3104}#) - (cdr (assq (car (cdr #{x\ 3104}#)) - #{r\ 3103}#))))) - (cdr #{e\ 3082}#)))) + #{formals 3088}# + #{actuals 3089}#))) + (lambda (#{x 3104}#) + (cdr (assq (car (cdr #{x 3104}#)) + #{r 3103}#))))) + (cdr #{e 3082}#)))) (cons 'map (cons (list 'lambda - #{formals\ 3088}# - #{e\ 3082}#) - #{actuals\ 3089}#)))))))) - (#{gen-cons\ 2936}# - (lambda (#{x\ 3108}# #{y\ 3109}#) + #{formals 3088}# + #{e 3082}#) + #{actuals 3089}#)))))))) + (#{gen-cons 2936}# + (lambda (#{x 3108}# #{y 3109}#) (begin - (let ((#{atom-key\ 3114}# (car #{y\ 3109}#))) - (if (eqv? #{atom-key\ 3114}# 'quote) - (if (eq? (car #{x\ 3108}#) 'quote) + (let ((#{atom-key 3114}# (car #{y 3109}#))) + (if (eqv? #{atom-key 3114}# 'quote) + (if (eq? (car #{x 3108}#) 'quote) (list 'quote - (cons (car (cdr #{x\ 3108}#)) - (car (cdr #{y\ 3109}#)))) - (if (eq? (car (cdr #{y\ 3109}#)) '()) - (list 'list #{x\ 3108}#) - (list 'cons #{x\ 3108}# #{y\ 3109}#))) - (if (eqv? #{atom-key\ 3114}# 'list) - (cons 'list (cons #{x\ 3108}# (cdr #{y\ 3109}#))) - (list 'cons #{x\ 3108}# #{y\ 3109}#))))))) - (#{gen-append\ 2938}# - (lambda (#{x\ 3123}# #{y\ 3124}#) - (if (equal? #{y\ 3124}# ''()) - #{x\ 3123}# - (list 'append #{x\ 3123}# #{y\ 3124}#)))) - (#{gen-vector\ 2940}# - (lambda (#{x\ 3128}#) - (if (eq? (car #{x\ 3128}#) 'list) - (cons 'vector (cdr #{x\ 3128}#)) - (if (eq? (car #{x\ 3128}#) 'quote) + (cons (car (cdr #{x 3108}#)) + (car (cdr #{y 3109}#)))) + (if (eq? (car (cdr #{y 3109}#)) '()) + (list 'list #{x 3108}#) + (list 'cons #{x 3108}# #{y 3109}#))) + (if (eqv? #{atom-key 3114}# 'list) + (cons 'list (cons #{x 3108}# (cdr #{y 3109}#))) + (list 'cons #{x 3108}# #{y 3109}#))))))) + (#{gen-append 2938}# + (lambda (#{x 3123}# #{y 3124}#) + (if (equal? #{y 3124}# ''()) + #{x 3123}# + (list 'append #{x 3123}# #{y 3124}#)))) + (#{gen-vector 2940}# + (lambda (#{x 3128}#) + (if (eq? (car #{x 3128}#) 'list) + (cons 'vector (cdr #{x 3128}#)) + (if (eq? (car #{x 3128}#) 'quote) (list 'quote - (list->vector (car (cdr #{x\ 3128}#)))) - (list 'list->vector #{x\ 3128}#))))) - (#{regen\ 2942}# - (lambda (#{x\ 3138}#) + (list->vector (car (cdr #{x 3128}#)))) + (list 'list->vector #{x 3128}#))))) + (#{regen 2942}# + (lambda (#{x 3138}#) (begin - (let ((#{atom-key\ 3142}# (car #{x\ 3138}#))) - (if (eqv? #{atom-key\ 3142}# 'ref) - (#{build-lexical-reference\ 308}# + (let ((#{atom-key 3142}# (car #{x 3138}#))) + (if (eqv? #{atom-key 3142}# 'ref) + (#{build-lexical-reference 308}# 'value #f - (car (cdr #{x\ 3138}#)) - (car (cdr #{x\ 3138}#))) - (if (eqv? #{atom-key\ 3142}# 'primitive) - (#{build-primref\ 326}# - #f - (car (cdr #{x\ 3138}#))) - (if (eqv? #{atom-key\ 3142}# 'quote) - (#{build-data\ 328}# #f (car (cdr #{x\ 3138}#))) - (if (eqv? #{atom-key\ 3142}# 'lambda) - (if (list? (car (cdr #{x\ 3138}#))) - (#{build-simple-lambda\ 320}# + (car (cdr #{x 3138}#)) + (car (cdr #{x 3138}#))) + (if (eqv? #{atom-key 3142}# 'primitive) + (#{build-primref 326}# #f (car (cdr #{x 3138}#))) + (if (eqv? #{atom-key 3142}# 'quote) + (#{build-data 328}# #f (car (cdr #{x 3138}#))) + (if (eqv? #{atom-key 3142}# 'lambda) + (if (list? (car (cdr #{x 3138}#))) + (#{build-simple-lambda 320}# #f - (car (cdr #{x\ 3138}#)) + (car (cdr #{x 3138}#)) #f - (car (cdr #{x\ 3138}#)) + (car (cdr #{x 3138}#)) '() - (#{regen\ 2942}# - (car (cdr (cdr #{x\ 3138}#))))) - (error "how did we get here" #{x\ 3138}#)) - (#{build-application\ 302}# + (#{regen 2942}# + (car (cdr (cdr #{x 3138}#))))) + (error "how did we get here" #{x 3138}#)) + (#{build-application 302}# #f - (#{build-primref\ 326}# #f (car #{x\ 3138}#)) - (map #{regen\ 2942}# - (cdr #{x\ 3138}#)))))))))))) + (#{build-primref 326}# #f (car #{x 3138}#)) + (map #{regen 2942}# + (cdr #{x 3138}#)))))))))))) (begin - (lambda (#{e\ 3154}# - #{r\ 3155}# - #{w\ 3156}# - #{s\ 3157}# - #{mod\ 3158}#) + (lambda (#{e 3154}# + #{r 3155}# + #{w 3156}# + #{s 3157}# + #{mod 3158}#) (begin - (let ((#{e\ 3165}# - (#{source-wrap\ 444}# - #{e\ 3154}# - #{w\ 3156}# - #{s\ 3157}# - #{mod\ 3158}#))) - (let ((#{tmp\ 3166}# #{e\ 3165}#)) - (let ((#{tmp\ 3167}# - ($sc-dispatch #{tmp\ 3166}# '(_ any)))) - (if #{tmp\ 3167}# + (let ((#{e 3165}# + (#{source-wrap 444}# + #{e 3154}# + #{w 3156}# + #{s 3157}# + #{mod 3158}#))) + (let ((#{tmp 3166}# #{e 3165}#)) + (let ((#{tmp 3167}# + ($sc-dispatch #{tmp 3166}# '(_ any)))) + (if #{tmp 3167}# (@apply - (lambda (#{x\ 3169}#) + (lambda (#{x 3169}#) (call-with-values (lambda () - (#{gen-syntax\ 2928}# - #{e\ 3165}# - #{x\ 3169}# - #{r\ 3155}# + (#{gen-syntax 2928}# + #{e 3165}# + #{x 3169}# + #{r 3155}# '() - #{ellipsis?\ 472}# - #{mod\ 3158}#)) - (lambda (#{e\ 3170}# #{maps\ 3171}#) - (#{regen\ 2942}# #{e\ 3170}#)))) - #{tmp\ 3167}#) - (let ((#{_\ 3175}# #{tmp\ 3166}#)) + #{ellipsis? 472}# + #{mod 3158}#)) + (lambda (#{e 3170}# #{maps 3171}#) + (#{regen 2942}# #{e 3170}#)))) + #{tmp 3167}#) + (let ((#{_ 3175}# #{tmp 3166}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 3165}#))))))))))) - (#{global-extend\ 372}# + #{e 3165}#))))))))))) + (#{global-extend 372}# 'core 'lambda - (lambda (#{e\ 3176}# - #{r\ 3177}# - #{w\ 3178}# - #{s\ 3179}# - #{mod\ 3180}#) - (let ((#{tmp\ 3186}# #{e\ 3176}#)) - (let ((#{tmp\ 3187}# + (lambda (#{e 3176}# + #{r 3177}# + #{w 3178}# + #{s 3179}# + #{mod 3180}#) + (let ((#{tmp 3186}# #{e 3176}#)) + (let ((#{tmp 3187}# ($sc-dispatch - #{tmp\ 3186}# + #{tmp 3186}# '(_ any any . each-any)))) - (if #{tmp\ 3187}# + (if #{tmp 3187}# (@apply - (lambda (#{args\ 3191}# #{e1\ 3192}# #{e2\ 3193}#) + (lambda (#{args 3191}# #{e1 3192}# #{e2 3193}#) (call-with-values (lambda () - (#{lambda-formals\ 474}# #{args\ 3191}#)) - (lambda (#{req\ 3194}# - #{opt\ 3195}# - #{rest\ 3196}# - #{kw\ 3197}#) + (#{lambda-formals 474}# #{args 3191}#)) + (lambda (#{req 3194}# + #{opt 3195}# + #{rest 3196}# + #{kw 3197}#) (letrec* - ((#{lp\ 3205}# - (lambda (#{body\ 3206}# #{meta\ 3207}#) - (let ((#{tmp\ 3209}# #{body\ 3206}#)) - (let ((#{tmp\ 3210}# + ((#{lp 3205}# + (lambda (#{body 3206}# #{meta 3207}#) + (let ((#{tmp 3209}# #{body 3206}#)) + (let ((#{tmp 3210}# ($sc-dispatch - #{tmp\ 3209}# + #{tmp 3209}# '(any any . each-any)))) - (if (if #{tmp\ 3210}# + (if (if #{tmp 3210}# (@apply - (lambda (#{docstring\ 3214}# - #{e1\ 3215}# - #{e2\ 3216}#) + (lambda (#{docstring 3214}# + #{e1 3215}# + #{e2 3216}#) (string? (syntax->datum - #{docstring\ 3214}#))) - #{tmp\ 3210}#) + #{docstring 3214}#))) + #{tmp 3210}#) #f) (@apply - (lambda (#{docstring\ 3220}# - #{e1\ 3221}# - #{e2\ 3222}#) - (#{lp\ 3205}# - (cons #{e1\ 3221}# #{e2\ 3222}#) + (lambda (#{docstring 3220}# + #{e1 3221}# + #{e2 3222}#) + (#{lp 3205}# + (cons #{e1 3221}# #{e2 3222}#) (append - #{meta\ 3207}# + #{meta 3207}# (list (cons 'documentation (syntax->datum - #{docstring\ 3220}#)))))) - #{tmp\ 3210}#) - (let ((#{tmp\ 3225}# + #{docstring 3220}#)))))) + #{tmp 3210}#) + (let ((#{tmp 3225}# ($sc-dispatch - #{tmp\ 3209}# + #{tmp 3209}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp\ 3225}# + (if #{tmp 3225}# (@apply - (lambda (#{k\ 3230}# - #{v\ 3231}# - #{e1\ 3232}# - #{e2\ 3233}#) - (#{lp\ 3205}# - (cons #{e1\ 3232}# - #{e2\ 3233}#) + (lambda (#{k 3230}# + #{v 3231}# + #{e1 3232}# + #{e2 3233}#) + (#{lp 3205}# + (cons #{e1 3232}# + #{e2 3233}#) (append - #{meta\ 3207}# + #{meta 3207}# (syntax->datum (map cons - #{k\ 3230}# - #{v\ 3231}#))))) - #{tmp\ 3225}#) - (let ((#{_\ 3238}# #{tmp\ 3209}#)) - (#{chi-simple-lambda\ 476}# - #{e\ 3176}# - #{r\ 3177}# - #{w\ 3178}# - #{s\ 3179}# - #{mod\ 3180}# - #{req\ 3194}# - #{rest\ 3196}# - #{meta\ 3207}# - #{body\ 3206}#)))))))))) + #{k 3230}# + #{v 3231}#))))) + #{tmp 3225}#) + (let ((#{_ 3238}# #{tmp 3209}#)) + (#{chi-simple-lambda 476}# + #{e 3176}# + #{r 3177}# + #{w 3178}# + #{s 3179}# + #{mod 3180}# + #{req 3194}# + #{rest 3196}# + #{meta 3207}# + #{body 3206}#)))))))))) (begin - (#{lp\ 3205}# - (cons #{e1\ 3192}# #{e2\ 3193}#) + (#{lp 3205}# + (cons #{e1 3192}# #{e2 3193}#) '())))))) - #{tmp\ 3187}#) - (let ((#{_\ 3240}# #{tmp\ 3186}#)) + #{tmp 3187}#) + (let ((#{_ 3240}# #{tmp 3186}#)) (syntax-violation 'lambda "bad lambda" - #{e\ 3176}#))))))) - (#{global-extend\ 372}# + #{e 3176}#))))))) + (#{global-extend 372}# 'core 'lambda* - (lambda (#{e\ 3241}# - #{r\ 3242}# - #{w\ 3243}# - #{s\ 3244}# - #{mod\ 3245}#) - (let ((#{tmp\ 3251}# #{e\ 3241}#)) - (let ((#{tmp\ 3252}# + (lambda (#{e 3241}# + #{r 3242}# + #{w 3243}# + #{s 3244}# + #{mod 3245}#) + (let ((#{tmp 3251}# #{e 3241}#)) + (let ((#{tmp 3252}# ($sc-dispatch - #{tmp\ 3251}# + #{tmp 3251}# '(_ any any . each-any)))) - (if #{tmp\ 3252}# + (if #{tmp 3252}# (@apply - (lambda (#{args\ 3256}# #{e1\ 3257}# #{e2\ 3258}#) + (lambda (#{args 3256}# #{e1 3257}# #{e2 3258}#) (call-with-values (lambda () - (#{chi-lambda-case\ 480}# - #{e\ 3241}# - #{r\ 3242}# - #{w\ 3243}# - #{s\ 3244}# - #{mod\ 3245}# - #{lambda*-formals\ 478}# - (list (cons #{args\ 3256}# - (cons #{e1\ 3257}# #{e2\ 3258}#))))) - (lambda (#{meta\ 3260}# #{lcase\ 3261}#) - (#{build-case-lambda\ 322}# - #{s\ 3244}# - #{meta\ 3260}# - #{lcase\ 3261}#)))) - #{tmp\ 3252}#) - (let ((#{_\ 3265}# #{tmp\ 3251}#)) + (#{chi-lambda-case 480}# + #{e 3241}# + #{r 3242}# + #{w 3243}# + #{s 3244}# + #{mod 3245}# + #{lambda*-formals 478}# + (list (cons #{args 3256}# + (cons #{e1 3257}# #{e2 3258}#))))) + (lambda (#{meta 3260}# #{lcase 3261}#) + (#{build-case-lambda 322}# + #{s 3244}# + #{meta 3260}# + #{lcase 3261}#)))) + #{tmp 3252}#) + (let ((#{_ 3265}# #{tmp 3251}#)) (syntax-violation 'lambda "bad lambda*" - #{e\ 3241}#))))))) - (#{global-extend\ 372}# + #{e 3241}#))))))) + (#{global-extend 372}# 'core 'case-lambda - (lambda (#{e\ 3266}# - #{r\ 3267}# - #{w\ 3268}# - #{s\ 3269}# - #{mod\ 3270}#) - (let ((#{tmp\ 3276}# #{e\ 3266}#)) - (let ((#{tmp\ 3277}# + (lambda (#{e 3266}# + #{r 3267}# + #{w 3268}# + #{s 3269}# + #{mod 3270}#) + (let ((#{tmp 3276}# #{e 3266}#)) + (let ((#{tmp 3277}# ($sc-dispatch - #{tmp\ 3276}# + #{tmp 3276}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 3277}# + (if #{tmp 3277}# (@apply - (lambda (#{args\ 3284}# - #{e1\ 3285}# - #{e2\ 3286}# - #{args*\ 3287}# - #{e1*\ 3288}# - #{e2*\ 3289}#) + (lambda (#{args 3284}# + #{e1 3285}# + #{e2 3286}# + #{args* 3287}# + #{e1* 3288}# + #{e2* 3289}#) (call-with-values (lambda () - (#{chi-lambda-case\ 480}# - #{e\ 3266}# - #{r\ 3267}# - #{w\ 3268}# - #{s\ 3269}# - #{mod\ 3270}# - #{lambda-formals\ 474}# - (cons (cons #{args\ 3284}# - (cons #{e1\ 3285}# #{e2\ 3286}#)) - (map (lambda (#{tmp\ 3293}# - #{tmp\ 3292}# - #{tmp\ 3291}#) - (cons #{tmp\ 3291}# - (cons #{tmp\ 3292}# - #{tmp\ 3293}#))) - #{e2*\ 3289}# - #{e1*\ 3288}# - #{args*\ 3287}#)))) - (lambda (#{meta\ 3295}# #{lcase\ 3296}#) - (#{build-case-lambda\ 322}# - #{s\ 3269}# - #{meta\ 3295}# - #{lcase\ 3296}#)))) - #{tmp\ 3277}#) - (let ((#{_\ 3300}# #{tmp\ 3276}#)) + (#{chi-lambda-case 480}# + #{e 3266}# + #{r 3267}# + #{w 3268}# + #{s 3269}# + #{mod 3270}# + #{lambda-formals 474}# + (cons (cons #{args 3284}# + (cons #{e1 3285}# #{e2 3286}#)) + (map (lambda (#{tmp 3293}# + #{tmp 3292}# + #{tmp 3291}#) + (cons #{tmp 3291}# + (cons #{tmp 3292}# + #{tmp 3293}#))) + #{e2* 3289}# + #{e1* 3288}# + #{args* 3287}#)))) + (lambda (#{meta 3295}# #{lcase 3296}#) + (#{build-case-lambda 322}# + #{s 3269}# + #{meta 3295}# + #{lcase 3296}#)))) + #{tmp 3277}#) + (let ((#{_ 3300}# #{tmp 3276}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3266}#))))))) - (#{global-extend\ 372}# + #{e 3266}#))))))) + (#{global-extend 372}# 'core 'case-lambda* - (lambda (#{e\ 3301}# - #{r\ 3302}# - #{w\ 3303}# - #{s\ 3304}# - #{mod\ 3305}#) - (let ((#{tmp\ 3311}# #{e\ 3301}#)) - (let ((#{tmp\ 3312}# + (lambda (#{e 3301}# + #{r 3302}# + #{w 3303}# + #{s 3304}# + #{mod 3305}#) + (let ((#{tmp 3311}# #{e 3301}#)) + (let ((#{tmp 3312}# ($sc-dispatch - #{tmp\ 3311}# + #{tmp 3311}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp\ 3312}# + (if #{tmp 3312}# (@apply - (lambda (#{args\ 3319}# - #{e1\ 3320}# - #{e2\ 3321}# - #{args*\ 3322}# - #{e1*\ 3323}# - #{e2*\ 3324}#) + (lambda (#{args 3319}# + #{e1 3320}# + #{e2 3321}# + #{args* 3322}# + #{e1* 3323}# + #{e2* 3324}#) (call-with-values (lambda () - (#{chi-lambda-case\ 480}# - #{e\ 3301}# - #{r\ 3302}# - #{w\ 3303}# - #{s\ 3304}# - #{mod\ 3305}# - #{lambda*-formals\ 478}# - (cons (cons #{args\ 3319}# - (cons #{e1\ 3320}# #{e2\ 3321}#)) - (map (lambda (#{tmp\ 3328}# - #{tmp\ 3327}# - #{tmp\ 3326}#) - (cons #{tmp\ 3326}# - (cons #{tmp\ 3327}# - #{tmp\ 3328}#))) - #{e2*\ 3324}# - #{e1*\ 3323}# - #{args*\ 3322}#)))) - (lambda (#{meta\ 3330}# #{lcase\ 3331}#) - (#{build-case-lambda\ 322}# - #{s\ 3304}# - #{meta\ 3330}# - #{lcase\ 3331}#)))) - #{tmp\ 3312}#) - (let ((#{_\ 3335}# #{tmp\ 3311}#)) + (#{chi-lambda-case 480}# + #{e 3301}# + #{r 3302}# + #{w 3303}# + #{s 3304}# + #{mod 3305}# + #{lambda*-formals 478}# + (cons (cons #{args 3319}# + (cons #{e1 3320}# #{e2 3321}#)) + (map (lambda (#{tmp 3328}# + #{tmp 3327}# + #{tmp 3326}#) + (cons #{tmp 3326}# + (cons #{tmp 3327}# + #{tmp 3328}#))) + #{e2* 3324}# + #{e1* 3323}# + #{args* 3322}#)))) + (lambda (#{meta 3330}# #{lcase 3331}#) + (#{build-case-lambda 322}# + #{s 3304}# + #{meta 3330}# + #{lcase 3331}#)))) + #{tmp 3312}#) + (let ((#{_ 3335}# #{tmp 3311}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3301}#))))))) - (#{global-extend\ 372}# + #{e 3301}#))))))) + (#{global-extend 372}# 'core 'let (letrec* - ((#{chi-let\ 3337}# - (lambda (#{e\ 3338}# - #{r\ 3339}# - #{w\ 3340}# - #{s\ 3341}# - #{mod\ 3342}# - #{constructor\ 3343}# - #{ids\ 3344}# - #{vals\ 3345}# - #{exps\ 3346}#) - (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3344}#)) + ((#{chi-let 3337}# + (lambda (#{e 3338}# + #{r 3339}# + #{w 3340}# + #{s 3341}# + #{mod 3342}# + #{constructor 3343}# + #{ids 3344}# + #{vals 3345}# + #{exps 3346}#) + (if (not (#{valid-bound-ids? 436}# #{ids 3344}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3338}#) + #{e 3338}#) (begin - (let ((#{labels\ 3358}# - (#{gen-labels\ 391}# #{ids\ 3344}#)) - (#{new-vars\ 3359}# - (map #{gen-var\ 484}# #{ids\ 3344}#))) + (let ((#{labels 3358}# + (#{gen-labels 391}# #{ids 3344}#)) + (#{new-vars 3359}# + (map #{gen-var 484}# #{ids 3344}#))) (begin - (let ((#{nw\ 3362}# - (#{make-binding-wrap\ 420}# - #{ids\ 3344}# - #{labels\ 3358}# - #{w\ 3340}#)) - (#{nr\ 3363}# - (#{extend-var-env\ 366}# - #{labels\ 3358}# - #{new-vars\ 3359}# - #{r\ 3339}#))) - (#{constructor\ 3343}# - #{s\ 3341}# - (map syntax->datum #{ids\ 3344}#) - #{new-vars\ 3359}# - (map (lambda (#{x\ 3364}#) - (#{chi\ 456}# - #{x\ 3364}# - #{r\ 3339}# - #{w\ 3340}# - #{mod\ 3342}#)) - #{vals\ 3345}#) - (#{chi-body\ 464}# - #{exps\ 3346}# - (#{source-wrap\ 444}# - #{e\ 3338}# - #{nw\ 3362}# - #{s\ 3341}# - #{mod\ 3342}#) - #{nr\ 3363}# - #{nw\ 3362}# - #{mod\ 3342}#)))))))))) + (let ((#{nw 3362}# + (#{make-binding-wrap 420}# + #{ids 3344}# + #{labels 3358}# + #{w 3340}#)) + (#{nr 3363}# + (#{extend-var-env 366}# + #{labels 3358}# + #{new-vars 3359}# + #{r 3339}#))) + (#{constructor 3343}# + #{s 3341}# + (map syntax->datum #{ids 3344}#) + #{new-vars 3359}# + (map (lambda (#{x 3364}#) + (#{chi 456}# + #{x 3364}# + #{r 3339}# + #{w 3340}# + #{mod 3342}#)) + #{vals 3345}#) + (#{chi-body 464}# + #{exps 3346}# + (#{source-wrap 444}# + #{e 3338}# + #{nw 3362}# + #{s 3341}# + #{mod 3342}#) + #{nr 3363}# + #{nw 3362}# + #{mod 3342}#)))))))))) (begin - (lambda (#{e\ 3366}# - #{r\ 3367}# - #{w\ 3368}# - #{s\ 3369}# - #{mod\ 3370}#) - (let ((#{tmp\ 3376}# #{e\ 3366}#)) - (let ((#{tmp\ 3377}# + (lambda (#{e 3366}# + #{r 3367}# + #{w 3368}# + #{s 3369}# + #{mod 3370}#) + (let ((#{tmp 3376}# #{e 3366}#)) + (let ((#{tmp 3377}# ($sc-dispatch - #{tmp\ 3376}# + #{tmp 3376}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3377}# + (if (if #{tmp 3377}# (@apply - (lambda (#{id\ 3382}# - #{val\ 3383}# - #{e1\ 3384}# - #{e2\ 3385}#) - (and-map #{id?\ 376}# #{id\ 3382}#)) - #{tmp\ 3377}#) + (lambda (#{id 3382}# + #{val 3383}# + #{e1 3384}# + #{e2 3385}#) + (and-map #{id? 376}# #{id 3382}#)) + #{tmp 3377}#) #f) (@apply - (lambda (#{id\ 3391}# - #{val\ 3392}# - #{e1\ 3393}# - #{e2\ 3394}#) - (#{chi-let\ 3337}# - #{e\ 3366}# - #{r\ 3367}# - #{w\ 3368}# - #{s\ 3369}# - #{mod\ 3370}# - #{build-let\ 332}# - #{id\ 3391}# - #{val\ 3392}# - (cons #{e1\ 3393}# #{e2\ 3394}#))) - #{tmp\ 3377}#) - (let ((#{tmp\ 3398}# + (lambda (#{id 3391}# + #{val 3392}# + #{e1 3393}# + #{e2 3394}#) + (#{chi-let 3337}# + #{e 3366}# + #{r 3367}# + #{w 3368}# + #{s 3369}# + #{mod 3370}# + #{build-let 332}# + #{id 3391}# + #{val 3392}# + (cons #{e1 3393}# #{e2 3394}#))) + #{tmp 3377}#) + (let ((#{tmp 3398}# ($sc-dispatch - #{tmp\ 3376}# + #{tmp 3376}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3398}# + (if (if #{tmp 3398}# (@apply - (lambda (#{f\ 3404}# - #{id\ 3405}# - #{val\ 3406}# - #{e1\ 3407}# - #{e2\ 3408}#) - (if (#{id?\ 376}# #{f\ 3404}#) - (and-map #{id?\ 376}# #{id\ 3405}#) + (lambda (#{f 3404}# + #{id 3405}# + #{val 3406}# + #{e1 3407}# + #{e2 3408}#) + (if (#{id? 376}# #{f 3404}#) + (and-map #{id? 376}# #{id 3405}#) #f)) - #{tmp\ 3398}#) + #{tmp 3398}#) #f) (@apply - (lambda (#{f\ 3417}# - #{id\ 3418}# - #{val\ 3419}# - #{e1\ 3420}# - #{e2\ 3421}#) - (#{chi-let\ 3337}# - #{e\ 3366}# - #{r\ 3367}# - #{w\ 3368}# - #{s\ 3369}# - #{mod\ 3370}# - #{build-named-let\ 334}# - (cons #{f\ 3417}# #{id\ 3418}#) - #{val\ 3419}# - (cons #{e1\ 3420}# #{e2\ 3421}#))) - #{tmp\ 3398}#) - (let ((#{_\ 3426}# #{tmp\ 3376}#)) + (lambda (#{f 3417}# + #{id 3418}# + #{val 3419}# + #{e1 3420}# + #{e2 3421}#) + (#{chi-let 3337}# + #{e 3366}# + #{r 3367}# + #{w 3368}# + #{s 3369}# + #{mod 3370}# + #{build-named-let 334}# + (cons #{f 3417}# #{id 3418}#) + #{val 3419}# + (cons #{e1 3420}# #{e2 3421}#))) + #{tmp 3398}#) + (let ((#{_ 3426}# #{tmp 3376}#)) (syntax-violation 'let "bad let" - (#{source-wrap\ 444}# - #{e\ 3366}# - #{w\ 3368}# - #{s\ 3369}# - #{mod\ 3370}#)))))))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 3366}# + #{w 3368}# + #{s 3369}# + #{mod 3370}#)))))))))))) + (#{global-extend 372}# 'core 'letrec - (lambda (#{e\ 3427}# - #{r\ 3428}# - #{w\ 3429}# - #{s\ 3430}# - #{mod\ 3431}#) - (let ((#{tmp\ 3437}# #{e\ 3427}#)) - (let ((#{tmp\ 3438}# + (lambda (#{e 3427}# + #{r 3428}# + #{w 3429}# + #{s 3430}# + #{mod 3431}#) + (let ((#{tmp 3437}# #{e 3427}#)) + (let ((#{tmp 3438}# ($sc-dispatch - #{tmp\ 3437}# + #{tmp 3437}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3438}# + (if (if #{tmp 3438}# (@apply - (lambda (#{id\ 3443}# - #{val\ 3444}# - #{e1\ 3445}# - #{e2\ 3446}#) - (and-map #{id?\ 376}# #{id\ 3443}#)) - #{tmp\ 3438}#) + (lambda (#{id 3443}# + #{val 3444}# + #{e1 3445}# + #{e2 3446}#) + (and-map #{id? 376}# #{id 3443}#)) + #{tmp 3438}#) #f) (@apply - (lambda (#{id\ 3452}# - #{val\ 3453}# - #{e1\ 3454}# - #{e2\ 3455}#) + (lambda (#{id 3452}# + #{val 3453}# + #{e1 3454}# + #{e2 3455}#) (begin - (let ((#{ids\ 3457}# #{id\ 3452}#)) - (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3457}#)) + (let ((#{ids 3457}# #{id 3452}#)) + (if (not (#{valid-bound-ids? 436}# #{ids 3457}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3427}#) + #{e 3427}#) (begin - (let ((#{labels\ 3461}# - (#{gen-labels\ 391}# #{ids\ 3457}#)) - (#{new-vars\ 3462}# - (map #{gen-var\ 484}# #{ids\ 3457}#))) + (let ((#{labels 3461}# + (#{gen-labels 391}# #{ids 3457}#)) + (#{new-vars 3462}# + (map #{gen-var 484}# #{ids 3457}#))) (begin - (let ((#{w\ 3465}# - (#{make-binding-wrap\ 420}# - #{ids\ 3457}# - #{labels\ 3461}# - #{w\ 3429}#)) - (#{r\ 3466}# - (#{extend-var-env\ 366}# - #{labels\ 3461}# - #{new-vars\ 3462}# - #{r\ 3428}#))) - (#{build-letrec\ 336}# - #{s\ 3430}# + (let ((#{w 3465}# + (#{make-binding-wrap 420}# + #{ids 3457}# + #{labels 3461}# + #{w 3429}#)) + (#{r 3466}# + (#{extend-var-env 366}# + #{labels 3461}# + #{new-vars 3462}# + #{r 3428}#))) + (#{build-letrec 336}# + #{s 3430}# #f - (map syntax->datum #{ids\ 3457}#) - #{new-vars\ 3462}# - (map (lambda (#{x\ 3467}#) - (#{chi\ 456}# - #{x\ 3467}# - #{r\ 3466}# - #{w\ 3465}# - #{mod\ 3431}#)) - #{val\ 3453}#) - (#{chi-body\ 464}# - (cons #{e1\ 3454}# #{e2\ 3455}#) - (#{source-wrap\ 444}# - #{e\ 3427}# - #{w\ 3465}# - #{s\ 3430}# - #{mod\ 3431}#) - #{r\ 3466}# - #{w\ 3465}# - #{mod\ 3431}#)))))))))) - #{tmp\ 3438}#) - (let ((#{_\ 3472}# #{tmp\ 3437}#)) + (map syntax->datum #{ids 3457}#) + #{new-vars 3462}# + (map (lambda (#{x 3467}#) + (#{chi 456}# + #{x 3467}# + #{r 3466}# + #{w 3465}# + #{mod 3431}#)) + #{val 3453}#) + (#{chi-body 464}# + (cons #{e1 3454}# #{e2 3455}#) + (#{source-wrap 444}# + #{e 3427}# + #{w 3465}# + #{s 3430}# + #{mod 3431}#) + #{r 3466}# + #{w 3465}# + #{mod 3431}#)))))))))) + #{tmp 3438}#) + (let ((#{_ 3472}# #{tmp 3437}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 444}# - #{e\ 3427}# - #{w\ 3429}# - #{s\ 3430}# - #{mod\ 3431}#)))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 3427}# + #{w 3429}# + #{s 3430}# + #{mod 3431}#)))))))) + (#{global-extend 372}# 'core 'letrec* - (lambda (#{e\ 3473}# - #{r\ 3474}# - #{w\ 3475}# - #{s\ 3476}# - #{mod\ 3477}#) - (let ((#{tmp\ 3483}# #{e\ 3473}#)) - (let ((#{tmp\ 3484}# + (lambda (#{e 3473}# + #{r 3474}# + #{w 3475}# + #{s 3476}# + #{mod 3477}#) + (let ((#{tmp 3483}# #{e 3473}#)) + (let ((#{tmp 3484}# ($sc-dispatch - #{tmp\ 3483}# + #{tmp 3483}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp\ 3484}# + (if (if #{tmp 3484}# (@apply - (lambda (#{id\ 3489}# - #{val\ 3490}# - #{e1\ 3491}# - #{e2\ 3492}#) - (and-map #{id?\ 376}# #{id\ 3489}#)) - #{tmp\ 3484}#) + (lambda (#{id 3489}# + #{val 3490}# + #{e1 3491}# + #{e2 3492}#) + (and-map #{id? 376}# #{id 3489}#)) + #{tmp 3484}#) #f) (@apply - (lambda (#{id\ 3498}# - #{val\ 3499}# - #{e1\ 3500}# - #{e2\ 3501}#) + (lambda (#{id 3498}# + #{val 3499}# + #{e1 3500}# + #{e2 3501}#) (begin - (let ((#{ids\ 3503}# #{id\ 3498}#)) - (if (not (#{valid-bound-ids?\ 436}# #{ids\ 3503}#)) + (let ((#{ids 3503}# #{id 3498}#)) + (if (not (#{valid-bound-ids? 436}# #{ids 3503}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e\ 3473}#) + #{e 3473}#) (begin - (let ((#{labels\ 3507}# - (#{gen-labels\ 391}# #{ids\ 3503}#)) - (#{new-vars\ 3508}# - (map #{gen-var\ 484}# #{ids\ 3503}#))) + (let ((#{labels 3507}# + (#{gen-labels 391}# #{ids 3503}#)) + (#{new-vars 3508}# + (map #{gen-var 484}# #{ids 3503}#))) (begin - (let ((#{w\ 3511}# - (#{make-binding-wrap\ 420}# - #{ids\ 3503}# - #{labels\ 3507}# - #{w\ 3475}#)) - (#{r\ 3512}# - (#{extend-var-env\ 366}# - #{labels\ 3507}# - #{new-vars\ 3508}# - #{r\ 3474}#))) - (#{build-letrec\ 336}# - #{s\ 3476}# + (let ((#{w 3511}# + (#{make-binding-wrap 420}# + #{ids 3503}# + #{labels 3507}# + #{w 3475}#)) + (#{r 3512}# + (#{extend-var-env 366}# + #{labels 3507}# + #{new-vars 3508}# + #{r 3474}#))) + (#{build-letrec 336}# + #{s 3476}# #t - (map syntax->datum #{ids\ 3503}#) - #{new-vars\ 3508}# - (map (lambda (#{x\ 3513}#) - (#{chi\ 456}# - #{x\ 3513}# - #{r\ 3512}# - #{w\ 3511}# - #{mod\ 3477}#)) - #{val\ 3499}#) - (#{chi-body\ 464}# - (cons #{e1\ 3500}# #{e2\ 3501}#) - (#{source-wrap\ 444}# - #{e\ 3473}# - #{w\ 3511}# - #{s\ 3476}# - #{mod\ 3477}#) - #{r\ 3512}# - #{w\ 3511}# - #{mod\ 3477}#)))))))))) - #{tmp\ 3484}#) - (let ((#{_\ 3518}# #{tmp\ 3483}#)) + (map syntax->datum #{ids 3503}#) + #{new-vars 3508}# + (map (lambda (#{x 3513}#) + (#{chi 456}# + #{x 3513}# + #{r 3512}# + #{w 3511}# + #{mod 3477}#)) + #{val 3499}#) + (#{chi-body 464}# + (cons #{e1 3500}# #{e2 3501}#) + (#{source-wrap 444}# + #{e 3473}# + #{w 3511}# + #{s 3476}# + #{mod 3477}#) + #{r 3512}# + #{w 3511}# + #{mod 3477}#)))))))))) + #{tmp 3484}#) + (let ((#{_ 3518}# #{tmp 3483}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap\ 444}# - #{e\ 3473}# - #{w\ 3475}# - #{s\ 3476}# - #{mod\ 3477}#)))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 3473}# + #{w 3475}# + #{s 3476}# + #{mod 3477}#)))))))) + (#{global-extend 372}# 'core 'set! - (lambda (#{e\ 3519}# - #{r\ 3520}# - #{w\ 3521}# - #{s\ 3522}# - #{mod\ 3523}#) - (let ((#{tmp\ 3529}# #{e\ 3519}#)) - (let ((#{tmp\ 3530}# - ($sc-dispatch #{tmp\ 3529}# '(_ any any)))) - (if (if #{tmp\ 3530}# + (lambda (#{e 3519}# + #{r 3520}# + #{w 3521}# + #{s 3522}# + #{mod 3523}#) + (let ((#{tmp 3529}# #{e 3519}#)) + (let ((#{tmp 3530}# + ($sc-dispatch #{tmp 3529}# '(_ any any)))) + (if (if #{tmp 3530}# (@apply - (lambda (#{id\ 3533}# #{val\ 3534}#) - (#{id?\ 376}# #{id\ 3533}#)) - #{tmp\ 3530}#) + (lambda (#{id 3533}# #{val 3534}#) + (#{id? 376}# #{id 3533}#)) + #{tmp 3530}#) #f) (@apply - (lambda (#{id\ 3537}# #{val\ 3538}#) + (lambda (#{id 3537}# #{val 3538}#) (begin - (let ((#{n\ 3541}# - (#{id-var-name\ 430}# - #{id\ 3537}# - #{w\ 3521}#)) - (#{id-mod\ 3542}# - (if (#{syntax-object?\ 342}# #{id\ 3537}#) - (#{syntax-object-module\ 348}# - #{id\ 3537}#) - #{mod\ 3523}#))) + (let ((#{n 3541}# + (#{id-var-name 430}# #{id 3537}# #{w 3521}#)) + (#{id-mod 3542}# + (if (#{syntax-object? 342}# #{id 3537}#) + (#{syntax-object-module 348}# #{id 3537}#) + #{mod 3523}#))) (begin - (let ((#{b\ 3544}# - (#{lookup\ 370}# - #{n\ 3541}# - #{r\ 3520}# - #{id-mod\ 3542}#))) + (let ((#{b 3544}# + (#{lookup 370}# + #{n 3541}# + #{r 3520}# + #{id-mod 3542}#))) (begin - (let ((#{atom-key\ 3547}# (car #{b\ 3544}#))) - (if (eqv? #{atom-key\ 3547}# 'lexical) - (#{build-lexical-assignment\ 310}# - #{s\ 3522}# - (syntax->datum #{id\ 3537}#) - (cdr #{b\ 3544}#) - (#{chi\ 456}# - #{val\ 3538}# - #{r\ 3520}# - #{w\ 3521}# - #{mod\ 3523}#)) - (if (eqv? #{atom-key\ 3547}# 'global) - (#{build-global-assignment\ 316}# - #{s\ 3522}# - #{n\ 3541}# - (#{chi\ 456}# - #{val\ 3538}# - #{r\ 3520}# - #{w\ 3521}# - #{mod\ 3523}#) - #{id-mod\ 3542}#) - (if (eqv? #{atom-key\ 3547}# 'macro) + (let ((#{atom-key 3547}# (car #{b 3544}#))) + (if (eqv? #{atom-key 3547}# 'lexical) + (#{build-lexical-assignment 310}# + #{s 3522}# + (syntax->datum #{id 3537}#) + (cdr #{b 3544}#) + (#{chi 456}# + #{val 3538}# + #{r 3520}# + #{w 3521}# + #{mod 3523}#)) + (if (eqv? #{atom-key 3547}# 'global) + (#{build-global-assignment 316}# + #{s 3522}# + #{n 3541}# + (#{chi 456}# + #{val 3538}# + #{r 3520}# + #{w 3521}# + #{mod 3523}#) + #{id-mod 3542}#) + (if (eqv? #{atom-key 3547}# 'macro) (begin - (let ((#{p\ 3554}# - (cdr #{b\ 3544}#))) + (let ((#{p 3554}# + (cdr #{b 3544}#))) (if (procedure-property - #{p\ 3554}# + #{p 3554}# 'variable-transformer) - (#{chi\ 456}# - (#{chi-macro\ 462}# - #{p\ 3554}# - #{e\ 3519}# - #{r\ 3520}# - #{w\ 3521}# - #{s\ 3522}# + (#{chi 456}# + (#{chi-macro 462}# + #{p 3554}# + #{e 3519}# + #{r 3520}# + #{w 3521}# + #{s 3522}# #f - #{mod\ 3523}#) - #{r\ 3520}# + #{mod 3523}#) + #{r 3520}# '(()) - #{mod\ 3523}#) + #{mod 3523}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap\ 442}# - #{e\ 3519}# - #{w\ 3521}# - #{mod\ 3523}#) - (#{wrap\ 442}# - #{id\ 3537}# - #{w\ 3521}# - #{id-mod\ 3542}#))))) - (if (eqv? #{atom-key\ 3547}# + (#{wrap 442}# + #{e 3519}# + #{w 3521}# + #{mod 3523}#) + (#{wrap 442}# + #{id 3537}# + #{w 3521}# + #{id-mod 3542}#))))) + (if (eqv? #{atom-key 3547}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 442}# - #{id\ 3537}# - #{w\ 3521}# - #{mod\ 3523}#)) + (#{wrap 442}# + #{id 3537}# + #{w 3521}# + #{mod 3523}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 444}# - #{e\ 3519}# - #{w\ 3521}# - #{s\ 3522}# - #{mod\ 3523}#))))))))))))) - #{tmp\ 3530}#) - (let ((#{tmp\ 3559}# + (#{source-wrap 444}# + #{e 3519}# + #{w 3521}# + #{s 3522}# + #{mod 3523}#))))))))))))) + #{tmp 3530}#) + (let ((#{tmp 3559}# ($sc-dispatch - #{tmp\ 3529}# + #{tmp 3529}# '(_ (any . each-any) any)))) - (if #{tmp\ 3559}# + (if #{tmp 3559}# (@apply - (lambda (#{head\ 3563}# #{tail\ 3564}# #{val\ 3565}#) + (lambda (#{head 3563}# #{tail 3564}# #{val 3565}#) (call-with-values (lambda () - (#{syntax-type\ 454}# - #{head\ 3563}# - #{r\ 3520}# + (#{syntax-type 454}# + #{head 3563}# + #{r 3520}# '(()) #f #f - #{mod\ 3523}# + #{mod 3523}# #t)) - (lambda (#{type\ 3568}# - #{value\ 3569}# - #{ee\ 3570}# - #{ww\ 3571}# - #{ss\ 3572}# - #{modmod\ 3573}#) - (if (eqv? #{type\ 3568}# 'module-ref) + (lambda (#{type 3568}# + #{value 3569}# + #{ee 3570}# + #{ww 3571}# + #{ss 3572}# + #{modmod 3573}#) + (if (eqv? #{type 3568}# 'module-ref) (begin - (let ((#{val\ 3582}# - (#{chi\ 456}# - #{val\ 3565}# - #{r\ 3520}# - #{w\ 3521}# - #{mod\ 3523}#))) + (let ((#{val 3582}# + (#{chi 456}# + #{val 3565}# + #{r 3520}# + #{w 3521}# + #{mod 3523}#))) (call-with-values (lambda () - (#{value\ 3569}# - (cons #{head\ 3563}# - #{tail\ 3564}#) - #{r\ 3520}# - #{w\ 3521}#)) - (lambda (#{e\ 3584}# - #{r\ 3585}# - #{w\ 3586}# - #{s*\ 3587}# - #{mod\ 3588}#) - (let ((#{tmp\ 3594}# #{e\ 3584}#)) - (let ((#{tmp\ 3595}# - (list #{tmp\ 3594}#))) - (if (if #{tmp\ 3595}# + (#{value 3569}# + (cons #{head 3563}# #{tail 3564}#) + #{r 3520}# + #{w 3521}#)) + (lambda (#{e 3584}# + #{r 3585}# + #{w 3586}# + #{s* 3587}# + #{mod 3588}#) + (let ((#{tmp 3594}# #{e 3584}#)) + (let ((#{tmp 3595}# + (list #{tmp 3594}#))) + (if (if #{tmp 3595}# (@apply - (lambda (#{e\ 3597}#) - (#{id?\ 376}# - #{e\ 3597}#)) - #{tmp\ 3595}#) + (lambda (#{e 3597}#) + (#{id? 376}# + #{e 3597}#)) + #{tmp 3595}#) #f) (@apply - (lambda (#{e\ 3599}#) - (#{build-global-assignment\ 316}# - #{s\ 3522}# + (lambda (#{e 3599}#) + (#{build-global-assignment 316}# + #{s 3522}# (syntax->datum - #{e\ 3599}#) - #{val\ 3582}# - #{mod\ 3588}#)) - #{tmp\ 3595}#) + #{e 3599}#) + #{val 3582}# + #{mod 3588}#)) + #{tmp 3595}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3594}#)))))))) - (#{build-application\ 302}# - #{s\ 3522}# - (#{chi\ 456}# + #{tmp 3594}#)))))))) + (#{build-application 302}# + #{s 3522}# + (#{chi 456}# (list '#(syntax-object setter ((top) @@ -10598,50 +10541,50 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{head\ 3563}#) - #{r\ 3520}# - #{w\ 3521}# - #{mod\ 3523}#) - (map (lambda (#{e\ 3601}#) - (#{chi\ 456}# - #{e\ 3601}# - #{r\ 3520}# - #{w\ 3521}# - #{mod\ 3523}#)) + #{head 3563}#) + #{r 3520}# + #{w 3521}# + #{mod 3523}#) + (map (lambda (#{e 3601}#) + (#{chi 456}# + #{e 3601}# + #{r 3520}# + #{w 3521}# + #{mod 3523}#)) (append - #{tail\ 3564}# - (list #{val\ 3565}#)))))))) - #{tmp\ 3559}#) - (let ((#{_\ 3605}# #{tmp\ 3529}#)) + #{tail 3564}# + (list #{val 3565}#)))))))) + #{tmp 3559}#) + (let ((#{_ 3605}# #{tmp 3529}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 444}# - #{e\ 3519}# - #{w\ 3521}# - #{s\ 3522}# - #{mod\ 3523}#)))))))))) - (#{global-extend\ 372}# + (#{source-wrap 444}# + #{e 3519}# + #{w 3521}# + #{s 3522}# + #{mod 3523}#)))))))))) + (#{global-extend 372}# 'module-ref '@ - (lambda (#{e\ 3606}# #{r\ 3607}# #{w\ 3608}#) - (let ((#{tmp\ 3612}# #{e\ 3606}#)) - (let ((#{tmp\ 3613}# - ($sc-dispatch #{tmp\ 3612}# '(_ each-any any)))) - (if (if #{tmp\ 3613}# + (lambda (#{e 3606}# #{r 3607}# #{w 3608}#) + (let ((#{tmp 3612}# #{e 3606}#)) + (let ((#{tmp 3613}# + ($sc-dispatch #{tmp 3612}# '(_ each-any any)))) + (if (if #{tmp 3613}# (@apply - (lambda (#{mod\ 3616}# #{id\ 3617}#) - (if (and-map #{id?\ 376}# #{mod\ 3616}#) - (#{id?\ 376}# #{id\ 3617}#) + (lambda (#{mod 3616}# #{id 3617}#) + (if (and-map #{id? 376}# #{mod 3616}#) + (#{id? 376}# #{id 3617}#) #f)) - #{tmp\ 3613}#) + #{tmp 3613}#) #f) (@apply - (lambda (#{mod\ 3623}# #{id\ 3624}#) + (lambda (#{mod 3623}# #{id 3624}#) (values - (syntax->datum #{id\ 3624}#) - #{r\ 3607}# - #{w\ 3608}# + (syntax->datum #{id 3624}#) + #{r 3607}# + #{w 3608}# #f (syntax->datum (cons '#(syntax-object @@ -11073,70 +11016,70 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{mod\ 3623}#)))) - #{tmp\ 3613}#) + #{mod 3623}#)))) + #{tmp 3613}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3612}#)))))) - (#{global-extend\ 372}# + #{tmp 3612}#)))))) + (#{global-extend 372}# 'module-ref '@@ - (lambda (#{e\ 3626}# #{r\ 3627}# #{w\ 3628}#) + (lambda (#{e 3626}# #{r 3627}# #{w 3628}#) (letrec* - ((#{remodulate\ 3633}# - (lambda (#{x\ 3634}# #{mod\ 3635}#) - (if (pair? #{x\ 3634}#) - (cons (#{remodulate\ 3633}# - (car #{x\ 3634}#) - #{mod\ 3635}#) - (#{remodulate\ 3633}# - (cdr #{x\ 3634}#) - #{mod\ 3635}#)) - (if (#{syntax-object?\ 342}# #{x\ 3634}#) - (#{make-syntax-object\ 340}# - (#{remodulate\ 3633}# - (#{syntax-object-expression\ 344}# #{x\ 3634}#) - #{mod\ 3635}#) - (#{syntax-object-wrap\ 346}# #{x\ 3634}#) - #{mod\ 3635}#) - (if (vector? #{x\ 3634}#) + ((#{remodulate 3633}# + (lambda (#{x 3634}# #{mod 3635}#) + (if (pair? #{x 3634}#) + (cons (#{remodulate 3633}# + (car #{x 3634}#) + #{mod 3635}#) + (#{remodulate 3633}# + (cdr #{x 3634}#) + #{mod 3635}#)) + (if (#{syntax-object? 342}# #{x 3634}#) + (#{make-syntax-object 340}# + (#{remodulate 3633}# + (#{syntax-object-expression 344}# #{x 3634}#) + #{mod 3635}#) + (#{syntax-object-wrap 346}# #{x 3634}#) + #{mod 3635}#) + (if (vector? #{x 3634}#) (begin - (let ((#{n\ 3646}# (vector-length #{x\ 3634}#))) + (let ((#{n 3646}# (vector-length #{x 3634}#))) (begin - (let ((#{v\ 3648}# (make-vector #{n\ 3646}#))) + (let ((#{v 3648}# (make-vector #{n 3646}#))) (letrec* - ((#{loop\ 3651}# - (lambda (#{i\ 3652}#) - (if (= #{i\ 3652}# #{n\ 3646}#) - (begin (if #f #f) #{v\ 3648}#) + ((#{loop 3651}# + (lambda (#{i 3652}#) + (if (= #{i 3652}# #{n 3646}#) + (begin (if #f #f) #{v 3648}#) (begin (vector-set! - #{v\ 3648}# - #{i\ 3652}# - (#{remodulate\ 3633}# + #{v 3648}# + #{i 3652}# + (#{remodulate 3633}# (vector-ref - #{x\ 3634}# - #{i\ 3652}#) - #{mod\ 3635}#)) - (#{loop\ 3651}# - (1+ #{i\ 3652}#))))))) - (begin (#{loop\ 3651}# 0))))))) - #{x\ 3634}#)))))) + #{x 3634}# + #{i 3652}#) + #{mod 3635}#)) + (#{loop 3651}# + (#{1+}# #{i 3652}#))))))) + (begin (#{loop 3651}# 0))))))) + #{x 3634}#)))))) (begin - (let ((#{tmp\ 3658}# #{e\ 3626}#)) - (let ((#{tmp\ 3659}# - ($sc-dispatch #{tmp\ 3658}# '(_ each-any any)))) - (if (if #{tmp\ 3659}# + (let ((#{tmp 3658}# #{e 3626}#)) + (let ((#{tmp 3659}# + ($sc-dispatch #{tmp 3658}# '(_ each-any any)))) + (if (if #{tmp 3659}# (@apply - (lambda (#{mod\ 3662}# #{exp\ 3663}#) - (and-map #{id?\ 376}# #{mod\ 3662}#)) - #{tmp\ 3659}#) + (lambda (#{mod 3662}# #{exp 3663}#) + (and-map #{id? 376}# #{mod 3662}#)) + #{tmp 3659}#) #f) (@apply - (lambda (#{mod\ 3667}# #{exp\ 3668}#) + (lambda (#{mod 3667}# #{exp 3668}#) (begin - (let ((#{mod\ 3670}# + (let ((#{mod 3670}# (syntax->datum (cons '#(syntax-object private @@ -11570,176 +11513,171 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{mod\ 3667}#)))) + #{mod 3667}#)))) (values - (#{remodulate\ 3633}# - #{exp\ 3668}# - #{mod\ 3670}#) - #{r\ 3627}# - #{w\ 3628}# - (#{source-annotation\ 357}# #{exp\ 3668}#) - #{mod\ 3670}#)))) - #{tmp\ 3659}#) + (#{remodulate 3633}# + #{exp 3668}# + #{mod 3670}#) + #{r 3627}# + #{w 3628}# + (#{source-annotation 357}# #{exp 3668}#) + #{mod 3670}#)))) + #{tmp 3659}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3658}#)))))))) - (#{global-extend\ 372}# + #{tmp 3658}#)))))))) + (#{global-extend 372}# 'core 'if - (lambda (#{e\ 3672}# - #{r\ 3673}# - #{w\ 3674}# - #{s\ 3675}# - #{mod\ 3676}#) - (let ((#{tmp\ 3682}# #{e\ 3672}#)) - (let ((#{tmp\ 3683}# - ($sc-dispatch #{tmp\ 3682}# '(_ any any)))) - (if #{tmp\ 3683}# + (lambda (#{e 3672}# + #{r 3673}# + #{w 3674}# + #{s 3675}# + #{mod 3676}#) + (let ((#{tmp 3682}# #{e 3672}#)) + (let ((#{tmp 3683}# + ($sc-dispatch #{tmp 3682}# '(_ any any)))) + (if #{tmp 3683}# (@apply - (lambda (#{test\ 3686}# #{then\ 3687}#) - (#{build-conditional\ 304}# - #{s\ 3675}# - (#{chi\ 456}# - #{test\ 3686}# - #{r\ 3673}# - #{w\ 3674}# - #{mod\ 3676}#) - (#{chi\ 456}# - #{then\ 3687}# - #{r\ 3673}# - #{w\ 3674}# - #{mod\ 3676}#) - (#{build-void\ 300}# #f))) - #{tmp\ 3683}#) - (let ((#{tmp\ 3689}# - ($sc-dispatch #{tmp\ 3682}# '(_ any any any)))) - (if #{tmp\ 3689}# + (lambda (#{test 3686}# #{then 3687}#) + (#{build-conditional 304}# + #{s 3675}# + (#{chi 456}# + #{test 3686}# + #{r 3673}# + #{w 3674}# + #{mod 3676}#) + (#{chi 456}# + #{then 3687}# + #{r 3673}# + #{w 3674}# + #{mod 3676}#) + (#{build-void 300}# #f))) + #{tmp 3683}#) + (let ((#{tmp 3689}# + ($sc-dispatch #{tmp 3682}# '(_ any any any)))) + (if #{tmp 3689}# (@apply - (lambda (#{test\ 3693}# - #{then\ 3694}# - #{else\ 3695}#) - (#{build-conditional\ 304}# - #{s\ 3675}# - (#{chi\ 456}# - #{test\ 3693}# - #{r\ 3673}# - #{w\ 3674}# - #{mod\ 3676}#) - (#{chi\ 456}# - #{then\ 3694}# - #{r\ 3673}# - #{w\ 3674}# - #{mod\ 3676}#) - (#{chi\ 456}# - #{else\ 3695}# - #{r\ 3673}# - #{w\ 3674}# - #{mod\ 3676}#))) - #{tmp\ 3689}#) + (lambda (#{test 3693}# #{then 3694}# #{else 3695}#) + (#{build-conditional 304}# + #{s 3675}# + (#{chi 456}# + #{test 3693}# + #{r 3673}# + #{w 3674}# + #{mod 3676}#) + (#{chi 456}# + #{then 3694}# + #{r 3673}# + #{w 3674}# + #{mod 3676}#) + (#{chi 456}# + #{else 3695}# + #{r 3673}# + #{w 3674}# + #{mod 3676}#))) + #{tmp 3689}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3682}#)))))))) - (#{global-extend\ 372}# + #{tmp 3682}#)))))))) + (#{global-extend 372}# 'core 'with-fluids - (lambda (#{e\ 3696}# - #{r\ 3697}# - #{w\ 3698}# - #{s\ 3699}# - #{mod\ 3700}#) - (let ((#{tmp\ 3706}# #{e\ 3696}#)) - (let ((#{tmp\ 3707}# + (lambda (#{e 3696}# + #{r 3697}# + #{w 3698}# + #{s 3699}# + #{mod 3700}#) + (let ((#{tmp 3706}# #{e 3696}#)) + (let ((#{tmp 3707}# ($sc-dispatch - #{tmp\ 3706}# + #{tmp 3706}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 3707}# + (if #{tmp 3707}# (@apply - (lambda (#{fluid\ 3712}# - #{val\ 3713}# - #{b\ 3714}# - #{b*\ 3715}#) - (#{build-dynlet\ 306}# - #{s\ 3699}# - (map (lambda (#{x\ 3716}#) - (#{chi\ 456}# - #{x\ 3716}# - #{r\ 3697}# - #{w\ 3698}# - #{mod\ 3700}#)) - #{fluid\ 3712}#) - (map (lambda (#{x\ 3719}#) - (#{chi\ 456}# - #{x\ 3719}# - #{r\ 3697}# - #{w\ 3698}# - #{mod\ 3700}#)) - #{val\ 3713}#) - (#{chi-body\ 464}# - (cons #{b\ 3714}# #{b*\ 3715}#) - (#{source-wrap\ 444}# - #{e\ 3696}# - #{w\ 3698}# - #{s\ 3699}# - #{mod\ 3700}#) - #{r\ 3697}# - #{w\ 3698}# - #{mod\ 3700}#))) - #{tmp\ 3707}#) + (lambda (#{fluid 3712}# + #{val 3713}# + #{b 3714}# + #{b* 3715}#) + (#{build-dynlet 306}# + #{s 3699}# + (map (lambda (#{x 3716}#) + (#{chi 456}# + #{x 3716}# + #{r 3697}# + #{w 3698}# + #{mod 3700}#)) + #{fluid 3712}#) + (map (lambda (#{x 3719}#) + (#{chi 456}# + #{x 3719}# + #{r 3697}# + #{w 3698}# + #{mod 3700}#)) + #{val 3713}#) + (#{chi-body 464}# + (cons #{b 3714}# #{b* 3715}#) + (#{source-wrap 444}# + #{e 3696}# + #{w 3698}# + #{s 3699}# + #{mod 3700}#) + #{r 3697}# + #{w 3698}# + #{mod 3700}#))) + #{tmp 3707}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3706}#)))))) - (#{global-extend\ 372}# 'begin 'begin '()) - (#{global-extend\ 372}# 'define 'define '()) - (#{global-extend\ 372}# + #{tmp 3706}#)))))) + (#{global-extend 372}# 'begin 'begin '()) + (#{global-extend 372}# 'define 'define '()) + (#{global-extend 372}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 372}# - 'eval-when - 'eval-when - '()) - (#{global-extend\ 372}# + (#{global-extend 372}# 'eval-when 'eval-when '()) + (#{global-extend 372}# 'core 'syntax-case (letrec* - ((#{convert-pattern\ 3724}# - (lambda (#{pattern\ 3731}# #{keys\ 3732}#) + ((#{convert-pattern 3724}# + (lambda (#{pattern 3731}# #{keys 3732}#) (letrec* - ((#{cvt*\ 3736}# - (lambda (#{p*\ 3739}# #{n\ 3740}# #{ids\ 3741}#) - (if (null? #{p*\ 3739}#) - (values '() #{ids\ 3741}#) + ((#{cvt* 3736}# + (lambda (#{p* 3739}# #{n 3740}# #{ids 3741}#) + (if (null? #{p* 3739}#) + (values '() #{ids 3741}#) (call-with-values (lambda () - (#{cvt*\ 3736}# - (cdr #{p*\ 3739}#) - #{n\ 3740}# - #{ids\ 3741}#)) - (lambda (#{y\ 3745}# #{ids\ 3746}#) + (#{cvt* 3736}# + (cdr #{p* 3739}#) + #{n 3740}# + #{ids 3741}#)) + (lambda (#{y 3745}# #{ids 3746}#) (call-with-values (lambda () - (#{cvt\ 3738}# - (car #{p*\ 3739}#) - #{n\ 3740}# - #{ids\ 3746}#)) - (lambda (#{x\ 3749}# #{ids\ 3750}#) + (#{cvt 3738}# + (car #{p* 3739}#) + #{n 3740}# + #{ids 3746}#)) + (lambda (#{x 3749}# #{ids 3750}#) (values - (cons #{x\ 3749}# #{y\ 3745}#) - #{ids\ 3750}#)))))))) - (#{cvt\ 3738}# - (lambda (#{p\ 3753}# #{n\ 3754}# #{ids\ 3755}#) - (if (#{id?\ 376}# #{p\ 3753}#) - (if (#{bound-id-member?\ 440}# - #{p\ 3753}# - #{keys\ 3732}#) + (cons #{x 3749}# #{y 3745}#) + #{ids 3750}#)))))))) + (#{cvt 3738}# + (lambda (#{p 3753}# #{n 3754}# #{ids 3755}#) + (if (#{id? 376}# #{p 3753}#) + (if (#{bound-id-member? 440}# + #{p 3753}# + #{keys 3732}#) (values - (vector 'free-id #{p\ 3753}#) - #{ids\ 3755}#) - (if (#{free-id=?\ 432}# - #{p\ 3753}# + (vector 'free-id #{p 3753}#) + #{ids 3755}#) + (if (#{free-id=? 432}# + #{p 3753}# '#(syntax-object _ ((top) @@ -12180,311 +12118,308 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) - (values '_ #{ids\ 3755}#) + (values '_ #{ids 3755}#) (values 'any - (cons (cons #{p\ 3753}# #{n\ 3754}#) - #{ids\ 3755}#)))) - (let ((#{tmp\ 3764}# #{p\ 3753}#)) - (let ((#{tmp\ 3765}# - ($sc-dispatch #{tmp\ 3764}# '(any any)))) - (if (if #{tmp\ 3765}# + (cons (cons #{p 3753}# #{n 3754}#) + #{ids 3755}#)))) + (let ((#{tmp 3764}# #{p 3753}#)) + (let ((#{tmp 3765}# + ($sc-dispatch #{tmp 3764}# '(any any)))) + (if (if #{tmp 3765}# (@apply - (lambda (#{x\ 3768}# #{dots\ 3769}#) - (#{ellipsis?\ 472}# #{dots\ 3769}#)) - #{tmp\ 3765}#) + (lambda (#{x 3768}# #{dots 3769}#) + (#{ellipsis? 472}# #{dots 3769}#)) + #{tmp 3765}#) #f) (@apply - (lambda (#{x\ 3772}# #{dots\ 3773}#) + (lambda (#{x 3772}# #{dots 3773}#) (call-with-values (lambda () - (#{cvt\ 3738}# - #{x\ 3772}# - (1+ #{n\ 3754}#) - #{ids\ 3755}#)) - (lambda (#{p\ 3775}# #{ids\ 3776}#) + (#{cvt 3738}# + #{x 3772}# + (#{1+}# #{n 3754}#) + #{ids 3755}#)) + (lambda (#{p 3775}# #{ids 3776}#) (values - (if (eq? #{p\ 3775}# 'any) + (if (eq? #{p 3775}# 'any) 'each-any - (vector 'each #{p\ 3775}#)) - #{ids\ 3776}#)))) - #{tmp\ 3765}#) - (let ((#{tmp\ 3779}# + (vector 'each #{p 3775}#)) + #{ids 3776}#)))) + #{tmp 3765}#) + (let ((#{tmp 3779}# ($sc-dispatch - #{tmp\ 3764}# + #{tmp 3764}# '(any any . each-any)))) - (if (if #{tmp\ 3779}# + (if (if #{tmp 3779}# (@apply - (lambda (#{x\ 3783}# - #{dots\ 3784}# - #{ys\ 3785}#) - (#{ellipsis?\ 472}# - #{dots\ 3784}#)) - #{tmp\ 3779}#) + (lambda (#{x 3783}# + #{dots 3784}# + #{ys 3785}#) + (#{ellipsis? 472}# + #{dots 3784}#)) + #{tmp 3779}#) #f) (@apply - (lambda (#{x\ 3789}# - #{dots\ 3790}# - #{ys\ 3791}#) + (lambda (#{x 3789}# + #{dots 3790}# + #{ys 3791}#) (call-with-values (lambda () - (#{cvt*\ 3736}# - #{ys\ 3791}# - #{n\ 3754}# - #{ids\ 3755}#)) - (lambda (#{ys\ 3793}# - #{ids\ 3794}#) + (#{cvt* 3736}# + #{ys 3791}# + #{n 3754}# + #{ids 3755}#)) + (lambda (#{ys 3793}# #{ids 3794}#) (call-with-values (lambda () - (#{cvt\ 3738}# - #{x\ 3789}# - (1+ #{n\ 3754}#) - #{ids\ 3794}#)) - (lambda (#{x\ 3797}# - #{ids\ 3798}#) + (#{cvt 3738}# + #{x 3789}# + (#{1+}# #{n 3754}#) + #{ids 3794}#)) + (lambda (#{x 3797}# + #{ids 3798}#) (values (vector 'each+ - #{x\ 3797}# - (reverse #{ys\ 3793}#) + #{x 3797}# + (reverse #{ys 3793}#) '()) - #{ids\ 3798}#)))))) - #{tmp\ 3779}#) - (let ((#{tmp\ 3802}# + #{ids 3798}#)))))) + #{tmp 3779}#) + (let ((#{tmp 3802}# ($sc-dispatch - #{tmp\ 3764}# + #{tmp 3764}# '(any . any)))) - (if #{tmp\ 3802}# + (if #{tmp 3802}# (@apply - (lambda (#{x\ 3805}# #{y\ 3806}#) + (lambda (#{x 3805}# #{y 3806}#) (call-with-values (lambda () - (#{cvt\ 3738}# - #{y\ 3806}# - #{n\ 3754}# - #{ids\ 3755}#)) - (lambda (#{y\ 3807}# - #{ids\ 3808}#) + (#{cvt 3738}# + #{y 3806}# + #{n 3754}# + #{ids 3755}#)) + (lambda (#{y 3807}# + #{ids 3808}#) (call-with-values (lambda () - (#{cvt\ 3738}# - #{x\ 3805}# - #{n\ 3754}# - #{ids\ 3808}#)) - (lambda (#{x\ 3811}# - #{ids\ 3812}#) + (#{cvt 3738}# + #{x 3805}# + #{n 3754}# + #{ids 3808}#)) + (lambda (#{x 3811}# + #{ids 3812}#) (values - (cons #{x\ 3811}# - #{y\ 3807}#) - #{ids\ 3812}#)))))) - #{tmp\ 3802}#) - (let ((#{tmp\ 3815}# + (cons #{x 3811}# + #{y 3807}#) + #{ids 3812}#)))))) + #{tmp 3802}#) + (let ((#{tmp 3815}# ($sc-dispatch - #{tmp\ 3764}# + #{tmp 3764}# '()))) - (if #{tmp\ 3815}# + (if #{tmp 3815}# (@apply (lambda () - (values '() #{ids\ 3755}#)) - #{tmp\ 3815}#) - (let ((#{tmp\ 3816}# + (values '() #{ids 3755}#)) + #{tmp 3815}#) + (let ((#{tmp 3816}# ($sc-dispatch - #{tmp\ 3764}# + #{tmp 3764}# '#(vector each-any)))) - (if #{tmp\ 3816}# + (if #{tmp 3816}# (@apply - (lambda (#{x\ 3818}#) + (lambda (#{x 3818}#) (call-with-values (lambda () - (#{cvt\ 3738}# - #{x\ 3818}# - #{n\ 3754}# - #{ids\ 3755}#)) - (lambda (#{p\ 3820}# - #{ids\ 3821}#) + (#{cvt 3738}# + #{x 3818}# + #{n 3754}# + #{ids 3755}#)) + (lambda (#{p 3820}# + #{ids 3821}#) (values (vector 'vector - #{p\ 3820}#) - #{ids\ 3821}#)))) - #{tmp\ 3816}#) - (let ((#{x\ 3825}# - #{tmp\ 3764}#)) + #{p 3820}#) + #{ids 3821}#)))) + #{tmp 3816}#) + (let ((#{x 3825}# + #{tmp 3764}#)) (values (vector 'atom - (#{strip\ 482}# - #{p\ 3753}# + (#{strip 482}# + #{p 3753}# '(()))) - #{ids\ 3755}#))))))))))))))))) - (begin (#{cvt\ 3738}# #{pattern\ 3731}# 0 '()))))) - (#{build-dispatch-call\ 3726}# - (lambda (#{pvars\ 3827}# - #{exp\ 3828}# - #{y\ 3829}# - #{r\ 3830}# - #{mod\ 3831}#) + #{ids 3755}#))))))))))))))))) + (begin (#{cvt 3738}# #{pattern 3731}# 0 '()))))) + (#{build-dispatch-call 3726}# + (lambda (#{pvars 3827}# + #{exp 3828}# + #{y 3829}# + #{r 3830}# + #{mod 3831}#) (begin - (map cdr #{pvars\ 3827}#) - (let ((#{ids\ 3839}# (map car #{pvars\ 3827}#))) + (map cdr #{pvars 3827}#) + (let ((#{ids 3839}# (map car #{pvars 3827}#))) (begin - (let ((#{labels\ 3843}# - (#{gen-labels\ 391}# #{ids\ 3839}#)) - (#{new-vars\ 3844}# - (map #{gen-var\ 484}# #{ids\ 3839}#))) - (#{build-application\ 302}# + (let ((#{labels 3843}# + (#{gen-labels 391}# #{ids 3839}#)) + (#{new-vars 3844}# + (map #{gen-var 484}# #{ids 3839}#))) + (#{build-application 302}# #f - (#{build-primref\ 326}# #f 'apply) - (list (#{build-simple-lambda\ 320}# + (#{build-primref 326}# #f 'apply) + (list (#{build-simple-lambda 320}# #f - (map syntax->datum #{ids\ 3839}#) + (map syntax->datum #{ids 3839}#) #f - #{new-vars\ 3844}# + #{new-vars 3844}# '() - (#{chi\ 456}# - #{exp\ 3828}# - (#{extend-env\ 364}# - #{labels\ 3843}# - (map (lambda (#{var\ 3848}# - #{level\ 3849}#) + (#{chi 456}# + #{exp 3828}# + (#{extend-env 364}# + #{labels 3843}# + (map (lambda (#{var 3848}# + #{level 3849}#) (cons 'syntax - (cons #{var\ 3848}# - #{level\ 3849}#))) - #{new-vars\ 3844}# - (map cdr #{pvars\ 3827}#)) - #{r\ 3830}#) - (#{make-binding-wrap\ 420}# - #{ids\ 3839}# - #{labels\ 3843}# + (cons #{var 3848}# + #{level 3849}#))) + #{new-vars 3844}# + (map cdr #{pvars 3827}#)) + #{r 3830}#) + (#{make-binding-wrap 420}# + #{ids 3839}# + #{labels 3843}# '(())) - #{mod\ 3831}#)) - #{y\ 3829}#)))))))) - (#{gen-clause\ 3728}# - (lambda (#{x\ 3855}# - #{keys\ 3856}# - #{clauses\ 3857}# - #{r\ 3858}# - #{pat\ 3859}# - #{fender\ 3860}# - #{exp\ 3861}# - #{mod\ 3862}#) + #{mod 3831}#)) + #{y 3829}#)))))))) + (#{gen-clause 3728}# + (lambda (#{x 3855}# + #{keys 3856}# + #{clauses 3857}# + #{r 3858}# + #{pat 3859}# + #{fender 3860}# + #{exp 3861}# + #{mod 3862}#) (call-with-values (lambda () - (#{convert-pattern\ 3724}# - #{pat\ 3859}# - #{keys\ 3856}#)) - (lambda (#{p\ 3871}# #{pvars\ 3872}#) - (if (not (#{distinct-bound-ids?\ 438}# - (map car #{pvars\ 3872}#))) + (#{convert-pattern 3724}# + #{pat 3859}# + #{keys 3856}#)) + (lambda (#{p 3871}# #{pvars 3872}#) + (if (not (#{distinct-bound-ids? 438}# + (map car #{pvars 3872}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3859}#) + #{pat 3859}#) (if (not (and-map - (lambda (#{x\ 3879}#) - (not (#{ellipsis?\ 472}# - (car #{x\ 3879}#)))) - #{pvars\ 3872}#)) + (lambda (#{x 3879}#) + (not (#{ellipsis? 472}# + (car #{x 3879}#)))) + #{pvars 3872}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3859}#) + #{pat 3859}#) (begin - (let ((#{y\ 3883}# (#{gen-var\ 484}# 'tmp))) - (#{build-application\ 302}# + (let ((#{y 3883}# (#{gen-var 484}# 'tmp))) + (#{build-application 302}# #f - (#{build-simple-lambda\ 320}# + (#{build-simple-lambda 320}# #f (list 'tmp) #f - (list #{y\ 3883}#) + (list #{y 3883}#) '() (begin - (let ((#{y\ 3887}# - (#{build-lexical-reference\ 308}# + (let ((#{y 3887}# + (#{build-lexical-reference 308}# 'value #f 'tmp - #{y\ 3883}#))) - (#{build-conditional\ 304}# + #{y 3883}#))) + (#{build-conditional 304}# #f - (let ((#{tmp\ 3890}# - #{fender\ 3860}#)) - (let ((#{tmp\ 3891}# + (let ((#{tmp 3890}# #{fender 3860}#)) + (let ((#{tmp 3891}# ($sc-dispatch - #{tmp\ 3890}# + #{tmp 3890}# '#(atom #t)))) - (if #{tmp\ 3891}# + (if #{tmp 3891}# (@apply - (lambda () #{y\ 3887}#) - #{tmp\ 3891}#) - (let ((#{_\ 3893}# - #{tmp\ 3890}#)) - (#{build-conditional\ 304}# + (lambda () #{y 3887}#) + #{tmp 3891}#) + (let ((#{_ 3893}# #{tmp 3890}#)) + (#{build-conditional 304}# #f - #{y\ 3887}# - (#{build-dispatch-call\ 3726}# - #{pvars\ 3872}# - #{fender\ 3860}# - #{y\ 3887}# - #{r\ 3858}# - #{mod\ 3862}#) - (#{build-data\ 328}# + #{y 3887}# + (#{build-dispatch-call 3726}# + #{pvars 3872}# + #{fender 3860}# + #{y 3887}# + #{r 3858}# + #{mod 3862}#) + (#{build-data 328}# #f #f)))))) - (#{build-dispatch-call\ 3726}# - #{pvars\ 3872}# - #{exp\ 3861}# - #{y\ 3887}# - #{r\ 3858}# - #{mod\ 3862}#) - (#{gen-syntax-case\ 3730}# - #{x\ 3855}# - #{keys\ 3856}# - #{clauses\ 3857}# - #{r\ 3858}# - #{mod\ 3862}#))))) - (list (if (eq? #{p\ 3871}# 'any) - (#{build-application\ 302}# + (#{build-dispatch-call 3726}# + #{pvars 3872}# + #{exp 3861}# + #{y 3887}# + #{r 3858}# + #{mod 3862}#) + (#{gen-syntax-case 3730}# + #{x 3855}# + #{keys 3856}# + #{clauses 3857}# + #{r 3858}# + #{mod 3862}#))))) + (list (if (eq? #{p 3871}# 'any) + (#{build-application 302}# #f - (#{build-primref\ 326}# #f 'list) - (list #{x\ 3855}#)) - (#{build-application\ 302}# + (#{build-primref 326}# #f 'list) + (list #{x 3855}#)) + (#{build-application 302}# #f - (#{build-primref\ 326}# + (#{build-primref 326}# #f '$sc-dispatch) - (list #{x\ 3855}# - (#{build-data\ 328}# + (list #{x 3855}# + (#{build-data 328}# #f - #{p\ 3871}#)))))))))))))) - (#{gen-syntax-case\ 3730}# - (lambda (#{x\ 3901}# - #{keys\ 3902}# - #{clauses\ 3903}# - #{r\ 3904}# - #{mod\ 3905}#) - (if (null? #{clauses\ 3903}#) - (#{build-application\ 302}# + #{p 3871}#)))))))))))))) + (#{gen-syntax-case 3730}# + (lambda (#{x 3901}# + #{keys 3902}# + #{clauses 3903}# + #{r 3904}# + #{mod 3905}#) + (if (null? #{clauses 3903}#) + (#{build-application 302}# #f - (#{build-primref\ 326}# #f 'syntax-violation) - (list (#{build-data\ 328}# #f #f) - (#{build-data\ 328}# + (#{build-primref 326}# #f 'syntax-violation) + (list (#{build-data 328}# #f #f) + (#{build-data 328}# #f "source expression failed to match any pattern") - #{x\ 3901}#)) - (let ((#{tmp\ 3915}# (car #{clauses\ 3903}#))) - (let ((#{tmp\ 3916}# - ($sc-dispatch #{tmp\ 3915}# '(any any)))) - (if #{tmp\ 3916}# + #{x 3901}#)) + (let ((#{tmp 3915}# (car #{clauses 3903}#))) + (let ((#{tmp 3916}# + ($sc-dispatch #{tmp 3915}# '(any any)))) + (if #{tmp 3916}# (@apply - (lambda (#{pat\ 3919}# #{exp\ 3920}#) - (if (if (#{id?\ 376}# #{pat\ 3919}#) + (lambda (#{pat 3919}# #{exp 3920}#) + (if (if (#{id? 376}# #{pat 3919}#) (and-map - (lambda (#{x\ 3923}#) - (not (#{free-id=?\ 432}# - #{pat\ 3919}# - #{x\ 3923}#))) + (lambda (#{x 3923}#) + (not (#{free-id=? 432}# + #{pat 3919}# + #{x 3923}#))) (cons '#(syntax-object ... ((top) @@ -12932,9 +12867,9 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile)) - #{keys\ 3902}#)) + #{keys 3902}#)) #f) - (if (#{free-id=?\ 432}# + (if (#{free-id=? 432}# '#(syntax-object pad ((top) @@ -13815,582 +13750,567 @@ ((top) (top) (top) (top)) ("i41" "i40" "i39" "i37"))) (hygiene guile))) - (#{chi\ 456}# - #{exp\ 3920}# - #{r\ 3904}# + (#{chi 456}# + #{exp 3920}# + #{r 3904}# '(()) - #{mod\ 3905}#) + #{mod 3905}#) (begin - (let ((#{labels\ 3928}# - (list (#{gen-label\ 389}#))) - (#{var\ 3929}# - (#{gen-var\ 484}# #{pat\ 3919}#))) - (#{build-application\ 302}# + (let ((#{labels 3928}# + (list (#{gen-label 389}#))) + (#{var 3929}# + (#{gen-var 484}# #{pat 3919}#))) + (#{build-application 302}# #f - (#{build-simple-lambda\ 320}# + (#{build-simple-lambda 320}# #f - (list (syntax->datum #{pat\ 3919}#)) + (list (syntax->datum #{pat 3919}#)) #f - (list #{var\ 3929}#) + (list #{var 3929}#) '() - (#{chi\ 456}# - #{exp\ 3920}# - (#{extend-env\ 364}# - #{labels\ 3928}# + (#{chi 456}# + #{exp 3920}# + (#{extend-env 364}# + #{labels 3928}# (list (cons 'syntax - (cons #{var\ 3929}# + (cons #{var 3929}# 0))) - #{r\ 3904}#) - (#{make-binding-wrap\ 420}# - (list #{pat\ 3919}#) - #{labels\ 3928}# + #{r 3904}#) + (#{make-binding-wrap 420}# + (list #{pat 3919}#) + #{labels 3928}# '(())) - #{mod\ 3905}#)) - (list #{x\ 3901}#))))) - (#{gen-clause\ 3728}# - #{x\ 3901}# - #{keys\ 3902}# - (cdr #{clauses\ 3903}#) - #{r\ 3904}# - #{pat\ 3919}# + #{mod 3905}#)) + (list #{x 3901}#))))) + (#{gen-clause 3728}# + #{x 3901}# + #{keys 3902}# + (cdr #{clauses 3903}#) + #{r 3904}# + #{pat 3919}# #t - #{exp\ 3920}# - #{mod\ 3905}#))) - #{tmp\ 3916}#) - (let ((#{tmp\ 3935}# - ($sc-dispatch - #{tmp\ 3915}# - '(any any any)))) - (if #{tmp\ 3935}# + #{exp 3920}# + #{mod 3905}#))) + #{tmp 3916}#) + (let ((#{tmp 3935}# + ($sc-dispatch #{tmp 3915}# '(any any any)))) + (if #{tmp 3935}# (@apply - (lambda (#{pat\ 3939}# - #{fender\ 3940}# - #{exp\ 3941}#) - (#{gen-clause\ 3728}# - #{x\ 3901}# - #{keys\ 3902}# - (cdr #{clauses\ 3903}#) - #{r\ 3904}# - #{pat\ 3939}# - #{fender\ 3940}# - #{exp\ 3941}# - #{mod\ 3905}#)) - #{tmp\ 3935}#) - (let ((#{_\ 3943}# #{tmp\ 3915}#)) + (lambda (#{pat 3939}# + #{fender 3940}# + #{exp 3941}#) + (#{gen-clause 3728}# + #{x 3901}# + #{keys 3902}# + (cdr #{clauses 3903}#) + #{r 3904}# + #{pat 3939}# + #{fender 3940}# + #{exp 3941}# + #{mod 3905}#)) + #{tmp 3935}#) + (let ((#{_ 3943}# #{tmp 3915}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3903}#)))))))))))) + (car #{clauses 3903}#)))))))))))) (begin - (lambda (#{e\ 3944}# - #{r\ 3945}# - #{w\ 3946}# - #{s\ 3947}# - #{mod\ 3948}#) + (lambda (#{e 3944}# + #{r 3945}# + #{w 3946}# + #{s 3947}# + #{mod 3948}#) (begin - (let ((#{e\ 3955}# - (#{source-wrap\ 444}# - #{e\ 3944}# - #{w\ 3946}# - #{s\ 3947}# - #{mod\ 3948}#))) - (let ((#{tmp\ 3956}# #{e\ 3955}#)) - (let ((#{tmp\ 3957}# + (let ((#{e 3955}# + (#{source-wrap 444}# + #{e 3944}# + #{w 3946}# + #{s 3947}# + #{mod 3948}#))) + (let ((#{tmp 3956}# #{e 3955}#)) + (let ((#{tmp 3957}# ($sc-dispatch - #{tmp\ 3956}# + #{tmp 3956}# '(_ any each-any . each-any)))) - (if #{tmp\ 3957}# + (if #{tmp 3957}# (@apply - (lambda (#{val\ 3961}# #{key\ 3962}# #{m\ 3963}#) + (lambda (#{val 3961}# #{key 3962}# #{m 3963}#) (if (and-map - (lambda (#{x\ 3964}#) - (if (#{id?\ 376}# #{x\ 3964}#) - (not (#{ellipsis?\ 472}# - #{x\ 3964}#)) + (lambda (#{x 3964}#) + (if (#{id? 376}# #{x 3964}#) + (not (#{ellipsis? 472}# #{x 3964}#)) #f)) - #{key\ 3962}#) + #{key 3962}#) (begin - (let ((#{x\ 3970}# - (#{gen-var\ 484}# 'tmp))) - (#{build-application\ 302}# - #{s\ 3947}# - (#{build-simple-lambda\ 320}# + (let ((#{x 3970}# (#{gen-var 484}# 'tmp))) + (#{build-application 302}# + #{s 3947}# + (#{build-simple-lambda 320}# #f (list 'tmp) #f - (list #{x\ 3970}#) + (list #{x 3970}#) '() - (#{gen-syntax-case\ 3730}# - (#{build-lexical-reference\ 308}# + (#{gen-syntax-case 3730}# + (#{build-lexical-reference 308}# 'value #f 'tmp - #{x\ 3970}#) - #{key\ 3962}# - #{m\ 3963}# - #{r\ 3945}# - #{mod\ 3948}#)) - (list (#{chi\ 456}# - #{val\ 3961}# - #{r\ 3945}# + #{x 3970}#) + #{key 3962}# + #{m 3963}# + #{r 3945}# + #{mod 3948}#)) + (list (#{chi 456}# + #{val 3961}# + #{r 3945}# '(()) - #{mod\ 3948}#))))) + #{mod 3948}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3955}#))) - #{tmp\ 3957}#) + #{e 3955}#))) + #{tmp 3957}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3956}#)))))))))) + #{tmp 3956}#)))))))))) (set! macroexpand (lambda* - (#{x\ 3976}# + (#{x 3976}# #:optional - (#{m\ 3978}# 'e) - (#{esew\ 3980}# '(eval))) - (#{chi-top-sequence\ 448}# - (list #{x\ 3976}#) + (#{m 3978}# 'e) + (#{esew 3980}# '(eval))) + (#{chi-top-sequence 448}# + (list #{x 3976}#) '() '((top)) #f - #{m\ 3978}# - #{esew\ 3980}# + #{m 3978}# + #{esew 3980}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x\ 3984}#) - (#{nonsymbol-id?\ 374}# #{x\ 3984}#))) + (lambda (#{x 3984}#) + (#{nonsymbol-id? 374}# #{x 3984}#))) (set! datum->syntax - (lambda (#{id\ 3986}# #{datum\ 3987}#) - (#{make-syntax-object\ 340}# - #{datum\ 3987}# - (#{syntax-object-wrap\ 346}# #{id\ 3986}#) - (#{syntax-object-module\ 348}# #{id\ 3986}#)))) + (lambda (#{id 3986}# #{datum 3987}#) + (#{make-syntax-object 340}# + #{datum 3987}# + (#{syntax-object-wrap 346}# #{id 3986}#) + (#{syntax-object-module 348}# #{id 3986}#)))) (set! syntax->datum - (lambda (#{x\ 3990}#) - (#{strip\ 482}# #{x\ 3990}# '(())))) + (lambda (#{x 3990}#) + (#{strip 482}# #{x 3990}# '(())))) (set! syntax-source - (lambda (#{x\ 3993}#) - (#{source-annotation\ 357}# #{x\ 3993}#))) + (lambda (#{x 3993}#) + (#{source-annotation 357}# #{x 3993}#))) (set! generate-temporaries - (lambda (#{ls\ 3995}#) + (lambda (#{ls 3995}#) (begin (begin - (let ((#{x\ 3999}# #{ls\ 3995}#)) - (if (not (list? #{x\ 3999}#)) + (let ((#{x 3999}# #{ls 3995}#)) + (if (not (list? #{x 3999}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3999}#)))) - (map (lambda (#{x\ 4000}#) - (#{wrap\ 442}# (gensym) '((top)) #f)) - #{ls\ 3995}#)))) + #{x 3999}#)))) + (map (lambda (#{x 4000}#) + (#{wrap 442}# (gensym) '((top)) #f)) + #{ls 3995}#)))) (set! free-identifier=? - (lambda (#{x\ 4004}# #{y\ 4005}#) + (lambda (#{x 4004}# #{y 4005}#) (begin (begin - (let ((#{x\ 4010}# #{x\ 4004}#)) - (if (not (#{nonsymbol-id?\ 374}# #{x\ 4010}#)) + (let ((#{x 4010}# #{x 4004}#)) + (if (not (#{nonsymbol-id? 374}# #{x 4010}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4010}#)))) + #{x 4010}#)))) (begin - (let ((#{x\ 4013}# #{y\ 4005}#)) - (if (not (#{nonsymbol-id?\ 374}# #{x\ 4013}#)) + (let ((#{x 4013}# #{y 4005}#)) + (if (not (#{nonsymbol-id? 374}# #{x 4013}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4013}#)))) - (#{free-id=?\ 432}# #{x\ 4004}# #{y\ 4005}#)))) + #{x 4013}#)))) + (#{free-id=? 432}# #{x 4004}# #{y 4005}#)))) (set! bound-identifier=? - (lambda (#{x\ 4014}# #{y\ 4015}#) + (lambda (#{x 4014}# #{y 4015}#) (begin (begin - (let ((#{x\ 4020}# #{x\ 4014}#)) - (if (not (#{nonsymbol-id?\ 374}# #{x\ 4020}#)) + (let ((#{x 4020}# #{x 4014}#)) + (if (not (#{nonsymbol-id? 374}# #{x 4020}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4020}#)))) + #{x 4020}#)))) (begin - (let ((#{x\ 4023}# #{y\ 4015}#)) - (if (not (#{nonsymbol-id?\ 374}# #{x\ 4023}#)) + (let ((#{x 4023}# #{y 4015}#)) + (if (not (#{nonsymbol-id? 374}# #{x 4023}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4023}#)))) - (#{bound-id=?\ 434}# #{x\ 4014}# #{y\ 4015}#)))) + #{x 4023}#)))) + (#{bound-id=? 434}# #{x 4014}# #{y 4015}#)))) (set! syntax-violation (lambda* - (#{who\ 4024}# - #{message\ 4025}# - #{form\ 4026}# + (#{who 4024}# + #{message 4025}# + #{form 4026}# #:optional - (#{subform\ 4030}# #f)) + (#{subform 4030}# #f)) (begin (begin - (let ((#{x\ 4034}# #{who\ 4024}#)) - (if (not (let ((#{x\ 4035}# #{x\ 4034}#)) + (let ((#{x 4034}# #{who 4024}#)) + (if (not (let ((#{x 4035}# #{x 4034}#)) (begin - (let ((#{t\ 4039}# (not #{x\ 4035}#))) - (if #{t\ 4039}# - #{t\ 4039}# + (let ((#{t 4039}# (not #{x 4035}#))) + (if #{t 4039}# + #{t 4039}# (begin - (let ((#{t\ 4042}# - (string? #{x\ 4035}#))) - (if #{t\ 4042}# - #{t\ 4042}# - (symbol? #{x\ 4035}#))))))))) + (let ((#{t 4042}# (string? #{x 4035}#))) + (if #{t 4042}# + #{t 4042}# + (symbol? #{x 4035}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4034}#)))) + #{x 4034}#)))) (begin - (let ((#{x\ 4046}# #{message\ 4025}#)) - (if (not (string? #{x\ 4046}#)) + (let ((#{x 4046}# #{message 4025}#)) + (if (not (string? #{x 4046}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4046}#)))) + #{x 4046}#)))) (throw 'syntax-error - #{who\ 4024}# - #{message\ 4025}# - (#{source-annotation\ 357}# + #{who 4024}# + #{message 4025}# + (#{source-annotation 357}# (begin - (let ((#{t\ 4049}# #{form\ 4026}#)) - (if #{t\ 4049}# #{t\ 4049}# #{subform\ 4030}#)))) - (#{strip\ 482}# #{form\ 4026}# '(())) - (if #{subform\ 4030}# - (#{strip\ 482}# #{subform\ 4030}# '(())) + (let ((#{t 4049}# #{form 4026}#)) + (if #{t 4049}# #{t 4049}# #{subform 4030}#)))) + (#{strip 482}# #{form 4026}# '(())) + (if #{subform 4030}# + (#{strip 482}# #{subform 4030}# '(())) #f))))) (letrec* - ((#{match-each\ 4056}# - (lambda (#{e\ 4069}# - #{p\ 4070}# - #{w\ 4071}# - #{mod\ 4072}#) - (if (pair? #{e\ 4069}#) + ((#{match-each 4056}# + (lambda (#{e 4069}# #{p 4070}# #{w 4071}# #{mod 4072}#) + (if (pair? #{e 4069}#) (begin - (let ((#{first\ 4080}# - (#{match\ 4068}# - (car #{e\ 4069}#) - #{p\ 4070}# - #{w\ 4071}# + (let ((#{first 4080}# + (#{match 4068}# + (car #{e 4069}#) + #{p 4070}# + #{w 4071}# '() - #{mod\ 4072}#))) - (if #{first\ 4080}# + #{mod 4072}#))) + (if #{first 4080}# (begin - (let ((#{rest\ 4084}# - (#{match-each\ 4056}# - (cdr #{e\ 4069}#) - #{p\ 4070}# - #{w\ 4071}# - #{mod\ 4072}#))) - (if #{rest\ 4084}# - (cons #{first\ 4080}# #{rest\ 4084}#) + (let ((#{rest 4084}# + (#{match-each 4056}# + (cdr #{e 4069}#) + #{p 4070}# + #{w 4071}# + #{mod 4072}#))) + (if #{rest 4084}# + (cons #{first 4080}# #{rest 4084}#) #f))) #f))) - (if (null? #{e\ 4069}#) + (if (null? #{e 4069}#) '() - (if (#{syntax-object?\ 342}# #{e\ 4069}#) - (#{match-each\ 4056}# - (#{syntax-object-expression\ 344}# #{e\ 4069}#) - #{p\ 4070}# - (#{join-wraps\ 424}# - #{w\ 4071}# - (#{syntax-object-wrap\ 346}# #{e\ 4069}#)) - (#{syntax-object-module\ 348}# #{e\ 4069}#)) + (if (#{syntax-object? 342}# #{e 4069}#) + (#{match-each 4056}# + (#{syntax-object-expression 344}# #{e 4069}#) + #{p 4070}# + (#{join-wraps 424}# + #{w 4071}# + (#{syntax-object-wrap 346}# #{e 4069}#)) + (#{syntax-object-module 348}# #{e 4069}#)) #f))))) - (#{match-each+\ 4058}# - (lambda (#{e\ 4092}# - #{x-pat\ 4093}# - #{y-pat\ 4094}# - #{z-pat\ 4095}# - #{w\ 4096}# - #{r\ 4097}# - #{mod\ 4098}#) + (#{match-each+ 4058}# + (lambda (#{e 4092}# + #{x-pat 4093}# + #{y-pat 4094}# + #{z-pat 4095}# + #{w 4096}# + #{r 4097}# + #{mod 4098}#) (letrec* - ((#{f\ 4109}# - (lambda (#{e\ 4110}# #{w\ 4111}#) - (if (pair? #{e\ 4110}#) + ((#{f 4109}# + (lambda (#{e 4110}# #{w 4111}#) + (if (pair? #{e 4110}#) (call-with-values (lambda () - (#{f\ 4109}# (cdr #{e\ 4110}#) #{w\ 4111}#)) - (lambda (#{xr*\ 4114}# #{y-pat\ 4115}# #{r\ 4116}#) - (if #{r\ 4116}# - (if (null? #{y-pat\ 4115}#) + (#{f 4109}# (cdr #{e 4110}#) #{w 4111}#)) + (lambda (#{xr* 4114}# #{y-pat 4115}# #{r 4116}#) + (if #{r 4116}# + (if (null? #{y-pat 4115}#) (begin - (let ((#{xr\ 4121}# - (#{match\ 4068}# - (car #{e\ 4110}#) - #{x-pat\ 4093}# - #{w\ 4111}# + (let ((#{xr 4121}# + (#{match 4068}# + (car #{e 4110}#) + #{x-pat 4093}# + #{w 4111}# '() - #{mod\ 4098}#))) - (if #{xr\ 4121}# + #{mod 4098}#))) + (if #{xr 4121}# (values - (cons #{xr\ 4121}# #{xr*\ 4114}#) - #{y-pat\ 4115}# - #{r\ 4116}#) + (cons #{xr 4121}# #{xr* 4114}#) + #{y-pat 4115}# + #{r 4116}#) (values #f #f #f)))) (values '() - (cdr #{y-pat\ 4115}#) - (#{match\ 4068}# - (car #{e\ 4110}#) - (car #{y-pat\ 4115}#) - #{w\ 4111}# - #{r\ 4116}# - #{mod\ 4098}#))) + (cdr #{y-pat 4115}#) + (#{match 4068}# + (car #{e 4110}#) + (car #{y-pat 4115}#) + #{w 4111}# + #{r 4116}# + #{mod 4098}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 342}# #{e\ 4110}#) - (#{f\ 4109}# - (#{syntax-object-expression\ 344}# #{e\ 4110}#) - (#{join-wraps\ 424}# #{w\ 4111}# #{e\ 4110}#)) + (if (#{syntax-object? 342}# #{e 4110}#) + (#{f 4109}# + (#{syntax-object-expression 344}# #{e 4110}#) + (#{join-wraps 424}# #{w 4111}# #{e 4110}#)) (values '() - #{y-pat\ 4094}# - (#{match\ 4068}# - #{e\ 4110}# - #{z-pat\ 4095}# - #{w\ 4111}# - #{r\ 4097}# - #{mod\ 4098}#))))))) - (begin (#{f\ 4109}# #{e\ 4092}# #{w\ 4096}#))))) - (#{match-each-any\ 4060}# - (lambda (#{e\ 4125}# #{w\ 4126}# #{mod\ 4127}#) - (if (pair? #{e\ 4125}#) + #{y-pat 4094}# + (#{match 4068}# + #{e 4110}# + #{z-pat 4095}# + #{w 4111}# + #{r 4097}# + #{mod 4098}#))))))) + (begin (#{f 4109}# #{e 4092}# #{w 4096}#))))) + (#{match-each-any 4060}# + (lambda (#{e 4125}# #{w 4126}# #{mod 4127}#) + (if (pair? #{e 4125}#) (begin - (let ((#{l\ 4134}# - (#{match-each-any\ 4060}# - (cdr #{e\ 4125}#) - #{w\ 4126}# - #{mod\ 4127}#))) - (if #{l\ 4134}# - (cons (#{wrap\ 442}# - (car #{e\ 4125}#) - #{w\ 4126}# - #{mod\ 4127}#) - #{l\ 4134}#) + (let ((#{l 4134}# + (#{match-each-any 4060}# + (cdr #{e 4125}#) + #{w 4126}# + #{mod 4127}#))) + (if #{l 4134}# + (cons (#{wrap 442}# + (car #{e 4125}#) + #{w 4126}# + #{mod 4127}#) + #{l 4134}#) #f))) - (if (null? #{e\ 4125}#) + (if (null? #{e 4125}#) '() - (if (#{syntax-object?\ 342}# #{e\ 4125}#) - (#{match-each-any\ 4060}# - (#{syntax-object-expression\ 344}# #{e\ 4125}#) - (#{join-wraps\ 424}# - #{w\ 4126}# - (#{syntax-object-wrap\ 346}# #{e\ 4125}#)) - #{mod\ 4127}#) + (if (#{syntax-object? 342}# #{e 4125}#) + (#{match-each-any 4060}# + (#{syntax-object-expression 344}# #{e 4125}#) + (#{join-wraps 424}# + #{w 4126}# + (#{syntax-object-wrap 346}# #{e 4125}#)) + #{mod 4127}#) #f))))) - (#{match-empty\ 4062}# - (lambda (#{p\ 4142}# #{r\ 4143}#) - (if (null? #{p\ 4142}#) - #{r\ 4143}# - (if (eq? #{p\ 4142}# '_) - #{r\ 4143}# - (if (eq? #{p\ 4142}# 'any) - (cons '() #{r\ 4143}#) - (if (pair? #{p\ 4142}#) - (#{match-empty\ 4062}# - (car #{p\ 4142}#) - (#{match-empty\ 4062}# - (cdr #{p\ 4142}#) - #{r\ 4143}#)) - (if (eq? #{p\ 4142}# 'each-any) - (cons '() #{r\ 4143}#) + (#{match-empty 4062}# + (lambda (#{p 4142}# #{r 4143}#) + (if (null? #{p 4142}#) + #{r 4143}# + (if (eq? #{p 4142}# '_) + #{r 4143}# + (if (eq? #{p 4142}# 'any) + (cons '() #{r 4143}#) + (if (pair? #{p 4142}#) + (#{match-empty 4062}# + (car #{p 4142}#) + (#{match-empty 4062}# + (cdr #{p 4142}#) + #{r 4143}#)) + (if (eq? #{p 4142}# 'each-any) + (cons '() #{r 4143}#) (begin - (let ((#{atom-key\ 4159}# - (vector-ref #{p\ 4142}# 0))) - (if (eqv? #{atom-key\ 4159}# 'each) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4142}# 1) - #{r\ 4143}#) - (if (eqv? #{atom-key\ 4159}# 'each+) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4142}# 1) - (#{match-empty\ 4062}# - (reverse (vector-ref #{p\ 4142}# 2)) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4142}# 3) - #{r\ 4143}#))) - (if (if (eqv? #{atom-key\ 4159}# 'free-id) + (let ((#{atom-key 4159}# + (vector-ref #{p 4142}# 0))) + (if (eqv? #{atom-key 4159}# 'each) + (#{match-empty 4062}# + (vector-ref #{p 4142}# 1) + #{r 4143}#) + (if (eqv? #{atom-key 4159}# 'each+) + (#{match-empty 4062}# + (vector-ref #{p 4142}# 1) + (#{match-empty 4062}# + (reverse (vector-ref #{p 4142}# 2)) + (#{match-empty 4062}# + (vector-ref #{p 4142}# 3) + #{r 4143}#))) + (if (if (eqv? #{atom-key 4159}# 'free-id) #t - (eqv? #{atom-key\ 4159}# 'atom)) - #{r\ 4143}# - (if (eqv? #{atom-key\ 4159}# 'vector) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4142}# 1) - #{r\ 4143}#)))))))))))))) - (#{combine\ 4064}# - (lambda (#{r*\ 4164}# #{r\ 4165}#) - (if (null? (car #{r*\ 4164}#)) - #{r\ 4165}# - (cons (map car #{r*\ 4164}#) - (#{combine\ 4064}# - (map cdr #{r*\ 4164}#) - #{r\ 4165}#))))) - (#{match*\ 4066}# - (lambda (#{e\ 4168}# - #{p\ 4169}# - #{w\ 4170}# - #{r\ 4171}# - #{mod\ 4172}#) - (if (null? #{p\ 4169}#) - (if (null? #{e\ 4168}#) #{r\ 4171}# #f) - (if (pair? #{p\ 4169}#) - (if (pair? #{e\ 4168}#) - (#{match\ 4068}# - (car #{e\ 4168}#) - (car #{p\ 4169}#) - #{w\ 4170}# - (#{match\ 4068}# - (cdr #{e\ 4168}#) - (cdr #{p\ 4169}#) - #{w\ 4170}# - #{r\ 4171}# - #{mod\ 4172}#) - #{mod\ 4172}#) + (eqv? #{atom-key 4159}# 'atom)) + #{r 4143}# + (if (eqv? #{atom-key 4159}# 'vector) + (#{match-empty 4062}# + (vector-ref #{p 4142}# 1) + #{r 4143}#)))))))))))))) + (#{combine 4064}# + (lambda (#{r* 4164}# #{r 4165}#) + (if (null? (car #{r* 4164}#)) + #{r 4165}# + (cons (map car #{r* 4164}#) + (#{combine 4064}# + (map cdr #{r* 4164}#) + #{r 4165}#))))) + (#{match* 4066}# + (lambda (#{e 4168}# + #{p 4169}# + #{w 4170}# + #{r 4171}# + #{mod 4172}#) + (if (null? #{p 4169}#) + (if (null? #{e 4168}#) #{r 4171}# #f) + (if (pair? #{p 4169}#) + (if (pair? #{e 4168}#) + (#{match 4068}# + (car #{e 4168}#) + (car #{p 4169}#) + #{w 4170}# + (#{match 4068}# + (cdr #{e 4168}#) + (cdr #{p 4169}#) + #{w 4170}# + #{r 4171}# + #{mod 4172}#) + #{mod 4172}#) #f) - (if (eq? #{p\ 4169}# 'each-any) + (if (eq? #{p 4169}# 'each-any) (begin - (let ((#{l\ 4189}# - (#{match-each-any\ 4060}# - #{e\ 4168}# - #{w\ 4170}# - #{mod\ 4172}#))) - (if #{l\ 4189}# - (cons #{l\ 4189}# #{r\ 4171}#) - #f))) + (let ((#{l 4189}# + (#{match-each-any 4060}# + #{e 4168}# + #{w 4170}# + #{mod 4172}#))) + (if #{l 4189}# (cons #{l 4189}# #{r 4171}#) #f))) (begin - (let ((#{atom-key\ 4195}# (vector-ref #{p\ 4169}# 0))) - (if (eqv? #{atom-key\ 4195}# 'each) - (if (null? #{e\ 4168}#) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4169}# 1) - #{r\ 4171}#) + (let ((#{atom-key 4195}# (vector-ref #{p 4169}# 0))) + (if (eqv? #{atom-key 4195}# 'each) + (if (null? #{e 4168}#) + (#{match-empty 4062}# + (vector-ref #{p 4169}# 1) + #{r 4171}#) (begin - (let ((#{l\ 4198}# - (#{match-each\ 4056}# - #{e\ 4168}# - (vector-ref #{p\ 4169}# 1) - #{w\ 4170}# - #{mod\ 4172}#))) - (if #{l\ 4198}# + (let ((#{l 4198}# + (#{match-each 4056}# + #{e 4168}# + (vector-ref #{p 4169}# 1) + #{w 4170}# + #{mod 4172}#))) + (if #{l 4198}# (letrec* - ((#{collect\ 4203}# - (lambda (#{l\ 4204}#) - (if (null? (car #{l\ 4204}#)) - #{r\ 4171}# - (cons (map car #{l\ 4204}#) - (#{collect\ 4203}# + ((#{collect 4203}# + (lambda (#{l 4204}#) + (if (null? (car #{l 4204}#)) + #{r 4171}# + (cons (map car #{l 4204}#) + (#{collect 4203}# (map cdr - #{l\ 4204}#))))))) - (begin (#{collect\ 4203}# #{l\ 4198}#))) + #{l 4204}#))))))) + (begin (#{collect 4203}# #{l 4198}#))) #f)))) - (if (eqv? #{atom-key\ 4195}# 'each+) + (if (eqv? #{atom-key 4195}# 'each+) (call-with-values (lambda () - (#{match-each+\ 4058}# - #{e\ 4168}# - (vector-ref #{p\ 4169}# 1) - (vector-ref #{p\ 4169}# 2) - (vector-ref #{p\ 4169}# 3) - #{w\ 4170}# - #{r\ 4171}# - #{mod\ 4172}#)) - (lambda (#{xr*\ 4206}# - #{y-pat\ 4207}# - #{r\ 4208}#) - (if #{r\ 4208}# - (if (null? #{y-pat\ 4207}#) - (if (null? #{xr*\ 4206}#) - (#{match-empty\ 4062}# - (vector-ref #{p\ 4169}# 1) - #{r\ 4208}#) - (#{combine\ 4064}# - #{xr*\ 4206}# - #{r\ 4208}#)) + (#{match-each+ 4058}# + #{e 4168}# + (vector-ref #{p 4169}# 1) + (vector-ref #{p 4169}# 2) + (vector-ref #{p 4169}# 3) + #{w 4170}# + #{r 4171}# + #{mod 4172}#)) + (lambda (#{xr* 4206}# + #{y-pat 4207}# + #{r 4208}#) + (if #{r 4208}# + (if (null? #{y-pat 4207}#) + (if (null? #{xr* 4206}#) + (#{match-empty 4062}# + (vector-ref #{p 4169}# 1) + #{r 4208}#) + (#{combine 4064}# + #{xr* 4206}# + #{r 4208}#)) #f) #f))) - (if (eqv? #{atom-key\ 4195}# 'free-id) - (if (#{id?\ 376}# #{e\ 4168}#) - (if (#{free-id=?\ 432}# - (#{wrap\ 442}# - #{e\ 4168}# - #{w\ 4170}# - #{mod\ 4172}#) - (vector-ref #{p\ 4169}# 1)) - #{r\ 4171}# + (if (eqv? #{atom-key 4195}# 'free-id) + (if (#{id? 376}# #{e 4168}#) + (if (#{free-id=? 432}# + (#{wrap 442}# + #{e 4168}# + #{w 4170}# + #{mod 4172}#) + (vector-ref #{p 4169}# 1)) + #{r 4171}# #f) #f) - (if (eqv? #{atom-key\ 4195}# 'atom) + (if (eqv? #{atom-key 4195}# 'atom) (if (equal? - (vector-ref #{p\ 4169}# 1) - (#{strip\ 482}# - #{e\ 4168}# - #{w\ 4170}#)) - #{r\ 4171}# + (vector-ref #{p 4169}# 1) + (#{strip 482}# #{e 4168}# #{w 4170}#)) + #{r 4171}# #f) - (if (eqv? #{atom-key\ 4195}# 'vector) - (if (vector? #{e\ 4168}#) - (#{match\ 4068}# - (vector->list #{e\ 4168}#) - (vector-ref #{p\ 4169}# 1) - #{w\ 4170}# - #{r\ 4171}# - #{mod\ 4172}#) + (if (eqv? #{atom-key 4195}# 'vector) + (if (vector? #{e 4168}#) + (#{match 4068}# + (vector->list #{e 4168}#) + (vector-ref #{p 4169}# 1) + #{w 4170}# + #{r 4171}# + #{mod 4172}#) #f))))))))))))) - (#{match\ 4068}# - (lambda (#{e\ 4225}# - #{p\ 4226}# - #{w\ 4227}# - #{r\ 4228}# - #{mod\ 4229}#) - (if (not #{r\ 4228}#) + (#{match 4068}# + (lambda (#{e 4225}# + #{p 4226}# + #{w 4227}# + #{r 4228}# + #{mod 4229}#) + (if (not #{r 4228}#) #f - (if (eq? #{p\ 4226}# '_) - #{r\ 4228}# - (if (eq? #{p\ 4226}# 'any) - (cons (#{wrap\ 442}# - #{e\ 4225}# - #{w\ 4227}# - #{mod\ 4229}#) - #{r\ 4228}#) - (if (#{syntax-object?\ 342}# #{e\ 4225}#) - (#{match*\ 4066}# - (#{syntax-object-expression\ 344}# #{e\ 4225}#) - #{p\ 4226}# - (#{join-wraps\ 424}# - #{w\ 4227}# - (#{syntax-object-wrap\ 346}# #{e\ 4225}#)) - #{r\ 4228}# - (#{syntax-object-module\ 348}# #{e\ 4225}#)) - (#{match*\ 4066}# - #{e\ 4225}# - #{p\ 4226}# - #{w\ 4227}# - #{r\ 4228}# - #{mod\ 4229}#)))))))) + (if (eq? #{p 4226}# '_) + #{r 4228}# + (if (eq? #{p 4226}# 'any) + (cons (#{wrap 442}# #{e 4225}# #{w 4227}# #{mod 4229}#) + #{r 4228}#) + (if (#{syntax-object? 342}# #{e 4225}#) + (#{match* 4066}# + (#{syntax-object-expression 344}# #{e 4225}#) + #{p 4226}# + (#{join-wraps 424}# + #{w 4227}# + (#{syntax-object-wrap 346}# #{e 4225}#)) + #{r 4228}# + (#{syntax-object-module 348}# #{e 4225}#)) + (#{match* 4066}# + #{e 4225}# + #{p 4226}# + #{w 4227}# + #{r 4228}# + #{mod 4229}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e\ 4244}# #{p\ 4245}#) - (if (eq? #{p\ 4245}# 'any) - (list #{e\ 4244}#) - (if (eq? #{p\ 4245}# '_) + (lambda (#{e 4244}# #{p 4245}#) + (if (eq? #{p 4245}# 'any) + (list #{e 4244}#) + (if (eq? #{p 4245}# '_) '() - (if (#{syntax-object?\ 342}# #{e\ 4244}#) - (#{match*\ 4066}# - (#{syntax-object-expression\ 344}# #{e\ 4244}#) - #{p\ 4245}# - (#{syntax-object-wrap\ 346}# #{e\ 4244}#) + (if (#{syntax-object? 342}# #{e 4244}#) + (#{match* 4066}# + (#{syntax-object-expression 344}# #{e 4244}#) + #{p 4245}# + (#{syntax-object-wrap 346}# #{e 4244}#) '() - (#{syntax-object-module\ 348}# #{e\ 4244}#)) - (#{match*\ 4066}# - #{e\ 4244}# - #{p\ 4245}# + (#{syntax-object-module 348}# #{e 4244}#)) + (#{match* 4066}# + #{e 4244}# + #{p 4245}# '(()) '() #f))))))))))))) @@ -14399,15 +14319,15 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x\ 4256}#) - (let ((#{tmp\ 4258}# #{x\ 4256}#)) - (let ((#{tmp\ 4259}# + (lambda (#{x 4256}#) + (let ((#{tmp 4258}# #{x 4256}#)) + (let ((#{tmp 4259}# ($sc-dispatch - #{tmp\ 4258}# + #{tmp 4258}# '(_ () any . each-any)))) - (if #{tmp\ 4259}# + (if #{tmp 4259}# (@apply - (lambda (#{e1\ 4262}# #{e2\ 4263}#) + (lambda (#{e1 4262}# #{e2 4263}#) (cons '#(syntax-object let ((top) @@ -14418,18 +14338,18 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4257"))) (hygiene guile)) - (cons '() (cons #{e1\ 4262}# #{e2\ 4263}#)))) - #{tmp\ 4259}#) - (let ((#{tmp\ 4265}# + (cons '() (cons #{e1 4262}# #{e2 4263}#)))) + #{tmp 4259}#) + (let ((#{tmp 4265}# ($sc-dispatch - #{tmp\ 4258}# + #{tmp 4258}# '(_ ((any any)) any . each-any)))) - (if #{tmp\ 4265}# + (if #{tmp 4265}# (@apply - (lambda (#{out\ 4270}# - #{in\ 4271}# - #{e1\ 4272}# - #{e2\ 4273}#) + (lambda (#{out 4270}# + #{in 4271}# + #{e1 4272}# + #{e2 4273}#) (list '#(syntax-object syntax-case ((top) @@ -14440,9 +14360,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4257"))) (hygiene guile)) - #{in\ 4271}# + #{in 4271}# '() - (list #{out\ 4270}# + (list #{out 4270}# (cons '#(syntax-object let ((top) @@ -14454,19 +14374,18 @@ #(ribcage #(x) #((top)) #("i4257"))) (hygiene guile)) (cons '() - (cons #{e1\ 4272}# - #{e2\ 4273}#)))))) - #{tmp\ 4265}#) - (let ((#{tmp\ 4275}# + (cons #{e1 4272}# #{e2 4273}#)))))) + #{tmp 4265}#) + (let ((#{tmp 4275}# ($sc-dispatch - #{tmp\ 4258}# + #{tmp 4258}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp\ 4275}# + (if #{tmp 4275}# (@apply - (lambda (#{out\ 4280}# - #{in\ 4281}# - #{e1\ 4282}# - #{e2\ 4283}#) + (lambda (#{out 4280}# + #{in 4281}# + #{e1 4282}# + #{e2 4283}#) (list '#(syntax-object syntax-case ((top) @@ -14487,9 +14406,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4257"))) (hygiene guile)) - #{in\ 4281}#) + #{in 4281}#) '() - (list #{out\ 4280}# + (list #{out 4280}# (cons '#(syntax-object let ((top) @@ -14507,30 +14426,30 @@ #("i4257"))) (hygiene guile)) (cons '() - (cons #{e1\ 4282}# - #{e2\ 4283}#)))))) - #{tmp\ 4275}#) + (cons #{e1 4282}# + #{e2 4283}#)))))) + #{tmp 4275}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4258}#))))))))))) + #{tmp 4258}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x\ 4287}#) - (let ((#{tmp\ 4289}# #{x\ 4287}#)) - (let ((#{tmp\ 4290}# + (lambda (#{x 4287}#) + (let ((#{tmp 4289}# #{x 4287}#)) + (let ((#{tmp 4290}# ($sc-dispatch - #{tmp\ 4289}# + #{tmp 4289}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp\ 4290}# + (if #{tmp 4290}# (@apply - (lambda (#{k\ 4295}# - #{keyword\ 4296}# - #{pattern\ 4297}# - #{template\ 4298}#) + (lambda (#{k 4295}# + #{keyword 4296}# + #{pattern 4297}# + #{template 4298}#) (list '#(syntax-object lambda ((top) @@ -14583,7 +14502,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4288"))) (hygiene guile)) - #{pattern\ 4297}#)) + #{pattern 4297}#)) (cons '#(syntax-object syntax-case ((top) @@ -14604,9 +14523,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4288"))) (hygiene guile)) - (cons #{k\ 4295}# - (map (lambda (#{tmp\ 4302}# - #{tmp\ 4301}#) + (cons #{k 4295}# + (map (lambda (#{tmp 4302}# + #{tmp 4301}#) (list (cons '#(syntax-object dummy ((top) @@ -14632,7 +14551,7 @@ #((top)) #("i4288"))) (hygiene guile)) - #{tmp\ 4301}#) + #{tmp 4301}#) (list '#(syntax-object syntax ((top) @@ -14658,30 +14577,30 @@ #((top)) #("i4288"))) (hygiene guile)) - #{tmp\ 4302}#))) - #{template\ 4298}# - #{pattern\ 4297}#)))))) - #{tmp\ 4290}#) - (let ((#{tmp\ 4303}# + #{tmp 4302}#))) + #{template 4298}# + #{pattern 4297}#)))))) + #{tmp 4290}#) + (let ((#{tmp 4303}# ($sc-dispatch - #{tmp\ 4289}# + #{tmp 4289}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp\ 4303}# + (if (if #{tmp 4303}# (@apply - (lambda (#{k\ 4309}# - #{docstring\ 4310}# - #{keyword\ 4311}# - #{pattern\ 4312}# - #{template\ 4313}#) - (string? (syntax->datum #{docstring\ 4310}#))) - #{tmp\ 4303}#) + (lambda (#{k 4309}# + #{docstring 4310}# + #{keyword 4311}# + #{pattern 4312}# + #{template 4313}#) + (string? (syntax->datum #{docstring 4310}#))) + #{tmp 4303}#) #f) (@apply - (lambda (#{k\ 4319}# - #{docstring\ 4320}# - #{keyword\ 4321}# - #{pattern\ 4322}# - #{template\ 4323}#) + (lambda (#{k 4319}# + #{docstring 4320}# + #{keyword 4321}# + #{pattern 4322}# + #{template 4323}#) (list '#(syntax-object lambda ((top) @@ -14702,7 +14621,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4288"))) (hygiene guile))) - #{docstring\ 4320}# + #{docstring 4320}# (vector '(#(syntax-object macro-type @@ -14739,7 +14658,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4288"))) (hygiene guile)) - #{pattern\ 4322}#)) + #{pattern 4322}#)) (cons '#(syntax-object syntax-case ((top) @@ -14772,9 +14691,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4288"))) (hygiene guile)) - (cons #{k\ 4319}# - (map (lambda (#{tmp\ 4327}# - #{tmp\ 4326}#) + (cons #{k 4319}# + (map (lambda (#{tmp 4327}# + #{tmp 4326}#) (list (cons '#(syntax-object dummy ((top) @@ -14804,7 +14723,7 @@ #("i4288"))) (hygiene guile)) - #{tmp\ 4326}#) + #{tmp 4326}#) (list '#(syntax-object syntax ((top) @@ -14834,45 +14753,45 @@ #("i4288"))) (hygiene guile)) - #{tmp\ 4327}#))) - #{template\ 4323}# - #{pattern\ 4322}#)))))) - #{tmp\ 4303}#) + #{tmp 4327}#))) + #{template 4323}# + #{pattern 4322}#)))))) + #{tmp 4303}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4289}#))))))))) + #{tmp 4289}#))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x\ 4328}#) - (let ((#{tmp\ 4330}# #{x\ 4328}#)) - (let ((#{tmp\ 4331}# + (lambda (#{x 4328}#) + (let ((#{tmp 4330}# #{x 4328}#)) + (let ((#{tmp 4331}# ($sc-dispatch - #{tmp\ 4330}# + #{tmp 4330}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp\ 4331}# + (if (if #{tmp 4331}# (@apply - (lambda (#{let*\ 4337}# - #{x\ 4338}# - #{v\ 4339}# - #{e1\ 4340}# - #{e2\ 4341}#) - (and-map identifier? #{x\ 4338}#)) - #{tmp\ 4331}#) + (lambda (#{let* 4337}# + #{x 4338}# + #{v 4339}# + #{e1 4340}# + #{e2 4341}#) + (and-map identifier? #{x 4338}#)) + #{tmp 4331}#) #f) (@apply - (lambda (#{let*\ 4348}# - #{x\ 4349}# - #{v\ 4350}# - #{e1\ 4351}# - #{e2\ 4352}#) + (lambda (#{let* 4348}# + #{x 4349}# + #{v 4350}# + #{e1 4351}# + #{e2 4352}#) (letrec* - ((#{f\ 4355}# - (lambda (#{bindings\ 4356}#) - (if (null? #{bindings\ 4356}#) + ((#{f 4355}# + (lambda (#{bindings 4356}#) + (if (null? #{bindings 4356}#) (cons '#(syntax-object let ((top) @@ -14892,15 +14811,15 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4329"))) (hygiene guile)) - (cons '() (cons #{e1\ 4351}# #{e2\ 4352}#))) - (let ((#{tmp\ 4361}# - (list (#{f\ 4355}# (cdr #{bindings\ 4356}#)) - (car #{bindings\ 4356}#)))) - (let ((#{tmp\ 4362}# - ($sc-dispatch #{tmp\ 4361}# '(any any)))) - (if #{tmp\ 4362}# + (cons '() (cons #{e1 4351}# #{e2 4352}#))) + (let ((#{tmp 4361}# + (list (#{f 4355}# (cdr #{bindings 4356}#)) + (car #{bindings 4356}#)))) + (let ((#{tmp 4362}# + ($sc-dispatch #{tmp 4361}# '(any any)))) + (if #{tmp 4362}# (@apply - (lambda (#{body\ 4365}# #{binding\ 4366}#) + (lambda (#{body 4365}# #{binding 4366}#) (list '#(syntax-object let ((top) @@ -14928,76 +14847,76 @@ #((top)) #("i4329"))) (hygiene guile)) - (list #{binding\ 4366}#) - #{body\ 4365}#)) - #{tmp\ 4362}#) + (list #{binding 4366}#) + #{body 4365}#)) + #{tmp 4362}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4361}#)))))))) + #{tmp 4361}#)))))))) (begin - (#{f\ 4355}# (map list #{x\ 4349}# #{v\ 4350}#))))) - #{tmp\ 4331}#) + (#{f 4355}# (map list #{x 4349}# #{v 4350}#))))) + #{tmp 4331}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4330}#))))))) + #{tmp 4330}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x\ 4367}#) - (let ((#{tmp\ 4369}# #{orig-x\ 4367}#)) - (let ((#{tmp\ 4370}# + (lambda (#{orig-x 4367}#) + (let ((#{tmp 4369}# #{orig-x 4367}#)) + (let ((#{tmp 4370}# ($sc-dispatch - #{tmp\ 4369}# + #{tmp 4369}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp\ 4370}# + (if #{tmp 4370}# (@apply - (lambda (#{var\ 4377}# - #{init\ 4378}# - #{step\ 4379}# - #{e0\ 4380}# - #{e1\ 4381}# - #{c\ 4382}#) - (let ((#{tmp\ 4384}# - (map (lambda (#{v\ 4405}# #{s\ 4406}#) - (let ((#{tmp\ 4409}# #{s\ 4406}#)) - (let ((#{tmp\ 4410}# - ($sc-dispatch #{tmp\ 4409}# '()))) - (if #{tmp\ 4410}# + (lambda (#{var 4377}# + #{init 4378}# + #{step 4379}# + #{e0 4380}# + #{e1 4381}# + #{c 4382}#) + (let ((#{tmp 4384}# + (map (lambda (#{v 4405}# #{s 4406}#) + (let ((#{tmp 4409}# #{s 4406}#)) + (let ((#{tmp 4410}# + ($sc-dispatch #{tmp 4409}# '()))) + (if #{tmp 4410}# (@apply - (lambda () #{v\ 4405}#) - #{tmp\ 4410}#) - (let ((#{tmp\ 4411}# + (lambda () #{v 4405}#) + #{tmp 4410}#) + (let ((#{tmp 4411}# ($sc-dispatch - #{tmp\ 4409}# + #{tmp 4409}# '(any)))) - (if #{tmp\ 4411}# + (if #{tmp 4411}# (@apply - (lambda (#{e\ 4413}#) #{e\ 4413}#) - #{tmp\ 4411}#) - (let ((#{_\ 4415}# #{tmp\ 4409}#)) + (lambda (#{e 4413}#) #{e 4413}#) + #{tmp 4411}#) + (let ((#{_ 4415}# #{tmp 4409}#)) (syntax-violation 'do "bad step expression" - #{orig-x\ 4367}# - #{s\ 4406}#)))))))) - #{var\ 4377}# - #{step\ 4379}#))) - (let ((#{tmp\ 4385}# - ($sc-dispatch #{tmp\ 4384}# 'each-any))) - (if #{tmp\ 4385}# + #{orig-x 4367}# + #{s 4406}#)))))))) + #{var 4377}# + #{step 4379}#))) + (let ((#{tmp 4385}# + ($sc-dispatch #{tmp 4384}# 'each-any))) + (if #{tmp 4385}# (@apply - (lambda (#{step\ 4387}#) - (let ((#{tmp\ 4388}# #{e1\ 4381}#)) - (let ((#{tmp\ 4389}# - ($sc-dispatch #{tmp\ 4388}# '()))) - (if #{tmp\ 4389}# + (lambda (#{step 4387}#) + (let ((#{tmp 4388}# #{e1 4381}#)) + (let ((#{tmp 4389}# + ($sc-dispatch #{tmp 4388}# '()))) + (if #{tmp 4389}# (@apply (lambda () (list '#(syntax-object @@ -15056,9 +14975,7 @@ #((top)) #("i4368"))) (hygiene guile)) - (map list - #{var\ 4377}# - #{init\ 4378}#) + (map list #{var 4377}# #{init 4378}#) (list '#(syntax-object if ((top) @@ -15120,7 +15037,7 @@ #((top)) #("i4368"))) (hygiene guile)) - #{e0\ 4380}#) + #{e0 4380}#) (cons '#(syntax-object begin ((top) @@ -15155,7 +15072,7 @@ #("i4368"))) (hygiene guile)) (append - #{c\ 4382}# + #{c 4382}# (list (cons '#(syntax-object doloop ((top) @@ -15196,15 +15113,15 @@ #("i4368"))) (hygiene guile)) - #{step\ 4387}#))))))) - #{tmp\ 4389}#) - (let ((#{tmp\ 4394}# + #{step 4387}#))))))) + #{tmp 4389}#) + (let ((#{tmp 4394}# ($sc-dispatch - #{tmp\ 4388}# + #{tmp 4388}# '(any . each-any)))) - (if #{tmp\ 4394}# + (if #{tmp 4394}# (@apply - (lambda (#{e1\ 4397}# #{e2\ 4398}#) + (lambda (#{e1 4397}# #{e2 4398}#) (list '#(syntax-object let ((top) @@ -15270,8 +15187,8 @@ #("i4368"))) (hygiene guile)) (map list - #{var\ 4377}# - #{init\ 4378}#) + #{var 4377}# + #{init 4378}#) (list '#(syntax-object if ((top) @@ -15309,7 +15226,7 @@ #((top)) #("i4368"))) (hygiene guile)) - #{e0\ 4380}# + #{e0 4380}# (cons '#(syntax-object begin ((top) @@ -15354,8 +15271,8 @@ #((top)) #("i4368"))) (hygiene guile)) - (cons #{e1\ 4397}# - #{e2\ 4398}#)) + (cons #{e1 4397}# + #{e2 4398}#)) (cons '#(syntax-object begin ((top) @@ -15401,7 +15318,7 @@ #("i4368"))) (hygiene guile)) (append - #{c\ 4382}# + #{c 4382}# (list (cons '#(syntax-object doloop ((top) @@ -15449,34 +15366,34 @@ #("i4368"))) (hygiene guile)) - #{step\ 4387}#))))))) - #{tmp\ 4394}#) + #{step 4387}#))))))) + #{tmp 4394}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4388}#))))))) - #{tmp\ 4385}#) + #{tmp 4388}#))))))) + #{tmp 4385}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4384}#))))) - #{tmp\ 4370}#) + #{tmp 4384}#))))) + #{tmp 4370}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4369}#))))))) + #{tmp 4369}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi\ 4419}# - (lambda (#{p\ 4432}# #{lev\ 4433}#) - (let ((#{tmp\ 4436}# #{p\ 4432}#)) - (let ((#{tmp\ 4437}# + ((#{quasi 4419}# + (lambda (#{p 4432}# #{lev 4433}#) + (let ((#{tmp 4436}# #{p 4432}#)) + (let ((#{tmp 4437}# ($sc-dispatch - #{tmp\ 4436}# + #{tmp 4436}# '(#(free-id #(syntax-object unquote @@ -15503,10 +15420,10 @@ "i4418"))) (hygiene guile))) any)))) - (if #{tmp\ 4437}# + (if #{tmp 4437}# (@apply - (lambda (#{p\ 4439}#) - (if (= #{lev\ 4433}# 0) + (lambda (#{p 4439}#) + (if (= #{lev 4433}# 0) (list '#(syntax-object "value" ((top) @@ -15532,8 +15449,8 @@ "i4420" "i4418"))) (hygiene guile)) - #{p\ 4439}#) - (#{quasicons\ 4423}# + #{p 4439}#) + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -15584,13 +15501,13 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - (list #{p\ 4439}#) - (1- #{lev\ 4433}#))))) - #{tmp\ 4437}#) - (let ((#{tmp\ 4440}# + (#{quasi 4419}# + (list #{p 4439}#) + (#{1-}# #{lev 4433}#))))) + #{tmp 4437}#) + (let ((#{tmp 4440}# ($sc-dispatch - #{tmp\ 4436}# + #{tmp 4436}# '(#(free-id #(syntax-object quasiquote @@ -15617,10 +15534,10 @@ "i4418"))) (hygiene guile))) any)))) - (if #{tmp\ 4440}# + (if #{tmp 4440}# (@apply - (lambda (#{p\ 4442}#) - (#{quasicons\ 4423}# + (lambda (#{p 4442}#) + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -15671,19 +15588,19 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - (list #{p\ 4442}#) - (1+ #{lev\ 4433}#)))) - #{tmp\ 4440}#) - (let ((#{tmp\ 4443}# - ($sc-dispatch #{tmp\ 4436}# '(any . any)))) - (if #{tmp\ 4443}# + (#{quasi 4419}# + (list #{p 4442}#) + (#{1+}# #{lev 4433}#)))) + #{tmp 4440}#) + (let ((#{tmp 4443}# + ($sc-dispatch #{tmp 4436}# '(any . any)))) + (if #{tmp 4443}# (@apply - (lambda (#{p\ 4446}# #{q\ 4447}#) - (let ((#{tmp\ 4448}# #{p\ 4446}#)) - (let ((#{tmp\ 4449}# + (lambda (#{p 4446}# #{q 4447}#) + (let ((#{tmp 4448}# #{p 4446}#)) + (let ((#{tmp 4449}# ($sc-dispatch - #{tmp\ 4448}# + #{tmp 4448}# '(#(free-id #(syntax-object unquote @@ -15721,12 +15638,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp\ 4449}# + (if #{tmp 4449}# (@apply - (lambda (#{p\ 4451}#) - (if (= #{lev\ 4433}# 0) - (#{quasilist*\ 4427}# - (map (lambda (#{tmp\ 4452}#) + (lambda (#{p 4451}#) + (if (= #{lev 4433}# 0) + (#{quasilist* 4427}# + (map (lambda (#{tmp 4452}#) (list '#(syntax-object "value" ((top) @@ -15767,13 +15684,13 @@ "i4420" "i4418"))) (hygiene guile)) - #{tmp\ 4452}#)) - #{p\ 4451}#) - (#{quasi\ 4419}# - #{q\ 4447}# - #{lev\ 4433}#)) - (#{quasicons\ 4423}# - (#{quasicons\ 4423}# + #{tmp 4452}#)) + #{p 4451}#) + (#{quasi 4419}# + #{q 4447}# + #{lev 4433}#)) + (#{quasicons 4423}# + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -15850,16 +15767,16 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - #{p\ 4451}# - (1- #{lev\ 4433}#))) - (#{quasi\ 4419}# - #{q\ 4447}# - #{lev\ 4433}#)))) - #{tmp\ 4449}#) - (let ((#{tmp\ 4454}# + (#{quasi 4419}# + #{p 4451}# + (#{1-}# #{lev 4433}#))) + (#{quasi 4419}# + #{q 4447}# + #{lev 4433}#)))) + #{tmp 4449}#) + (let ((#{tmp 4454}# ($sc-dispatch - #{tmp\ 4448}# + #{tmp 4448}# '(#(free-id #(syntax-object unquote-splicing @@ -15897,12 +15814,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp\ 4454}# + (if #{tmp 4454}# (@apply - (lambda (#{p\ 4456}#) - (if (= #{lev\ 4433}# 0) - (#{quasiappend\ 4425}# - (map (lambda (#{tmp\ 4457}#) + (lambda (#{p 4456}#) + (if (= #{lev 4433}# 0) + (#{quasiappend 4425}# + (map (lambda (#{tmp 4457}#) (list '#(syntax-object "value" ((top) @@ -15948,13 +15865,13 @@ "i4420" "i4418"))) (hygiene guile)) - #{tmp\ 4457}#)) - #{p\ 4456}#) - (#{quasi\ 4419}# - #{q\ 4447}# - #{lev\ 4433}#)) - (#{quasicons\ 4423}# - (#{quasicons\ 4423}# + #{tmp 4457}#)) + #{p 4456}#) + (#{quasi 4419}# + #{q 4447}# + #{lev 4433}#)) + (#{quasicons 4423}# + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -16031,35 +15948,33 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - #{p\ 4456}# - (1- #{lev\ 4433}#))) - (#{quasi\ 4419}# - #{q\ 4447}# - #{lev\ 4433}#)))) - #{tmp\ 4454}#) - (let ((#{_\ 4460}# #{tmp\ 4448}#)) - (#{quasicons\ 4423}# - (#{quasi\ 4419}# - #{p\ 4446}# - #{lev\ 4433}#) - (#{quasi\ 4419}# - #{q\ 4447}# - #{lev\ 4433}#))))))))) - #{tmp\ 4443}#) - (let ((#{tmp\ 4461}# + (#{quasi 4419}# + #{p 4456}# + (#{1-}# #{lev 4433}#))) + (#{quasi 4419}# + #{q 4447}# + #{lev 4433}#)))) + #{tmp 4454}#) + (let ((#{_ 4460}# #{tmp 4448}#)) + (#{quasicons 4423}# + (#{quasi 4419}# + #{p 4446}# + #{lev 4433}#) + (#{quasi 4419}# + #{q 4447}# + #{lev 4433}#))))))))) + #{tmp 4443}#) + (let ((#{tmp 4461}# ($sc-dispatch - #{tmp\ 4436}# + #{tmp 4436}# '#(vector each-any)))) - (if #{tmp\ 4461}# + (if #{tmp 4461}# (@apply - (lambda (#{x\ 4463}#) - (#{quasivector\ 4429}# - (#{vquasi\ 4421}# - #{x\ 4463}# - #{lev\ 4433}#))) - #{tmp\ 4461}#) - (let ((#{p\ 4466}# #{tmp\ 4436}#)) + (lambda (#{x 4463}#) + (#{quasivector 4429}# + (#{vquasi 4421}# #{x 4463}# #{lev 4433}#))) + #{tmp 4461}#) + (let ((#{p 4466}# #{tmp 4436}#)) (list '#(syntax-object "quote" ((top) @@ -16091,19 +16006,19 @@ "i4420" "i4418"))) (hygiene guile)) - #{p\ 4466}#))))))))))))) - (#{vquasi\ 4421}# - (lambda (#{p\ 4467}# #{lev\ 4468}#) - (let ((#{tmp\ 4471}# #{p\ 4467}#)) - (let ((#{tmp\ 4472}# - ($sc-dispatch #{tmp\ 4471}# '(any . any)))) - (if #{tmp\ 4472}# + #{p 4466}#))))))))))))) + (#{vquasi 4421}# + (lambda (#{p 4467}# #{lev 4468}#) + (let ((#{tmp 4471}# #{p 4467}#)) + (let ((#{tmp 4472}# + ($sc-dispatch #{tmp 4471}# '(any . any)))) + (if #{tmp 4472}# (@apply - (lambda (#{p\ 4475}# #{q\ 4476}#) - (let ((#{tmp\ 4477}# #{p\ 4475}#)) - (let ((#{tmp\ 4478}# + (lambda (#{p 4475}# #{q 4476}#) + (let ((#{tmp 4477}# #{p 4475}#)) + (let ((#{tmp 4478}# ($sc-dispatch - #{tmp\ 4477}# + #{tmp 4477}# '(#(free-id #(syntax-object unquote @@ -16141,12 +16056,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp\ 4478}# + (if #{tmp 4478}# (@apply - (lambda (#{p\ 4480}#) - (if (= #{lev\ 4468}# 0) - (#{quasilist*\ 4427}# - (map (lambda (#{tmp\ 4481}#) + (lambda (#{p 4480}#) + (if (= #{lev 4468}# 0) + (#{quasilist* 4427}# + (map (lambda (#{tmp 4481}#) (list '#(syntax-object "value" ((top) @@ -16185,13 +16100,11 @@ "i4420" "i4418"))) (hygiene guile)) - #{tmp\ 4481}#)) - #{p\ 4480}#) - (#{vquasi\ 4421}# - #{q\ 4476}# - #{lev\ 4468}#)) - (#{quasicons\ 4423}# - (#{quasicons\ 4423}# + #{tmp 4481}#)) + #{p 4480}#) + (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)) + (#{quasicons 4423}# + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -16262,16 +16175,14 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - #{p\ 4480}# - (1- #{lev\ 4468}#))) - (#{vquasi\ 4421}# - #{q\ 4476}# - #{lev\ 4468}#)))) - #{tmp\ 4478}#) - (let ((#{tmp\ 4483}# + (#{quasi 4419}# + #{p 4480}# + (#{1-}# #{lev 4468}#))) + (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)))) + #{tmp 4478}#) + (let ((#{tmp 4483}# ($sc-dispatch - #{tmp\ 4477}# + #{tmp 4477}# '(#(free-id #(syntax-object unquote-splicing @@ -16309,12 +16220,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp\ 4483}# + (if #{tmp 4483}# (@apply - (lambda (#{p\ 4485}#) - (if (= #{lev\ 4468}# 0) - (#{quasiappend\ 4425}# - (map (lambda (#{tmp\ 4486}#) + (lambda (#{p 4485}#) + (if (= #{lev 4468}# 0) + (#{quasiappend 4425}# + (map (lambda (#{tmp 4486}#) (list '#(syntax-object "value" ((top) @@ -16353,13 +16264,13 @@ "i4420" "i4418"))) (hygiene guile)) - #{tmp\ 4486}#)) - #{p\ 4485}#) - (#{vquasi\ 4421}# - #{q\ 4476}# - #{lev\ 4468}#)) - (#{quasicons\ 4423}# - (#{quasicons\ 4423}# + #{tmp 4486}#)) + #{p 4485}#) + (#{vquasi 4421}# + #{q 4476}# + #{lev 4468}#)) + (#{quasicons 4423}# + (#{quasicons 4423}# '(#(syntax-object "quote" ((top) @@ -16436,22 +16347,22 @@ "i4420" "i4418"))) (hygiene guile))) - (#{quasi\ 4419}# - #{p\ 4485}# - (1- #{lev\ 4468}#))) - (#{vquasi\ 4421}# - #{q\ 4476}# - #{lev\ 4468}#)))) - #{tmp\ 4483}#) - (let ((#{_\ 4489}# #{tmp\ 4477}#)) - (#{quasicons\ 4423}# - (#{quasi\ 4419}# #{p\ 4475}# #{lev\ 4468}#) - (#{vquasi\ 4421}# - #{q\ 4476}# - #{lev\ 4468}#))))))))) - #{tmp\ 4472}#) - (let ((#{tmp\ 4490}# ($sc-dispatch #{tmp\ 4471}# '()))) - (if #{tmp\ 4490}# + (#{quasi 4419}# + #{p 4485}# + (#{1-}# #{lev 4468}#))) + (#{vquasi 4421}# + #{q 4476}# + #{lev 4468}#)))) + #{tmp 4483}#) + (let ((#{_ 4489}# #{tmp 4477}#)) + (#{quasicons 4423}# + (#{quasi 4419}# #{p 4475}# #{lev 4468}#) + (#{vquasi 4421}# + #{q 4476}# + #{lev 4468}#))))))))) + #{tmp 4472}#) + (let ((#{tmp 4490}# ($sc-dispatch #{tmp 4471}# '()))) + (if #{tmp 4490}# (@apply (lambda () '(#(syntax-object @@ -16479,35 +16390,35 @@ "i4418"))) (hygiene guile)) ())) - #{tmp\ 4490}#) + #{tmp 4490}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4471}#)))))))) - (#{quasicons\ 4423}# - (lambda (#{x\ 4491}# #{y\ 4492}#) - (let ((#{tmp\ 4496}# (list #{x\ 4491}# #{y\ 4492}#))) - (let ((#{tmp\ 4497}# - ($sc-dispatch #{tmp\ 4496}# '(any any)))) - (if #{tmp\ 4497}# + #{tmp 4471}#)))))))) + (#{quasicons 4423}# + (lambda (#{x 4491}# #{y 4492}#) + (let ((#{tmp 4496}# (list #{x 4491}# #{y 4492}#))) + (let ((#{tmp 4497}# + ($sc-dispatch #{tmp 4496}# '(any any)))) + (if #{tmp 4497}# (@apply - (lambda (#{x\ 4500}# #{y\ 4501}#) - (let ((#{tmp\ 4502}# #{y\ 4501}#)) - (let ((#{tmp\ 4503}# + (lambda (#{x 4500}# #{y 4501}#) + (let ((#{tmp 4502}# #{y 4501}#)) + (let ((#{tmp 4503}# ($sc-dispatch - #{tmp\ 4502}# + #{tmp 4502}# '(#(atom "quote") any)))) - (if #{tmp\ 4503}# + (if #{tmp 4503}# (@apply - (lambda (#{dy\ 4505}#) - (let ((#{tmp\ 4506}# #{x\ 4500}#)) - (let ((#{tmp\ 4507}# + (lambda (#{dy 4505}#) + (let ((#{tmp 4506}# #{x 4500}#)) + (let ((#{tmp 4507}# ($sc-dispatch - #{tmp\ 4506}# + #{tmp 4506}# '(#(atom "quote") any)))) - (if #{tmp\ 4507}# + (if #{tmp 4507}# (@apply - (lambda (#{dx\ 4509}#) + (lambda (#{dx 4509}#) (list '#(syntax-object "quote" ((top) @@ -16552,11 +16463,10 @@ "i4420" "i4418"))) (hygiene guile)) - (cons #{dx\ 4509}# - #{dy\ 4505}#))) - #{tmp\ 4507}#) - (let ((#{_\ 4511}# #{tmp\ 4506}#)) - (if (null? #{dy\ 4505}#) + (cons #{dx 4509}# #{dy 4505}#))) + #{tmp 4507}#) + (let ((#{_ 4511}# #{tmp 4506}#)) + (if (null? #{dy 4505}#) (list '#(syntax-object "list" ((top) @@ -16601,7 +16511,7 @@ "i4420" "i4418"))) (hygiene guile)) - #{x\ 4500}#) + #{x 4500}#) (list '#(syntax-object "list*" ((top) @@ -16646,16 +16556,16 @@ "i4420" "i4418"))) (hygiene guile)) - #{x\ 4500}# - #{y\ 4501}#))))))) - #{tmp\ 4503}#) - (let ((#{tmp\ 4512}# + #{x 4500}# + #{y 4501}#))))))) + #{tmp 4503}#) + (let ((#{tmp 4512}# ($sc-dispatch - #{tmp\ 4502}# + #{tmp 4502}# '(#(atom "list") . any)))) - (if #{tmp\ 4512}# + (if #{tmp 4512}# (@apply - (lambda (#{stuff\ 4514}#) + (lambda (#{stuff 4514}#) (cons '#(syntax-object "list" ((top) @@ -16696,15 +16606,15 @@ "i4420" "i4418"))) (hygiene guile)) - (cons #{x\ 4500}# #{stuff\ 4514}#))) - #{tmp\ 4512}#) - (let ((#{tmp\ 4515}# + (cons #{x 4500}# #{stuff 4514}#))) + #{tmp 4512}#) + (let ((#{tmp 4515}# ($sc-dispatch - #{tmp\ 4502}# + #{tmp 4502}# '(#(atom "list*") . any)))) - (if #{tmp\ 4515}# + (if #{tmp 4515}# (@apply - (lambda (#{stuff\ 4517}#) + (lambda (#{stuff 4517}#) (cons '#(syntax-object "list*" ((top) @@ -16745,10 +16655,9 @@ "i4420" "i4418"))) (hygiene guile)) - (cons #{x\ 4500}# - #{stuff\ 4517}#))) - #{tmp\ 4515}#) - (let ((#{_\ 4519}# #{tmp\ 4502}#)) + (cons #{x 4500}# #{stuff 4517}#))) + #{tmp 4515}#) + (let ((#{_ 4519}# #{tmp 4502}#)) (list '#(syntax-object "list*" ((top) @@ -16789,24 +16698,22 @@ "i4420" "i4418"))) (hygiene guile)) - #{x\ 4500}# - #{y\ 4501}#)))))))))) - #{tmp\ 4497}#) + #{x 4500}# + #{y 4501}#)))))))))) + #{tmp 4497}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4496}#)))))) - (#{quasiappend\ 4425}# - (lambda (#{x\ 4520}# #{y\ 4521}#) - (let ((#{tmp\ 4524}# #{y\ 4521}#)) - (let ((#{tmp\ 4525}# - ($sc-dispatch - #{tmp\ 4524}# - '(#(atom "quote") ())))) - (if #{tmp\ 4525}# + #{tmp 4496}#)))))) + (#{quasiappend 4425}# + (lambda (#{x 4520}# #{y 4521}#) + (let ((#{tmp 4524}# #{y 4521}#)) + (let ((#{tmp 4525}# + ($sc-dispatch #{tmp 4524}# '(#(atom "quote") ())))) + (if #{tmp 4525}# (@apply (lambda () - (if (null? #{x\ 4520}#) + (if (null? #{x 4520}#) '(#(syntax-object "quote" ((top) @@ -16832,14 +16739,14 @@ "i4418"))) (hygiene guile)) ()) - (if (null? (cdr #{x\ 4520}#)) - (car #{x\ 4520}#) - (let ((#{tmp\ 4532}# #{x\ 4520}#)) - (let ((#{tmp\ 4533}# - ($sc-dispatch #{tmp\ 4532}# 'each-any))) - (if #{tmp\ 4533}# + (if (null? (cdr #{x 4520}#)) + (car #{x 4520}#) + (let ((#{tmp 4532}# #{x 4520}#)) + (let ((#{tmp 4533}# + ($sc-dispatch #{tmp 4532}# 'each-any))) + (if #{tmp 4533}# (@apply - (lambda (#{p\ 4535}#) + (lambda (#{p 4535}#) (cons '#(syntax-object "append" ((top) @@ -16875,22 +16782,22 @@ "i4420" "i4418"))) (hygiene guile)) - #{p\ 4535}#)) - #{tmp\ 4533}#) + #{p 4535}#)) + #{tmp 4533}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4532}#))))))) - #{tmp\ 4525}#) - (let ((#{_\ 4538}# #{tmp\ 4524}#)) - (if (null? #{x\ 4520}#) - #{y\ 4521}# - (let ((#{tmp\ 4543}# (list #{x\ 4520}# #{y\ 4521}#))) - (let ((#{tmp\ 4544}# - ($sc-dispatch #{tmp\ 4543}# '(each-any any)))) - (if #{tmp\ 4544}# + #{tmp 4532}#))))))) + #{tmp 4525}#) + (let ((#{_ 4538}# #{tmp 4524}#)) + (if (null? #{x 4520}#) + #{y 4521}# + (let ((#{tmp 4543}# (list #{x 4520}# #{y 4521}#))) + (let ((#{tmp 4544}# + ($sc-dispatch #{tmp 4543}# '(each-any any)))) + (if #{tmp 4544}# (@apply - (lambda (#{p\ 4547}# #{y\ 4548}#) + (lambda (#{p 4547}# #{y 4548}#) (cons '#(syntax-object "append" ((top) @@ -16927,33 +16834,33 @@ "i4420" "i4418"))) (hygiene guile)) - (append #{p\ 4547}# (list #{y\ 4548}#)))) - #{tmp\ 4544}#) + (append #{p 4547}# (list #{y 4548}#)))) + #{tmp 4544}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4543}#))))))))))) - (#{quasilist*\ 4427}# - (lambda (#{x\ 4550}# #{y\ 4551}#) + #{tmp 4543}#))))))))))) + (#{quasilist* 4427}# + (lambda (#{x 4550}# #{y 4551}#) (letrec* - ((#{f\ 4556}# - (lambda (#{x\ 4557}#) - (if (null? #{x\ 4557}#) - #{y\ 4551}# - (#{quasicons\ 4423}# - (car #{x\ 4557}#) - (#{f\ 4556}# (cdr #{x\ 4557}#))))))) - (begin (#{f\ 4556}# #{x\ 4550}#))))) - (#{quasivector\ 4429}# - (lambda (#{x\ 4558}#) - (let ((#{tmp\ 4560}# #{x\ 4558}#)) - (let ((#{tmp\ 4561}# + ((#{f 4556}# + (lambda (#{x 4557}#) + (if (null? #{x 4557}#) + #{y 4551}# + (#{quasicons 4423}# + (car #{x 4557}#) + (#{f 4556}# (cdr #{x 4557}#))))))) + (begin (#{f 4556}# #{x 4550}#))))) + (#{quasivector 4429}# + (lambda (#{x 4558}#) + (let ((#{tmp 4560}# #{x 4558}#)) + (let ((#{tmp 4561}# ($sc-dispatch - #{tmp\ 4560}# + #{tmp 4560}# '(#(atom "quote") each-any)))) - (if #{tmp\ 4561}# + (if #{tmp 4561}# (@apply - (lambda (#{x\ 4563}#) + (lambda (#{x 4563}#) (list '#(syntax-object "quote" ((top) @@ -16976,22 +16883,22 @@ "i4420" "i4418"))) (hygiene guile)) - (list->vector #{x\ 4563}#))) - #{tmp\ 4561}#) - (let ((#{_\ 4566}# #{tmp\ 4560}#)) + (list->vector #{x 4563}#))) + #{tmp 4561}#) + (let ((#{_ 4566}# #{tmp 4560}#)) (letrec* - ((#{f\ 4570}# - (lambda (#{y\ 4571}# #{k\ 4572}#) - (let ((#{tmp\ 4583}# #{y\ 4571}#)) - (let ((#{tmp\ 4584}# + ((#{f 4570}# + (lambda (#{y 4571}# #{k 4572}#) + (let ((#{tmp 4583}# #{y 4571}#)) + (let ((#{tmp 4584}# ($sc-dispatch - #{tmp\ 4583}# + #{tmp 4583}# '(#(atom "quote") each-any)))) - (if #{tmp\ 4584}# + (if #{tmp 4584}# (@apply - (lambda (#{y\ 4586}#) - (#{k\ 4572}# - (map (lambda (#{tmp\ 4587}#) + (lambda (#{y 4586}#) + (#{k 4572}# + (map (lambda (#{tmp 4587}#) (list '#(syntax-object "quote" ((top) @@ -17037,45 +16944,45 @@ "i4420" "i4418"))) (hygiene guile)) - #{tmp\ 4587}#)) - #{y\ 4586}#))) - #{tmp\ 4584}#) - (let ((#{tmp\ 4588}# + #{tmp 4587}#)) + #{y 4586}#))) + #{tmp 4584}#) + (let ((#{tmp 4588}# ($sc-dispatch - #{tmp\ 4583}# + #{tmp 4583}# '(#(atom "list") . each-any)))) - (if #{tmp\ 4588}# + (if #{tmp 4588}# (@apply - (lambda (#{y\ 4590}#) - (#{k\ 4572}# #{y\ 4590}#)) - #{tmp\ 4588}#) - (let ((#{tmp\ 4592}# + (lambda (#{y 4590}#) + (#{k 4572}# #{y 4590}#)) + #{tmp 4588}#) + (let ((#{tmp 4592}# ($sc-dispatch - #{tmp\ 4583}# + #{tmp 4583}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp\ 4592}# + (if #{tmp 4592}# (@apply - (lambda (#{y\ 4595}# #{z\ 4596}#) - (#{f\ 4570}# - #{z\ 4596}# - (lambda (#{ls\ 4597}#) - (#{k\ 4572}# + (lambda (#{y 4595}# #{z 4596}#) + (#{f 4570}# + #{z 4596}# + (lambda (#{ls 4597}#) + (#{k 4572}# (append - #{y\ 4595}# - #{ls\ 4597}#))))) - #{tmp\ 4592}#) - (let ((#{else\ 4601}# #{tmp\ 4583}#)) - (let ((#{tmp\ 4605}# #{x\ 4558}#)) - (let ((#{\ g4602\ 4607}# - #{tmp\ 4605}#)) + #{y 4595}# + #{ls 4597}#))))) + #{tmp 4592}#) + (let ((#{else 4601}# #{tmp 4583}#)) + (let ((#{tmp 4605}# #{x 4558}#)) + (let ((#{ g4602 4607}# + #{tmp 4605}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4602}#) + #(#{ g4602}#) #((m4603 top)) #("i4606")) #(ribcage @@ -17120,23 +17027,23 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4602\ 4607}#)))))))))))))) + #{ g4602 4607}#)))))))))))))) (begin - (#{f\ 4570}# - #{x\ 4558}# - (lambda (#{ls\ 4573}#) - (let ((#{tmp\ 4578}# #{ls\ 4573}#)) - (let ((#{tmp\ 4579}# - ($sc-dispatch #{tmp\ 4578}# 'each-any))) - (if #{tmp\ 4579}# + (#{f 4570}# + #{x 4558}# + (lambda (#{ls 4573}#) + (let ((#{tmp 4578}# #{ls 4573}#)) + (let ((#{tmp 4579}# + ($sc-dispatch #{tmp 4578}# 'each-any))) + (if #{tmp 4579}# (@apply - (lambda (#{\ g4575\ 4581}#) + (lambda (#{ g4575 4581}#) (cons '#(syntax-object "vector" ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4575}#) + #(#{ g4575}#) #((m4576 top)) #("i4580")) #(ribcage () () ()) @@ -17177,22 +17084,22 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4575\ 4581}#)) - #{tmp\ 4579}#) + #{ g4575 4581}#)) + #{tmp 4579}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4578}#)))))))))))))) - (#{emit\ 4431}# - (lambda (#{x\ 4608}#) - (let ((#{tmp\ 4610}# #{x\ 4608}#)) - (let ((#{tmp\ 4611}# + #{tmp 4578}#)))))))))))))) + (#{emit 4431}# + (lambda (#{x 4608}#) + (let ((#{tmp 4610}# #{x 4608}#)) + (let ((#{tmp 4611}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "quote") any)))) - (if #{tmp\ 4611}# + (if #{tmp 4611}# (@apply - (lambda (#{x\ 4613}#) + (lambda (#{x 4613}#) (list '#(syntax-object quote ((top) @@ -17215,28 +17122,27 @@ "i4420" "i4418"))) (hygiene guile)) - #{x\ 4613}#)) - #{tmp\ 4611}#) - (let ((#{tmp\ 4614}# + #{x 4613}#)) + #{tmp 4611}#) + (let ((#{tmp 4614}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "list") . each-any)))) - (if #{tmp\ 4614}# + (if #{tmp 4614}# (@apply - (lambda (#{x\ 4616}#) - (let ((#{tmp\ 4620}# - (map #{emit\ 4431}# #{x\ 4616}#))) - (let ((#{tmp\ 4621}# - ($sc-dispatch #{tmp\ 4620}# 'each-any))) - (if #{tmp\ 4621}# + (lambda (#{x 4616}#) + (let ((#{tmp 4620}# (map #{emit 4431}# #{x 4616}#))) + (let ((#{tmp 4621}# + ($sc-dispatch #{tmp 4620}# 'each-any))) + (if #{tmp 4621}# (@apply - (lambda (#{\ g4617\ 4623}#) + (lambda (#{ g4617 4623}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4617}#) + #(#{ g4617}#) #((m4618 top)) #("i4622")) #(ribcage @@ -17270,45 +17176,45 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4617\ 4623}#)) - #{tmp\ 4621}#) + #{ g4617 4623}#)) + #{tmp 4621}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4620}#))))) - #{tmp\ 4614}#) - (let ((#{tmp\ 4626}# + #{tmp 4620}#))))) + #{tmp 4614}#) + (let ((#{tmp 4626}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp\ 4626}# + (if #{tmp 4626}# (@apply - (lambda (#{x\ 4629}# #{y\ 4630}#) + (lambda (#{x 4629}# #{y 4630}#) (letrec* - ((#{f\ 4633}# - (lambda (#{x*\ 4634}#) - (if (null? #{x*\ 4634}#) - (#{emit\ 4431}# #{y\ 4630}#) - (let ((#{tmp\ 4640}# - (list (#{emit\ 4431}# - (car #{x*\ 4634}#)) - (#{f\ 4633}# - (cdr #{x*\ 4634}#))))) - (let ((#{tmp\ 4641}# + ((#{f 4633}# + (lambda (#{x* 4634}#) + (if (null? #{x* 4634}#) + (#{emit 4431}# #{y 4630}#) + (let ((#{tmp 4640}# + (list (#{emit 4431}# + (car #{x* 4634}#)) + (#{f 4633}# + (cdr #{x* 4634}#))))) + (let ((#{tmp 4641}# ($sc-dispatch - #{tmp\ 4640}# + #{tmp 4640}# '(any any)))) - (if #{tmp\ 4641}# + (if #{tmp 4641}# (@apply - (lambda (#{\ g4637\ 4644}# - #{\ g4636\ 4645}#) + (lambda (#{ g4637 4644}# + #{ g4636 4645}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4637}# - #{\ g4636}#) + #(#{ g4637}# + #{ g4636}#) #((m4638 top) (m4638 top)) #("i4642" "i4643")) @@ -17348,37 +17254,37 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4637\ 4644}# - #{\ g4636\ 4645}#)) - #{tmp\ 4641}#) + #{ g4637 4644}# + #{ g4636 4645}#)) + #{tmp 4641}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4640}#)))))))) - (begin (#{f\ 4633}# #{x\ 4629}#)))) - #{tmp\ 4626}#) - (let ((#{tmp\ 4646}# + #{tmp 4640}#)))))))) + (begin (#{f 4633}# #{x 4629}#)))) + #{tmp 4626}#) + (let ((#{tmp 4646}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "append") . each-any)))) - (if #{tmp\ 4646}# + (if #{tmp 4646}# (@apply - (lambda (#{x\ 4648}#) - (let ((#{tmp\ 4652}# - (map #{emit\ 4431}# #{x\ 4648}#))) - (let ((#{tmp\ 4653}# + (lambda (#{x 4648}#) + (let ((#{tmp 4652}# + (map #{emit 4431}# #{x 4648}#))) + (let ((#{tmp 4653}# ($sc-dispatch - #{tmp\ 4652}# + #{tmp 4652}# 'each-any))) - (if #{tmp\ 4653}# + (if #{tmp 4653}# (@apply - (lambda (#{\ g4649\ 4655}#) + (lambda (#{ g4649 4655}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4649}#) + #(#{ g4649}#) #((m4650 top)) #("i4654")) #(ribcage @@ -17412,35 +17318,35 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4649\ 4655}#)) - #{tmp\ 4653}#) + #{ g4649 4655}#)) + #{tmp 4653}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4652}#))))) - #{tmp\ 4646}#) - (let ((#{tmp\ 4658}# + #{tmp 4652}#))))) + #{tmp 4646}#) + (let ((#{tmp 4658}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "vector") . each-any)))) - (if #{tmp\ 4658}# + (if #{tmp 4658}# (@apply - (lambda (#{x\ 4660}#) - (let ((#{tmp\ 4664}# - (map #{emit\ 4431}# #{x\ 4660}#))) - (let ((#{tmp\ 4665}# + (lambda (#{x 4660}#) + (let ((#{tmp 4664}# + (map #{emit 4431}# #{x 4660}#))) + (let ((#{tmp 4665}# ($sc-dispatch - #{tmp\ 4664}# + #{tmp 4664}# 'each-any))) - (if #{tmp\ 4665}# + (if #{tmp 4665}# (@apply - (lambda (#{\ g4661\ 4667}#) + (lambda (#{ g4661 4667}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4661}#) + #(#{ g4661}#) #((m4662 top)) #("i4666")) #(ribcage @@ -17474,30 +17380,30 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4661\ 4667}#)) - #{tmp\ 4665}#) + #{ g4661 4667}#)) + #{tmp 4665}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4664}#))))) - #{tmp\ 4658}#) - (let ((#{tmp\ 4670}# + #{tmp 4664}#))))) + #{tmp 4658}#) + (let ((#{tmp 4670}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "list->vector") any)))) - (if #{tmp\ 4670}# + (if #{tmp 4670}# (@apply - (lambda (#{x\ 4672}#) - (let ((#{tmp\ 4676}# - (#{emit\ 4431}# #{x\ 4672}#))) - (let ((#{\ g4673\ 4678}# - #{tmp\ 4676}#)) + (lambda (#{x 4672}#) + (let ((#{tmp 4676}# + (#{emit 4431}# #{x 4672}#))) + (let ((#{ g4673 4678}# + #{tmp 4676}#)) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{\ g4673}#) + #(#{ g4673}#) #((m4674 top)) #("i4677")) #(ribcage @@ -17531,75 +17437,75 @@ "i4420" "i4418"))) (hygiene guile)) - #{\ g4673\ 4678}#)))) - #{tmp\ 4670}#) - (let ((#{tmp\ 4679}# + #{ g4673 4678}#)))) + #{tmp 4670}#) + (let ((#{tmp 4679}# ($sc-dispatch - #{tmp\ 4610}# + #{tmp 4610}# '(#(atom "value") any)))) - (if #{tmp\ 4679}# + (if #{tmp 4679}# (@apply - (lambda (#{x\ 4681}#) #{x\ 4681}#) - #{tmp\ 4679}#) + (lambda (#{x 4681}#) #{x 4681}#) + #{tmp 4679}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4610}#))))))))))))))))))) + #{tmp 4610}#))))))))))))))))))) (begin - (lambda (#{x\ 4682}#) - (let ((#{tmp\ 4684}# #{x\ 4682}#)) - (let ((#{tmp\ 4685}# - ($sc-dispatch #{tmp\ 4684}# '(_ any)))) - (if #{tmp\ 4685}# + (lambda (#{x 4682}#) + (let ((#{tmp 4684}# #{x 4682}#)) + (let ((#{tmp 4685}# + ($sc-dispatch #{tmp 4684}# '(_ any)))) + (if #{tmp 4685}# (@apply - (lambda (#{e\ 4687}#) - (#{emit\ 4431}# (#{quasi\ 4419}# #{e\ 4687}# 0))) - #{tmp\ 4685}#) + (lambda (#{e 4687}#) + (#{emit 4431}# (#{quasi 4419}# #{e 4687}# 0))) + #{tmp 4685}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4684}#))))))))) + #{tmp 4684}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x\ 4688}#) + (lambda (#{x 4688}#) (letrec* - ((#{read-file\ 4691}# - (lambda (#{fn\ 4692}# #{k\ 4693}#) + ((#{read-file 4691}# + (lambda (#{fn 4692}# #{k 4693}#) (begin - (let ((#{p\ 4697}# (open-input-file #{fn\ 4692}#))) + (let ((#{p 4697}# (open-input-file #{fn 4692}#))) (letrec* - ((#{f\ 4701}# - (lambda (#{x\ 4702}# #{result\ 4703}#) - (if (eof-object? #{x\ 4702}#) + ((#{f 4701}# + (lambda (#{x 4702}# #{result 4703}#) + (if (eof-object? #{x 4702}#) (begin - (close-input-port #{p\ 4697}#) - (reverse #{result\ 4703}#)) - (#{f\ 4701}# - (read #{p\ 4697}#) - (cons (datum->syntax #{k\ 4693}# #{x\ 4702}#) - #{result\ 4703}#)))))) - (begin (#{f\ 4701}# (read #{p\ 4697}#) '())))))))) + (close-input-port #{p 4697}#) + (reverse #{result 4703}#)) + (#{f 4701}# + (read #{p 4697}#) + (cons (datum->syntax #{k 4693}# #{x 4702}#) + #{result 4703}#)))))) + (begin (#{f 4701}# (read #{p 4697}#) '())))))))) (begin - (let ((#{tmp\ 4704}# #{x\ 4688}#)) - (let ((#{tmp\ 4705}# - ($sc-dispatch #{tmp\ 4704}# '(any any)))) - (if #{tmp\ 4705}# + (let ((#{tmp 4704}# #{x 4688}#)) + (let ((#{tmp 4705}# + ($sc-dispatch #{tmp 4704}# '(any any)))) + (if #{tmp 4705}# (@apply - (lambda (#{k\ 4708}# #{filename\ 4709}#) + (lambda (#{k 4708}# #{filename 4709}#) (begin - (let ((#{fn\ 4711}# (syntax->datum #{filename\ 4709}#))) - (let ((#{tmp\ 4713}# - (#{read-file\ 4691}# - #{fn\ 4711}# - #{filename\ 4709}#))) - (let ((#{tmp\ 4714}# - ($sc-dispatch #{tmp\ 4713}# 'each-any))) - (if #{tmp\ 4714}# + (let ((#{fn 4711}# (syntax->datum #{filename 4709}#))) + (let ((#{tmp 4713}# + (#{read-file 4691}# + #{fn 4711}# + #{filename 4709}#))) + (let ((#{tmp 4714}# + ($sc-dispatch #{tmp 4713}# 'each-any))) + (if #{tmp 4714}# (@apply - (lambda (#{exp\ 4716}#) + (lambda (#{exp 4716}#) (cons '#(syntax-object begin ((top) @@ -17627,45 +17533,45 @@ #((top)) #("i4689"))) (hygiene guile)) - #{exp\ 4716}#)) - #{tmp\ 4714}#) + #{exp 4716}#)) + #{tmp 4714}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4713}#))))))) - #{tmp\ 4705}#) + #{tmp 4713}#))))))) + #{tmp 4705}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4704}#))))))))) + #{tmp 4704}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x\ 4718}#) - (let ((#{tmp\ 4720}# #{x\ 4718}#)) - (let ((#{tmp\ 4721}# - ($sc-dispatch #{tmp\ 4720}# '(any any)))) - (if #{tmp\ 4721}# + (lambda (#{x 4718}#) + (let ((#{tmp 4720}# #{x 4718}#)) + (let ((#{tmp 4721}# + ($sc-dispatch #{tmp 4720}# '(any any)))) + (if #{tmp 4721}# (@apply - (lambda (#{k\ 4724}# #{filename\ 4725}#) + (lambda (#{k 4724}# #{filename 4725}#) (begin - (let ((#{fn\ 4727}# (syntax->datum #{filename\ 4725}#))) - (let ((#{tmp\ 4729}# + (let ((#{fn 4727}# (syntax->datum #{filename 4725}#))) + (let ((#{tmp 4729}# (datum->syntax - #{filename\ 4725}# + #{filename 4725}# (begin - (let ((#{t\ 4734}# - (%search-load-path #{fn\ 4727}#))) - (if #{t\ 4734}# - #{t\ 4734}# + (let ((#{t 4734}# + (%search-load-path #{fn 4727}#))) + (if #{t 4734}# + #{t 4734}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4718}# - #{filename\ 4725}#))))))) - (let ((#{fn\ 4731}# #{tmp\ 4729}#)) + #{x 4718}# + #{filename 4725}#))))))) + (let ((#{fn 4731}# #{tmp 4729}#)) (list '#(syntax-object include ((top) @@ -17681,55 +17587,55 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4719"))) (hygiene guile)) - #{fn\ 4731}#)))))) - #{tmp\ 4721}#) + #{fn 4731}#)))))) + #{tmp 4721}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4720}#))))))) + #{tmp 4720}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x\ 4736}#) + (lambda (#{x 4736}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4736}#)))) + #{x 4736}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x\ 4738}#) + (lambda (#{x 4738}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4738}#)))) + #{x 4738}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x\ 4740}#) - (let ((#{tmp\ 4742}# #{x\ 4740}#)) - (let ((#{tmp\ 4743}# + (lambda (#{x 4740}#) + (let ((#{tmp 4742}# #{x 4740}#)) + (let ((#{tmp 4743}# ($sc-dispatch - #{tmp\ 4742}# + #{tmp 4742}# '(_ any any . each-any)))) - (if #{tmp\ 4743}# + (if #{tmp 4743}# (@apply - (lambda (#{e\ 4747}# #{m1\ 4748}# #{m2\ 4749}#) - (let ((#{tmp\ 4751}# + (lambda (#{e 4747}# #{m1 4748}# #{m2 4749}#) + (let ((#{tmp 4751}# (letrec* - ((#{f\ 4757}# - (lambda (#{clause\ 4758}# #{clauses\ 4759}#) - (if (null? #{clauses\ 4759}#) - (let ((#{tmp\ 4761}# #{clause\ 4758}#)) - (let ((#{tmp\ 4762}# + ((#{f 4757}# + (lambda (#{clause 4758}# #{clauses 4759}#) + (if (null? #{clauses 4759}#) + (let ((#{tmp 4761}# #{clause 4758}#)) + (let ((#{tmp 4762}# ($sc-dispatch - #{tmp\ 4761}# + #{tmp 4761}# '(#(free-id #(syntax-object else @@ -17756,9 +17662,9 @@ any . each-any)))) - (if #{tmp\ 4762}# + (if #{tmp 4762}# (@apply - (lambda (#{e1\ 4765}# #{e2\ 4766}#) + (lambda (#{e1 4765}# #{e2 4766}#) (cons '#(syntax-object begin ((top) @@ -17785,18 +17691,18 @@ #((top)) #("i4741"))) (hygiene guile)) - (cons #{e1\ 4765}# - #{e2\ 4766}#))) - #{tmp\ 4762}#) - (let ((#{tmp\ 4768}# + (cons #{e1 4765}# + #{e2 4766}#))) + #{tmp 4762}#) + (let ((#{tmp 4768}# ($sc-dispatch - #{tmp\ 4761}# + #{tmp 4761}# '(each-any any . each-any)))) - (if #{tmp\ 4768}# + (if #{tmp 4768}# (@apply - (lambda (#{k\ 4772}# - #{e1\ 4773}# - #{e2\ 4774}#) + (lambda (#{k 4772}# + #{e1 4773}# + #{e2 4774}#) (list '#(syntax-object if ((top) @@ -17956,7 +17862,7 @@ #("i4741"))) (hygiene guile)) - #{k\ 4772}#)) + #{k 4772}#)) (cons '#(syntax-object begin ((top) @@ -17999,30 +17905,30 @@ #((top)) #("i4741"))) (hygiene guile)) - (cons #{e1\ 4773}# - #{e2\ 4774}#)))) - #{tmp\ 4768}#) - (let ((#{_\ 4778}# #{tmp\ 4761}#)) + (cons #{e1 4773}# + #{e2 4774}#)))) + #{tmp 4768}#) + (let ((#{_ 4778}# #{tmp 4761}#)) (syntax-violation 'case "bad clause" - #{x\ 4740}# - #{clause\ 4758}#))))))) - (let ((#{tmp\ 4780}# - (#{f\ 4757}# - (car #{clauses\ 4759}#) - (cdr #{clauses\ 4759}#)))) - (let ((#{rest\ 4782}# #{tmp\ 4780}#)) - (let ((#{tmp\ 4783}# #{clause\ 4758}#)) - (let ((#{tmp\ 4784}# + #{x 4740}# + #{clause 4758}#))))))) + (let ((#{tmp 4780}# + (#{f 4757}# + (car #{clauses 4759}#) + (cdr #{clauses 4759}#)))) + (let ((#{rest 4782}# #{tmp 4780}#)) + (let ((#{tmp 4783}# #{clause 4758}#)) + (let ((#{tmp 4784}# ($sc-dispatch - #{tmp\ 4783}# + #{tmp 4783}# '(each-any any . each-any)))) - (if #{tmp\ 4784}# + (if #{tmp 4784}# (@apply - (lambda (#{k\ 4788}# - #{e1\ 4789}# - #{e2\ 4790}#) + (lambda (#{k 4788}# + #{e1 4789}# + #{e2 4790}#) (list '#(syntax-object if ((top) @@ -18211,7 +18117,7 @@ #("i4741"))) (hygiene guile)) - #{k\ 4788}#)) + #{k 4788}#)) (cons '#(syntax-object begin ((top) @@ -18262,18 +18168,18 @@ #((top)) #("i4741"))) (hygiene guile)) - (cons #{e1\ 4789}# - #{e2\ 4790}#)) - #{rest\ 4782}#)) - #{tmp\ 4784}#) - (let ((#{_\ 4794}# #{tmp\ 4783}#)) + (cons #{e1 4789}# + #{e2 4790}#)) + #{rest 4782}#)) + #{tmp 4784}#) + (let ((#{_ 4794}# #{tmp 4783}#)) (syntax-violation 'case "bad clause" - #{x\ 4740}# - #{clause\ 4758}#))))))))))) - (begin (#{f\ 4757}# #{m1\ 4748}# #{m2\ 4749}#))))) - (let ((#{body\ 4753}# #{tmp\ 4751}#)) + #{x 4740}# + #{clause 4758}#))))))))))) + (begin (#{f 4757}# #{m1 4748}# #{m2 4749}#))))) + (let ((#{body 4753}# #{tmp 4751}#)) (list '#(syntax-object let ((top) @@ -18301,42 +18207,41 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4741"))) (hygiene guile)) - #{e\ 4747}#)) - #{body\ 4753}#)))) - #{tmp\ 4743}#) + #{e 4747}#)) + #{body 4753}#)))) + #{tmp 4743}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4742}#))))))) + #{tmp 4742}#))))))) (define make-variable-transformer - (lambda (#{proc\ 4795}#) - (if (procedure? #{proc\ 4795}#) + (lambda (#{proc 4795}#) + (if (procedure? #{proc 4795}#) (begin (letrec* - ((#{trans\ 4798}# - (lambda (#{x\ 4799}#) - (#{proc\ 4795}# #{x\ 4799}#)))) + ((#{trans 4798}# + (lambda (#{x 4799}#) (#{proc 4795}# #{x 4799}#)))) (begin (set-procedure-property! - #{trans\ 4798}# + #{trans 4798}# 'variable-transformer #t) - #{trans\ 4798}#))) + #{trans 4798}#))) (error "variable transformer not a procedure" - #{proc\ 4795}#)))) + #{proc 4795}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x\ 4801}#) - (let ((#{tmp\ 4803}# #{x\ 4801}#)) - (let ((#{tmp\ 4804}# - ($sc-dispatch #{tmp\ 4803}# '(_ any)))) - (if #{tmp\ 4804}# + (lambda (#{x 4801}#) + (let ((#{tmp 4803}# #{x 4801}#)) + (let ((#{tmp 4804}# + ($sc-dispatch #{tmp 4803}# '(_ any)))) + (if #{tmp 4804}# (@apply - (lambda (#{e\ 4806}#) + (lambda (#{e 4806}#) (list '#(syntax-object lambda ((top) @@ -18419,7 +18324,7 @@ #((top)) #("i4802"))) (hygiene guile)) - #{e\ 4806}#)) + #{e 4806}#)) (list '(#(syntax-object _ ((top) @@ -18451,7 +18356,7 @@ #((top)) #("i4802"))) (hygiene guile)) - (cons #{e\ 4806}# + (cons #{e 4806}# '(#(syntax-object x ((top) @@ -18478,10 +18383,10 @@ #((top)) #("i4802"))) (hygiene guile))))))))) - #{tmp\ 4804}#) - (let ((#{tmp\ 4807}# + #{tmp 4804}#) + (let ((#{tmp 4807}# ($sc-dispatch - #{tmp\ 4803}# + #{tmp 4803}# '(_ (any any) ((#(free-id #(syntax-object @@ -18493,24 +18398,24 @@ any any) any))))) - (if (if #{tmp\ 4807}# + (if (if #{tmp 4807}# (@apply - (lambda (#{id\ 4813}# - #{exp1\ 4814}# - #{var\ 4815}# - #{val\ 4816}# - #{exp2\ 4817}#) - (if (identifier? #{id\ 4813}#) - (identifier? #{var\ 4815}#) + (lambda (#{id 4813}# + #{exp1 4814}# + #{var 4815}# + #{val 4816}# + #{exp2 4817}#) + (if (identifier? #{id 4813}#) + (identifier? #{var 4815}#) #f)) - #{tmp\ 4807}#) + #{tmp 4807}#) #f) (@apply - (lambda (#{id\ 4825}# - #{exp1\ 4826}# - #{var\ 4827}# - #{val\ 4828}# - #{exp2\ 4829}#) + (lambda (#{id 4825}# + #{exp1 4826}# + #{var 4827}# + #{val 4828}# + #{exp2 4829}#) (list '#(syntax-object make-variable-transformer ((top) @@ -18641,8 +18546,8 @@ #((top)) #("i4802"))) (hygiene guile)) - #{var\ 4827}# - #{val\ 4828}#) + #{var 4827}# + #{val 4828}#) (list '#(syntax-object syntax ((top) @@ -18664,8 +18569,8 @@ #((top)) #("i4802"))) (hygiene guile)) - #{exp2\ 4829}#)) - (list (cons #{id\ 4825}# + #{exp2 4829}#)) + (list (cons #{id 4825}# '(#(syntax-object x ((top) @@ -18737,7 +18642,7 @@ #((top)) #("i4802"))) (hygiene guile)) - (cons #{exp1\ 4826}# + (cons #{exp1 4826}# '(#(syntax-object x ((top) @@ -18795,7 +18700,7 @@ #("i4802"))) (hygiene guile)))))) - (list #{id\ 4825}# + (list #{id 4825}# (list '#(syntax-object identifier? ((top) @@ -18842,7 +18747,7 @@ #((top)) #("i4802"))) (hygiene guile)) - #{id\ 4825}#)) + #{id 4825}#)) (list '#(syntax-object syntax ((top) @@ -18864,29 +18769,29 @@ #((top)) #("i4802"))) (hygiene guile)) - #{exp1\ 4826}#)))))) - #{tmp\ 4807}#) + #{exp1 4826}#)))))) + #{tmp 4807}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4803}#))))))))) + #{tmp 4803}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x\ 4830}#) - (let ((#{tmp\ 4832}# #{x\ 4830}#)) - (let ((#{tmp\ 4833}# + (lambda (#{x 4830}#) + (let ((#{tmp 4832}# #{x 4830}#)) + (let ((#{tmp 4833}# ($sc-dispatch - #{tmp\ 4832}# + #{tmp 4832}# '(_ (any . any) any . each-any)))) - (if #{tmp\ 4833}# + (if #{tmp 4833}# (@apply - (lambda (#{id\ 4838}# - #{args\ 4839}# - #{b0\ 4840}# - #{b1\ 4841}#) + (lambda (#{id 4838}# + #{args 4839}# + #{b0 4840}# + #{b1 4841}#) (list '#(syntax-object define ((top) @@ -18897,7 +18802,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4831"))) (hygiene guile)) - #{id\ 4838}# + #{id 4838}# (cons '#(syntax-object lambda* ((top) @@ -18908,14 +18813,14 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4831"))) (hygiene guile)) - (cons #{args\ 4839}# - (cons #{b0\ 4840}# #{b1\ 4841}#))))) - #{tmp\ 4833}#) - (let ((#{tmp\ 4843}# - ($sc-dispatch #{tmp\ 4832}# '(_ any any)))) - (if (if #{tmp\ 4843}# + (cons #{args 4839}# + (cons #{b0 4840}# #{b1 4841}#))))) + #{tmp 4833}#) + (let ((#{tmp 4843}# + ($sc-dispatch #{tmp 4832}# '(_ any any)))) + (if (if #{tmp 4843}# (@apply - (lambda (#{id\ 4846}# #{val\ 4847}#) + (lambda (#{id 4846}# #{val 4847}#) (identifier? '#(syntax-object x @@ -18927,10 +18832,10 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4831"))) (hygiene guile)))) - #{tmp\ 4843}#) + #{tmp 4843}#) #f) (@apply - (lambda (#{id\ 4850}# #{val\ 4851}#) + (lambda (#{id 4850}# #{val 4851}#) (list '#(syntax-object define ((top) @@ -18941,11 +18846,11 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i4831"))) (hygiene guile)) - #{id\ 4850}# - #{val\ 4851}#)) - #{tmp\ 4843}#) + #{id 4850}# + #{val 4851}#)) + #{tmp 4843}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4832}#))))))))) + #{tmp 4832}#))))))))) -- 2.20.1