From 04b04af85a331b2cb73d8807b9aa67e2f9c0f34d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 29 Apr 2011 13:07:15 +0200 Subject: [PATCH] =?UTF-8?q?fix=20free-id=3D=3F=20for=20module-bound=20keyw?= =?UTF-8?q?ords?= * module/ice-9/psyntax.scm (free-id=?): For identifiers that are resolved to the toplevel, check that the variables that they would resolve to are equal, instead of simply checking that the symbolic identifier names are equal. Allows keywords to be bound, renamed, exported, excluded, etc. * module/ice-9/psyntax-pp.scm: Regenerate. --- module/ice-9/psyntax-pp.scm | 18042 +++++++++++++++------------------- module/ice-9/psyntax.scm | 32 +- 2 files changed, 8196 insertions(+), 9878 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 16c6a90a4..9b1593ae0 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,3564 +2,1856 @@ (if #f #f) (letrec* - ((#{and-map* 38}# - (lambda (#{f 202}# #{first 203}# . #{rest 204}#) + ((#{and-map* 39}# + (lambda (#{f 203}# #{first 204}# . #{rest 205}#) (begin - (let ((#{t 210}# (null? #{first 203}#))) - (if #{t 210}# - #{t 210}# - (if (null? #{rest 204}#) + (let ((#{t 211}# (null? #{first 204}#))) + (if #{t 211}# + #{t 211}# + (if (null? #{rest 205}#) (letrec* - ((#{andmap 214}# - (lambda (#{first 215}#) + ((#{andmap 215}# + (lambda (#{first 216}#) (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 219}# (car #{first 216}#)) + (#{first 220}# (cdr #{first 216}#))) + (if (null? #{first 220}#) + (#{f 203}# #{x 219}#) + (if (#{f 203}# #{x 219}#) + (#{andmap 215}# #{first 220}#) #f))))))) - (begin (#{andmap 214}# #{first 203}#))) + (begin (#{andmap 215}# #{first 204}#))) (letrec* - ((#{andmap 225}# - (lambda (#{first 226}# #{rest 227}#) + ((#{andmap 226}# + (lambda (#{first 227}# #{rest 228}#) (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 233}# (car #{first 227}#)) + (#{xr 234}# (map car #{rest 228}#)) + (#{first 235}# (cdr #{first 227}#)) + (#{rest 236}# (map cdr #{rest 228}#))) + (if (null? #{first 235}#) + (@apply #{f 203}# #{x 233}# #{xr 234}#) + (if (@apply #{f 203}# #{x 233}# #{xr 234}#) + (#{andmap 226}# #{first 235}# #{rest 236}#) #f))))))) (begin - (#{andmap 225}# #{first 203}# #{rest 204}#)))))))))) + (#{andmap 226}# #{first 204}# #{rest 205}#)))))))))) (begin (letrec* - ((#{make-void 240}# - (lambda (#{src 798}#) + ((#{make-void 241}# + (lambda (#{src 799}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src 798}#))) - (#{make-const 242}# - (lambda (#{src 800}# #{exp 801}#) + #{src 799}#))) + (#{make-const 243}# + (lambda (#{src 801}# #{exp 802}#) (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 801}# + #{exp 802}#))) + (#{make-lexical-ref 247}# + (lambda (#{src 809}# #{name 810}# #{gensym 811}#) (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 809}# + #{name 810}# + #{gensym 811}#))) + (#{make-lexical-set 249}# + (lambda (#{src 815}# + #{name 816}# + #{gensym 817}# + #{exp 818}#) (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 815}# + #{name 816}# + #{gensym 817}# + #{exp 818}#))) + (#{make-module-ref 251}# + (lambda (#{src 823}# + #{mod 824}# + #{name 825}# + #{public? 826}#) (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 823}# + #{mod 824}# + #{name 825}# + #{public? 826}#))) + (#{make-module-set 253}# + (lambda (#{src 831}# + #{mod 832}# + #{name 833}# + #{public? 834}# + #{exp 835}#) (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 831}# + #{mod 832}# + #{name 833}# + #{public? 834}# + #{exp 835}#))) + (#{make-toplevel-ref 255}# + (lambda (#{src 841}# #{name 842}#) (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 841}# + #{name 842}#))) + (#{make-toplevel-set 257}# + (lambda (#{src 845}# #{name 846}# #{exp 847}#) (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 845}# + #{name 846}# + #{exp 847}#))) + (#{make-toplevel-define 259}# + (lambda (#{src 851}# #{name 852}# #{exp 853}#) (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 851}# + #{name 852}# + #{exp 853}#))) + (#{make-conditional 261}# + (lambda (#{src 857}# + #{test 858}# + #{consequent 859}# + #{alternate 860}#) (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 857}# + #{test 858}# + #{consequent 859}# + #{alternate 860}#))) + (#{make-application 263}# + (lambda (#{src 865}# #{proc 866}# #{args 867}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 864}# - #{proc 865}# - #{args 866}#))) - (#{make-sequence 264}# - (lambda (#{src 870}# #{exps 871}#) + #{src 865}# + #{proc 866}# + #{args 867}#))) + (#{make-sequence 265}# + (lambda (#{src 871}# #{exps 872}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 870}# - #{exps 871}#))) - (#{make-lambda 266}# - (lambda (#{src 874}# #{meta 875}# #{body 876}#) + #{src 871}# + #{exps 872}#))) + (#{make-lambda 267}# + (lambda (#{src 875}# #{meta 876}# #{body 877}#) (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 875}# + #{meta 876}# + #{body 877}#))) + (#{make-lambda-case 269}# + (lambda (#{src 881}# + #{req 882}# + #{opt 883}# + #{rest 884}# + #{kw 885}# + #{inits 886}# + #{gensyms 887}# + #{body 888}# + #{alternate 889}#) (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 881}# + #{req 882}# + #{opt 883}# + #{rest 884}# + #{kw 885}# + #{inits 886}# + #{gensyms 887}# + #{body 888}# + #{alternate 889}#))) + (#{make-let 271}# + (lambda (#{src 899}# + #{names 900}# + #{gensyms 901}# + #{vals 902}# + #{body 903}#) (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 899}# + #{names 900}# + #{gensyms 901}# + #{vals 902}# + #{body 903}#))) + (#{make-letrec 273}# + (lambda (#{src 909}# + #{in-order? 910}# + #{names 911}# + #{gensyms 912}# + #{vals 913}# + #{body 914}#) (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 909}# + #{in-order? 910}# + #{names 911}# + #{gensyms 912}# + #{vals 913}# + #{body 914}#))) + (#{make-dynlet 275}# + (lambda (#{src 921}# + #{fluids 922}# + #{vals 923}# + #{body 924}#) (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 921}# + #{fluids 922}# + #{vals 923}# + #{body 924}#))) + (#{lambda? 278}# + (lambda (#{x 929}#) + (if (struct? #{x 929}#) + (eq? (struct-vtable #{x 929}#) (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 280}# + (lambda (#{x 933}#) (struct-ref #{x 933}# 1))) + (#{set-lambda-meta! 282}# + (lambda (#{x 935}# #{v 936}#) + (struct-set! #{x 935}# 1 #{v 936}#))) + (#{top-level-eval-hook 288}# + (lambda (#{x 939}# #{mod 940}#) + (primitive-eval #{x 939}#))) + (#{local-eval-hook 290}# + (lambda (#{x 943}# #{mod 944}#) + (primitive-eval #{x 943}#))) + (#{put-global-definition-hook 293}# + (lambda (#{symbol 947}# #{type 948}# #{val 949}#) (module-define! (current-module) - #{symbol 946}# + #{symbol 947}# (make-syntax-transformer - #{symbol 946}# - #{type 947}# - #{val 948}#)))) - (#{get-global-definition-hook 294}# - (lambda (#{symbol 952}# #{module 953}#) + #{symbol 947}# + #{type 948}# + #{val 949}#)))) + (#{get-global-definition-hook 295}# + (lambda (#{symbol 953}# #{module 954}#) (begin - (if (if (not #{module 953}#) (current-module) #f) + (if (if (not #{module 954}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 952}#)) + #{symbol 953}#)) (begin - (let ((#{v 959}# (module-variable - (if #{module 953}# - (resolve-module (cdr #{module 953}#)) + (let ((#{v 960}# (module-variable + (if #{module 954}# + (resolve-module (cdr #{module 954}#)) (current-module)) - #{symbol 952}#))) - (if #{v 959}# - (if (variable-bound? #{v 959}#) + #{symbol 953}#))) + (if #{v 960}# + (if (variable-bound? #{v 960}#) (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 965}# (variable-ref #{v 960}#))) + (if (macro? #{val 965}#) + (if (macro-type #{val 965}#) + (cons (macro-type #{val 965}#) + (macro-binding #{val 965}#)) #f) #f))) #f) #f)))))) - (#{decorate-source 296}# - (lambda (#{e 968}# #{s 969}#) + (#{decorate-source 297}# + (lambda (#{e 969}# #{s 970}#) (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 969}#) #{s 970}# #f) + (set-source-properties! #{e 969}# #{s 970}#)) + #{e 969}#))) + (#{maybe-name-value! 299}# + (lambda (#{name 975}# #{val 976}#) + (if (#{lambda? 278}# #{val 976}#) (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 980}# (#{lambda-meta 280}# #{val 976}#))) + (if (not (assq 'name #{meta 980}#)) + (#{set-lambda-meta! 282}# + #{val 976}# + (cons (cons 'name #{name 975}#) #{meta 980}#)))))))) + (#{build-void 301}# + (lambda (#{source 981}#) + (#{make-void 241}# #{source 981}#))) + (#{build-application 303}# + (lambda (#{source 983}# #{fun-exp 984}# #{arg-exps 985}#) + (#{make-application 263}# + #{source 983}# + #{fun-exp 984}# + #{arg-exps 985}#))) + (#{build-conditional 305}# + (lambda (#{source 989}# + #{test-exp 990}# + #{then-exp 991}# + #{else-exp 992}#) + (#{make-conditional 261}# + #{source 989}# + #{test-exp 990}# + #{then-exp 991}# + #{else-exp 992}#))) + (#{build-dynlet 307}# + (lambda (#{source 997}# + #{fluids 998}# + #{vals 999}# + #{body 1000}#) + (#{make-dynlet 275}# + #{source 997}# + #{fluids 998}# + #{vals 999}# + #{body 1000}#))) + (#{build-lexical-reference 309}# + (lambda (#{type 1005}# + #{source 1006}# + #{name 1007}# + #{var 1008}#) + (#{make-lexical-ref 247}# + #{source 1006}# + #{name 1007}# + #{var 1008}#))) + (#{build-lexical-assignment 311}# + (lambda (#{source 1013}# + #{name 1014}# + #{var 1015}# + #{exp 1016}#) (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! 299}# + #{name 1014}# + #{exp 1016}#) + (#{make-lexical-set 249}# + #{source 1013}# + #{name 1014}# + #{var 1015}# + #{exp 1016}#)))) + (#{analyze-variable 313}# + (lambda (#{mod 1021}# + #{var 1022}# + #{modref-cont 1023}# + #{bare-cont 1024}#) + (if (not #{mod 1021}#) + (#{bare-cont 1024}# #{var 1022}#) (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 1031}# (car #{mod 1021}#)) + (#{mod 1032}# (cdr #{mod 1021}#))) + (if (eqv? #{kind 1031}# 'public) + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #t) - (if (eqv? #{kind 1030}# 'private) + (if (eqv? #{kind 1031}# 'private) (if (not (equal? - #{mod 1031}# + #{mod 1032}# (module-name (current-module)))) - (#{modref-cont 1022}# - #{mod 1031}# - #{var 1021}# + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #f) - (#{bare-cont 1023}# #{var 1021}#)) - (if (eqv? #{kind 1030}# 'bare) - (#{bare-cont 1023}# #{var 1021}#) - (if (eqv? #{kind 1030}# 'hygiene) + (#{bare-cont 1024}# #{var 1022}#)) + (if (eqv? #{kind 1031}# 'bare) + (#{bare-cont 1024}# #{var 1022}#) + (if (eqv? #{kind 1031}# 'hygiene) (if (if (not (equal? - #{mod 1031}# + #{mod 1032}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 1031}#) - #{var 1021}#) + (resolve-module #{mod 1032}#) + #{var 1022}#) #f) - (#{modref-cont 1022}# - #{mod 1031}# - #{var 1021}# + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #f) - (#{bare-cont 1023}# #{var 1021}#)) + (#{bare-cont 1024}# #{var 1022}#)) (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 1022}# + #{mod 1032}#)))))))))) + (#{build-global-reference 315}# + (lambda (#{source 1040}# #{var 1041}# #{mod 1042}#) + (#{analyze-variable 313}# + #{mod 1042}# + #{var 1041}# + (lambda (#{mod 1046}# #{var 1047}# #{public? 1048}#) + (#{make-module-ref 251}# + #{source 1040}# + #{mod 1046}# + #{var 1047}# + #{public? 1048}#)) + (lambda (#{var 1052}#) + (#{make-toplevel-ref 255}# + #{source 1040}# + #{var 1052}#))))) + (#{build-global-assignment 317}# + (lambda (#{source 1054}# + #{var 1055}# + #{exp 1056}# + #{mod 1057}#) (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! 299}# + #{var 1055}# + #{exp 1056}#) + (#{analyze-variable 313}# + #{mod 1057}# + #{var 1055}# + (lambda (#{mod 1062}# #{var 1063}# #{public? 1064}#) + (#{make-module-set 253}# + #{source 1054}# + #{mod 1062}# + #{var 1063}# + #{public? 1064}# + #{exp 1056}#)) + (lambda (#{var 1068}#) + (#{make-toplevel-set 257}# + #{source 1054}# + #{var 1068}# + #{exp 1056}#)))))) + (#{build-global-definition 319}# + (lambda (#{source 1070}# #{var 1071}# #{exp 1072}#) (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! 299}# + #{var 1071}# + #{exp 1072}#) + (#{make-toplevel-define 259}# + #{source 1070}# + #{var 1071}# + #{exp 1072}#)))) + (#{build-simple-lambda 321}# + (lambda (#{src 1076}# + #{req 1077}# + #{rest 1078}# + #{vars 1079}# + #{meta 1080}# + #{exp 1081}#) + (#{make-lambda 267}# + #{src 1076}# + #{meta 1080}# + (#{make-lambda-case 269}# + #{src 1076}# + #{req 1077}# #f - #{rest 1077}# + #{rest 1078}# #f '() - #{vars 1078}# - #{exp 1080}# + #{vars 1079}# + #{exp 1081}# #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 323}# + (lambda (#{src 1088}# #{meta 1089}# #{body 1090}#) + (#{make-lambda 267}# + #{src 1088}# + #{meta 1089}# + #{body 1090}#))) + (#{build-lambda-case 325}# + (lambda (#{src 1094}# + #{req 1095}# + #{opt 1096}# + #{rest 1097}# + #{kw 1098}# + #{inits 1099}# + #{vars 1100}# + #{body 1101}# + #{else-case 1102}#) + (#{make-lambda-case 269}# + #{src 1094}# + #{req 1095}# + #{opt 1096}# + #{rest 1097}# + #{kw 1098}# + #{inits 1099}# + #{vars 1100}# + #{body 1101}# + #{else-case 1102}#))) + (#{build-primref 327}# + (lambda (#{src 1112}# #{name 1113}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref 254}# - #{src 1111}# - #{name 1112}#) - (#{make-module-ref 250}# - #{src 1111}# + (#{make-toplevel-ref 255}# + #{src 1112}# + #{name 1113}#) + (#{make-module-ref 251}# + #{src 1112}# '(guile) - #{name 1112}# + #{name 1113}# #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 329}# + (lambda (#{src 1116}# #{exp 1117}#) + (#{make-const 243}# #{src 1116}# #{exp 1117}#))) + (#{build-sequence 331}# + (lambda (#{src 1120}# #{exps 1121}#) + (if (null? (cdr #{exps 1121}#)) + (car #{exps 1121}#) + (#{make-sequence 265}# + #{src 1120}# + #{exps 1121}#)))) + (#{build-let 333}# + (lambda (#{src 1124}# + #{ids 1125}# + #{vars 1126}# + #{val-exps 1127}# + #{body-exp 1128}#) (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! 299}# + #{ids 1125}# + #{val-exps 1127}#) + (if (null? #{vars 1126}#) + #{body-exp 1128}# + (#{make-let 271}# + #{src 1124}# + #{ids 1125}# + #{vars 1126}# + #{val-exps 1127}# + #{body-exp 1128}#))))) + (#{build-named-let 335}# + (lambda (#{src 1134}# + #{ids 1135}# + #{vars 1136}# + #{val-exps 1137}# + #{body-exp 1138}#) (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 1148}# (car #{vars 1136}#)) + (#{f-name 1149}# (car #{ids 1135}#)) + (#{vars 1150}# (cdr #{vars 1136}#)) + (#{ids 1151}# (cdr #{ids 1135}#))) (begin - (let ((#{proc 1152}# - (#{build-simple-lambda 320}# - #{src 1133}# - #{ids 1150}# + (let ((#{proc 1153}# + (#{build-simple-lambda 321}# + #{src 1134}# + #{ids 1151}# #f - #{vars 1149}# + #{vars 1150}# '() - #{body-exp 1137}#))) + #{body-exp 1138}#))) (begin - (#{maybe-name-value! 298}# - #{f-name 1148}# - #{proc 1152}#) + (#{maybe-name-value! 299}# + #{f-name 1149}# + #{proc 1153}#) (for-each - #{maybe-name-value! 298}# - #{ids 1150}# - #{val-exps 1136}#) - (#{make-letrec 272}# - #{src 1133}# + #{maybe-name-value! 299}# + #{ids 1151}# + #{val-exps 1137}#) + (#{make-letrec 273}# + #{src 1134}# #f - (list #{f-name 1148}#) - (list #{f 1147}#) - (list #{proc 1152}#) - (#{build-application 302}# - #{src 1133}# - (#{build-lexical-reference 308}# + (list #{f-name 1149}#) + (list #{f 1148}#) + (list #{proc 1153}#) + (#{build-application 303}# + #{src 1134}# + (#{build-lexical-reference 309}# '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 1134}# + #{f-name 1149}# + #{f 1148}#) + #{val-exps 1137}#))))))))) + (#{build-letrec 337}# + (lambda (#{src 1154}# + #{in-order? 1155}# + #{ids 1156}# + #{vars 1157}# + #{val-exps 1158}# + #{body-exp 1159}#) + (if (null? #{vars 1157}#) + #{body-exp 1159}# (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! 299}# + #{ids 1156}# + #{val-exps 1158}#) + (#{make-letrec 273}# + #{src 1154}# + #{in-order? 1155}# + #{ids 1156}# + #{vars 1157}# + #{val-exps 1158}# + #{body-exp 1159}#))))) + (#{make-syntax-object 341}# + (lambda (#{expression 1166}# + #{wrap 1167}# + #{module 1168}#) (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 1166}# + #{wrap 1167}# + #{module 1168}#))) + (#{syntax-object? 343}# + (lambda (#{x 1172}#) + (if (vector? #{x 1172}#) + (if (= (vector-length #{x 1172}#) 4) + (eq? (vector-ref #{x 1172}# 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 345}# + (lambda (#{x 1177}#) (vector-ref #{x 1177}# 1))) + (#{syntax-object-wrap 347}# + (lambda (#{x 1179}#) (vector-ref #{x 1179}# 2))) + (#{syntax-object-module 349}# + (lambda (#{x 1181}#) (vector-ref #{x 1181}# 3))) + (#{source-annotation 358}# + (lambda (#{x 1195}#) + (if (#{syntax-object? 343}# #{x 1195}#) + (#{source-annotation 358}# + (#{syntax-object-expression 345}# #{x 1195}#)) + (if (pair? #{x 1195}#) (begin - (let ((#{props 1201}# (source-properties #{x 1194}#))) - (if (pair? #{props 1201}#) #{props 1201}# #f))) + (let ((#{props 1202}# (source-properties #{x 1195}#))) + (if (pair? #{props 1202}#) #{props 1202}# #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 365}# + (lambda (#{labels 1204}# #{bindings 1205}# #{r 1206}#) + (if (null? #{labels 1204}#) + #{r 1206}# + (#{extend-env 365}# + (cdr #{labels 1204}#) + (cdr #{bindings 1205}#) + (cons (cons (car #{labels 1204}#) + (car #{bindings 1205}#)) + #{r 1206}#))))) + (#{extend-var-env 367}# + (lambda (#{labels 1210}# #{vars 1211}# #{r 1212}#) + (if (null? #{labels 1210}#) + #{r 1212}# + (#{extend-var-env 367}# + (cdr #{labels 1210}#) + (cdr #{vars 1211}#) + (cons (cons (car #{labels 1210}#) + (cons 'lexical (car #{vars 1211}#))) + #{r 1212}#))))) + (#{macros-only-env 369}# + (lambda (#{r 1217}#) + (if (null? #{r 1217}#) '() (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 1220}# (car #{r 1217}#))) + (if (eq? (car (cdr #{a 1220}#)) 'macro) + (cons #{a 1220}# + (#{macros-only-env 369}# (cdr #{r 1217}#))) + (#{macros-only-env 369}# (cdr #{r 1217}#)))))))) + (#{lookup 371}# + (lambda (#{x 1221}# #{r 1222}# #{mod 1223}#) (begin - (let ((#{t 1228}# (assq #{x 1220}# #{r 1221}#))) - (if #{t 1228}# - (cdr #{t 1228}#) - (if (symbol? #{x 1220}#) + (let ((#{t 1229}# (assq #{x 1221}# #{r 1222}#))) + (if #{t 1229}# + (cdr #{t 1229}#) + (if (symbol? #{x 1221}#) (begin - (let ((#{t 1234}# - (#{get-global-definition-hook 294}# - #{x 1220}# - #{mod 1222}#))) - (if #{t 1234}# #{t 1234}# '(global)))) + (let ((#{t 1235}# + (#{get-global-definition-hook 295}# + #{x 1221}# + #{mod 1223}#))) + (if #{t 1235}# #{t 1235}# '(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 373}# + (lambda (#{type 1240}# #{sym 1241}# #{val 1242}#) + (#{put-global-definition-hook 293}# + #{sym 1241}# + #{type 1240}# + #{val 1242}#))) + (#{nonsymbol-id? 375}# + (lambda (#{x 1246}#) + (if (#{syntax-object? 343}# #{x 1246}#) (symbol? - (#{syntax-object-expression 344}# #{x 1245}#)) + (#{syntax-object-expression 345}# #{x 1246}#)) #f))) - (#{id? 376}# - (lambda (#{x 1249}#) - (if (symbol? #{x 1249}#) + (#{id? 377}# + (lambda (#{x 1250}#) + (if (symbol? #{x 1250}#) #t - (if (#{syntax-object? 342}# #{x 1249}#) + (if (#{syntax-object? 343}# #{x 1250}#) (symbol? - (#{syntax-object-expression 344}# #{x 1249}#)) + (#{syntax-object-expression 345}# #{x 1250}#)) #f)))) - (#{id-sym-name&marks 379}# - (lambda (#{x 1256}# #{w 1257}#) - (if (#{syntax-object? 342}# #{x 1256}#) + (#{id-sym-name&marks 380}# + (lambda (#{x 1257}# #{w 1258}#) + (if (#{syntax-object? 343}# #{x 1257}#) (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 345}# #{x 1257}#) + (#{join-marks 427}# + (car #{w 1258}#) + (car (#{syntax-object-wrap 347}# #{x 1257}#)))) + (values #{x 1257}# (car #{w 1258}#))))) + (#{gen-label 390}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 391}# - (lambda (#{ls 1263}#) - (if (null? #{ls 1263}#) + (#{gen-labels 392}# + (lambda (#{ls 1264}#) + (if (null? #{ls 1264}#) '() - (cons (#{gen-label 389}#) - (#{gen-labels 391}# (cdr #{ls 1263}#)))))) - (#{make-ribcage 394}# - (lambda (#{symnames 1265}# - #{marks 1266}# - #{labels 1267}#) + (cons (#{gen-label 390}#) + (#{gen-labels 392}# (cdr #{ls 1264}#)))))) + (#{make-ribcage 395}# + (lambda (#{symnames 1266}# + #{marks 1267}# + #{labels 1268}#) (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 1266}# + #{marks 1267}# + #{labels 1268}#))) + (#{ribcage-symnames 399}# + (lambda (#{x 1277}#) (vector-ref #{x 1277}# 1))) + (#{ribcage-marks 401}# + (lambda (#{x 1279}#) (vector-ref #{x 1279}# 2))) + (#{ribcage-labels 403}# + (lambda (#{x 1281}#) (vector-ref #{x 1281}# 3))) + (#{set-ribcage-symnames! 405}# + (lambda (#{x 1283}# #{update 1284}#) + (vector-set! #{x 1283}# 1 #{update 1284}#))) + (#{set-ribcage-marks! 407}# + (lambda (#{x 1287}# #{update 1288}#) + (vector-set! #{x 1287}# 2 #{update 1288}#))) + (#{set-ribcage-labels! 409}# + (lambda (#{x 1291}# #{update 1292}#) + (vector-set! #{x 1291}# 3 #{update 1292}#))) + (#{anti-mark 415}# + (lambda (#{w 1295}#) + (cons (cons #f (car #{w 1295}#)) + (cons 'shift (cdr #{w 1295}#))))) + (#{extend-ribcage! 419}# + (lambda (#{ribcage 1301}# #{id 1302}# #{label 1303}#) (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! 405}# + #{ribcage 1301}# + (cons (#{syntax-object-expression 345}# #{id 1302}#) + (#{ribcage-symnames 399}# #{ribcage 1301}#))) + (#{set-ribcage-marks! 407}# + #{ribcage 1301}# + (cons (car (#{syntax-object-wrap 347}# #{id 1302}#)) + (#{ribcage-marks 401}# #{ribcage 1301}#))) + (#{set-ribcage-labels! 409}# + #{ribcage 1301}# + (cons #{label 1303}# + (#{ribcage-labels 403}# #{ribcage 1301}#)))))) + (#{make-binding-wrap 421}# + (lambda (#{ids 1308}# #{labels 1309}# #{w 1310}#) + (if (null? #{ids 1308}#) + #{w 1310}# + (cons (car #{w 1310}#) (cons (begin - (let ((#{labelvec 1316}# - (list->vector #{labels 1308}#))) + (let ((#{labelvec 1317}# + (list->vector #{labels 1309}#))) (begin - (let ((#{n 1318}# - (vector-length #{labelvec 1316}#))) + (let ((#{n 1319}# + (vector-length #{labelvec 1317}#))) (begin - (let ((#{symnamevec 1321}# - (make-vector #{n 1318}#)) - (#{marksvec 1322}# - (make-vector #{n 1318}#))) + (let ((#{symnamevec 1322}# + (make-vector #{n 1319}#)) + (#{marksvec 1323}# + (make-vector #{n 1319}#))) (begin (letrec* - ((#{f 1326}# - (lambda (#{ids 1327}# #{i 1328}#) - (if (not (null? #{ids 1327}#)) + ((#{f 1327}# + (lambda (#{ids 1328}# #{i 1329}#) + (if (not (null? #{ids 1328}#)) (call-with-values (lambda () - (#{id-sym-name&marks 379}# - (car #{ids 1327}#) - #{w 1309}#)) - (lambda (#{symname 1329}# - #{marks 1330}#) + (#{id-sym-name&marks 380}# + (car #{ids 1328}#) + #{w 1310}#)) + (lambda (#{symname 1330}# + #{marks 1331}#) (begin (vector-set! - #{symnamevec 1321}# - #{i 1328}# - #{symname 1329}#) + #{symnamevec 1322}# + #{i 1329}# + #{symname 1330}#) (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 1323}# + #{i 1329}# + #{marks 1331}#) + (#{f 1327}# + (cdr #{ids 1328}#) + (#{1+}# #{i 1329}#))))))))) + (begin (#{f 1327}# #{ids 1308}# 0))) + (#{make-ribcage 395}# + #{symnamevec 1322}# + #{marksvec 1323}# + #{labelvec 1317}#)))))))) + (cdr #{w 1310}#)))))) + (#{smart-append 423}# + (lambda (#{m1 1336}# #{m2 1337}#) + (if (null? #{m2 1337}#) + #{m1 1336}# + (append #{m1 1336}# #{m2 1337}#)))) + (#{join-wraps 425}# + (lambda (#{w1 1340}# #{w2 1341}#) (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 1346}# (car #{w1 1340}#)) + (#{s1 1347}# (cdr #{w1 1340}#))) + (if (null? #{m1 1346}#) + (if (null? #{s1 1347}#) + #{w2 1341}# + (cons (car #{w2 1341}#) + (#{smart-append 423}# + #{s1 1347}# + (cdr #{w2 1341}#)))) + (cons (#{smart-append 423}# + #{m1 1346}# + (car #{w2 1341}#)) + (#{smart-append 423}# + #{s1 1347}# + (cdr #{w2 1341}#)))))))) + (#{join-marks 427}# + (lambda (#{m1 1356}# #{m2 1357}#) + (#{smart-append 423}# #{m1 1356}# #{m2 1357}#))) + (#{same-marks? 429}# + (lambda (#{x 1360}# #{y 1361}#) (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 1366}# (eq? #{x 1360}# #{y 1361}#))) + (if #{t 1366}# + #{t 1366}# + (if (not (null? #{x 1360}#)) + (if (not (null? #{y 1361}#)) + (if (eq? (car #{x 1360}#) (car #{y 1361}#)) + (#{same-marks? 429}# + (cdr #{x 1360}#) + (cdr #{y 1361}#)) #f) #f) #f)))))) - (#{id-var-name 430}# - (lambda (#{id 1371}# #{w 1372}#) + (#{id-var-name 431}# + (lambda (#{id 1372}# #{w 1373}#) (letrec* - ((#{search 1377}# - (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#) - (if (null? #{subst 1394}#) - (values #f #{marks 1395}#) + ((#{search 1378}# + (lambda (#{sym 1394}# #{subst 1395}# #{marks 1396}#) + (if (null? #{subst 1395}#) + (values #f #{marks 1396}#) (begin - (let ((#{fst 1400}# (car #{subst 1394}#))) - (if (eq? #{fst 1400}# 'shift) - (#{search 1377}# - #{sym 1393}# - (cdr #{subst 1394}#) - (cdr #{marks 1395}#)) + (let ((#{fst 1401}# (car #{subst 1395}#))) + (if (eq? #{fst 1401}# 'shift) + (#{search 1378}# + #{sym 1394}# + (cdr #{subst 1395}#) + (cdr #{marks 1396}#)) (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 1403}# + (#{ribcage-symnames 399}# #{fst 1401}#))) + (if (vector? #{symnames 1403}#) + (#{search-vector-rib 1382}# + #{sym 1394}# + #{subst 1395}# + #{marks 1396}# + #{symnames 1403}# + #{fst 1401}#) + (#{search-list-rib 1380}# + #{sym 1394}# + #{subst 1395}# + #{marks 1396}# + #{symnames 1403}# + #{fst 1401}#)))))))))) + (#{search-list-rib 1380}# + (lambda (#{sym 1404}# + #{subst 1405}# + #{marks 1406}# + #{symnames 1407}# + #{ribcage 1408}#) (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 1417}# + (lambda (#{symnames 1418}# #{i 1419}#) + (if (null? #{symnames 1418}#) + (#{search 1378}# + #{sym 1404}# + (cdr #{subst 1405}#) + #{marks 1406}#) + (if (if (eq? (car #{symnames 1418}#) #{sym 1404}#) + (#{same-marks? 429}# + #{marks 1406}# (list-ref - (#{ribcage-marks 400}# #{ribcage 1407}#) - #{i 1418}#)) + (#{ribcage-marks 401}# #{ribcage 1408}#) + #{i 1419}#)) #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 403}# #{ribcage 1408}#) + #{i 1419}#) + #{marks 1406}#) + (#{f 1417}# + (cdr #{symnames 1418}#) + (#{1+}# #{i 1419}#))))))) + (begin (#{f 1417}# #{symnames 1407}# 0))))) + (#{search-vector-rib 1382}# + (lambda (#{sym 1428}# + #{subst 1429}# + #{marks 1430}# + #{symnames 1431}# + #{ribcage 1432}#) (begin - (let ((#{n 1438}# (vector-length #{symnames 1430}#))) + (let ((#{n 1439}# (vector-length #{symnames 1431}#))) (letrec* - ((#{f 1441}# - (lambda (#{i 1442}#) - (if (= #{i 1442}# #{n 1438}#) - (#{search 1377}# - #{sym 1427}# - (cdr #{subst 1428}#) - #{marks 1429}#) + ((#{f 1442}# + (lambda (#{i 1443}#) + (if (= #{i 1443}# #{n 1439}#) + (#{search 1378}# + #{sym 1428}# + (cdr #{subst 1429}#) + #{marks 1430}#) (if (if (eq? (vector-ref - #{symnames 1430}# - #{i 1442}#) - #{sym 1427}#) - (#{same-marks? 428}# - #{marks 1429}# + #{symnames 1431}# + #{i 1443}#) + #{sym 1428}#) + (#{same-marks? 429}# + #{marks 1430}# (vector-ref - (#{ribcage-marks 400}# - #{ribcage 1431}#) - #{i 1442}#)) + (#{ribcage-marks 401}# + #{ribcage 1432}#) + #{i 1443}#)) #f) (values (vector-ref - (#{ribcage-labels 402}# #{ribcage 1431}#) - #{i 1442}#) - #{marks 1429}#) - (#{f 1441}# (#{1+}# #{i 1442}#))))))) - (begin (#{f 1441}# 0)))))))) + (#{ribcage-labels 403}# #{ribcage 1432}#) + #{i 1443}#) + #{marks 1430}#) + (#{f 1442}# (#{1+}# #{i 1443}#))))))) + (begin (#{f 1442}# 0)))))))) (begin - (if (symbol? #{id 1371}#) + (if (symbol? #{id 1372}#) (begin - (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}#) + (let ((#{t 1455}# + (#{search 1378}# + #{id 1372}# + (cdr #{w 1373}#) + (car #{w 1373}#)))) + (if #{t 1455}# #{t 1455}# #{id 1372}#))) + (if (#{syntax-object? 343}# #{id 1372}#) (begin - (let ((#{id 1467}# - (#{syntax-object-expression 344}# #{id 1371}#)) - (#{w1 1468}# - (#{syntax-object-wrap 346}# #{id 1371}#))) + (let ((#{id 1464}# + (#{syntax-object-expression 345}# #{id 1372}#)) + (#{w1 1465}# + (#{syntax-object-wrap 347}# #{id 1372}#))) (begin - (let ((#{marks 1470}# - (#{join-marks 426}# - (car #{w 1372}#) - (car #{w1 1468}#)))) + (let ((#{marks 1467}# + (#{join-marks 427}# + (car #{w 1373}#) + (car #{w1 1465}#)))) (call-with-values (lambda () - (#{search 1377}# - #{id 1467}# - (cdr #{w 1372}#) - #{marks 1470}#)) - (lambda (#{new-id 1474}# #{marks 1475}#) + (#{search 1378}# + #{id 1464}# + (cdr #{w 1373}#) + #{marks 1467}#)) + (lambda (#{new-id 1471}# #{marks 1472}#) (begin - (let ((#{t 1480}# #{new-id 1474}#)) - (if #{t 1480}# - #{t 1480}# + (let ((#{t 1477}# #{new-id 1471}#)) + (if #{t 1477}# + #{t 1477}# (begin - (let ((#{t 1483}# - (call-with-values - (lambda () - (#{search 1377}# - #{id 1467}# - (cdr #{w1 1468}#) - #{marks 1475}#)) - (lambda (#{x 1486}# - . - #{ignore 1487}#) - #{x 1486}#)))) - (if #{t 1483}# - #{t 1483}# - #{id 1467}#)))))))))))) + (let ((#{t 1480}# + (#{search 1378}# + #{id 1464}# + (cdr #{w1 1465}#) + #{marks 1472}#))) + (if #{t 1480}# + #{t 1480}# + #{id 1464}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{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}#))) - (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}# '(()))) - #f))) - (#{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}#))) - #f) - (eq? #{i 1506}# #{j 1507}#)))) - (#{valid-bound-ids? 436}# - (lambda (#{ids 1516}#) - (if (letrec* - ((#{all-ids? 1521}# - (lambda (#{ids 1522}#) + #{id 1372}#))))))) + (#{free-id=? 433}# + (lambda (#{i 1485}# #{j 1486}#) + (begin + (let ((#{ni 1491}# + (#{id-var-name 431}# #{i 1485}# '(()))) + (#{nj 1492}# + (#{id-var-name 431}# #{j 1486}# '(())))) + (letrec* + ((#{id-module-binding 1496}# + (lambda (#{id 1497}#) (begin - (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}#) - #f))) - (#{distinct-bound-ids? 438}# - (lambda (#{ids 1530}#) - (letrec* - ((#{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}#)) - #f))))))) - (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}#))))) - #f))) - (#{wrap 442}# - (lambda (#{x 1552}# #{w 1553}# #{defmod 1554}#) - (if (if (null? (car #{w 1553}#)) - (null? (cdr #{w 1553}#)) + (let ((#{mod 1500}# + (if (#{syntax-object? 343}# #{id 1497}#) + (#{syntax-object-module 349}# #{id 1497}#) + #f))) + (module-variable + (if #{mod 1500}# + (resolve-module (cdr #{mod 1500}#)) + (current-module)) + (begin + (let ((#{x 1505}# #{id 1497}#)) + (if (#{syntax-object? 343}# #{x 1505}#) + (#{syntax-object-expression 345}# #{x 1505}#) + #{x 1505}#))))))))) + (begin + (if (eq? #{ni 1491}# + (begin + (let ((#{x 1508}# #{i 1485}#)) + (if (#{syntax-object? 343}# #{x 1508}#) + (#{syntax-object-expression 345}# #{x 1508}#) + #{x 1508}#)))) + (if (eq? #{nj 1492}# + (begin + (let ((#{x 1512}# #{j 1486}#)) + (if (#{syntax-object? 343}# #{x 1512}#) + (#{syntax-object-expression 345}# + #{x 1512}#) + #{x 1512}#)))) + (if (begin + (let ((#{bi 1515}# + (#{id-module-binding 1496}# #{i 1485}#))) + (if #{bi 1515}# + (eq? #{bi 1515}# + (#{id-module-binding 1496}# #{j 1486}#)) + (if (not (#{id-module-binding 1496}# + #{j 1486}#)) + (eq? #{ni 1491}# #{nj 1492}#) + #f)))) + (eq? (#{id-module-binding 1496}# #{i 1485}#) + (#{id-module-binding 1496}# #{j 1486}#)) + #f) + #f) + (if (eq? #{ni 1491}# #{nj 1492}#) + (not (eq? #{nj 1492}# + (begin + (let ((#{x 1523}# #{j 1486}#)) + (if (#{syntax-object? 343}# #{x 1523}#) + (#{syntax-object-expression 345}# + #{x 1523}#) + #{x 1523}#))))) + #f)))))))) + (#{bound-id=? 435}# + (lambda (#{i 1524}# #{j 1525}#) + (if (if (#{syntax-object? 343}# #{i 1524}#) + (#{syntax-object? 343}# #{j 1525}#) #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}# + (if (eq? (#{syntax-object-expression 345}# #{i 1524}#) + (#{syntax-object-expression 345}# #{j 1525}#)) + (#{same-marks? 429}# + (car (#{syntax-object-wrap 347}# #{i 1524}#)) + (car (#{syntax-object-wrap 347}# #{j 1525}#))) + #f) + (eq? #{i 1524}# #{j 1525}#)))) + (#{valid-bound-ids? 437}# + (lambda (#{ids 1534}#) + (if (letrec* + ((#{all-ids? 1539}# + (lambda (#{ids 1540}#) + (begin + (let ((#{t 1543}# (null? #{ids 1540}#))) + (if #{t 1543}# + #{t 1543}# + (if (#{id? 377}# (car #{ids 1540}#)) + (#{all-ids? 1539}# (cdr #{ids 1540}#)) + #f))))))) + (begin (#{all-ids? 1539}# #{ids 1534}#))) + (#{distinct-bound-ids? 439}# #{ids 1534}#) + #f))) + (#{distinct-bound-ids? 439}# + (lambda (#{ids 1548}#) + (letrec* + ((#{distinct? 1552}# + (lambda (#{ids 1553}#) + (begin + (let ((#{t 1556}# (null? #{ids 1553}#))) + (if #{t 1556}# + #{t 1556}# + (if (not (#{bound-id-member? 441}# + (car #{ids 1553}#) + (cdr #{ids 1553}#))) + (#{distinct? 1552}# (cdr #{ids 1553}#)) + #f))))))) + (begin (#{distinct? 1552}# #{ids 1548}#))))) + (#{bound-id-member? 441}# + (lambda (#{x 1560}# #{list 1561}#) + (if (not (null? #{list 1561}#)) + (begin + (let ((#{t 1568}# + (#{bound-id=? 435}# + #{x 1560}# + (car #{list 1561}#)))) + (if #{t 1568}# + #{t 1568}# + (#{bound-id-member? 441}# + #{x 1560}# + (cdr #{list 1561}#))))) + #f))) + (#{wrap 443}# + (lambda (#{x 1570}# #{w 1571}# #{defmod 1572}#) + (if (if (null? (car #{w 1571}#)) + (null? (cdr #{w 1571}#)) + #f) + #{x 1570}# + (if (#{syntax-object? 343}# #{x 1570}#) + (#{make-syntax-object 341}# + (#{syntax-object-expression 345}# #{x 1570}#) + (#{join-wraps 425}# + #{w 1571}# + (#{syntax-object-wrap 347}# #{x 1570}#)) + (#{syntax-object-module 349}# #{x 1570}#)) + (if (null? #{x 1570}#) + #{x 1570}# + (#{make-syntax-object 341}# + #{x 1570}# + #{w 1571}# + #{defmod 1572}#)))))) + (#{source-wrap 445}# + (lambda (#{x 1587}# + #{w 1588}# + #{s 1589}# + #{defmod 1590}#) + (#{wrap 443}# + (#{decorate-source 297}# #{x 1587}# #{s 1589}#) + #{w 1588}# + #{defmod 1590}#))) + (#{chi-sequence 447}# + (lambda (#{body 1595}# + #{r 1596}# + #{w 1597}# + #{s 1598}# + #{mod 1599}#) + (#{build-sequence 331}# + #{s 1598}# (letrec* - ((#{dobody 1592}# - (lambda (#{body 1593}# - #{r 1594}# - #{w 1595}# - #{mod 1596}#) - (if (null? #{body 1593}#) + ((#{dobody 1610}# + (lambda (#{body 1611}# + #{r 1612}# + #{w 1613}# + #{mod 1614}#) + (if (null? #{body 1611}#) '() (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 1616}# + (#{chi 457}# + (car #{body 1611}#) + #{r 1612}# + #{w 1613}# + #{mod 1614}#))) + (cons #{first 1616}# + (#{dobody 1610}# + (cdr #{body 1611}#) + #{r 1612}# + #{w 1613}# + #{mod 1614}#)))))))) (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 1610}# + #{body 1595}# + #{r 1596}# + #{w 1597}# + #{mod 1599}#)))))) + (#{chi-top-sequence 449}# + (lambda (#{body 1617}# + #{r 1618}# + #{w 1619}# + #{s 1620}# + #{m 1621}# + #{esew 1622}# + #{mod 1623}#) (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 1632}# + (lambda (#{body 1633}# + #{r 1634}# + #{w 1635}# + #{s 1636}# + #{m 1637}# + #{esew 1638}# + #{mod 1639}# + #{exps 1640}#) + (if (null? #{body 1633}#) + #{exps 1640}# (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 1653}# (car #{body 1633}#))) + (#{syntax-type 455}# + #{e 1653}# + #{r 1634}# + #{w 1635}# (begin - (let ((#{t 1638}# - (#{source-annotation 357}# - #{e 1635}#))) - (if #{t 1638}# #{t 1638}# #{s 1618}#))) + (let ((#{t 1656}# + (#{source-annotation 358}# + #{e 1653}#))) + (if #{t 1656}# #{t 1656}# #{s 1636}#))) #f - #{mod 1621}# + #{mod 1639}# #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 1658}# + #{value 1659}# + #{e 1660}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#) + (if (eqv? #{type 1658}# 'begin-form) + (let ((#{tmp 1671}# #{e 1660}#)) + (let ((#{tmp 1672}# + ($sc-dispatch #{tmp 1671}# '(_)))) + (if #{tmp 1672}# (@apply - (lambda () #{exps 1622}#) - #{tmp 1654}#) - (let ((#{tmp 1655}# + (lambda () #{exps 1640}#) + #{tmp 1672}#) + (let ((#{tmp 1673}# ($sc-dispatch - #{tmp 1653}# + #{tmp 1671}# '(_ any . each-any)))) - (if #{tmp 1655}# + (if #{tmp 1673}# (@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 1676}# #{e2 1677}#) + (#{scan 1632}# + (cons #{e1 1676}# #{e2 1677}#) + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{m 1637}# + #{esew 1638}# + #{mod 1663}# + #{exps 1640}#)) + #{tmp 1673}#) (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 1671}#)))))) + (if (eqv? #{type 1658}# 'local-syntax-form) + (#{chi-local-syntax 467}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}# + (lambda (#{body 1680}# + #{r 1681}# + #{w 1682}# + #{s 1683}# + #{mod 1684}#) + (#{scan 1632}# + #{body 1680}# + #{r 1681}# + #{w 1682}# + #{s 1683}# + #{m 1637}# + #{esew 1638}# + #{mod 1684}# + #{exps 1640}#))) + (if (eqv? #{type 1658}# 'eval-when-form) + (let ((#{tmp 1691}# #{e 1660}#)) + (let ((#{tmp 1692}# ($sc-dispatch - #{tmp 1673}# + #{tmp 1691}# '(_ each-any any . each-any)))) - (if #{tmp 1674}# + (if #{tmp 1692}# (@apply - (lambda (#{x 1678}# - #{e1 1679}# - #{e2 1680}#) + (lambda (#{x 1696}# + #{e1 1697}# + #{e2 1698}#) (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 1701}# + (#{chi-when-list 453}# + #{e 1660}# + #{x 1696}# + #{w 1661}#)) + (#{body 1702}# + (cons #{e1 1697}# + #{e2 1698}#))) + (if (eq? #{m 1637}# 'e) (if (memq 'eval - #{when-list 1683}#) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + #{when-list 1701}#) + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# (if (memq 'expand - #{when-list 1683}#) + #{when-list 1701}#) 'c&e 'e) '(eval) - #{mod 1645}# - #{exps 1622}#) + #{mod 1663}# + #{exps 1640}#) (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 1701}#) + (#{top-level-eval-hook 288}# + (#{chi-top-sequence 449}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'e '(eval) - #{mod 1645}#) - #{mod 1645}#)) - #{exps 1622}#)) + #{mod 1663}#) + #{mod 1663}#)) + #{exps 1640}#)) (if (memq 'load - #{when-list 1683}#) + #{when-list 1701}#) (if (begin - (let ((#{t 1693}# + (let ((#{t 1711}# (memq 'compile - #{when-list 1683}#))) - (if #{t 1693}# - #{t 1693}# + #{when-list 1701}#))) + (if #{t 1711}# + #{t 1711}# (begin - (let ((#{t 1696}# + (let ((#{t 1714}# (memq 'expand - #{when-list 1683}#))) - (if #{t 1696}# - #{t 1696}# - (if (eq? #{m 1619}# + #{when-list 1701}#))) + (if #{t 1714}# + #{t 1714}# + (if (eq? #{m 1637}# 'c&e) (memq 'eval - #{when-list 1683}#) + #{when-list 1701}#) #f))))))) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'c&e '(compile load) - #{mod 1645}# - #{exps 1622}#) - (if (if (eq? #{m 1619}# + #{mod 1663}# + #{exps 1640}#) + (if (if (eq? #{m 1637}# 'c) #t - (eq? #{m 1619}# + (eq? #{m 1637}# 'c&e)) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'c '(load) - #{mod 1645}# - #{exps 1622}#) - #{exps 1622}#)) + #{mod 1663}# + #{exps 1640}#) + #{exps 1640}#)) (if (begin - (let ((#{t 1704}# + (let ((#{t 1722}# (memq 'compile - #{when-list 1683}#))) - (if #{t 1704}# - #{t 1704}# + #{when-list 1701}#))) + (if #{t 1722}# + #{t 1722}# (begin - (let ((#{t 1707}# + (let ((#{t 1725}# (memq 'expand - #{when-list 1683}#))) - (if #{t 1707}# - #{t 1707}# - (if (eq? #{m 1619}# + #{when-list 1701}#))) + (if #{t 1725}# + #{t 1725}# + (if (eq? #{m 1637}# 'c&e) (memq 'eval - #{when-list 1683}#) + #{when-list 1701}#) #f))))))) (begin - (#{top-level-eval-hook 287}# - (#{chi-top-sequence 448}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{top-level-eval-hook 288}# + (#{chi-top-sequence 449}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'e '(eval) - #{mod 1645}#) - #{mod 1645}#) - #{exps 1622}#) - #{exps 1622}#)))))) - #{tmp 1674}#) + #{mod 1663}#) + #{mod 1663}#) + #{exps 1640}#) + #{exps 1640}#)))))) + #{tmp 1692}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1673}#)))) - (if (eqv? #{type 1640}# 'define-syntax-form) + #{tmp 1691}#)))) + (if (eqv? #{type 1658}# '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 1733}# + (#{id-var-name 431}# + #{value 1659}# + #{w 1661}#)) + (#{r 1734}# + (#{macros-only-env 369}# + #{r 1634}#))) + (if (eqv? #{m 1637}# 'c) + (if (memq 'compile #{esew 1638}#) (begin - (let ((#{e 1719}# - (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)))) + (let ((#{e 1737}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{e 1719}# - #{mod 1645}#) + (#{top-level-eval-hook 288}# + #{e 1737}# + #{mod 1663}#) (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 1638}#) + (cons #{e 1737}# + #{exps 1640}#) + #{exps 1640}#)))) + (if (memq 'load #{esew 1638}#) + (cons (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)) + #{exps 1640}#) + #{exps 1640}#)) + (if (eqv? #{m 1637}# 'c&e) (begin - (let ((#{e 1722}# - (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)))) + (let ((#{e 1740}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{e 1722}# - #{mod 1645}#) - (cons #{e 1722}# - #{exps 1622}#)))) + (#{top-level-eval-hook 288}# + #{e 1740}# + #{mod 1663}#) + (cons #{e 1740}# + #{exps 1640}#)))) (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 1638}#) + (#{top-level-eval-hook 288}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)) + #{mod 1663}#)) + #{exps 1640}#))))) + (if (eqv? #{type 1658}# 'define-form) (begin - (let ((#{n 1727}# - (#{id-var-name 430}# - #{value 1641}# - #{w 1643}#))) + (let ((#{n 1745}# + (#{id-var-name 431}# + #{value 1659}# + #{w 1661}#))) (begin - (let ((#{type 1729}# - (car (#{lookup 370}# - #{n 1727}# - #{r 1616}# - #{mod 1645}#)))) - (if (if (eqv? #{type 1729}# + (let ((#{type 1747}# + (car (#{lookup 371}# + #{n 1745}# + #{r 1634}# + #{mod 1663}#)))) + (if (if (eqv? #{type 1747}# 'global) #t - (if (eqv? #{type 1729}# + (if (eqv? #{type 1747}# 'core) #t - (if (eqv? #{type 1729}# + (if (eqv? #{type 1747}# 'macro) #t - (eqv? #{type 1729}# + (eqv? #{type 1747}# 'module-ref)))) (begin - (if (if (if (eq? #{m 1619}# + (if (if (if (eq? #{m 1637}# 'c) #t - (eq? #{m 1619}# + (eq? #{m 1637}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 1727}#)) + #{n 1745}#)) (current-module) #f) #f) (begin - (let ((#{old 1736}# + (let ((#{old 1754}# (module-variable (current-module) - #{n 1727}#))) + #{n 1745}#))) (if (if (variable? - #{old 1736}#) + #{old 1754}#) (variable-bound? - #{old 1736}#) + #{old 1754}#) #f) (module-define! (current-module) - #{n 1727}# + #{n 1745}# (variable-ref - #{old 1736}#)) + #{old 1754}#)) (module-add! (current-module) - #{n 1727}# + #{n 1745}# (make-undefined-variable)))))) - (cons (if (eq? #{m 1619}# + (cons (if (eq? #{m 1637}# '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 1758}# + (#{build-global-definition 319}# + #{s 1662}# + #{n 1745}# + (#{chi 457}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{x 1740}# - #{mod 1645}#) - #{x 1740}#))) + (#{top-level-eval-hook 288}# + #{x 1758}# + #{mod 1663}#) + #{x 1758}#))) (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 319}# + #{s 1662}# + #{n 1745}# + (#{chi 457}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{mod 1663}#)))) + #{exps 1640}#)) + (if (eqv? #{type 1747}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 1642}# - (#{wrap 442}# - #{value 1641}# - #{w 1643}# - #{mod 1645}#)) + #{e 1660}# + (#{wrap 443}# + #{value 1659}# + #{w 1661}# + #{mod 1663}#)) (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 1660}# + (#{wrap 443}# + #{value 1659}# + #{w 1661}# + #{mod 1663}#)))))))) + (cons (if (eq? #{m 1637}# '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 1763}# + (#{chi-expr 459}# + #{type 1658}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#))) (begin - (#{top-level-eval-hook 287}# - #{x 1745}# - #{mod 1645}#) - #{x 1745}#))) + (#{top-level-eval-hook 288}# + #{x 1763}# + #{mod 1663}#) + #{x 1763}#))) (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 459}# + #{type 1658}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#))) + #{exps 1640}#))))))))) + (lambda (#{exps 1764}#) + (#{scan 1632}# + (cdr #{body 1633}#) + #{r 1634}# + #{w 1635}# + #{s 1636}# + #{m 1637}# + #{esew 1638}# + #{mod 1639}# + #{exps 1764}#))))))) (begin (call-with-values (lambda () - (#{scan 1614}# - #{body 1599}# - #{r 1600}# - #{w 1601}# - #{s 1602}# - #{m 1603}# - #{esew 1604}# - #{mod 1605}# + (#{scan 1632}# + #{body 1617}# + #{r 1618}# + #{w 1619}# + #{s 1620}# + #{m 1621}# + #{esew 1622}# + #{mod 1623}# '())) - (lambda (#{exps 1748}#) - (if (null? #{exps 1748}#) - (#{build-void 300}# #{s 1602}#) - (#{build-sequence 330}# - #{s 1602}# + (lambda (#{exps 1766}#) + (if (null? #{exps 1766}#) + (#{build-void 301}# #{s 1620}#) + (#{build-sequence 331}# + #{s 1620}# (letrec* - ((#{lp 1753}# - (lambda (#{in 1754}# #{out 1755}#) - (if (null? #{in 1754}#) - #{out 1755}# + ((#{lp 1771}# + (lambda (#{in 1772}# #{out 1773}#) + (if (null? #{in 1772}#) + #{out 1773}# (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 1775}# (car #{in 1772}#))) + (#{lp 1771}# + (cdr #{in 1772}#) + (cons (if (procedure? #{e 1775}#) + (#{e 1775}#) + #{e 1775}#) + #{out 1773}#)))))))) + (begin (#{lp 1771}# #{exps 1766}# '()))))))))))) + (#{chi-install-global 451}# + (lambda (#{name 1776}# #{e 1777}#) + (#{build-global-definition 319}# #f - #{name 1758}# - (#{build-application 302}# + #{name 1776}# + (#{build-application 303}# #f - (#{build-primref 326}# + (#{build-primref 327}# #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 329}# #f #{name 1776}#) + (#{build-data 329}# #f 'macro) + #{e 1777}#))))) + (#{chi-when-list 453}# + (lambda (#{e 1785}# #{when-list 1786}# #{w 1787}#) (letrec* - ((#{f 1776}# - (lambda (#{when-list 1777}# #{situations 1778}#) - (if (null? #{when-list 1777}#) - #{situations 1778}# - (#{f 1776}# - (cdr #{when-list 1777}#) + ((#{f 1794}# + (lambda (#{when-list 1795}# #{situations 1796}#) + (if (null? #{when-list 1795}#) + #{situations 1796}# + (#{f 1794}# + (cdr #{when-list 1795}#) (cons (begin - (let ((#{x 1780}# (car #{when-list 1777}#))) - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'compile - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'load - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'eval - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'expand - (syntax-violation - 'eval-when - "invalid situation" - #{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}#) + (let ((#{x 1798}# + (syntax->datum + (car #{when-list 1795}#)))) + (if (if (eq? #{x 1798}# 'compile) + #t + (if (eq? #{x 1798}# 'load) + #t + (if (eq? #{x 1798}# 'eval) + #t + (eq? #{x 1798}# 'expand)))) + #{x 1798}# + (syntax-violation + 'eval-when + "invalid situation" + #{e 1785}# + (#{wrap 443}# + (car #{when-list 1795}#) + #{w 1787}# + #f))))) + #{situations 1796}#)))))) + (begin (#{f 1794}# #{when-list 1786}# '()))))) + (#{syntax-type 455}# + (lambda (#{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# + #{for-car? 1805}#) + (if (symbol? #{e 1799}#) (begin - (let ((#{n 1808}# - (#{id-var-name 430}# #{e 1790}# #{w 1792}#))) + (let ((#{n 1817}# + (#{id-var-name 431}# #{e 1799}# #{w 1801}#))) (begin - (let ((#{b 1810}# - (#{lookup 370}# - #{n 1808}# - #{r 1791}# - #{mod 1795}#))) + (let ((#{b 1819}# + (#{lookup 371}# + #{n 1817}# + #{r 1800}# + #{mod 1804}#))) (begin - (let ((#{type 1812}# (car #{b 1810}#))) - (if (eqv? #{type 1812}# 'lexical) + (let ((#{type 1821}# (car #{b 1819}#))) + (if (eqv? #{type 1821}# 'lexical) (values - #{type 1812}# - (cdr #{b 1810}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{type 1812}# 'global) + #{type 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{type 1821}# 'global) (values - #{type 1812}# - #{n 1808}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{type 1812}# 'macro) - (if #{for-car? 1796}# + #{type 1821}# + #{n 1817}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{type 1821}# 'macro) + (if #{for-car? 1805}# (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 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (#{syntax-type 455}# + (#{chi-macro 463}# + (cdr #{b 1819}#) + #{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}#) + #{r 1800}# '(()) - #{s 1793}# - #{rib 1794}# - #{mod 1795}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# #f)) (values - #{type 1812}# - (cdr #{b 1810}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)))))))))) - (if (pair? #{e 1790}#) + #{type 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)))))))))) + (if (pair? #{e 1799}#) (begin - (let ((#{first 1826}# (car #{e 1790}#))) + (let ((#{first 1835}# (car #{e 1799}#))) (call-with-values (lambda () - (#{syntax-type 454}# - #{first 1826}# - #{r 1791}# - #{w 1792}# - #{s 1793}# - #{rib 1794}# - #{mod 1795}# + (#{syntax-type 455}# + #{first 1835}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# #t)) - (lambda (#{ftype 1827}# - #{fval 1828}# - #{fe 1829}# - #{fw 1830}# - #{fs 1831}# - #{fmod 1832}#) - (if (eqv? #{ftype 1827}# 'lexical) + (lambda (#{ftype 1836}# + #{fval 1837}# + #{fe 1838}# + #{fw 1839}# + #{fs 1840}# + #{fmod 1841}#) + (if (eqv? #{ftype 1836}# 'lexical) (values 'lexical-call - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'global) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# '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 341}# + #{fval 1837}# + #{w 1801}# + #{fmod 1841}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'macro) + (#{syntax-type 455}# + (#{chi-macro 463}# + #{fval 1837}# + #{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}#) + #{r 1800}# '(()) - #{s 1793}# - #{rib 1794}# - #{mod 1795}# - #{for-car? 1796}#) - (if (eqv? #{ftype 1827}# 'module-ref) + #{s 1802}# + #{rib 1803}# + #{mod 1804}# + #{for-car? 1805}#) + (if (eqv? #{ftype 1836}# '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 1837}# + #{e 1799}# + #{r 1800}# + #{w 1801}#)) + (lambda (#{e 1853}# + #{r 1854}# + #{w 1855}# + #{s 1856}# + #{mod 1857}#) + (#{syntax-type 455}# + #{e 1853}# + #{r 1854}# + #{w 1855}# + #{s 1856}# + #{rib 1803}# + #{mod 1857}# + #{for-car? 1805}#))) + (if (eqv? #{ftype 1836}# 'core) (values 'core-form - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'local-syntax) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'local-syntax) (values 'local-syntax-form - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'begin) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'begin) (values 'begin-form #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'eval-when) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# '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 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'define) + (let ((#{tmp 1868}# #{e 1799}#)) + (let ((#{tmp 1869}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ any any)))) - (if (if #{tmp 1860}# + (if (if #{tmp 1869}# (@apply - (lambda (#{name 1863}# - #{val 1864}#) - (#{id? 376}# - #{name 1863}#)) - #{tmp 1860}#) + (lambda (#{name 1872}# + #{val 1873}#) + (#{id? 377}# + #{name 1872}#)) + #{tmp 1869}#) #f) (@apply - (lambda (#{name 1867}# - #{val 1868}#) + (lambda (#{name 1876}# + #{val 1877}#) (values 'define-form - #{name 1867}# - #{val 1868}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)) - #{tmp 1860}#) - (let ((#{tmp 1869}# + #{name 1876}# + #{val 1877}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1869}#) + (let ((#{tmp 1878}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 1869}# + (if (if #{tmp 1878}# (@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 1883}# + #{args 1884}# + #{e1 1885}# + #{e2 1886}#) + (if (#{id? 377}# + #{name 1883}#) + (#{valid-bound-ids? 437}# + (#{lambda-var-list 487}# + #{args 1884}#)) #f)) - #{tmp 1869}#) + #{tmp 1878}#) #f) (@apply - (lambda (#{name 1884}# - #{args 1885}# - #{e1 1886}# - #{e2 1887}#) + (lambda (#{name 1893}# + #{args 1894}# + #{e1 1895}# + #{e2 1896}#) (values 'define-form - (#{wrap 442}# - #{name 1884}# - #{w 1792}# - #{mod 1795}#) - (#{decorate-source 296}# + (#{wrap 443}# + #{name 1893}# + #{w 1801}# + #{mod 1804}#) + (#{decorate-source 297}# (cons '#(syntax-object lambda ((top) @@ -3572,10 +1864,10 @@ (top) (top) (top)) - #("i1880" - "i1881" - "i1882" - "i1883")) + #("i1889" + "i1890" + "i1891" + "i1892")) #(ribcage () () @@ -3597,12 +1889,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -3610,7 +1902,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -3638,13 +1930,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -3918,57 +2210,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -3977,83 +2270,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -4063,49 +2355,49 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) - (#{wrap 442}# - (cons #{args 1885}# - (cons #{e1 1886}# - #{e2 1887}#)) - #{w 1792}# - #{mod 1795}#)) - #{s 1793}#) + (#{wrap 443}# + (cons #{args 1894}# + (cons #{e1 1895}# + #{e2 1896}#)) + #{w 1801}# + #{mod 1804}#)) + #{s 1802}#) '(()) - #{s 1793}# - #{mod 1795}#)) - #{tmp 1869}#) - (let ((#{tmp 1890}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1878}#) + (let ((#{tmp 1899}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ any)))) - (if (if #{tmp 1890}# + (if (if #{tmp 1899}# (@apply - (lambda (#{name 1892}#) - (#{id? 376}# - #{name 1892}#)) - #{tmp 1890}#) + (lambda (#{name 1901}#) + (#{id? 377}# + #{name 1901}#)) + #{tmp 1899}#) #f) (@apply - (lambda (#{name 1894}#) + (lambda (#{name 1903}#) (values 'define-form - (#{wrap 442}# - #{name 1894}# - #{w 1792}# - #{mod 1795}#) + (#{wrap 443}# + #{name 1903}# + #{w 1801}# + #{mod 1804}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -4127,12 +2419,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -4140,7 +2432,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -4168,13 +2460,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -4448,57 +2740,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -4507,83 +2800,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -4593,10 +2885,10 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) #(syntax-object @@ -4605,7 +2897,7 @@ #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -4627,12 +2919,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -4640,7 +2932,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -4668,13 +2960,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -4948,57 +3240,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -5007,83 +3300,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -5093,10 +3385,10 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) #(syntax-object @@ -5105,7 +3397,7 @@ #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -5127,12 +3419,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -5140,7 +3432,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -5168,13 +3460,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -5448,57 +3740,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -5507,83 +3800,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -5593,841 +3885,841 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile))) '(()) - #{s 1793}# - #{mod 1795}#)) - #{tmp 1890}#) + #{s 1802}# + #{mod 1804}#)) + #{tmp 1899}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1859}#)))))))) - (if (eqv? #{ftype 1827}# + #{tmp 1868}#)))))))) + (if (eqv? #{ftype 1836}# 'define-syntax) - (let ((#{tmp 1897}# #{e 1790}#)) - (let ((#{tmp 1898}# + (let ((#{tmp 1906}# #{e 1799}#)) + (let ((#{tmp 1907}# ($sc-dispatch - #{tmp 1897}# + #{tmp 1906}# '(_ any any)))) - (if (if #{tmp 1898}# + (if (if #{tmp 1907}# (@apply - (lambda (#{name 1901}# - #{val 1902}#) - (#{id? 376}# - #{name 1901}#)) - #{tmp 1898}#) + (lambda (#{name 1910}# + #{val 1911}#) + (#{id? 377}# + #{name 1910}#)) + #{tmp 1907}#) #f) (@apply - (lambda (#{name 1905}# - #{val 1906}#) + (lambda (#{name 1914}# + #{val 1915}#) (values 'define-syntax-form - #{name 1905}# - #{val 1906}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)) - #{tmp 1898}#) + #{name 1914}# + #{val 1915}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1907}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1897}#)))) + #{tmp 1906}#)))) (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 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#))))))))))))))) + (if (#{syntax-object? 343}# #{e 1799}#) + (#{syntax-type 455}# + (#{syntax-object-expression 345}# #{e 1799}#) + #{r 1800}# + (#{join-wraps 425}# + #{w 1801}# + (#{syntax-object-wrap 347}# #{e 1799}#)) (begin - (let ((#{t 1912}# - (#{source-annotation 357}# #{e 1790}#))) - (if #{t 1912}# #{t 1912}# #{s 1793}#))) - #{rib 1794}# + (let ((#{t 1921}# + (#{source-annotation 358}# #{e 1799}#))) + (if #{t 1921}# #{t 1921}# #{s 1802}#))) + #{rib 1803}# (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 1925}# + (#{syntax-object-module 349}# #{e 1799}#))) + (if #{t 1925}# #{t 1925}# #{mod 1804}#))) + #{for-car? 1805}#) + (if (self-evaluating? #{e 1799}#) (values 'constant #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) (values 'other #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#))))))) - (#{chi 456}# - (lambda (#{e 1921}# #{r 1922}# #{w 1923}# #{mod 1924}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#))))))) + (#{chi 457}# + (lambda (#{e 1930}# #{r 1931}# #{w 1932}# #{mod 1933}#) (call-with-values (lambda () - (#{syntax-type 454}# - #{e 1921}# - #{r 1922}# - #{w 1923}# - (#{source-annotation 357}# #{e 1921}#) - #f - #{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}# + (#{syntax-type 455}# + #{e 1930}# + #{r 1931}# #{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}# + (#{source-annotation 358}# #{e 1930}#) + #f + #{mod 1933}# + #f)) + (lambda (#{type 1938}# + #{value 1939}# + #{e 1940}# + #{w 1941}# + #{s 1942}# + #{mod 1943}#) + (#{chi-expr 459}# + #{type 1938}# + #{value 1939}# + #{e 1940}# + #{r 1931}# + #{w 1941}# + #{s 1942}# + #{mod 1943}#))))) + (#{chi-expr 459}# + (lambda (#{type 1950}# + #{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'lexical) + (#{build-lexical-reference 309}# 'value - #{s 1946}# - #{e 1943}# - #{value 1942}#) - (if (if (eqv? #{type 1941}# 'core) + #{s 1955}# + #{e 1952}# + #{value 1951}#) + (if (if (eqv? #{type 1950}# '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 1950}# 'core-form)) + (#{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# '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 1951}# #{e 1952}# #{r 1953}# #{w 1954}#)) + (lambda (#{e 1967}# + #{r 1968}# + #{w 1969}# + #{s 1970}# + #{mod 1971}#) + (#{chi 457}# + #{e 1967}# + #{r 1968}# + #{w 1969}# + #{mod 1971}#))) + (if (eqv? #{type 1950}# 'lexical-call) + (#{chi-application 461}# (begin - (let ((#{id 1970}# (car #{e 1943}#))) - (#{build-lexical-reference 308}# + (let ((#{id 1979}# (car #{e 1952}#))) + (#{build-lexical-reference 309}# '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 358}# #{id 1979}#) + (if (#{syntax-object? 343}# #{id 1979}#) + (syntax->datum #{id 1979}#) + #{id 1979}#) + #{value 1951}#))) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'global-call) + (#{chi-application 461}# + (#{build-global-reference 315}# + (#{source-annotation 358}# (car #{e 1952}#)) + (if (#{syntax-object? 343}# #{value 1951}#) + (#{syntax-object-expression 345}# #{value 1951}#) + #{value 1951}#) + (if (#{syntax-object? 343}# #{value 1951}#) + (#{syntax-object-module 349}# #{value 1951}#) + #{mod 1956}#)) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'constant) + (#{build-data 329}# + #{s 1955}# + (#{strip 483}# + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) '(()))) - (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 1950}# 'global) + (#{build-global-reference 315}# + #{s 1955}# + #{value 1951}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'call) + (#{chi-application 461}# + (#{chi 457}# + (car #{e 1952}#) + #{r 1953}# + #{w 1954}# + #{mod 1956}#) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'begin-form) + (let ((#{tmp 1986}# #{e 1952}#)) + (let ((#{tmp 1987}# ($sc-dispatch - #{tmp 1977}# + #{tmp 1986}# '(_ any . each-any)))) - (if #{tmp 1978}# + (if #{tmp 1987}# (@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 1990}# #{e2 1991}#) + (#{chi-sequence 447}# + (cons #{e1 1990}# #{e2 1991}#) + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) + #{tmp 1987}#) (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 1986}#)))) + (if (eqv? #{type 1950}# 'local-syntax-form) + (#{chi-local-syntax 467}# + #{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}# + #{chi-sequence 447}#) + (if (eqv? #{type 1950}# 'eval-when-form) + (let ((#{tmp 1995}# #{e 1952}#)) + (let ((#{tmp 1996}# ($sc-dispatch - #{tmp 1986}# + #{tmp 1995}# '(_ each-any any . each-any)))) - (if #{tmp 1987}# + (if #{tmp 1996}# (@apply - (lambda (#{x 1991}# - #{e1 1992}# - #{e2 1993}#) + (lambda (#{x 2000}# + #{e1 2001}# + #{e2 2002}#) (begin - (let ((#{when-list 1995}# - (#{chi-when-list 452}# - #{e 1943}# - #{x 1991}# - #{w 1945}#))) + (let ((#{when-list 2004}# + (#{chi-when-list 453}# + #{e 1952}# + #{x 2000}# + #{w 1954}#))) (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 2004}#) + (#{chi-sequence 447}# + (cons #{e1 2001}# + #{e2 2002}#) + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (#{chi-void 471}#))))) + #{tmp 1996}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1986}#)))) - (if (if (eqv? #{type 1941}# 'define-form) + #{tmp 1995}#)))) + (if (if (eqv? #{type 1950}# 'define-form) #t - (eqv? #{type 1941}# + (eqv? #{type 1950}# '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 1952}# + (#{wrap 443}# + #{value 1951}# + #{w 1954}# + #{mod 1956}#)) + (if (eqv? #{type 1950}# '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 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) + (if (eqv? #{type 1950}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap 444}# - #{e 1943}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#)) + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) (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 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)))))))))))))))))) + (#{chi-application 461}# + (lambda (#{x 2011}# + #{e 2012}# + #{r 2013}# + #{w 2014}# + #{s 2015}# + #{mod 2016}#) + (let ((#{tmp 2023}# #{e 2012}#)) + (let ((#{tmp 2024}# + ($sc-dispatch #{tmp 2023}# '(any . each-any)))) + (if #{tmp 2024}# (@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 2027}# #{e1 2028}#) + (#{build-application 303}# + #{s 2015}# + #{x 2011}# + (map (lambda (#{e 2029}#) + (#{chi 457}# + #{e 2029}# + #{r 2013}# + #{w 2014}# + #{mod 2016}#)) + #{e1 2028}#))) + #{tmp 2024}#) (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 2023}#)))))) + (#{chi-macro 463}# + (lambda (#{p 2032}# + #{e 2033}# + #{r 2034}# + #{w 2035}# + #{s 2036}# + #{rib 2037}# + #{mod 2038}#) (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 2047}# + (lambda (#{x 2048}# #{m 2049}#) + (if (pair? #{x 2048}#) + (#{decorate-source 297}# + (cons (#{rebuild-macro-output 2047}# + (car #{x 2048}#) + #{m 2049}#) + (#{rebuild-macro-output 2047}# + (cdr #{x 2048}#) + #{m 2049}#)) + #{s 2036}#) + (if (#{syntax-object? 343}# #{x 2048}#) (begin - (let ((#{w 2048}# - (#{syntax-object-wrap 346}# #{x 2039}#))) + (let ((#{w 2057}# + (#{syntax-object-wrap 347}# #{x 2048}#))) (begin - (let ((#{ms 2051}# (car #{w 2048}#)) - (#{s 2052}# (cdr #{w 2048}#))) - (if (if (pair? #{ms 2051}#) - (eq? (car #{ms 2051}#) #f) + (let ((#{ms 2060}# (car #{w 2057}#)) + (#{s 2061}# (cdr #{w 2057}#))) + (if (if (pair? #{ms 2060}#) + (eq? (car #{ms 2060}#) #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 341}# + (#{syntax-object-expression 345}# #{x 2048}#) + (cons (cdr #{ms 2060}#) + (if #{rib 2037}# + (cons #{rib 2037}# (cdr #{s 2061}#)) + (cdr #{s 2061}#))) + (#{syntax-object-module 349}# #{x 2048}#)) + (#{make-syntax-object 341}# + (#{decorate-source 297}# + (#{syntax-object-expression 345}# + #{x 2048}#) + #{s 2061}#) + (cons (cons #{m 2049}# #{ms 2060}#) + (if #{rib 2037}# + (cons #{rib 2037}# + (cons 'shift #{s 2061}#)) + (cons 'shift #{s 2061}#))) + (#{syntax-object-module 349}# + #{x 2048}#))))))) + (if (vector? #{x 2048}#) (begin - (let ((#{n 2064}# (vector-length #{x 2039}#))) + (let ((#{n 2073}# (vector-length #{x 2048}#))) (begin - (let ((#{v 2066}# - (#{decorate-source 296}# - (make-vector #{n 2064}#) - #{x 2039}#))) + (let ((#{v 2075}# + (#{decorate-source 297}# + (make-vector #{n 2073}#) + #{x 2048}#))) (letrec* - ((#{loop 2069}# - (lambda (#{i 2070}#) - (if (= #{i 2070}# #{n 2064}#) - (begin (if #f #f) #{v 2066}#) + ((#{loop 2078}# + (lambda (#{i 2079}#) + (if (= #{i 2079}# #{n 2073}#) + (begin (if #f #f) #{v 2075}#) (begin (vector-set! - #{v 2066}# - #{i 2070}# - (#{rebuild-macro-output 2038}# + #{v 2075}# + #{i 2079}# + (#{rebuild-macro-output 2047}# (vector-ref - #{x 2039}# - #{i 2070}#) - #{m 2040}#)) - (#{loop 2069}# - (#{1+}# #{i 2070}#))))))) - (begin (#{loop 2069}# 0))))))) - (if (symbol? #{x 2039}#) + #{x 2048}# + #{i 2079}#) + #{m 2049}#)) + (#{loop 2078}# + (#{1+}# #{i 2079}#))))))) + (begin (#{loop 2078}# 0))))))) + (if (symbol? #{x 2048}#) (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 445}# + #{e 2033}# + #{w 2035}# + (cdr #{w 2035}#) + #{mod 2038}#) + #{x 2048}#) + (#{decorate-source 297}# + #{x 2048}# + #{s 2036}#)))))))) (begin - (#{rebuild-macro-output 2038}# - (#{p 2023}# - (#{source-wrap 444}# - #{e 2024}# - (#{anti-mark 414}# #{w 2026}#) - #{s 2027}# - #{mod 2029}#)) + (#{rebuild-macro-output 2047}# + (#{p 2032}# + (#{source-wrap 445}# + #{e 2033}# + (#{anti-mark 415}# #{w 2035}#) + #{s 2036}# + #{mod 2038}#)) (gensym "m")))))) - (#{chi-body 464}# - (lambda (#{body 2080}# - #{outer-form 2081}# - #{r 2082}# - #{w 2083}# - #{mod 2084}#) + (#{chi-body 465}# + (lambda (#{body 2089}# + #{outer-form 2090}# + #{r 2091}# + #{w 2092}# + #{mod 2093}#) (begin - (let ((#{r 2092}# - (cons '("placeholder" placeholder) #{r 2082}#))) + (let ((#{r 2101}# + (cons '("placeholder" placeholder) #{r 2091}#))) (begin - (let ((#{ribcage 2094}# - (#{make-ribcage 394}# '() '() '()))) + (let ((#{ribcage 2103}# + (#{make-ribcage 395}# '() '() '()))) (begin - (let ((#{w 2097}# - (cons (car #{w 2083}#) - (cons #{ribcage 2094}# (cdr #{w 2083}#))))) + (let ((#{w 2106}# + (cons (car #{w 2092}#) + (cons #{ribcage 2103}# (cdr #{w 2092}#))))) (letrec* - ((#{parse 2109}# - (lambda (#{body 2110}# - #{ids 2111}# - #{labels 2112}# - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# - #{bindings 2116}#) - (if (null? #{body 2110}#) + ((#{parse 2118}# + (lambda (#{body 2119}# + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#) + (if (null? #{body 2119}#) (syntax-violation #f "no expressions in body" - #{outer-form 2081}#) + #{outer-form 2090}#) (begin - (let ((#{e 2121}# (cdr (car #{body 2110}#))) - (#{er 2122}# - (car (car #{body 2110}#)))) + (let ((#{e 2130}# (cdr (car #{body 2119}#))) + (#{er 2131}# + (car (car #{body 2119}#)))) (call-with-values (lambda () - (#{syntax-type 454}# - #{e 2121}# - #{er 2122}# + (#{syntax-type 455}# + #{e 2130}# + #{er 2131}# '(()) - (#{source-annotation 357}# - #{er 2122}#) - #{ribcage 2094}# - #{mod 2084}# + (#{source-annotation 358}# + #{er 2131}#) + #{ribcage 2103}# + #{mod 2093}# #f)) - (lambda (#{type 2124}# - #{value 2125}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#) - (if (eqv? #{type 2124}# 'define-form) + (lambda (#{type 2133}# + #{value 2134}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#) + (if (eqv? #{type 2133}# 'define-form) (begin - (let ((#{id 2139}# - (#{wrap 442}# - #{value 2125}# - #{w 2127}# - #{mod 2129}#)) - (#{label 2140}# - (#{gen-label 389}#))) + (let ((#{id 2148}# + (#{wrap 443}# + #{value 2134}# + #{w 2136}# + #{mod 2138}#)) + (#{label 2149}# + (#{gen-label 390}#))) (begin - (let ((#{var 2142}# - (#{gen-var 484}# - #{id 2139}#))) + (let ((#{var 2151}# + (#{gen-var 485}# + #{id 2148}#))) (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! 419}# + #{ribcage 2103}# + #{id 2148}# + #{label 2149}#) + (#{parse 2118}# + (cdr #{body 2119}#) + (cons #{id 2148}# + #{ids 2120}#) + (cons #{label 2149}# + #{labels 2121}#) + (cons #{id 2148}# + #{var-ids 2122}#) + (cons #{var 2151}# + #{vars 2123}#) + (cons (cons #{er 2131}# + (#{wrap 443}# + #{e 2135}# + #{w 2136}# + #{mod 2138}#)) + #{vals 2124}#) (cons (cons 'lexical - #{var 2142}#) - #{bindings 2116}#))))))) - (if (eqv? #{type 2124}# + #{var 2151}#) + #{bindings 2125}#))))))) + (if (eqv? #{type 2133}# 'define-syntax-form) (begin - (let ((#{id 2147}# - (#{wrap 442}# - #{value 2125}# - #{w 2127}# - #{mod 2129}#)) - (#{label 2148}# - (#{gen-label 389}#))) + (let ((#{id 2156}# + (#{wrap 443}# + #{value 2134}# + #{w 2136}# + #{mod 2138}#)) + (#{label 2157}# + (#{gen-label 390}#))) (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! 419}# + #{ribcage 2103}# + #{id 2156}# + #{label 2157}#) + (#{parse 2118}# + (cdr #{body 2119}#) + (cons #{id 2156}# + #{ids 2120}#) + (cons #{label 2157}# + #{labels 2121}#) + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# (cons (cons 'macro - (cons #{er 2122}# - (#{wrap 442}# - #{e 2126}# - #{w 2127}# - #{mod 2129}#))) - #{bindings 2116}#))))) - (if (eqv? #{type 2124}# + (cons #{er 2131}# + (#{wrap 443}# + #{e 2135}# + #{w 2136}# + #{mod 2138}#))) + #{bindings 2125}#))))) + (if (eqv? #{type 2133}# 'begin-form) - (let ((#{tmp 2151}# #{e 2126}#)) - (let ((#{tmp 2152}# + (let ((#{tmp 2160}# #{e 2135}#)) + (let ((#{tmp 2161}# ($sc-dispatch - #{tmp 2151}# + #{tmp 2160}# '(_ . each-any)))) - (if #{tmp 2152}# + (if #{tmp 2161}# (@apply - (lambda (#{e1 2154}#) - (#{parse 2109}# + (lambda (#{e1 2163}#) + (#{parse 2118}# (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 2166}# + (lambda (#{forms 2167}#) + (if (null? #{forms 2167}#) + (cdr #{body 2119}#) + (cons (cons #{er 2131}# + (#{wrap 443}# + (car #{forms 2167}#) + #{w 2136}# + #{mod 2138}#)) + (#{f 2166}# + (cdr #{forms 2167}#))))))) (begin - (#{f 2157}# - #{e1 2154}#))) - #{ids 2111}# - #{labels 2112}# - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# - #{bindings 2116}#)) - #{tmp 2152}#) + (#{f 2166}# + #{e1 2163}#))) + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#)) + #{tmp 2161}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2151}#)))) - (if (eqv? #{type 2124}# + #{tmp 2160}#)))) + (if (eqv? #{type 2133}# '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 467}# + #{value 2134}# + #{e 2135}# + #{er 2131}# + #{w 2136}# + #{s 2137}# + #{mod 2138}# + (lambda (#{forms 2170}# + #{er 2171}# + #{w 2172}# + #{s 2173}# + #{mod 2174}#) + (#{parse 2118}# (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 2182}# + (lambda (#{forms 2183}#) + (if (null? #{forms 2183}#) + (cdr #{body 2119}#) + (cons (cons #{er 2171}# + (#{wrap 443}# + (car #{forms 2183}#) + #{w 2172}# + #{mod 2174}#)) + (#{f 2182}# + (cdr #{forms 2183}#))))))) (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 2182}# + #{forms 2170}#))) + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#))) + (if (null? #{ids 2120}#) + (#{build-sequence 331}# #f - (map (lambda (#{x 2177}#) - (#{chi 456}# - (cdr #{x 2177}#) - (car #{x 2177}#) + (map (lambda (#{x 2186}#) + (#{chi 457}# + (cdr #{x 2186}#) + (car #{x 2186}#) '(()) - #{mod 2129}#)) - (cons (cons #{er 2122}# - (#{source-wrap 444}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#)) - (cdr #{body 2110}#)))) + #{mod 2138}#)) + (cons (cons #{er 2131}# + (#{source-wrap 445}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#)) + (cdr #{body 2119}#)))) (begin - (if (not (#{valid-bound-ids? 436}# - #{ids 2111}#)) + (if (not (#{valid-bound-ids? 437}# + #{ids 2120}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 2081}#)) + #{outer-form 2090}#)) (letrec* - ((#{loop 2184}# - (lambda (#{bs 2185}# - #{er-cache 2186}# - #{r-cache 2187}#) - (if (not (null? #{bs 2185}#)) + ((#{loop 2193}# + (lambda (#{bs 2194}# + #{er-cache 2195}# + #{r-cache 2196}#) + (if (not (null? #{bs 2194}#)) (begin - (let ((#{b 2190}# - (car #{bs 2185}#))) - (if (eq? (car #{b 2190}#) + (let ((#{b 2199}# + (car #{bs 2194}#))) + (if (eq? (car #{b 2199}#) 'macro) (begin - (let ((#{er 2193}# - (car (cdr #{b 2190}#)))) + (let ((#{er 2202}# + (car (cdr #{b 2199}#)))) (begin - (let ((#{r-cache 2195}# - (if (eq? #{er 2193}# - #{er-cache 2186}#) - #{r-cache 2187}# - (#{macros-only-env 368}# - #{er 2193}#)))) + (let ((#{r-cache 2204}# + (if (eq? #{er 2202}# + #{er-cache 2195}#) + #{r-cache 2196}# + (#{macros-only-env 369}# + #{er 2202}#)))) (begin (set-cdr! - #{b 2190}# - (#{eval-local-transformer 468}# - (#{chi 456}# - (cdr (cdr #{b 2190}#)) - #{r-cache 2195}# + #{b 2199}# + (#{eval-local-transformer 469}# + (#{chi 457}# + (cdr (cdr #{b 2199}#)) + #{r-cache 2204}# '(()) - #{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 2138}#) + #{mod 2138}#)) + (#{loop 2193}# + (cdr #{bs 2194}#) + #{er 2202}# + #{r-cache 2204}#)))))) + (#{loop 2193}# + (cdr #{bs 2194}#) + #{er-cache 2195}# + #{r-cache 2196}#)))))))) (begin - (#{loop 2184}# - #{bindings 2116}# + (#{loop 2193}# + #{bindings 2125}# #f #f))) (set-cdr! - #{r 2092}# - (#{extend-env 364}# - #{labels 2112}# - #{bindings 2116}# - (cdr #{r 2092}#))) - (#{build-letrec 336}# + #{r 2101}# + (#{extend-env 365}# + #{labels 2121}# + #{bindings 2125}# + (cdr #{r 2101}#))) + (#{build-letrec 337}# #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 2122}#)) + (reverse #{vars 2123}#) + (map (lambda (#{x 2207}#) + (#{chi 457}# + (cdr #{x 2207}#) + (car #{x 2207}#) '(()) - #{mod 2129}#)) + #{mod 2138}#)) (reverse - #{vals 2115}#)) - (#{build-sequence 330}# + #{vals 2124}#)) + (#{build-sequence 331}# #f - (map (lambda (#{x 2202}#) - (#{chi 456}# - (cdr #{x 2202}#) - (car #{x 2202}#) + (map (lambda (#{x 2211}#) + (#{chi 457}# + (cdr #{x 2211}#) + (car #{x 2211}#) '(()) - #{mod 2129}#)) - (cons (cons #{er 2122}# - (#{source-wrap 444}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#)) - (cdr #{body 2110}#))))))))))))))))))) + #{mod 2138}#)) + (cons (cons #{er 2131}# + (#{source-wrap 445}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#)) + (cdr #{body 2119}#))))))))))))))))))) (begin - (#{parse 2109}# - (map (lambda (#{x 2117}#) - (cons #{r 2092}# - (#{wrap 442}# - #{x 2117}# - #{w 2097}# - #{mod 2084}#))) - #{body 2080}#) + (#{parse 2118}# + (map (lambda (#{x 2126}#) + (cons #{r 2101}# + (#{wrap 443}# + #{x 2126}# + #{w 2106}# + #{mod 2093}#))) + #{body 2089}#) '() '() '() '() '() '()))))))))))) - (#{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 467}# + (lambda (#{rec? 2214}# + #{e 2215}# + #{r 2216}# + #{w 2217}# + #{s 2218}# + #{mod 2219}# + #{k 2220}#) + (let ((#{tmp 2228}# #{e 2215}#)) + (let ((#{tmp 2229}# ($sc-dispatch - #{tmp 2219}# + #{tmp 2228}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2220}# + (if #{tmp 2229}# (@apply - (lambda (#{id 2225}# - #{val 2226}# - #{e1 2227}# - #{e2 2228}#) + (lambda (#{id 2234}# + #{val 2235}# + #{e1 2236}# + #{e2 2237}#) (begin - (let ((#{ids 2230}# #{id 2225}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 2230}#)) + (let ((#{ids 2239}# #{id 2234}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 2239}#)) (syntax-violation #f "duplicate bound keyword" - #{e 2206}#) + #{e 2215}#) (begin - (let ((#{labels 2233}# - (#{gen-labels 391}# #{ids 2230}#))) + (let ((#{labels 2242}# + (#{gen-labels 392}# #{ids 2239}#))) (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 2244}# + (#{make-binding-wrap 421}# + #{ids 2239}# + #{labels 2242}# + #{w 2217}#))) + (#{k 2220}# + (cons #{e1 2236}# #{e2 2237}#) + (#{extend-env 365}# + #{labels 2242}# (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 2248}# + (if #{rec? 2214}# + #{new-w 2244}# + #{w 2217}#)) + (#{trans-r 2249}# + (#{macros-only-env 369}# + #{r 2216}#))) + (map (lambda (#{x 2250}#) (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 469}# + (#{chi 457}# + #{x 2250}# + #{trans-r 2249}# + #{w 2248}# + #{mod 2219}#) + #{mod 2219}#))) + #{val 2235}#))) + #{r 2216}#) + #{new-w 2244}# + #{s 2218}# + #{mod 2219}#))))))))) + #{tmp 2229}#) + (let ((#{_ 2255}# #{tmp 2228}#)) (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 445}# + #{e 2215}# + #{w 2217}# + #{s 2218}# + #{mod 2219}#)))))))) + (#{eval-local-transformer 469}# + (lambda (#{expanded 2256}# #{mod 2257}#) (begin - (let ((#{p 2252}# - (#{local-eval-hook 289}# - #{expanded 2247}# - #{mod 2248}#))) - (if (procedure? #{p 2252}#) - #{p 2252}# + (let ((#{p 2261}# + (#{local-eval-hook 290}# + #{expanded 2256}# + #{mod 2257}#))) + (if (procedure? #{p 2261}#) + #{p 2261}# (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 2261}#)))))) + (#{chi-void 471}# + (lambda () (#{build-void 301}# #f))) + (#{ellipsis? 473}# + (lambda (#{x 2263}#) + (if (#{nonsymbol-id? 375}# #{x 2263}#) + (#{free-id=? 433}# + #{x 2263}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2255")) + #(ribcage #(x) #((top)) #("i2264")) #(ribcage (lambda-var-list gen-var @@ -6701,57 +4993,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -6760,341 +5053,340 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) #f))) - (#{lambda-formals 474}# - (lambda (#{orig-args 2258}#) + (#{lambda-formals 475}# + (lambda (#{orig-args 2267}#) (letrec* - ((#{req 2261}# - (lambda (#{args 2264}# #{rreq 2265}#) - (let ((#{tmp 2268}# #{args 2264}#)) - (let ((#{tmp 2269}# ($sc-dispatch #{tmp 2268}# '()))) - (if #{tmp 2269}# + ((#{req 2270}# + (lambda (#{args 2273}# #{rreq 2274}#) + (let ((#{tmp 2277}# #{args 2273}#)) + (let ((#{tmp 2278}# ($sc-dispatch #{tmp 2277}# '()))) + (if #{tmp 2278}# (@apply (lambda () - (#{check 2263}# (reverse #{rreq 2265}#) #f)) - #{tmp 2269}#) - (let ((#{tmp 2270}# - ($sc-dispatch #{tmp 2268}# '(any . any)))) - (if (if #{tmp 2270}# + (#{check 2272}# (reverse #{rreq 2274}#) #f)) + #{tmp 2278}#) + (let ((#{tmp 2279}# + ($sc-dispatch #{tmp 2277}# '(any . any)))) + (if (if #{tmp 2279}# (@apply - (lambda (#{a 2273}# #{b 2274}#) - (#{id? 376}# #{a 2273}#)) - #{tmp 2270}#) + (lambda (#{a 2282}# #{b 2283}#) + (#{id? 377}# #{a 2282}#)) + #{tmp 2279}#) #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 2286}# #{b 2287}#) + (#{req 2270}# + #{b 2287}# + (cons #{a 2286}# #{rreq 2274}#))) + #{tmp 2279}#) + (let ((#{tmp 2288}# (list #{tmp 2277}#))) + (if (if #{tmp 2288}# (@apply - (lambda (#{r 2281}#) - (#{id? 376}# #{r 2281}#)) - #{tmp 2279}#) + (lambda (#{r 2290}#) + (#{id? 377}# #{r 2290}#)) + #{tmp 2288}#) #f) (@apply - (lambda (#{r 2283}#) - (#{check 2263}# - (reverse #{rreq 2265}#) - #{r 2283}#)) - #{tmp 2279}#) - (let ((#{else 2285}# #{tmp 2268}#)) + (lambda (#{r 2292}#) + (#{check 2272}# + (reverse #{rreq 2274}#) + #{r 2292}#)) + #{tmp 2288}#) + (let ((#{else 2294}# #{tmp 2277}#)) (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 2267}# + #{args 2273}#))))))))))) + (#{check 2272}# + (lambda (#{req 2295}# #{rest 2296}#) + (if (#{distinct-bound-ids? 439}# + (if #{rest 2296}# + (cons #{rest 2296}# #{req 2295}#) + #{req 2295}#)) + (values #{req 2295}# #f #{rest 2296}# #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 2267}#))))) + (begin (#{req 2270}# #{orig-args 2267}# '()))))) + (#{chi-simple-lambda 477}# + (lambda (#{e 2302}# + #{r 2303}# + #{w 2304}# + #{s 2305}# + #{mod 2306}# + #{req 2307}# + #{rest 2308}# + #{meta 2309}# + #{body 2310}#) (begin - (let ((#{ids 2313}# - (if #{rest 2299}# - (append #{req 2298}# (list #{rest 2299}#)) - #{req 2298}#))) + (let ((#{ids 2322}# + (if #{rest 2308}# + (append #{req 2307}# (list #{rest 2308}#)) + #{req 2307}#))) (begin - (let ((#{vars 2315}# - (map #{gen-var 484}# #{ids 2313}#))) + (let ((#{vars 2324}# + (map #{gen-var 485}# #{ids 2322}#))) (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 2326}# + (#{gen-labels 392}# #{ids 2322}#))) + (#{build-simple-lambda 321}# + #{s 2305}# + (map syntax->datum #{req 2307}#) + (if #{rest 2308}# + (syntax->datum #{rest 2308}#) #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 2324}# + #{meta 2309}# + (#{chi-body 465}# + #{body 2310}# + (#{source-wrap 445}# + #{e 2302}# + #{w 2304}# + #{s 2305}# + #{mod 2306}#) + (#{extend-var-env 367}# + #{labels 2326}# + #{vars 2324}# + #{r 2303}#) + (#{make-binding-wrap 421}# + #{ids 2322}# + #{labels 2326}# + #{w 2304}#) + #{mod 2306}#)))))))))) + (#{lambda*-formals 479}# + (lambda (#{orig-args 2329}#) (letrec* - ((#{req 2323}# - (lambda (#{args 2332}# #{rreq 2333}#) - (let ((#{tmp 2336}# #{args 2332}#)) - (let ((#{tmp 2337}# ($sc-dispatch #{tmp 2336}# '()))) - (if #{tmp 2337}# + ((#{req 2332}# + (lambda (#{args 2341}# #{rreq 2342}#) + (let ((#{tmp 2345}# #{args 2341}#)) + (let ((#{tmp 2346}# ($sc-dispatch #{tmp 2345}# '()))) + (if #{tmp 2346}# (@apply (lambda () - (#{check 2331}# - (reverse #{rreq 2333}#) + (#{check 2340}# + (reverse #{rreq 2342}#) '() #f '())) - #{tmp 2337}#) - (let ((#{tmp 2338}# - ($sc-dispatch #{tmp 2336}# '(any . any)))) - (if (if #{tmp 2338}# + #{tmp 2346}#) + (let ((#{tmp 2347}# + ($sc-dispatch #{tmp 2345}# '(any . any)))) + (if (if #{tmp 2347}# (@apply - (lambda (#{a 2341}# #{b 2342}#) - (#{id? 376}# #{a 2341}#)) - #{tmp 2338}#) + (lambda (#{a 2350}# #{b 2351}#) + (#{id? 377}# #{a 2350}#)) + #{tmp 2347}#) #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 2354}# #{b 2355}#) + (#{req 2332}# + #{b 2355}# + (cons #{a 2354}# #{rreq 2342}#))) + #{tmp 2347}#) + (let ((#{tmp 2356}# + ($sc-dispatch #{tmp 2345}# '(any . any)))) + (if (if #{tmp 2356}# (@apply - (lambda (#{a 2350}# #{b 2351}#) - (eq? (syntax->datum #{a 2350}#) + (lambda (#{a 2359}# #{b 2360}#) + (eq? (syntax->datum #{a 2359}#) #:optional)) - #{tmp 2347}#) + #{tmp 2356}#) #f) (@apply - (lambda (#{a 2354}# #{b 2355}#) - (#{opt 2325}# - #{b 2355}# - (reverse #{rreq 2333}#) + (lambda (#{a 2363}# #{b 2364}#) + (#{opt 2334}# + #{b 2364}# + (reverse #{rreq 2342}#) '())) - #{tmp 2347}#) - (let ((#{tmp 2356}# + #{tmp 2356}#) + (let ((#{tmp 2365}# ($sc-dispatch - #{tmp 2336}# + #{tmp 2345}# '(any . any)))) - (if (if #{tmp 2356}# + (if (if #{tmp 2365}# (@apply - (lambda (#{a 2359}# #{b 2360}#) - (eq? (syntax->datum #{a 2359}#) + (lambda (#{a 2368}# #{b 2369}#) + (eq? (syntax->datum #{a 2368}#) #:key)) - #{tmp 2356}#) + #{tmp 2365}#) #f) (@apply - (lambda (#{a 2363}# #{b 2364}#) - (#{key 2327}# - #{b 2364}# - (reverse #{rreq 2333}#) + (lambda (#{a 2372}# #{b 2373}#) + (#{key 2336}# + #{b 2373}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2356}#) - (let ((#{tmp 2365}# + #{tmp 2365}#) + (let ((#{tmp 2374}# ($sc-dispatch - #{tmp 2336}# + #{tmp 2345}# '(any any)))) - (if (if #{tmp 2365}# + (if (if #{tmp 2374}# (@apply - (lambda (#{a 2368}# #{b 2369}#) - (eq? (syntax->datum #{a 2368}#) + (lambda (#{a 2377}# #{b 2378}#) + (eq? (syntax->datum #{a 2377}#) #:rest)) - #{tmp 2365}#) + #{tmp 2374}#) #f) (@apply - (lambda (#{a 2372}# #{b 2373}#) - (#{rest 2329}# - #{b 2373}# - (reverse #{rreq 2333}#) + (lambda (#{a 2381}# #{b 2382}#) + (#{rest 2338}# + #{b 2382}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2365}#) - (let ((#{tmp 2374}# - (list #{tmp 2336}#))) - (if (if #{tmp 2374}# + #{tmp 2374}#) + (let ((#{tmp 2383}# + (list #{tmp 2345}#))) + (if (if #{tmp 2383}# (@apply - (lambda (#{r 2376}#) - (#{id? 376}# #{r 2376}#)) - #{tmp 2374}#) + (lambda (#{r 2385}#) + (#{id? 377}# #{r 2385}#)) + #{tmp 2383}#) #f) (@apply - (lambda (#{r 2378}#) - (#{rest 2329}# - #{r 2378}# - (reverse #{rreq 2333}#) + (lambda (#{r 2387}#) + (#{rest 2338}# + #{r 2387}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2374}#) - (let ((#{else 2380}# #{tmp 2336}#)) + #{tmp 2383}#) + (let ((#{else 2389}# #{tmp 2345}#)) (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 2329}# + #{args 2341}#))))))))))))))))) + (#{opt 2334}# + (lambda (#{args 2390}# #{req 2391}# #{ropt 2392}#) + (let ((#{tmp 2396}# #{args 2390}#)) + (let ((#{tmp 2397}# ($sc-dispatch #{tmp 2396}# '()))) + (if #{tmp 2397}# (@apply (lambda () - (#{check 2331}# - #{req 2382}# - (reverse #{ropt 2383}#) + (#{check 2340}# + #{req 2391}# + (reverse #{ropt 2392}#) #f '())) - #{tmp 2388}#) - (let ((#{tmp 2389}# - ($sc-dispatch #{tmp 2387}# '(any . any)))) - (if (if #{tmp 2389}# + #{tmp 2397}#) + (let ((#{tmp 2398}# + ($sc-dispatch #{tmp 2396}# '(any . any)))) + (if (if #{tmp 2398}# (@apply - (lambda (#{a 2392}# #{b 2393}#) - (#{id? 376}# #{a 2392}#)) - #{tmp 2389}#) + (lambda (#{a 2401}# #{b 2402}#) + (#{id? 377}# #{a 2401}#)) + #{tmp 2398}#) #f) (@apply - (lambda (#{a 2396}# #{b 2397}#) - (#{opt 2325}# - #{b 2397}# - #{req 2382}# - (cons (cons #{a 2396}# + (lambda (#{a 2405}# #{b 2406}#) + (#{opt 2334}# + #{b 2406}# + #{req 2391}# + (cons (cons #{a 2405}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2394" "i2395")) + #("i2403" "i2404")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2384" - "i2385" - "i2386")) + #("i2393" + "i2394" + "i2395")) #(ribcage (check rest key opt req) ((top) @@ -7102,15 +5394,15 @@ (top) (top) (top)) - ("i2330" - "i2328" - "i2326" - "i2324" - "i2322")) + ("i2339" + "i2337" + "i2335" + "i2333" + "i2331")) #(ribcage #(orig-args) #((top)) - #("i2321")) + #("i2330")) #(ribcage (lambda-var-list gen-var @@ -7384,57 +5676,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -7443,212 +5736,211 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)))) - #{ropt 2383}#))) - #{tmp 2389}#) - (let ((#{tmp 2398}# + #{ropt 2392}#))) + #{tmp 2398}#) + (let ((#{tmp 2407}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '((any any) . any)))) - (if (if #{tmp 2398}# + (if (if #{tmp 2407}# (@apply - (lambda (#{a 2402}# - #{init 2403}# - #{b 2404}#) - (#{id? 376}# #{a 2402}#)) - #{tmp 2398}#) + (lambda (#{a 2411}# + #{init 2412}# + #{b 2413}#) + (#{id? 377}# #{a 2411}#)) + #{tmp 2407}#) #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 2417}# #{init 2418}# #{b 2419}#) + (#{opt 2334}# + #{b 2419}# + #{req 2391}# + (cons (list #{a 2417}# #{init 2418}#) + #{ropt 2392}#))) + #{tmp 2407}#) + (let ((#{tmp 2420}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '(any . any)))) - (if (if #{tmp 2411}# + (if (if #{tmp 2420}# (@apply - (lambda (#{a 2414}# #{b 2415}#) - (eq? (syntax->datum #{a 2414}#) + (lambda (#{a 2423}# #{b 2424}#) + (eq? (syntax->datum #{a 2423}#) #:key)) - #{tmp 2411}#) + #{tmp 2420}#) #f) (@apply - (lambda (#{a 2418}# #{b 2419}#) - (#{key 2327}# - #{b 2419}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{a 2427}# #{b 2428}#) + (#{key 2336}# + #{b 2428}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2411}#) - (let ((#{tmp 2420}# + #{tmp 2420}#) + (let ((#{tmp 2429}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '(any any)))) - (if (if #{tmp 2420}# + (if (if #{tmp 2429}# (@apply - (lambda (#{a 2423}# #{b 2424}#) - (eq? (syntax->datum #{a 2423}#) + (lambda (#{a 2432}# #{b 2433}#) + (eq? (syntax->datum #{a 2432}#) #:rest)) - #{tmp 2420}#) + #{tmp 2429}#) #f) (@apply - (lambda (#{a 2427}# #{b 2428}#) - (#{rest 2329}# - #{b 2428}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{a 2436}# #{b 2437}#) + (#{rest 2338}# + #{b 2437}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2420}#) - (let ((#{tmp 2429}# - (list #{tmp 2387}#))) - (if (if #{tmp 2429}# + #{tmp 2429}#) + (let ((#{tmp 2438}# + (list #{tmp 2396}#))) + (if (if #{tmp 2438}# (@apply - (lambda (#{r 2431}#) - (#{id? 376}# #{r 2431}#)) - #{tmp 2429}#) + (lambda (#{r 2440}#) + (#{id? 377}# #{r 2440}#)) + #{tmp 2438}#) #f) (@apply - (lambda (#{r 2433}#) - (#{rest 2329}# - #{r 2433}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{r 2442}#) + (#{rest 2338}# + #{r 2442}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2429}#) - (let ((#{else 2435}# #{tmp 2387}#)) + #{tmp 2438}#) + (let ((#{else 2444}# #{tmp 2396}#)) (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 2329}# + #{args 2390}#))))))))))))))))) + (#{key 2336}# + (lambda (#{args 2445}# + #{req 2446}# + #{opt 2447}# + #{rkey 2448}#) + (let ((#{tmp 2453}# #{args 2445}#)) + (let ((#{tmp 2454}# ($sc-dispatch #{tmp 2453}# '()))) + (if #{tmp 2454}# (@apply (lambda () - (#{check 2331}# - #{req 2437}# - #{opt 2438}# + (#{check 2340}# + #{req 2446}# + #{opt 2447}# #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 2448}#)))) + #{tmp 2454}#) + (let ((#{tmp 2455}# + ($sc-dispatch #{tmp 2453}# '(any . any)))) + (if (if #{tmp 2455}# (@apply - (lambda (#{a 2449}# #{b 2450}#) - (#{id? 376}# #{a 2449}#)) - #{tmp 2446}#) + (lambda (#{a 2458}# #{b 2459}#) + (#{id? 377}# #{a 2458}#)) + #{tmp 2455}#) #f) (@apply - (lambda (#{a 2453}# #{b 2454}#) - (let ((#{tmp 2456}# + (lambda (#{a 2462}# #{b 2463}#) + (let ((#{tmp 2465}# (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 2462}#)))) + (let ((#{k 2467}# #{tmp 2465}#)) + (#{key 2336}# + #{b 2463}# + #{req 2446}# + #{opt 2447}# + (cons (cons #{k 2467}# + (cons #{a 2462}# '(#(syntax-object #f ((top) @@ -7659,12 +5951,12 @@ #(ribcage #(k) #((top)) - #("i2457")) + #("i2466")) #(ribcage #(a b) #((top) (top)) - #("i2451" - "i2452")) + #("i2460" + "i2461")) #(ribcage () () @@ -7678,10 +5970,10 @@ (top) (top) (top)) - #("i2440" - "i2441" - "i2442" - "i2443")) + #("i2449" + "i2450" + "i2451" + "i2452")) #(ribcage (check rest key @@ -7692,15 +5984,15 @@ (top) (top) (top)) - ("i2330" - "i2328" - "i2326" - "i2324" - "i2322")) + ("i2339" + "i2337" + "i2335" + "i2333" + "i2331")) #(ribcage #(orig-args) #((top)) - #("i2321")) + #("i2330")) #(ribcage (lambda-var-list gen-var @@ -7974,57 +6266,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -8033,83 +6326,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -8119,1975 +6411,1975 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile))))) - #{rkey 2439}#))))) - #{tmp 2446}#) - (let ((#{tmp 2459}# + #{rkey 2448}#))))) + #{tmp 2455}#) + (let ((#{tmp 2468}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '((any any) . any)))) - (if (if #{tmp 2459}# + (if (if #{tmp 2468}# (@apply - (lambda (#{a 2463}# - #{init 2464}# - #{b 2465}#) - (#{id? 376}# #{a 2463}#)) - #{tmp 2459}#) + (lambda (#{a 2472}# + #{init 2473}# + #{b 2474}#) + (#{id? 377}# #{a 2472}#)) + #{tmp 2468}#) #f) (@apply - (lambda (#{a 2469}# #{init 2470}# #{b 2471}#) - (let ((#{tmp 2473}# + (lambda (#{a 2478}# #{init 2479}# #{b 2480}#) + (let ((#{tmp 2482}# (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 2478}#)))) + (let ((#{k 2484}# #{tmp 2482}#)) + (#{key 2336}# + #{b 2480}# + #{req 2446}# + #{opt 2447}# + (cons (list #{k 2484}# + #{a 2478}# + #{init 2479}#) + #{rkey 2448}#))))) + #{tmp 2468}#) + (let ((#{tmp 2485}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '((any any any) . any)))) - (if (if #{tmp 2476}# + (if (if #{tmp 2485}# (@apply - (lambda (#{a 2481}# - #{init 2482}# - #{k 2483}# - #{b 2484}#) - (if (#{id? 376}# #{a 2481}#) + (lambda (#{a 2490}# + #{init 2491}# + #{k 2492}# + #{b 2493}#) + (if (#{id? 377}# #{a 2490}#) (keyword? - (syntax->datum #{k 2483}#)) + (syntax->datum #{k 2492}#)) #f)) - #{tmp 2476}#) + #{tmp 2485}#) #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 2500}# + #{init 2501}# + #{k 2502}# + #{b 2503}#) + (#{key 2336}# + #{b 2503}# + #{req 2446}# + #{opt 2447}# + (cons (list #{k 2502}# + #{a 2500}# + #{init 2501}#) + #{rkey 2448}#))) + #{tmp 2485}#) + (let ((#{tmp 2504}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any)))) - (if (if #{tmp 2495}# + (if (if #{tmp 2504}# (@apply - (lambda (#{aok 2497}#) + (lambda (#{aok 2506}#) (eq? (syntax->datum - #{aok 2497}#) + #{aok 2506}#) #:allow-other-keys)) - #{tmp 2495}#) + #{tmp 2504}#) #f) (@apply - (lambda (#{aok 2499}#) - (#{check 2331}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2508}#) + (#{check 2340}# + #{req 2446}# + #{opt 2447}# #f (cons #t - (reverse #{rkey 2439}#)))) - #{tmp 2495}#) - (let ((#{tmp 2500}# + (reverse #{rkey 2448}#)))) + #{tmp 2504}#) + (let ((#{tmp 2509}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any any any)))) - (if (if #{tmp 2500}# + (if (if #{tmp 2509}# (@apply - (lambda (#{aok 2504}# - #{a 2505}# - #{b 2506}#) + (lambda (#{aok 2513}# + #{a 2514}# + #{b 2515}#) (if (eq? (syntax->datum - #{aok 2504}#) + #{aok 2513}#) #:allow-other-keys) (eq? (syntax->datum - #{a 2505}#) + #{a 2514}#) #:rest) #f)) - #{tmp 2500}#) + #{tmp 2509}#) #f) (@apply - (lambda (#{aok 2512}# - #{a 2513}# - #{b 2514}#) - (#{rest 2329}# - #{b 2514}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2521}# + #{a 2522}# + #{b 2523}#) + (#{rest 2338}# + #{b 2523}# + #{req 2446}# + #{opt 2447}# (cons #t (reverse - #{rkey 2439}#)))) - #{tmp 2500}#) - (let ((#{tmp 2515}# + #{rkey 2448}#)))) + #{tmp 2509}#) + (let ((#{tmp 2524}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any . any)))) - (if (if #{tmp 2515}# + (if (if #{tmp 2524}# (@apply - (lambda (#{aok 2518}# - #{r 2519}#) + (lambda (#{aok 2527}# + #{r 2528}#) (if (eq? (syntax->datum - #{aok 2518}#) + #{aok 2527}#) #:allow-other-keys) - (#{id? 376}# - #{r 2519}#) + (#{id? 377}# + #{r 2528}#) #f)) - #{tmp 2515}#) + #{tmp 2524}#) #f) (@apply - (lambda (#{aok 2524}# - #{r 2525}#) - (#{rest 2329}# - #{r 2525}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2533}# + #{r 2534}#) + (#{rest 2338}# + #{r 2534}# + #{req 2446}# + #{opt 2447}# (cons #t (reverse - #{rkey 2439}#)))) - #{tmp 2515}#) - (let ((#{tmp 2526}# + #{rkey 2448}#)))) + #{tmp 2524}#) + (let ((#{tmp 2535}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any any)))) - (if (if #{tmp 2526}# + (if (if #{tmp 2535}# (@apply - (lambda (#{a 2529}# - #{b 2530}#) + (lambda (#{a 2538}# + #{b 2539}#) (eq? (syntax->datum - #{a 2529}#) + #{a 2538}#) #:rest)) - #{tmp 2526}#) + #{tmp 2535}#) #f) (@apply - (lambda (#{a 2533}# - #{b 2534}#) - (#{rest 2329}# - #{b 2534}# - #{req 2437}# - #{opt 2438}# + (lambda (#{a 2542}# + #{b 2543}#) + (#{rest 2338}# + #{b 2543}# + #{req 2446}# + #{opt 2447}# (cons #f (reverse - #{rkey 2439}#)))) - #{tmp 2526}#) - (let ((#{tmp 2535}# - (list #{tmp 2444}#))) - (if (if #{tmp 2535}# + #{rkey 2448}#)))) + #{tmp 2535}#) + (let ((#{tmp 2544}# + (list #{tmp 2453}#))) + (if (if #{tmp 2544}# (@apply - (lambda (#{r 2537}#) - (#{id? 376}# - #{r 2537}#)) - #{tmp 2535}#) + (lambda (#{r 2546}#) + (#{id? 377}# + #{r 2546}#)) + #{tmp 2544}#) #f) (@apply - (lambda (#{r 2539}#) - (#{rest 2329}# - #{r 2539}# - #{req 2437}# - #{opt 2438}# + (lambda (#{r 2548}#) + (#{rest 2338}# + #{r 2548}# + #{req 2446}# + #{opt 2447}# (cons #f (reverse - #{rkey 2439}#)))) - #{tmp 2535}#) - (let ((#{else 2541}# - #{tmp 2444}#)) + #{rkey 2448}#)))) + #{tmp 2544}#) + (let ((#{else 2550}# + #{tmp 2453}#)) (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 2329}# + #{args 2445}#))))))))))))))))))))))) + (#{rest 2338}# + (lambda (#{args 2551}# + #{req 2552}# + #{opt 2553}# + #{kw 2554}#) + (let ((#{tmp 2559}# #{args 2551}#)) + (let ((#{tmp 2560}# (list #{tmp 2559}#))) + (if (if #{tmp 2560}# (@apply - (lambda (#{r 2553}#) (#{id? 376}# #{r 2553}#)) - #{tmp 2551}#) + (lambda (#{r 2562}#) (#{id? 377}# #{r 2562}#)) + #{tmp 2560}#) #f) (@apply - (lambda (#{r 2555}#) - (#{check 2331}# - #{req 2543}# - #{opt 2544}# - #{r 2555}# - #{kw 2545}#)) - #{tmp 2551}#) - (let ((#{else 2557}# #{tmp 2550}#)) + (lambda (#{r 2564}#) + (#{check 2340}# + #{req 2552}# + #{opt 2553}# + #{r 2564}# + #{kw 2554}#)) + #{tmp 2560}#) + (let ((#{else 2566}# #{tmp 2559}#)) (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 2329}# + #{args 2551}#))))))) + (#{check 2340}# + (lambda (#{req 2567}# + #{opt 2568}# + #{rest 2569}# + #{kw 2570}#) + (if (#{distinct-bound-ids? 439}# (append - #{req 2558}# - (map car #{opt 2559}#) - (if #{rest 2560}# (list #{rest 2560}#) '()) - (if (pair? #{kw 2561}#) - (map cadr (cdr #{kw 2561}#)) + #{req 2567}# + (map car #{opt 2568}#) + (if #{rest 2569}# (list #{rest 2569}#) '()) + (if (pair? #{kw 2570}#) + (map cadr (cdr #{kw 2570}#)) '()))) (values - #{req 2558}# - #{opt 2559}# - #{rest 2560}# - #{kw 2561}#) + #{req 2567}# + #{opt 2568}# + #{rest 2569}# + #{kw 2570}#) (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 2329}#))))) + (begin (#{req 2332}# #{orig-args 2329}# '()))))) + (#{chi-lambda-case 481}# + (lambda (#{e 2578}# + #{r 2579}# + #{w 2580}# + #{s 2581}# + #{mod 2582}# + #{get-formals 2583}# + #{clauses 2584}#) (letrec* - ((#{expand-req 2584}# - (lambda (#{req 2591}# - #{opt 2592}# - #{rest 2593}# - #{kw 2594}# - #{body 2595}#) + ((#{expand-req 2593}# + (lambda (#{req 2600}# + #{opt 2601}# + #{rest 2602}# + #{kw 2603}# + #{body 2604}#) (begin - (let ((#{vars 2603}# - (map #{gen-var 484}# #{req 2591}#)) - (#{labels 2604}# - (#{gen-labels 391}# #{req 2591}#))) + (let ((#{vars 2612}# + (map #{gen-var 485}# #{req 2600}#)) + (#{labels 2613}# + (#{gen-labels 392}# #{req 2600}#))) (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* 2616}# + (#{extend-var-env 367}# + #{labels 2613}# + #{vars 2612}# + #{r 2579}#)) + (#{w* 2617}# + (#{make-binding-wrap 421}# + #{req 2600}# + #{labels 2613}# + #{w 2580}#))) + (#{expand-opt 2595}# + (map syntax->datum #{req 2600}#) + #{opt 2601}# + #{rest 2602}# + #{kw 2603}# + #{body 2604}# + (reverse #{vars 2612}#) + #{r* 2616}# + #{w* 2617}# '() '()))))))) - (#{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 2595}# + (lambda (#{req 2618}# + #{opt 2619}# + #{rest 2620}# + #{kw 2621}# + #{body 2622}# + #{vars 2623}# + #{r* 2624}# + #{w* 2625}# + #{out 2626}# + #{inits 2627}#) + (if (pair? #{opt 2619}#) + (let ((#{tmp 2640}# (car #{opt 2619}#))) + (let ((#{tmp 2641}# + ($sc-dispatch #{tmp 2640}# '(any any)))) + (if #{tmp 2641}# (@apply - (lambda (#{id 2635}# #{i 2636}#) + (lambda (#{id 2644}# #{i 2645}#) (begin - (let ((#{v 2639}# - (#{gen-var 484}# #{id 2635}#))) + (let ((#{v 2648}# + (#{gen-var 485}# #{id 2644}#))) (begin - (let ((#{l 2641}# - (#{gen-labels 391}# - (list #{v 2639}#)))) + (let ((#{l 2650}# + (#{gen-labels 392}# + (list #{v 2648}#)))) (begin - (let ((#{r** 2643}# - (#{extend-var-env 366}# - #{l 2641}# - (list #{v 2639}#) - #{r* 2615}#))) + (let ((#{r** 2652}# + (#{extend-var-env 367}# + #{l 2650}# + (list #{v 2648}#) + #{r* 2624}#))) (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** 2654}# + (#{make-binding-wrap 421}# + (list #{id 2644}#) + #{l 2650}# + #{w* 2625}#))) + (#{expand-opt 2595}# + #{req 2618}# + (cdr #{opt 2619}#) + #{rest 2620}# + #{kw 2621}# + #{body 2622}# + (cons #{v 2648}# #{vars 2623}#) + #{r** 2652}# + #{w** 2654}# (cons (syntax->datum - #{id 2635}#) - #{out 2617}#) - (cons (#{chi 456}# - #{i 2636}# - #{r* 2615}# - #{w* 2616}# - #{mod 2573}#) - #{inits 2618}#))))))))))) - #{tmp 2632}#) + #{id 2644}#) + #{out 2626}#) + (cons (#{chi 457}# + #{i 2645}# + #{r* 2624}# + #{w* 2625}# + #{mod 2582}#) + #{inits 2627}#))))))))))) + #{tmp 2641}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2631}#)))) - (if #{rest 2611}# + #{tmp 2640}#)))) + (if #{rest 2620}# (begin - (let ((#{v 2650}# (#{gen-var 484}# #{rest 2611}#))) + (let ((#{v 2659}# (#{gen-var 485}# #{rest 2620}#))) (begin - (let ((#{l 2652}# - (#{gen-labels 391}# (list #{v 2650}#)))) + (let ((#{l 2661}# + (#{gen-labels 392}# (list #{v 2659}#)))) (begin - (let ((#{r* 2654}# - (#{extend-var-env 366}# - #{l 2652}# - (list #{v 2650}#) - #{r* 2615}#))) + (let ((#{r* 2663}# + (#{extend-var-env 367}# + #{l 2661}# + (list #{v 2659}#) + #{r* 2624}#))) (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* 2665}# + (#{make-binding-wrap 421}# + (list #{rest 2620}#) + #{l 2661}# + #{w* 2625}#))) + (#{expand-kw 2597}# + #{req 2618}# + (if (pair? #{out 2626}#) + (reverse #{out 2626}#) #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 2620}#) + (if (pair? #{kw 2621}#) + (cdr #{kw 2621}#) + #{kw 2621}#) + #{body 2622}# + (cons #{v 2659}# #{vars 2623}#) + #{r* 2663}# + #{w* 2665}# + (if (pair? #{kw 2621}#) + (car #{kw 2621}#) #f) '() - #{inits 2618}#))))))))) - (#{expand-kw 2588}# - #{req 2609}# - (if (pair? #{out 2617}#) - (reverse #{out 2617}#) + #{inits 2627}#))))))))) + (#{expand-kw 2597}# + #{req 2618}# + (if (pair? #{out 2626}#) + (reverse #{out 2626}#) #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 2621}#) + (cdr #{kw 2621}#) + #{kw 2621}#) + #{body 2622}# + #{vars 2623}# + #{r* 2624}# + #{w* 2625}# + (if (pair? #{kw 2621}#) (car #{kw 2621}#) #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 2627}#))))) + (#{expand-kw 2597}# + (lambda (#{req 2667}# + #{opt 2668}# + #{rest 2669}# + #{kw 2670}# + #{body 2671}# + #{vars 2672}# + #{r* 2673}# + #{w* 2674}# + #{aok 2675}# + #{out 2676}# + #{inits 2677}#) + (if (pair? #{kw 2670}#) + (let ((#{tmp 2691}# (car #{kw 2670}#))) + (let ((#{tmp 2692}# + ($sc-dispatch #{tmp 2691}# '(any any any)))) + (if #{tmp 2692}# (@apply - (lambda (#{k 2687}# #{id 2688}# #{i 2689}#) + (lambda (#{k 2696}# #{id 2697}# #{i 2698}#) (begin - (let ((#{v 2692}# - (#{gen-var 484}# #{id 2688}#))) + (let ((#{v 2701}# + (#{gen-var 485}# #{id 2697}#))) (begin - (let ((#{l 2694}# - (#{gen-labels 391}# - (list #{v 2692}#)))) + (let ((#{l 2703}# + (#{gen-labels 392}# + (list #{v 2701}#)))) (begin - (let ((#{r** 2696}# - (#{extend-var-env 366}# - #{l 2694}# - (list #{v 2692}#) - #{r* 2664}#))) + (let ((#{r** 2705}# + (#{extend-var-env 367}# + #{l 2703}# + (list #{v 2701}#) + #{r* 2673}#))) (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** 2707}# + (#{make-binding-wrap 421}# + (list #{id 2697}#) + #{l 2703}# + #{w* 2674}#))) + (#{expand-kw 2597}# + #{req 2667}# + #{opt 2668}# + #{rest 2669}# + (cdr #{kw 2670}#) + #{body 2671}# + (cons #{v 2701}# #{vars 2672}#) + #{r** 2705}# + #{w** 2707}# + #{aok 2675}# (cons (list (syntax->datum - #{k 2687}#) + #{k 2696}#) (syntax->datum - #{id 2688}#) - #{v 2692}#) - #{out 2667}#) - (cons (#{chi 456}# - #{i 2689}# - #{r* 2664}# - #{w* 2665}# - #{mod 2573}#) - #{inits 2668}#))))))))))) - #{tmp 2683}#) + #{id 2697}#) + #{v 2701}#) + #{out 2676}#) + (cons (#{chi 457}# + #{i 2698}# + #{r* 2673}# + #{w* 2674}# + #{mod 2582}#) + #{inits 2677}#))))))))))) + #{tmp 2692}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2682}#)))) - (#{expand-body 2590}# - #{req 2658}# - #{opt 2659}# - #{rest 2660}# + #{tmp 2691}#)))) + (#{expand-body 2599}# + #{req 2667}# + #{opt 2668}# + #{rest 2669}# (if (begin - (let ((#{t 2702}# #{aok 2666}#)) - (if #{t 2702}# #{t 2702}# (pair? #{out 2667}#)))) - (cons #{aok 2666}# (reverse #{out 2667}#)) + (let ((#{t 2711}# #{aok 2675}#)) + (if #{t 2711}# #{t 2711}# (pair? #{out 2676}#)))) + (cons #{aok 2675}# (reverse #{out 2676}#)) #f) - #{body 2662}# - (reverse #{vars 2663}#) - #{r* 2664}# - #{w* 2665}# - (reverse #{inits 2668}#) + #{body 2671}# + (reverse #{vars 2672}#) + #{r* 2673}# + #{w* 2674}# + (reverse #{inits 2677}#) '())))) - (#{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 2599}# + (lambda (#{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + #{body 2717}# + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# + #{meta 2722}#) + (let ((#{tmp 2733}# #{body 2717}#)) + (let ((#{tmp 2734}# + ($sc-dispatch #{tmp 2733}# '(any any . each-any)))) + (if (if #{tmp 2734}# (@apply - (lambda (#{docstring 2729}# - #{e1 2730}# - #{e2 2731}#) - (string? (syntax->datum #{docstring 2729}#))) - #{tmp 2725}#) + (lambda (#{docstring 2738}# + #{e1 2739}# + #{e2 2740}#) + (string? (syntax->datum #{docstring 2738}#))) + #{tmp 2734}#) #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 2744}# #{e1 2745}# #{e2 2746}#) + (#{expand-body 2599}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + (cons #{e1 2745}# #{e2 2746}#) + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# (append - #{meta 2713}# + #{meta 2722}# (list (cons 'documentation (syntax->datum - #{docstring 2735}#)))))) - #{tmp 2725}#) - (let ((#{tmp 2740}# + #{docstring 2744}#)))))) + #{tmp 2734}#) + (let ((#{tmp 2749}# ($sc-dispatch - #{tmp 2724}# + #{tmp 2733}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 2740}# + (if #{tmp 2749}# (@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 2754}# + #{v 2755}# + #{e1 2756}# + #{e2 2757}#) + (#{expand-body 2599}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + (cons #{e1 2756}# #{e2 2757}#) + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# (append - #{meta 2713}# + #{meta 2722}# (syntax->datum - (map cons #{k 2745}# #{v 2746}#))))) - #{tmp 2740}#) - (let ((#{tmp 2752}# + (map cons #{k 2754}# #{v 2755}#))))) + #{tmp 2749}#) + (let ((#{tmp 2761}# ($sc-dispatch - #{tmp 2724}# + #{tmp 2733}# '(any . each-any)))) - (if #{tmp 2752}# + (if #{tmp 2761}# (@apply - (lambda (#{e1 2755}# #{e2 2756}#) + (lambda (#{e1 2764}# #{e2 2765}#) (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 2722}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + #{inits 2721}# + #{vars 2718}# + (#{chi-body 465}# + (cons #{e1 2764}# #{e2 2765}#) + (#{source-wrap 445}# + #{e 2578}# + #{w 2580}# + #{s 2581}# + #{mod 2582}#) + #{r* 2719}# + #{w* 2720}# + #{mod 2582}#))) + #{tmp 2761}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2724}#))))))))))) + #{tmp 2733}#))))))))))) (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 2767}# #{clauses 2584}#)) + (let ((#{tmp 2768}# ($sc-dispatch #{tmp 2767}# '()))) + (if #{tmp 2768}# + (@apply (lambda () (values '() #f)) #{tmp 2768}#) + (let ((#{tmp 2769}# ($sc-dispatch - #{tmp 2758}# + #{tmp 2767}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 2760}# + (if #{tmp 2769}# (@apply - (lambda (#{args 2767}# - #{e1 2768}# - #{e2 2769}# - #{args* 2770}# - #{e1* 2771}# - #{e2* 2772}#) + (lambda (#{args 2776}# + #{e1 2777}# + #{e2 2778}# + #{args* 2779}# + #{e1* 2780}# + #{e2* 2781}#) (call-with-values - (lambda () (#{get-formals 2574}# #{args 2767}#)) - (lambda (#{req 2773}# - #{opt 2774}# - #{rest 2775}# - #{kw 2776}#) + (lambda () (#{get-formals 2583}# #{args 2776}#)) + (lambda (#{req 2782}# + #{opt 2783}# + #{rest 2784}# + #{kw 2785}#) (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 2593}# + #{req 2782}# + #{opt 2783}# + #{rest 2784}# + #{kw 2785}# + (cons #{e1 2777}# #{e2 2778}#))) + (lambda (#{meta 2791}# + #{req 2792}# + #{opt 2793}# + #{rest 2794}# + #{kw 2795}# + #{inits 2796}# + #{vars 2797}# + #{body 2798}#) (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 481}# + #{e 2578}# + #{r 2579}# + #{w 2580}# + #{s 2581}# + #{mod 2582}# + #{get-formals 2583}# + (map (lambda (#{tmp 2809}# + #{tmp 2808}# + #{tmp 2807}#) + (cons #{tmp 2807}# + (cons #{tmp 2808}# + #{tmp 2809}#))) + #{e2* 2781}# + #{e1* 2780}# + #{args* 2779}#))) + (lambda (#{meta* 2811}# #{else* 2812}#) (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 2791}# + #{meta* 2811}#) + (#{build-lambda-case 325}# + #{s 2581}# + #{req 2792}# + #{opt 2793}# + #{rest 2794}# + #{kw 2795}# + #{inits 2796}# + #{vars 2797}# + #{body 2798}# + #{else* 2812}#))))))))) + #{tmp 2769}#) (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 2767}#)))))))))) + (#{strip 483}# + (lambda (#{x 2815}# #{w 2816}#) + (if (memq 'top (car #{w 2816}#)) + #{x 2815}# (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 2823}# + (lambda (#{x 2824}#) + (if (#{syntax-object? 343}# #{x 2824}#) + (#{strip 483}# + (#{syntax-object-expression 345}# #{x 2824}#) + (#{syntax-object-wrap 347}# #{x 2824}#)) + (if (pair? #{x 2824}#) (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 2831}# (#{f 2823}# (car #{x 2824}#))) + (#{d 2832}# (#{f 2823}# (cdr #{x 2824}#)))) + (if (if (eq? #{a 2831}# (car #{x 2824}#)) + (eq? #{d 2832}# (cdr #{x 2824}#)) #f) - #{x 2815}# - (cons #{a 2822}# #{d 2823}#)))) - (if (vector? #{x 2815}#) + #{x 2824}# + (cons #{a 2831}# #{d 2832}#)))) + (if (vector? #{x 2824}#) (begin - (let ((#{old 2829}# (vector->list #{x 2815}#))) + (let ((#{old 2838}# (vector->list #{x 2824}#))) (begin - (let ((#{new 2831}# - (map #{f 2814}# #{old 2829}#))) - (if (#{and-map* 38}# + (let ((#{new 2840}# + (map #{f 2823}# #{old 2838}#))) + (if (#{and-map* 39}# 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 2838}# + #{new 2840}#) + #{x 2824}# + (list->vector #{new 2840}#)))))) + #{x 2824}#)))))) + (begin (#{f 2823}# #{x 2815}#)))))) + (#{gen-var 485}# + (lambda (#{id 2842}#) (begin - (let ((#{id 2836}# - (if (#{syntax-object? 342}# #{id 2833}#) - (#{syntax-object-expression 344}# #{id 2833}#) - #{id 2833}#))) + (let ((#{id 2845}# + (if (#{syntax-object? 343}# #{id 2842}#) + (#{syntax-object-expression 345}# #{id 2842}#) + #{id 2842}#))) (gensym - (string-append (symbol->string #{id 2836}#) " ")))))) - (#{lambda-var-list 486}# - (lambda (#{vars 2838}#) + (string-append (symbol->string #{id 2845}#) " ")))))) + (#{lambda-var-list 487}# + (lambda (#{vars 2847}#) (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 2853}# + (lambda (#{vars 2854}# #{ls 2855}# #{w 2856}#) + (if (pair? #{vars 2854}#) + (#{lvl 2853}# + (cdr #{vars 2854}#) + (cons (#{wrap 443}# (car #{vars 2854}#) #{w 2856}# #f) + #{ls 2855}#) + #{w 2856}#) + (if (#{id? 377}# #{vars 2854}#) + (cons (#{wrap 443}# #{vars 2854}# #{w 2856}# #f) + #{ls 2855}#) + (if (null? #{vars 2854}#) + #{ls 2855}# + (if (#{syntax-object? 343}# #{vars 2854}#) + (#{lvl 2853}# + (#{syntax-object-expression 345}# #{vars 2854}#) + #{ls 2855}# + (#{join-wraps 425}# + #{w 2856}# + (#{syntax-object-wrap 347}# #{vars 2854}#))) + (cons #{vars 2854}# #{ls 2855}#)))))))) + (begin (#{lvl 2853}# #{vars 2847}# '() '(()))))))) (begin - (lambda (#{src 804}# #{name 805}#) + (lambda (#{src 805}# #{name 806}#) (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 805}# + #{name 806}#)) + (lambda (#{x 1183}# #{update 1184}#) + (vector-set! #{x 1183}# 1 #{update 1184}#)) + (lambda (#{x 1187}# #{update 1188}#) + (vector-set! #{x 1187}# 2 #{update 1188}#)) + (lambda (#{x 1191}# #{update 1192}#) + (vector-set! #{x 1191}# 3 #{update 1192}#)) + (lambda (#{x 1272}#) + (if (vector? #{x 1272}#) + (if (= (vector-length #{x 1272}#) 4) + (eq? (vector-ref #{x 1272}# 0) 'ribcage) #f) #f)) (begin - (#{global-extend 372}# + (#{global-extend 373}# 'local-syntax 'letrec-syntax #t) - (#{global-extend 372}# + (#{global-extend 373}# 'local-syntax 'let-syntax #f) - (#{global-extend 372}# + (#{global-extend 373}# '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 2867}# + #{r 2868}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#) + (let ((#{tmp 2877}# #{e 2867}#)) + (let ((#{tmp 2878}# ($sc-dispatch - #{tmp 2868}# + #{tmp 2877}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2869}# + (if (if #{tmp 2878}# (@apply - (lambda (#{var 2874}# - #{val 2875}# - #{e1 2876}# - #{e2 2877}#) - (#{valid-bound-ids? 436}# #{var 2874}#)) - #{tmp 2869}#) + (lambda (#{var 2883}# + #{val 2884}# + #{e1 2885}# + #{e2 2886}#) + (#{valid-bound-ids? 437}# #{var 2883}#)) + #{tmp 2878}#) #f) (@apply - (lambda (#{var 2883}# - #{val 2884}# - #{e1 2885}# - #{e2 2886}#) + (lambda (#{var 2892}# + #{val 2893}# + #{e1 2894}# + #{e2 2895}#) (begin - (let ((#{names 2888}# - (map (lambda (#{x 2889}#) - (#{id-var-name 430}# - #{x 2889}# - #{w 2860}#)) - #{var 2883}#))) + (let ((#{names 2897}# + (map (lambda (#{x 2898}#) + (#{id-var-name 431}# + #{x 2898}# + #{w 2869}#)) + #{var 2892}#))) (begin (for-each - (lambda (#{id 2892}# #{n 2893}#) + (lambda (#{id 2901}# #{n 2902}#) (begin - (let ((#{atom-key 2898}# - (car (#{lookup 370}# - #{n 2893}# - #{r 2859}# - #{mod 2862}#)))) - (if (eqv? #{atom-key 2898}# + (let ((#{atom-key 2907}# + (car (#{lookup 371}# + #{n 2902}# + #{r 2868}# + #{mod 2871}#)))) + (if (eqv? #{atom-key 2907}# '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 2867}# + (#{source-wrap 445}# + #{id 2901}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#)))))) + #{var 2892}# + #{names 2897}#) + (#{chi-body 465}# + (cons #{e1 2894}# #{e2 2895}#) + (#{source-wrap 445}# + #{e 2867}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#) + (#{extend-env 365}# + #{names 2897}# (begin - (let ((#{trans-r 2904}# - (#{macros-only-env 368}# - #{r 2859}#))) - (map (lambda (#{x 2905}#) + (let ((#{trans-r 2913}# + (#{macros-only-env 369}# + #{r 2868}#))) + (map (lambda (#{x 2914}#) (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 469}# + (#{chi 457}# + #{x 2914}# + #{trans-r 2913}# + #{w 2869}# + #{mod 2871}#) + #{mod 2871}#))) + #{val 2893}#))) + #{r 2868}#) + #{w 2869}# + #{mod 2871}#))))) + #{tmp 2878}#) + (let ((#{_ 2919}# #{tmp 2877}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap 444}# - #{e 2858}# - #{w 2860}# - #{s 2861}# - #{mod 2862}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 2867}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#)))))))) + (#{global-extend 373}# '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 2920}# + #{r 2921}# + #{w 2922}# + #{s 2923}# + #{mod 2924}#) + (let ((#{tmp 2930}# #{e 2920}#)) + (let ((#{tmp 2931}# + ($sc-dispatch #{tmp 2930}# '(_ any)))) + (if #{tmp 2931}# (@apply - (lambda (#{e 2924}#) - (#{build-data 328}# - #{s 2914}# - (#{strip 482}# #{e 2924}# #{w 2913}#))) - #{tmp 2922}#) - (let ((#{_ 2926}# #{tmp 2921}#)) + (lambda (#{e 2933}#) + (#{build-data 329}# + #{s 2923}# + (#{strip 483}# #{e 2933}# #{w 2922}#))) + #{tmp 2931}#) + (let ((#{_ 2935}# #{tmp 2930}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap 444}# - #{e 2911}# - #{w 2913}# - #{s 2914}# - #{mod 2915}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 2920}# + #{w 2922}# + #{s 2923}# + #{mod 2924}#)))))))) + (#{global-extend 373}# '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 2937}# + (lambda (#{src 2952}# + #{e 2953}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#) + (if (#{id? 377}# #{e 2953}#) (begin - (let ((#{label 2956}# - (#{id-var-name 430}# #{e 2944}# '(())))) + (let ((#{label 2965}# + (#{id-var-name 431}# #{e 2953}# '(())))) (begin - (let ((#{b 2959}# - (#{lookup 370}# - #{label 2956}# - #{r 2945}# - #{mod 2948}#))) - (if (eq? (car #{b 2959}#) 'syntax) + (let ((#{b 2968}# + (#{lookup 371}# + #{label 2965}# + #{r 2954}# + #{mod 2957}#))) + (if (eq? (car #{b 2968}#) '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 2971}# (cdr #{b 2968}#))) + (#{gen-ref 2939}# + #{src 2952}# + (car #{var.lev 2971}#) + (cdr #{var.lev 2971}#) + #{maps 2955}#)))) + (lambda (#{var 2973}# #{maps 2974}#) (values - (list 'ref #{var 2964}#) - #{maps 2965}#))) - (if (#{ellipsis? 2947}# #{e 2944}#) + (list 'ref #{var 2973}#) + #{maps 2974}#))) + (if (#{ellipsis? 2956}# #{e 2953}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 2943}#) + #{src 2952}#) (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 2953}#) + #{maps 2955}#))))))) + (let ((#{tmp 2979}# #{e 2953}#)) + (let ((#{tmp 2980}# + ($sc-dispatch #{tmp 2979}# '(any any)))) + (if (if #{tmp 2980}# (@apply - (lambda (#{dots 2974}# #{e 2975}#) - (#{ellipsis? 2947}# #{dots 2974}#)) - #{tmp 2971}#) + (lambda (#{dots 2983}# #{e 2984}#) + (#{ellipsis? 2956}# #{dots 2983}#)) + #{tmp 2980}#) #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 2987}# #{e 2988}#) + (#{gen-syntax 2937}# + #{src 2952}# + #{e 2988}# + #{r 2954}# + #{maps 2955}# + (lambda (#{x 2989}#) #f) + #{mod 2957}#)) + #{tmp 2980}#) + (let ((#{tmp 2991}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '(any any . any)))) - (if (if #{tmp 2982}# + (if (if #{tmp 2991}# (@apply - (lambda (#{x 2986}# - #{dots 2987}# - #{y 2988}#) - (#{ellipsis? 2947}# #{dots 2987}#)) - #{tmp 2982}#) + (lambda (#{x 2995}# + #{dots 2996}# + #{y 2997}#) + (#{ellipsis? 2956}# #{dots 2996}#)) + #{tmp 2991}#) #f) (@apply - (lambda (#{x 2992}# #{dots 2993}# #{y 2994}#) + (lambda (#{x 3001}# #{dots 3002}# #{y 3003}#) (letrec* - ((#{f 2998}# - (lambda (#{y 2999}# #{k 3000}#) - (let ((#{tmp 3007}# #{y 2999}#)) - (let ((#{tmp 3008}# + ((#{f 3007}# + (lambda (#{y 3008}# #{k 3009}#) + (let ((#{tmp 3016}# #{y 3008}#)) + (let ((#{tmp 3017}# ($sc-dispatch - #{tmp 3007}# + #{tmp 3016}# '(any . any)))) - (if (if #{tmp 3008}# + (if (if #{tmp 3017}# (@apply - (lambda (#{dots 3011}# - #{y 3012}#) - (#{ellipsis? 2947}# - #{dots 3011}#)) - #{tmp 3008}#) + (lambda (#{dots 3020}# + #{y 3021}#) + (#{ellipsis? 2956}# + #{dots 3020}#)) + #{tmp 3017}#) #f) (@apply - (lambda (#{dots 3015}# - #{y 3016}#) - (#{f 2998}# - #{y 3016}# - (lambda (#{maps 3017}#) + (lambda (#{dots 3024}# + #{y 3025}#) + (#{f 3007}# + #{y 3025}# + (lambda (#{maps 3026}#) (call-with-values (lambda () - (#{k 3000}# + (#{k 3009}# (cons '() - #{maps 3017}#))) - (lambda (#{x 3019}# - #{maps 3020}#) - (if (null? (car #{maps 3020}#)) + #{maps 3026}#))) + (lambda (#{x 3028}# + #{maps 3029}#) + (if (null? (car #{maps 3029}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2943}#) + #{src 2952}#) (values - (#{gen-mappend 2932}# - #{x 3019}# - (car #{maps 3020}#)) - (cdr #{maps 3020}#)))))))) - #{tmp 3008}#) - (let ((#{_ 3024}# - #{tmp 3007}#)) + (#{gen-mappend 2941}# + #{x 3028}# + (car #{maps 3029}#)) + (cdr #{maps 3029}#)))))))) + #{tmp 3017}#) + (let ((#{_ 3033}# + #{tmp 3016}#)) (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 2937}# + #{src 2952}# + #{y 3008}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{y 3034}# + #{maps 3035}#) (call-with-values (lambda () - (#{k 3000}# - #{maps 3026}#)) - (lambda (#{x 3029}# - #{maps 3030}#) + (#{k 3009}# + #{maps 3035}#)) + (lambda (#{x 3038}# + #{maps 3039}#) (values - (#{gen-append 2938}# - #{x 3029}# - #{y 3025}#) - #{maps 3030}#)))))))))))) + (#{gen-append 2947}# + #{x 3038}# + #{y 3034}#) + #{maps 3039}#)))))))))))) (begin - (#{f 2998}# - #{y 2994}# - (lambda (#{maps 3001}#) + (#{f 3007}# + #{y 3003}# + (lambda (#{maps 3010}#) (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 2937}# + #{src 2952}# + #{x 3001}# + #{r 2954}# + (cons '() #{maps 3010}#) + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{x 3012}# #{maps 3013}#) + (if (null? (car #{maps 3013}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2943}#) + #{src 2952}#) (values - (#{gen-map 2934}# - #{x 3003}# - (car #{maps 3004}#)) - (cdr #{maps 3004}#)))))))))) - #{tmp 2982}#) - (let ((#{tmp 3033}# + (#{gen-map 2943}# + #{x 3012}# + (car #{maps 3013}#)) + (cdr #{maps 3013}#)))))))))) + #{tmp 2991}#) + (let ((#{tmp 3042}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '(any . any)))) - (if #{tmp 3033}# + (if #{tmp 3042}# (@apply - (lambda (#{x 3036}# #{y 3037}#) + (lambda (#{x 3045}# #{y 3046}#) (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 2937}# + #{src 2952}# + #{x 3045}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{x 3047}# #{maps 3048}#) (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 2937}# + #{src 2952}# + #{y 3046}# + #{r 2954}# + #{maps 3048}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{y 3051}# #{maps 3052}#) (values - (#{gen-cons 2936}# - #{x 3038}# - #{y 3042}#) - #{maps 3043}#)))))) - #{tmp 3033}#) - (let ((#{tmp 3046}# + (#{gen-cons 2945}# + #{x 3047}# + #{y 3051}#) + #{maps 3052}#)))))) + #{tmp 3042}#) + (let ((#{tmp 3055}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '#(vector (any . each-any))))) - (if #{tmp 3046}# + (if #{tmp 3055}# (@apply - (lambda (#{e1 3049}# #{e2 3050}#) + (lambda (#{e1 3058}# #{e2 3059}#) (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 2937}# + #{src 2952}# + (cons #{e1 3058}# #{e2 3059}#) + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{e 3061}# #{maps 3062}#) (values - (#{gen-vector 2940}# - #{e 3052}#) - #{maps 3053}#)))) - #{tmp 3046}#) - (let ((#{_ 3057}# #{tmp 2970}#)) + (#{gen-vector 2949}# + #{e 3061}#) + #{maps 3062}#)))) + #{tmp 3055}#) + (let ((#{_ 3066}# #{tmp 2979}#)) (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 2953}#) + #{maps 2955}#)))))))))))))) + (#{gen-ref 2939}# + (lambda (#{src 3068}# + #{var 3069}# + #{level 3070}# + #{maps 3071}#) + (if (= #{level 3070}# 0) + (values #{var 3069}# #{maps 3071}#) + (if (null? #{maps 3071}#) (syntax-violation 'syntax "missing ellipsis" - #{src 3059}#) + #{src 3068}#) (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 2939}# + #{src 3068}# + #{var 3069}# + (#{1-}# #{level 3070}#) + (cdr #{maps 3071}#))) + (lambda (#{outer-var 3078}# #{outer-maps 3079}#) (begin - (let ((#{b 3074}# - (assq #{outer-var 3069}# - (car #{maps 3062}#)))) - (if #{b 3074}# - (values (cdr #{b 3074}#) #{maps 3062}#) + (let ((#{b 3083}# + (assq #{outer-var 3078}# + (car #{maps 3071}#)))) + (if #{b 3083}# + (values (cdr #{b 3083}#) #{maps 3071}#) (begin - (let ((#{inner-var 3076}# - (#{gen-var 484}# 'tmp))) + (let ((#{inner-var 3085}# + (#{gen-var 485}# '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 3085}# + (cons (cons (cons #{outer-var 3078}# + #{inner-var 3085}#) + (car #{maps 3071}#)) + #{outer-maps 3079}#))))))))))))) + (#{gen-mappend 2941}# + (lambda (#{e 3086}# #{map-env 3087}#) (list 'apply '(primitive append) - (#{gen-map 2934}# #{e 3077}# #{map-env 3078}#)))) - (#{gen-map 2934}# - (lambda (#{e 3082}# #{map-env 3083}#) + (#{gen-map 2943}# #{e 3086}# #{map-env 3087}#)))) + (#{gen-map 2943}# + (lambda (#{e 3091}# #{map-env 3092}#) (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 3097}# (map cdr #{map-env 3092}#)) + (#{actuals 3098}# + (map (lambda (#{x 3099}#) + (list 'ref (car #{x 3099}#))) + #{map-env 3092}#))) + (if (eq? (car #{e 3091}#) 'ref) + (car #{actuals 3098}#) (if (and-map - (lambda (#{x 3097}#) - (if (eq? (car #{x 3097}#) 'ref) - (memq (car (cdr #{x 3097}#)) - #{formals 3088}#) + (lambda (#{x 3106}#) + (if (eq? (car #{x 3106}#) 'ref) + (memq (car (cdr #{x 3106}#)) + #{formals 3097}#) #f)) - (cdr #{e 3082}#)) + (cdr #{e 3091}#)) (cons 'map - (cons (list 'primitive (car #{e 3082}#)) + (cons (list 'primitive (car #{e 3091}#)) (map (begin - (let ((#{r 3103}# + (let ((#{r 3112}# (map cons - #{formals 3088}# - #{actuals 3089}#))) - (lambda (#{x 3104}#) - (cdr (assq (car (cdr #{x 3104}#)) - #{r 3103}#))))) - (cdr #{e 3082}#)))) + #{formals 3097}# + #{actuals 3098}#))) + (lambda (#{x 3113}#) + (cdr (assq (car (cdr #{x 3113}#)) + #{r 3112}#))))) + (cdr #{e 3091}#)))) (cons 'map (cons (list 'lambda - #{formals 3088}# - #{e 3082}#) - #{actuals 3089}#)))))))) - (#{gen-cons 2936}# - (lambda (#{x 3108}# #{y 3109}#) + #{formals 3097}# + #{e 3091}#) + #{actuals 3098}#)))))))) + (#{gen-cons 2945}# + (lambda (#{x 3117}# #{y 3118}#) (begin - (let ((#{atom-key 3114}# (car #{y 3109}#))) - (if (eqv? #{atom-key 3114}# 'quote) - (if (eq? (car #{x 3108}#) 'quote) + (let ((#{atom-key 3123}# (car #{y 3118}#))) + (if (eqv? #{atom-key 3123}# 'quote) + (if (eq? (car #{x 3117}#) '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 3117}#)) + (car (cdr #{y 3118}#)))) + (if (eq? (car (cdr #{y 3118}#)) '()) + (list 'list #{x 3117}#) + (list 'cons #{x 3117}# #{y 3118}#))) + (if (eqv? #{atom-key 3123}# 'list) + (cons 'list (cons #{x 3117}# (cdr #{y 3118}#))) + (list 'cons #{x 3117}# #{y 3118}#))))))) + (#{gen-append 2947}# + (lambda (#{x 3132}# #{y 3133}#) + (if (equal? #{y 3133}# ''()) + #{x 3132}# + (list 'append #{x 3132}# #{y 3133}#)))) + (#{gen-vector 2949}# + (lambda (#{x 3137}#) + (if (eq? (car #{x 3137}#) 'list) + (cons 'vector (cdr #{x 3137}#)) + (if (eq? (car #{x 3137}#) 'quote) (list 'quote - (list->vector (car (cdr #{x 3128}#)))) - (list 'list->vector #{x 3128}#))))) - (#{regen 2942}# - (lambda (#{x 3138}#) + (list->vector (car (cdr #{x 3137}#)))) + (list 'list->vector #{x 3137}#))))) + (#{regen 2951}# + (lambda (#{x 3147}#) (begin - (let ((#{atom-key 3142}# (car #{x 3138}#))) - (if (eqv? #{atom-key 3142}# 'ref) - (#{build-lexical-reference 308}# + (let ((#{atom-key 3151}# (car #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'ref) + (#{build-lexical-reference 309}# '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 3147}#)) + (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'primitive) + (#{build-primref 327}# #f (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'quote) + (#{build-data 329}# #f (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'lambda) + (if (list? (car (cdr #{x 3147}#))) + (#{build-simple-lambda 321}# #f - (car (cdr #{x 3138}#)) + (car (cdr #{x 3147}#)) #f - (car (cdr #{x 3138}#)) + (car (cdr #{x 3147}#)) '() - (#{regen 2942}# - (car (cdr (cdr #{x 3138}#))))) - (error "how did we get here" #{x 3138}#)) - (#{build-application 302}# + (#{regen 2951}# + (car (cdr (cdr #{x 3147}#))))) + (error "how did we get here" #{x 3147}#)) + (#{build-application 303}# #f - (#{build-primref 326}# #f (car #{x 3138}#)) - (map #{regen 2942}# - (cdr #{x 3138}#)))))))))))) + (#{build-primref 327}# #f (car #{x 3147}#)) + (map #{regen 2951}# + (cdr #{x 3147}#)))))))))))) (begin - (lambda (#{e 3154}# - #{r 3155}# - #{w 3156}# - #{s 3157}# - #{mod 3158}#) + (lambda (#{e 3163}# + #{r 3164}# + #{w 3165}# + #{s 3166}# + #{mod 3167}#) (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 3174}# + (#{source-wrap 445}# + #{e 3163}# + #{w 3165}# + #{s 3166}# + #{mod 3167}#))) + (let ((#{tmp 3175}# #{e 3174}#)) + (let ((#{tmp 3176}# + ($sc-dispatch #{tmp 3175}# '(_ any)))) + (if #{tmp 3176}# (@apply - (lambda (#{x 3169}#) + (lambda (#{x 3178}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{e 3165}# - #{x 3169}# - #{r 3155}# + (#{gen-syntax 2937}# + #{e 3174}# + #{x 3178}# + #{r 3164}# '() - #{ellipsis? 472}# - #{mod 3158}#)) - (lambda (#{e 3170}# #{maps 3171}#) - (#{regen 2942}# #{e 3170}#)))) - #{tmp 3167}#) - (let ((#{_ 3175}# #{tmp 3166}#)) + #{ellipsis? 473}# + #{mod 3167}#)) + (lambda (#{e 3179}# #{maps 3180}#) + (#{regen 2951}# #{e 3179}#)))) + #{tmp 3176}#) + (let ((#{_ 3184}# #{tmp 3175}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e 3165}#))))))))))) - (#{global-extend 372}# + #{e 3174}#))))))))))) + (#{global-extend 373}# 'core 'lambda - (lambda (#{e 3176}# - #{r 3177}# - #{w 3178}# - #{s 3179}# - #{mod 3180}#) - (let ((#{tmp 3186}# #{e 3176}#)) - (let ((#{tmp 3187}# + (lambda (#{e 3185}# + #{r 3186}# + #{w 3187}# + #{s 3188}# + #{mod 3189}#) + (let ((#{tmp 3195}# #{e 3185}#)) + (let ((#{tmp 3196}# ($sc-dispatch - #{tmp 3186}# + #{tmp 3195}# '(_ any any . each-any)))) - (if #{tmp 3187}# + (if #{tmp 3196}# (@apply - (lambda (#{args 3191}# #{e1 3192}# #{e2 3193}#) + (lambda (#{args 3200}# #{e1 3201}# #{e2 3202}#) (call-with-values (lambda () - (#{lambda-formals 474}# #{args 3191}#)) - (lambda (#{req 3194}# - #{opt 3195}# - #{rest 3196}# - #{kw 3197}#) + (#{lambda-formals 475}# #{args 3200}#)) + (lambda (#{req 3203}# + #{opt 3204}# + #{rest 3205}# + #{kw 3206}#) (letrec* - ((#{lp 3205}# - (lambda (#{body 3206}# #{meta 3207}#) - (let ((#{tmp 3209}# #{body 3206}#)) - (let ((#{tmp 3210}# + ((#{lp 3214}# + (lambda (#{body 3215}# #{meta 3216}#) + (let ((#{tmp 3218}# #{body 3215}#)) + (let ((#{tmp 3219}# ($sc-dispatch - #{tmp 3209}# + #{tmp 3218}# '(any any . each-any)))) - (if (if #{tmp 3210}# + (if (if #{tmp 3219}# (@apply - (lambda (#{docstring 3214}# - #{e1 3215}# - #{e2 3216}#) + (lambda (#{docstring 3223}# + #{e1 3224}# + #{e2 3225}#) (string? (syntax->datum - #{docstring 3214}#))) - #{tmp 3210}#) + #{docstring 3223}#))) + #{tmp 3219}#) #f) (@apply - (lambda (#{docstring 3220}# - #{e1 3221}# - #{e2 3222}#) - (#{lp 3205}# - (cons #{e1 3221}# #{e2 3222}#) + (lambda (#{docstring 3229}# + #{e1 3230}# + #{e2 3231}#) + (#{lp 3214}# + (cons #{e1 3230}# #{e2 3231}#) (append - #{meta 3207}# + #{meta 3216}# (list (cons 'documentation (syntax->datum - #{docstring 3220}#)))))) - #{tmp 3210}#) - (let ((#{tmp 3225}# + #{docstring 3229}#)))))) + #{tmp 3219}#) + (let ((#{tmp 3234}# ($sc-dispatch - #{tmp 3209}# + #{tmp 3218}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 3225}# + (if #{tmp 3234}# (@apply - (lambda (#{k 3230}# - #{v 3231}# - #{e1 3232}# - #{e2 3233}#) - (#{lp 3205}# - (cons #{e1 3232}# - #{e2 3233}#) + (lambda (#{k 3239}# + #{v 3240}# + #{e1 3241}# + #{e2 3242}#) + (#{lp 3214}# + (cons #{e1 3241}# + #{e2 3242}#) (append - #{meta 3207}# + #{meta 3216}# (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 3239}# + #{v 3240}#))))) + #{tmp 3234}#) + (let ((#{_ 3247}# #{tmp 3218}#)) + (#{chi-simple-lambda 477}# + #{e 3185}# + #{r 3186}# + #{w 3187}# + #{s 3188}# + #{mod 3189}# + #{req 3203}# + #{rest 3205}# + #{meta 3216}# + #{body 3215}#)))))))))) (begin - (#{lp 3205}# - (cons #{e1 3192}# #{e2 3193}#) + (#{lp 3214}# + (cons #{e1 3201}# #{e2 3202}#) '())))))) - #{tmp 3187}#) - (let ((#{_ 3240}# #{tmp 3186}#)) + #{tmp 3196}#) + (let ((#{_ 3249}# #{tmp 3195}#)) (syntax-violation 'lambda "bad lambda" - #{e 3176}#))))))) - (#{global-extend 372}# + #{e 3185}#))))))) + (#{global-extend 373}# 'core 'lambda* - (lambda (#{e 3241}# - #{r 3242}# - #{w 3243}# - #{s 3244}# - #{mod 3245}#) - (let ((#{tmp 3251}# #{e 3241}#)) - (let ((#{tmp 3252}# + (lambda (#{e 3250}# + #{r 3251}# + #{w 3252}# + #{s 3253}# + #{mod 3254}#) + (let ((#{tmp 3260}# #{e 3250}#)) + (let ((#{tmp 3261}# ($sc-dispatch - #{tmp 3251}# + #{tmp 3260}# '(_ any any . each-any)))) - (if #{tmp 3252}# + (if #{tmp 3261}# (@apply - (lambda (#{args 3256}# #{e1 3257}# #{e2 3258}#) + (lambda (#{args 3265}# #{e1 3266}# #{e2 3267}#) (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 481}# + #{e 3250}# + #{r 3251}# + #{w 3252}# + #{s 3253}# + #{mod 3254}# + #{lambda*-formals 479}# + (list (cons #{args 3265}# + (cons #{e1 3266}# #{e2 3267}#))))) + (lambda (#{meta 3269}# #{lcase 3270}#) + (#{build-case-lambda 323}# + #{s 3253}# + #{meta 3269}# + #{lcase 3270}#)))) + #{tmp 3261}#) + (let ((#{_ 3274}# #{tmp 3260}#)) (syntax-violation 'lambda "bad lambda*" - #{e 3241}#))))))) - (#{global-extend 372}# + #{e 3250}#))))))) + (#{global-extend 373}# 'core 'case-lambda - (lambda (#{e 3266}# - #{r 3267}# - #{w 3268}# - #{s 3269}# - #{mod 3270}#) - (let ((#{tmp 3276}# #{e 3266}#)) - (let ((#{tmp 3277}# + (lambda (#{e 3275}# + #{r 3276}# + #{w 3277}# + #{s 3278}# + #{mod 3279}#) + (let ((#{tmp 3285}# #{e 3275}#)) + (let ((#{tmp 3286}# ($sc-dispatch - #{tmp 3276}# + #{tmp 3285}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3277}# + (if #{tmp 3286}# (@apply - (lambda (#{args 3284}# - #{e1 3285}# - #{e2 3286}# - #{args* 3287}# - #{e1* 3288}# - #{e2* 3289}#) + (lambda (#{args 3293}# + #{e1 3294}# + #{e2 3295}# + #{args* 3296}# + #{e1* 3297}# + #{e2* 3298}#) (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 481}# + #{e 3275}# + #{r 3276}# + #{w 3277}# + #{s 3278}# + #{mod 3279}# + #{lambda-formals 475}# + (cons (cons #{args 3293}# + (cons #{e1 3294}# #{e2 3295}#)) + (map (lambda (#{tmp 3302}# + #{tmp 3301}# + #{tmp 3300}#) + (cons #{tmp 3300}# + (cons #{tmp 3301}# + #{tmp 3302}#))) + #{e2* 3298}# + #{e1* 3297}# + #{args* 3296}#)))) + (lambda (#{meta 3304}# #{lcase 3305}#) + (#{build-case-lambda 323}# + #{s 3278}# + #{meta 3304}# + #{lcase 3305}#)))) + #{tmp 3286}#) + (let ((#{_ 3309}# #{tmp 3285}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e 3266}#))))))) - (#{global-extend 372}# + #{e 3275}#))))))) + (#{global-extend 373}# 'core 'case-lambda* - (lambda (#{e 3301}# - #{r 3302}# - #{w 3303}# - #{s 3304}# - #{mod 3305}#) - (let ((#{tmp 3311}# #{e 3301}#)) - (let ((#{tmp 3312}# + (lambda (#{e 3310}# + #{r 3311}# + #{w 3312}# + #{s 3313}# + #{mod 3314}#) + (let ((#{tmp 3320}# #{e 3310}#)) + (let ((#{tmp 3321}# ($sc-dispatch - #{tmp 3311}# + #{tmp 3320}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3312}# + (if #{tmp 3321}# (@apply - (lambda (#{args 3319}# - #{e1 3320}# - #{e2 3321}# - #{args* 3322}# - #{e1* 3323}# - #{e2* 3324}#) + (lambda (#{args 3328}# + #{e1 3329}# + #{e2 3330}# + #{args* 3331}# + #{e1* 3332}# + #{e2* 3333}#) (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 481}# + #{e 3310}# + #{r 3311}# + #{w 3312}# + #{s 3313}# + #{mod 3314}# + #{lambda*-formals 479}# + (cons (cons #{args 3328}# + (cons #{e1 3329}# #{e2 3330}#)) + (map (lambda (#{tmp 3337}# + #{tmp 3336}# + #{tmp 3335}#) + (cons #{tmp 3335}# + (cons #{tmp 3336}# + #{tmp 3337}#))) + #{e2* 3333}# + #{e1* 3332}# + #{args* 3331}#)))) + (lambda (#{meta 3339}# #{lcase 3340}#) + (#{build-case-lambda 323}# + #{s 3313}# + #{meta 3339}# + #{lcase 3340}#)))) + #{tmp 3321}#) + (let ((#{_ 3344}# #{tmp 3320}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 3301}#))))))) - (#{global-extend 372}# + #{e 3310}#))))))) + (#{global-extend 373}# '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 3346}# + (lambda (#{e 3347}# + #{r 3348}# + #{w 3349}# + #{s 3350}# + #{mod 3351}# + #{constructor 3352}# + #{ids 3353}# + #{vals 3354}# + #{exps 3355}#) + (if (not (#{valid-bound-ids? 437}# #{ids 3353}#)) (syntax-violation 'let "duplicate bound variable" - #{e 3338}#) + #{e 3347}#) (begin - (let ((#{labels 3358}# - (#{gen-labels 391}# #{ids 3344}#)) - (#{new-vars 3359}# - (map #{gen-var 484}# #{ids 3344}#))) + (let ((#{labels 3367}# + (#{gen-labels 392}# #{ids 3353}#)) + (#{new-vars 3368}# + (map #{gen-var 485}# #{ids 3353}#))) (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 3371}# + (#{make-binding-wrap 421}# + #{ids 3353}# + #{labels 3367}# + #{w 3349}#)) + (#{nr 3372}# + (#{extend-var-env 367}# + #{labels 3367}# + #{new-vars 3368}# + #{r 3348}#))) + (#{constructor 3352}# + #{s 3350}# + (map syntax->datum #{ids 3353}#) + #{new-vars 3368}# + (map (lambda (#{x 3373}#) + (#{chi 457}# + #{x 3373}# + #{r 3348}# + #{w 3349}# + #{mod 3351}#)) + #{vals 3354}#) + (#{chi-body 465}# + #{exps 3355}# + (#{source-wrap 445}# + #{e 3347}# + #{nw 3371}# + #{s 3350}# + #{mod 3351}#) + #{nr 3372}# + #{nw 3371}# + #{mod 3351}#)))))))))) (begin - (lambda (#{e 3366}# - #{r 3367}# - #{w 3368}# - #{s 3369}# - #{mod 3370}#) - (let ((#{tmp 3376}# #{e 3366}#)) - (let ((#{tmp 3377}# + (lambda (#{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}#) + (let ((#{tmp 3385}# #{e 3375}#)) + (let ((#{tmp 3386}# ($sc-dispatch - #{tmp 3376}# + #{tmp 3385}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3377}# + (if (if #{tmp 3386}# (@apply - (lambda (#{id 3382}# - #{val 3383}# - #{e1 3384}# - #{e2 3385}#) - (and-map #{id? 376}# #{id 3382}#)) - #{tmp 3377}#) + (lambda (#{id 3391}# + #{val 3392}# + #{e1 3393}# + #{e2 3394}#) + (and-map #{id? 377}# #{id 3391}#)) + #{tmp 3386}#) #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 3400}# + #{val 3401}# + #{e1 3402}# + #{e2 3403}#) + (#{chi-let 3346}# + #{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}# + #{build-let 333}# + #{id 3400}# + #{val 3401}# + (cons #{e1 3402}# #{e2 3403}#))) + #{tmp 3386}#) + (let ((#{tmp 3407}# ($sc-dispatch - #{tmp 3376}# + #{tmp 3385}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3398}# + (if (if #{tmp 3407}# (@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 3413}# + #{id 3414}# + #{val 3415}# + #{e1 3416}# + #{e2 3417}#) + (if (#{id? 377}# #{f 3413}#) + (and-map #{id? 377}# #{id 3414}#) #f)) - #{tmp 3398}#) + #{tmp 3407}#) #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 3426}# + #{id 3427}# + #{val 3428}# + #{e1 3429}# + #{e2 3430}#) + (#{chi-let 3346}# + #{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}# + #{build-named-let 335}# + (cons #{f 3426}# #{id 3427}#) + #{val 3428}# + (cons #{e1 3429}# #{e2 3430}#))) + #{tmp 3407}#) + (let ((#{_ 3435}# #{tmp 3385}#)) (syntax-violation 'let "bad let" - (#{source-wrap 444}# - #{e 3366}# - #{w 3368}# - #{s 3369}# - #{mod 3370}#)))))))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3375}# + #{w 3377}# + #{s 3378}# + #{mod 3379}#)))))))))))) + (#{global-extend 373}# 'core 'letrec - (lambda (#{e 3427}# - #{r 3428}# - #{w 3429}# - #{s 3430}# - #{mod 3431}#) - (let ((#{tmp 3437}# #{e 3427}#)) - (let ((#{tmp 3438}# + (lambda (#{e 3436}# + #{r 3437}# + #{w 3438}# + #{s 3439}# + #{mod 3440}#) + (let ((#{tmp 3446}# #{e 3436}#)) + (let ((#{tmp 3447}# ($sc-dispatch - #{tmp 3437}# + #{tmp 3446}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3438}# + (if (if #{tmp 3447}# (@apply - (lambda (#{id 3443}# - #{val 3444}# - #{e1 3445}# - #{e2 3446}#) - (and-map #{id? 376}# #{id 3443}#)) - #{tmp 3438}#) + (lambda (#{id 3452}# + #{val 3453}# + #{e1 3454}# + #{e2 3455}#) + (and-map #{id? 377}# #{id 3452}#)) + #{tmp 3447}#) #f) (@apply - (lambda (#{id 3452}# - #{val 3453}# - #{e1 3454}# - #{e2 3455}#) + (lambda (#{id 3461}# + #{val 3462}# + #{e1 3463}# + #{e2 3464}#) (begin - (let ((#{ids 3457}# #{id 3452}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 3457}#)) + (let ((#{ids 3466}# #{id 3461}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 3466}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 3427}#) + #{e 3436}#) (begin - (let ((#{labels 3461}# - (#{gen-labels 391}# #{ids 3457}#)) - (#{new-vars 3462}# - (map #{gen-var 484}# #{ids 3457}#))) + (let ((#{labels 3470}# + (#{gen-labels 392}# #{ids 3466}#)) + (#{new-vars 3471}# + (map #{gen-var 485}# #{ids 3466}#))) (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 3474}# + (#{make-binding-wrap 421}# + #{ids 3466}# + #{labels 3470}# + #{w 3438}#)) + (#{r 3475}# + (#{extend-var-env 367}# + #{labels 3470}# + #{new-vars 3471}# + #{r 3437}#))) + (#{build-letrec 337}# + #{s 3439}# #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 3466}#) + #{new-vars 3471}# + (map (lambda (#{x 3476}#) + (#{chi 457}# + #{x 3476}# + #{r 3475}# + #{w 3474}# + #{mod 3440}#)) + #{val 3462}#) + (#{chi-body 465}# + (cons #{e1 3463}# #{e2 3464}#) + (#{source-wrap 445}# + #{e 3436}# + #{w 3474}# + #{s 3439}# + #{mod 3440}#) + #{r 3475}# + #{w 3474}# + #{mod 3440}#)))))))))) + #{tmp 3447}#) + (let ((#{_ 3481}# #{tmp 3446}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap 444}# - #{e 3427}# - #{w 3429}# - #{s 3430}# - #{mod 3431}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3436}# + #{w 3438}# + #{s 3439}# + #{mod 3440}#)))))))) + (#{global-extend 373}# 'core 'letrec* - (lambda (#{e 3473}# - #{r 3474}# - #{w 3475}# - #{s 3476}# - #{mod 3477}#) - (let ((#{tmp 3483}# #{e 3473}#)) - (let ((#{tmp 3484}# + (lambda (#{e 3482}# + #{r 3483}# + #{w 3484}# + #{s 3485}# + #{mod 3486}#) + (let ((#{tmp 3492}# #{e 3482}#)) + (let ((#{tmp 3493}# ($sc-dispatch - #{tmp 3483}# + #{tmp 3492}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3484}# + (if (if #{tmp 3493}# (@apply - (lambda (#{id 3489}# - #{val 3490}# - #{e1 3491}# - #{e2 3492}#) - (and-map #{id? 376}# #{id 3489}#)) - #{tmp 3484}#) + (lambda (#{id 3498}# + #{val 3499}# + #{e1 3500}# + #{e2 3501}#) + (and-map #{id? 377}# #{id 3498}#)) + #{tmp 3493}#) #f) (@apply - (lambda (#{id 3498}# - #{val 3499}# - #{e1 3500}# - #{e2 3501}#) + (lambda (#{id 3507}# + #{val 3508}# + #{e1 3509}# + #{e2 3510}#) (begin - (let ((#{ids 3503}# #{id 3498}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 3503}#)) + (let ((#{ids 3512}# #{id 3507}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 3512}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 3473}#) + #{e 3482}#) (begin - (let ((#{labels 3507}# - (#{gen-labels 391}# #{ids 3503}#)) - (#{new-vars 3508}# - (map #{gen-var 484}# #{ids 3503}#))) + (let ((#{labels 3516}# + (#{gen-labels 392}# #{ids 3512}#)) + (#{new-vars 3517}# + (map #{gen-var 485}# #{ids 3512}#))) (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 3520}# + (#{make-binding-wrap 421}# + #{ids 3512}# + #{labels 3516}# + #{w 3484}#)) + (#{r 3521}# + (#{extend-var-env 367}# + #{labels 3516}# + #{new-vars 3517}# + #{r 3483}#))) + (#{build-letrec 337}# + #{s 3485}# #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 3512}#) + #{new-vars 3517}# + (map (lambda (#{x 3522}#) + (#{chi 457}# + #{x 3522}# + #{r 3521}# + #{w 3520}# + #{mod 3486}#)) + #{val 3508}#) + (#{chi-body 465}# + (cons #{e1 3509}# #{e2 3510}#) + (#{source-wrap 445}# + #{e 3482}# + #{w 3520}# + #{s 3485}# + #{mod 3486}#) + #{r 3521}# + #{w 3520}# + #{mod 3486}#)))))))))) + #{tmp 3493}#) + (let ((#{_ 3527}# #{tmp 3492}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap 444}# - #{e 3473}# - #{w 3475}# - #{s 3476}# - #{mod 3477}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3482}# + #{w 3484}# + #{s 3485}# + #{mod 3486}#)))))))) + (#{global-extend 373}# '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 3528}# + #{r 3529}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#) + (let ((#{tmp 3538}# #{e 3528}#)) + (let ((#{tmp 3539}# + ($sc-dispatch #{tmp 3538}# '(_ any any)))) + (if (if #{tmp 3539}# (@apply - (lambda (#{id 3533}# #{val 3534}#) - (#{id? 376}# #{id 3533}#)) - #{tmp 3530}#) + (lambda (#{id 3542}# #{val 3543}#) + (#{id? 377}# #{id 3542}#)) + #{tmp 3539}#) #f) (@apply - (lambda (#{id 3537}# #{val 3538}#) + (lambda (#{id 3546}# #{val 3547}#) (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 3550}# + (#{id-var-name 431}# #{id 3546}# #{w 3530}#)) + (#{id-mod 3551}# + (if (#{syntax-object? 343}# #{id 3546}#) + (#{syntax-object-module 349}# #{id 3546}#) + #{mod 3532}#))) (begin - (let ((#{b 3544}# - (#{lookup 370}# - #{n 3541}# - #{r 3520}# - #{id-mod 3542}#))) + (let ((#{b 3553}# + (#{lookup 371}# + #{n 3550}# + #{r 3529}# + #{id-mod 3551}#))) (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 3556}# (car #{b 3553}#))) + (if (eqv? #{atom-key 3556}# 'lexical) + (#{build-lexical-assignment 311}# + #{s 3531}# + (syntax->datum #{id 3546}#) + (cdr #{b 3553}#) + (#{chi 457}# + #{val 3547}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#)) + (if (eqv? #{atom-key 3556}# 'global) + (#{build-global-assignment 317}# + #{s 3531}# + #{n 3550}# + (#{chi 457}# + #{val 3547}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#) + #{id-mod 3551}#) + (if (eqv? #{atom-key 3556}# 'macro) (begin - (let ((#{p 3554}# - (cdr #{b 3544}#))) + (let ((#{p 3563}# + (cdr #{b 3553}#))) (if (procedure-property - #{p 3554}# + #{p 3563}# 'variable-transformer) - (#{chi 456}# - (#{chi-macro 462}# - #{p 3554}# - #{e 3519}# - #{r 3520}# - #{w 3521}# - #{s 3522}# + (#{chi 457}# + (#{chi-macro 463}# + #{p 3563}# + #{e 3528}# + #{r 3529}# + #{w 3530}# + #{s 3531}# #f - #{mod 3523}#) - #{r 3520}# + #{mod 3532}#) + #{r 3529}# '(()) - #{mod 3523}#) + #{mod 3532}#) (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 443}# + #{e 3528}# + #{w 3530}# + #{mod 3532}#) + (#{wrap 443}# + #{id 3546}# + #{w 3530}# + #{id-mod 3551}#))))) + (if (eqv? #{atom-key 3556}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 442}# - #{id 3537}# - #{w 3521}# - #{mod 3523}#)) + (#{wrap 443}# + #{id 3546}# + #{w 3530}# + #{mod 3532}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 444}# - #{e 3519}# - #{w 3521}# - #{s 3522}# - #{mod 3523}#))))))))))))) - #{tmp 3530}#) - (let ((#{tmp 3559}# + (#{source-wrap 445}# + #{e 3528}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#))))))))))))) + #{tmp 3539}#) + (let ((#{tmp 3568}# ($sc-dispatch - #{tmp 3529}# + #{tmp 3538}# '(_ (any . each-any) any)))) - (if #{tmp 3559}# + (if #{tmp 3568}# (@apply - (lambda (#{head 3563}# #{tail 3564}# #{val 3565}#) + (lambda (#{head 3572}# #{tail 3573}# #{val 3574}#) (call-with-values (lambda () - (#{syntax-type 454}# - #{head 3563}# - #{r 3520}# + (#{syntax-type 455}# + #{head 3572}# + #{r 3529}# '(()) #f #f - #{mod 3523}# + #{mod 3532}# #t)) - (lambda (#{type 3568}# - #{value 3569}# - #{ee 3570}# - #{ww 3571}# - #{ss 3572}# - #{modmod 3573}#) - (if (eqv? #{type 3568}# 'module-ref) + (lambda (#{type 3577}# + #{value 3578}# + #{ee 3579}# + #{ww 3580}# + #{ss 3581}# + #{modmod 3582}#) + (if (eqv? #{type 3577}# 'module-ref) (begin - (let ((#{val 3582}# - (#{chi 456}# - #{val 3565}# - #{r 3520}# - #{w 3521}# - #{mod 3523}#))) + (let ((#{val 3591}# + (#{chi 457}# + #{val 3574}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#))) (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 3578}# + (cons #{head 3572}# #{tail 3573}#) + #{r 3529}# + #{w 3530}#)) + (lambda (#{e 3593}# + #{r 3594}# + #{w 3595}# + #{s* 3596}# + #{mod 3597}#) + (let ((#{tmp 3603}# #{e 3593}#)) + (let ((#{tmp 3604}# + (list #{tmp 3603}#))) + (if (if #{tmp 3604}# (@apply - (lambda (#{e 3597}#) - (#{id? 376}# - #{e 3597}#)) - #{tmp 3595}#) + (lambda (#{e 3606}#) + (#{id? 377}# + #{e 3606}#)) + #{tmp 3604}#) #f) (@apply - (lambda (#{e 3599}#) - (#{build-global-assignment 316}# - #{s 3522}# + (lambda (#{e 3608}#) + (#{build-global-assignment 317}# + #{s 3531}# (syntax->datum - #{e 3599}#) - #{val 3582}# - #{mod 3588}#)) - #{tmp 3595}#) + #{e 3608}#) + #{val 3591}# + #{mod 3597}#)) + #{tmp 3604}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3594}#)))))))) - (#{build-application 302}# - #{s 3522}# - (#{chi 456}# + #{tmp 3603}#)))))))) + (#{build-application 303}# + #{s 3531}# + (#{chi 457}# (list '#(syntax-object setter ((top) @@ -10101,16 +8393,16 @@ (top) (top) (top)) - #("i3574" - "i3575" - "i3576" - "i3577" - "i3578" - "i3579")) + #("i3583" + "i3584" + "i3585" + "i3586" + "i3587" + "i3588")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3560" "i3561" "i3562")) + #("i3569" "i3570" "i3571")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10119,11 +8411,11 @@ (top) (top) (top)) - #("i3524" - "i3525" - "i3526" - "i3527" - "i3528")) + #("i3533" + "i3534" + "i3535" + "i3536" + "i3537")) #(ribcage (lambda-var-list gen-var @@ -10397,57 +8689,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -10456,135 +8749,134 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (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 3572}#) + #{r 3529}# + #{w 3530}# + #{mod 3532}#) + (map (lambda (#{e 3610}#) + (#{chi 457}# + #{e 3610}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#)) (append - #{tail 3564}# - (list #{val 3565}#)))))))) - #{tmp 3559}#) - (let ((#{_ 3605}# #{tmp 3529}#)) + #{tail 3573}# + (list #{val 3574}#)))))))) + #{tmp 3568}#) + (let ((#{_ 3614}# #{tmp 3538}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 444}# - #{e 3519}# - #{w 3521}# - #{s 3522}# - #{mod 3523}#)))))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3528}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#)))))))))) + (#{global-extend 373}# '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 3615}# #{r 3616}# #{w 3617}#) + (let ((#{tmp 3621}# #{e 3615}#)) + (let ((#{tmp 3622}# + ($sc-dispatch #{tmp 3621}# '(_ each-any any)))) + (if (if #{tmp 3622}# (@apply - (lambda (#{mod 3616}# #{id 3617}#) - (if (and-map #{id? 376}# #{mod 3616}#) - (#{id? 376}# #{id 3617}#) + (lambda (#{mod 3625}# #{id 3626}#) + (if (and-map #{id? 377}# #{mod 3625}#) + (#{id? 377}# #{id 3626}#) #f)) - #{tmp 3613}#) + #{tmp 3622}#) #f) (@apply - (lambda (#{mod 3623}# #{id 3624}#) + (lambda (#{mod 3632}# #{id 3633}#) (values - (syntax->datum #{id 3624}#) - #{r 3607}# - #{w 3608}# + (syntax->datum #{id 3633}#) + #{r 3616}# + #{w 3617}# #f (syntax->datum (cons '#(syntax-object @@ -10593,12 +8885,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3621" "i3622")) + #("i3630" "i3631")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3609" "i3610" "i3611")) + #("i3618" "i3619" "i3620")) #(ribcage (lambda-var-list gen-var @@ -10872,57 +9164,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -10931,155 +9224,154 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{mod 3623}#)))) - #{tmp 3613}#) + #{mod 3632}#)))) + #{tmp 3622}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3612}#)))))) - (#{global-extend 372}# + #{tmp 3621}#)))))) + (#{global-extend 373}# 'module-ref '@@ - (lambda (#{e 3626}# #{r 3627}# #{w 3628}#) + (lambda (#{e 3635}# #{r 3636}# #{w 3637}#) (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 3642}# + (lambda (#{x 3643}# #{mod 3644}#) + (if (pair? #{x 3643}#) + (cons (#{remodulate 3642}# + (car #{x 3643}#) + #{mod 3644}#) + (#{remodulate 3642}# + (cdr #{x 3643}#) + #{mod 3644}#)) + (if (#{syntax-object? 343}# #{x 3643}#) + (#{make-syntax-object 341}# + (#{remodulate 3642}# + (#{syntax-object-expression 345}# #{x 3643}#) + #{mod 3644}#) + (#{syntax-object-wrap 347}# #{x 3643}#) + #{mod 3644}#) + (if (vector? #{x 3643}#) (begin - (let ((#{n 3646}# (vector-length #{x 3634}#))) + (let ((#{n 3655}# (vector-length #{x 3643}#))) (begin - (let ((#{v 3648}# (make-vector #{n 3646}#))) + (let ((#{v 3657}# (make-vector #{n 3655}#))) (letrec* - ((#{loop 3651}# - (lambda (#{i 3652}#) - (if (= #{i 3652}# #{n 3646}#) - (begin (if #f #f) #{v 3648}#) + ((#{loop 3660}# + (lambda (#{i 3661}#) + (if (= #{i 3661}# #{n 3655}#) + (begin (if #f #f) #{v 3657}#) (begin (vector-set! - #{v 3648}# - #{i 3652}# - (#{remodulate 3633}# + #{v 3657}# + #{i 3661}# + (#{remodulate 3642}# (vector-ref - #{x 3634}# - #{i 3652}#) - #{mod 3635}#)) - (#{loop 3651}# - (#{1+}# #{i 3652}#))))))) - (begin (#{loop 3651}# 0))))))) - #{x 3634}#)))))) + #{x 3643}# + #{i 3661}#) + #{mod 3644}#)) + (#{loop 3660}# + (#{1+}# #{i 3661}#))))))) + (begin (#{loop 3660}# 0))))))) + #{x 3643}#)))))) (begin - (let ((#{tmp 3658}# #{e 3626}#)) - (let ((#{tmp 3659}# - ($sc-dispatch #{tmp 3658}# '(_ each-any any)))) - (if (if #{tmp 3659}# + (let ((#{tmp 3667}# #{e 3635}#)) + (let ((#{tmp 3668}# + ($sc-dispatch #{tmp 3667}# '(_ each-any any)))) + (if (if #{tmp 3668}# (@apply - (lambda (#{mod 3662}# #{exp 3663}#) - (and-map #{id? 376}# #{mod 3662}#)) - #{tmp 3659}#) + (lambda (#{mod 3671}# #{exp 3672}#) + (and-map #{id? 377}# #{mod 3671}#)) + #{tmp 3668}#) #f) (@apply - (lambda (#{mod 3667}# #{exp 3668}#) + (lambda (#{mod 3676}# #{exp 3677}#) (begin - (let ((#{mod 3670}# + (let ((#{mod 3679}# (syntax->datum (cons '#(syntax-object private @@ -11087,15 +9379,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3665" "i3666")) + #("i3674" "i3675")) #(ribcage (remodulate) ((top)) - ("i3632")) + ("i3641")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3629" "i3630" "i3631")) + #("i3638" "i3639" "i3640")) #(ribcage (lambda-var-list gen-var @@ -11369,57 +9661,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -11428,256 +9721,255 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{mod 3667}#)))) + #{mod 3676}#)))) (values - (#{remodulate 3633}# - #{exp 3668}# - #{mod 3670}#) - #{r 3627}# - #{w 3628}# - (#{source-annotation 357}# #{exp 3668}#) - #{mod 3670}#)))) - #{tmp 3659}#) + (#{remodulate 3642}# + #{exp 3677}# + #{mod 3679}#) + #{r 3636}# + #{w 3637}# + (#{source-annotation 358}# #{exp 3677}#) + #{mod 3679}#)))) + #{tmp 3668}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3658}#)))))))) - (#{global-extend 372}# + #{tmp 3667}#)))))))) + (#{global-extend 373}# '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 3681}# + #{r 3682}# + #{w 3683}# + #{s 3684}# + #{mod 3685}#) + (let ((#{tmp 3691}# #{e 3681}#)) + (let ((#{tmp 3692}# + ($sc-dispatch #{tmp 3691}# '(_ any any)))) + (if #{tmp 3692}# (@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 3695}# #{then 3696}#) + (#{build-conditional 305}# + #{s 3684}# + (#{chi 457}# + #{test 3695}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{then 3696}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{build-void 301}# #f))) + #{tmp 3692}#) + (let ((#{tmp 3698}# + ($sc-dispatch #{tmp 3691}# '(_ any any any)))) + (if #{tmp 3698}# (@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 3702}# #{then 3703}# #{else 3704}#) + (#{build-conditional 305}# + #{s 3684}# + (#{chi 457}# + #{test 3702}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{then 3703}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{else 3704}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#))) + #{tmp 3698}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3682}#)))))))) - (#{global-extend 372}# + #{tmp 3691}#)))))))) + (#{global-extend 373}# 'core 'with-fluids - (lambda (#{e 3696}# - #{r 3697}# - #{w 3698}# - #{s 3699}# - #{mod 3700}#) - (let ((#{tmp 3706}# #{e 3696}#)) - (let ((#{tmp 3707}# + (lambda (#{e 3705}# + #{r 3706}# + #{w 3707}# + #{s 3708}# + #{mod 3709}#) + (let ((#{tmp 3715}# #{e 3705}#)) + (let ((#{tmp 3716}# ($sc-dispatch - #{tmp 3706}# + #{tmp 3715}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3707}# + (if #{tmp 3716}# (@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 3721}# + #{val 3722}# + #{b 3723}# + #{b* 3724}#) + (#{build-dynlet 307}# + #{s 3708}# + (map (lambda (#{x 3725}#) + (#{chi 457}# + #{x 3725}# + #{r 3706}# + #{w 3707}# + #{mod 3709}#)) + #{fluid 3721}#) + (map (lambda (#{x 3728}#) + (#{chi 457}# + #{x 3728}# + #{r 3706}# + #{w 3707}# + #{mod 3709}#)) + #{val 3722}#) + (#{chi-body 465}# + (cons #{b 3723}# #{b* 3724}#) + (#{source-wrap 445}# + #{e 3705}# + #{w 3707}# + #{s 3708}# + #{mod 3709}#) + #{r 3706}# + #{w 3707}# + #{mod 3709}#))) + #{tmp 3716}#) (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 3715}#)))))) + (#{global-extend 373}# 'begin 'begin '()) + (#{global-extend 373}# 'define 'define '()) + (#{global-extend 373}# 'define-syntax 'define-syntax '()) - (#{global-extend 372}# 'eval-when 'eval-when '()) - (#{global-extend 372}# + (#{global-extend 373}# 'eval-when 'eval-when '()) + (#{global-extend 373}# 'core 'syntax-case (letrec* - ((#{convert-pattern 3724}# - (lambda (#{pattern 3731}# #{keys 3732}#) + ((#{convert-pattern 3733}# + (lambda (#{pattern 3740}# #{keys 3741}#) (letrec* - ((#{cvt* 3736}# - (lambda (#{p* 3739}# #{n 3740}# #{ids 3741}#) - (if (null? #{p* 3739}#) - (values '() #{ids 3741}#) + ((#{cvt* 3745}# + (lambda (#{p* 3748}# #{n 3749}# #{ids 3750}#) + (if (null? #{p* 3748}#) + (values '() #{ids 3750}#) (call-with-values (lambda () - (#{cvt* 3736}# - (cdr #{p* 3739}#) - #{n 3740}# - #{ids 3741}#)) - (lambda (#{y 3745}# #{ids 3746}#) + (#{cvt* 3745}# + (cdr #{p* 3748}#) + #{n 3749}# + #{ids 3750}#)) + (lambda (#{y 3754}# #{ids 3755}#) (call-with-values (lambda () - (#{cvt 3738}# - (car #{p* 3739}#) - #{n 3740}# - #{ids 3746}#)) - (lambda (#{x 3749}# #{ids 3750}#) + (#{cvt 3747}# + (car #{p* 3748}#) + #{n 3749}# + #{ids 3755}#)) + (lambda (#{x 3758}# #{ids 3759}#) (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 3758}# #{y 3754}#) + #{ids 3759}#)))))))) + (#{cvt 3747}# + (lambda (#{p 3762}# #{n 3763}# #{ids 3764}#) + (if (#{id? 377}# #{p 3762}#) + (if (#{bound-id-member? 441}# + #{p 3762}# + #{keys 3741}#) (values - (vector 'free-id #{p 3753}#) - #{ids 3755}#) - (if (#{free-id=? 432}# - #{p 3753}# + (vector 'free-id #{p 3762}#) + #{ids 3764}#) + (if (#{free-id=? 433}# + #{p 3762}# '#(syntax-object _ ((top) @@ -11685,22 +9977,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3756" "i3757" "i3758")) + #("i3765" "i3766" "i3767")) #(ribcage (cvt cvt*) ((top) (top)) - ("i3737" "i3735")) + ("i3746" "i3744")) #(ribcage #(pattern keys) #((top) (top)) - #("i3733" "i3734")) + #("i3742" "i3743")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -11974,57 +10266,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -12033,400 +10326,399 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) - (values '_ #{ids 3755}#) + (values '_ #{ids 3764}#) (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 3762}# #{n 3763}#) + #{ids 3764}#)))) + (let ((#{tmp 3773}# #{p 3762}#)) + (let ((#{tmp 3774}# + ($sc-dispatch #{tmp 3773}# '(any any)))) + (if (if #{tmp 3774}# (@apply - (lambda (#{x 3768}# #{dots 3769}#) - (#{ellipsis? 472}# #{dots 3769}#)) - #{tmp 3765}#) + (lambda (#{x 3777}# #{dots 3778}#) + (#{ellipsis? 473}# #{dots 3778}#)) + #{tmp 3774}#) #f) (@apply - (lambda (#{x 3772}# #{dots 3773}#) + (lambda (#{x 3781}# #{dots 3782}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3772}# - (#{1+}# #{n 3754}#) - #{ids 3755}#)) - (lambda (#{p 3775}# #{ids 3776}#) + (#{cvt 3747}# + #{x 3781}# + (#{1+}# #{n 3763}#) + #{ids 3764}#)) + (lambda (#{p 3784}# #{ids 3785}#) (values - (if (eq? #{p 3775}# 'any) + (if (eq? #{p 3784}# 'any) 'each-any - (vector 'each #{p 3775}#)) - #{ids 3776}#)))) - #{tmp 3765}#) - (let ((#{tmp 3779}# + (vector 'each #{p 3784}#)) + #{ids 3785}#)))) + #{tmp 3774}#) + (let ((#{tmp 3788}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '(any any . each-any)))) - (if (if #{tmp 3779}# + (if (if #{tmp 3788}# (@apply - (lambda (#{x 3783}# - #{dots 3784}# - #{ys 3785}#) - (#{ellipsis? 472}# - #{dots 3784}#)) - #{tmp 3779}#) + (lambda (#{x 3792}# + #{dots 3793}# + #{ys 3794}#) + (#{ellipsis? 473}# + #{dots 3793}#)) + #{tmp 3788}#) #f) (@apply - (lambda (#{x 3789}# - #{dots 3790}# - #{ys 3791}#) + (lambda (#{x 3798}# + #{dots 3799}# + #{ys 3800}#) (call-with-values (lambda () - (#{cvt* 3736}# - #{ys 3791}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{ys 3793}# #{ids 3794}#) + (#{cvt* 3745}# + #{ys 3800}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{ys 3802}# #{ids 3803}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3789}# - (#{1+}# #{n 3754}#) - #{ids 3794}#)) - (lambda (#{x 3797}# - #{ids 3798}#) + (#{cvt 3747}# + #{x 3798}# + (#{1+}# #{n 3763}#) + #{ids 3803}#)) + (lambda (#{x 3806}# + #{ids 3807}#) (values (vector 'each+ - #{x 3797}# - (reverse #{ys 3793}#) + #{x 3806}# + (reverse #{ys 3802}#) '()) - #{ids 3798}#)))))) - #{tmp 3779}#) - (let ((#{tmp 3802}# + #{ids 3807}#)))))) + #{tmp 3788}#) + (let ((#{tmp 3811}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '(any . any)))) - (if #{tmp 3802}# + (if #{tmp 3811}# (@apply - (lambda (#{x 3805}# #{y 3806}#) + (lambda (#{x 3814}# #{y 3815}#) (call-with-values (lambda () - (#{cvt 3738}# - #{y 3806}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{y 3807}# - #{ids 3808}#) + (#{cvt 3747}# + #{y 3815}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{y 3816}# + #{ids 3817}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3805}# - #{n 3754}# - #{ids 3808}#)) - (lambda (#{x 3811}# - #{ids 3812}#) + (#{cvt 3747}# + #{x 3814}# + #{n 3763}# + #{ids 3817}#)) + (lambda (#{x 3820}# + #{ids 3821}#) (values - (cons #{x 3811}# - #{y 3807}#) - #{ids 3812}#)))))) - #{tmp 3802}#) - (let ((#{tmp 3815}# + (cons #{x 3820}# + #{y 3816}#) + #{ids 3821}#)))))) + #{tmp 3811}#) + (let ((#{tmp 3824}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '()))) - (if #{tmp 3815}# + (if #{tmp 3824}# (@apply (lambda () - (values '() #{ids 3755}#)) - #{tmp 3815}#) - (let ((#{tmp 3816}# + (values '() #{ids 3764}#)) + #{tmp 3824}#) + (let ((#{tmp 3825}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '#(vector each-any)))) - (if #{tmp 3816}# + (if #{tmp 3825}# (@apply - (lambda (#{x 3818}#) + (lambda (#{x 3827}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3818}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{p 3820}# - #{ids 3821}#) + (#{cvt 3747}# + #{x 3827}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{p 3829}# + #{ids 3830}#) (values (vector 'vector - #{p 3820}#) - #{ids 3821}#)))) - #{tmp 3816}#) - (let ((#{x 3825}# - #{tmp 3764}#)) + #{p 3829}#) + #{ids 3830}#)))) + #{tmp 3825}#) + (let ((#{x 3834}# + #{tmp 3773}#)) (values (vector 'atom - (#{strip 482}# - #{p 3753}# + (#{strip 483}# + #{p 3762}# '(()))) - #{ids 3755}#))))))))))))))))) - (begin (#{cvt 3738}# #{pattern 3731}# 0 '()))))) - (#{build-dispatch-call 3726}# - (lambda (#{pvars 3827}# - #{exp 3828}# - #{y 3829}# - #{r 3830}# - #{mod 3831}#) + #{ids 3764}#))))))))))))))))) + (begin (#{cvt 3747}# #{pattern 3740}# 0 '()))))) + (#{build-dispatch-call 3735}# + (lambda (#{pvars 3836}# + #{exp 3837}# + #{y 3838}# + #{r 3839}# + #{mod 3840}#) (begin - (map cdr #{pvars 3827}#) - (let ((#{ids 3839}# (map car #{pvars 3827}#))) + (map cdr #{pvars 3836}#) + (let ((#{ids 3848}# (map car #{pvars 3836}#))) (begin - (let ((#{labels 3843}# - (#{gen-labels 391}# #{ids 3839}#)) - (#{new-vars 3844}# - (map #{gen-var 484}# #{ids 3839}#))) - (#{build-application 302}# + (let ((#{labels 3852}# + (#{gen-labels 392}# #{ids 3848}#)) + (#{new-vars 3853}# + (map #{gen-var 485}# #{ids 3848}#))) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'apply) - (list (#{build-simple-lambda 320}# + (#{build-primref 327}# #f 'apply) + (list (#{build-simple-lambda 321}# #f - (map syntax->datum #{ids 3839}#) + (map syntax->datum #{ids 3848}#) #f - #{new-vars 3844}# + #{new-vars 3853}# '() - (#{chi 456}# - #{exp 3828}# - (#{extend-env 364}# - #{labels 3843}# - (map (lambda (#{var 3848}# - #{level 3849}#) + (#{chi 457}# + #{exp 3837}# + (#{extend-env 365}# + #{labels 3852}# + (map (lambda (#{var 3857}# + #{level 3858}#) (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 3857}# + #{level 3858}#))) + #{new-vars 3853}# + (map cdr #{pvars 3836}#)) + #{r 3839}#) + (#{make-binding-wrap 421}# + #{ids 3848}# + #{labels 3852}# '(())) - #{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 3840}#)) + #{y 3838}#)))))))) + (#{gen-clause 3737}# + (lambda (#{x 3864}# + #{keys 3865}# + #{clauses 3866}# + #{r 3867}# + #{pat 3868}# + #{fender 3869}# + #{exp 3870}# + #{mod 3871}#) (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 3733}# + #{pat 3868}# + #{keys 3865}#)) + (lambda (#{p 3880}# #{pvars 3881}#) + (if (not (#{distinct-bound-ids? 439}# + (map car #{pvars 3881}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 3859}#) + #{pat 3868}#) (if (not (and-map - (lambda (#{x 3879}#) - (not (#{ellipsis? 472}# - (car #{x 3879}#)))) - #{pvars 3872}#)) + (lambda (#{x 3888}#) + (not (#{ellipsis? 473}# + (car #{x 3888}#)))) + #{pvars 3881}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 3859}#) + #{pat 3868}#) (begin - (let ((#{y 3883}# (#{gen-var 484}# 'tmp))) - (#{build-application 302}# + (let ((#{y 3892}# (#{gen-var 485}# 'tmp))) + (#{build-application 303}# #f - (#{build-simple-lambda 320}# + (#{build-simple-lambda 321}# #f (list 'tmp) #f - (list #{y 3883}#) + (list #{y 3892}#) '() (begin - (let ((#{y 3887}# - (#{build-lexical-reference 308}# + (let ((#{y 3896}# + (#{build-lexical-reference 309}# 'value #f 'tmp - #{y 3883}#))) - (#{build-conditional 304}# + #{y 3892}#))) + (#{build-conditional 305}# #f - (let ((#{tmp 3890}# #{fender 3860}#)) - (let ((#{tmp 3891}# + (let ((#{tmp 3899}# #{fender 3869}#)) + (let ((#{tmp 3900}# ($sc-dispatch - #{tmp 3890}# + #{tmp 3899}# '#(atom #t)))) - (if #{tmp 3891}# + (if #{tmp 3900}# (@apply - (lambda () #{y 3887}#) - #{tmp 3891}#) - (let ((#{_ 3893}# #{tmp 3890}#)) - (#{build-conditional 304}# + (lambda () #{y 3896}#) + #{tmp 3900}#) + (let ((#{_ 3902}# #{tmp 3899}#)) + (#{build-conditional 305}# #f - #{y 3887}# - (#{build-dispatch-call 3726}# - #{pvars 3872}# - #{fender 3860}# - #{y 3887}# - #{r 3858}# - #{mod 3862}#) - (#{build-data 328}# + #{y 3896}# + (#{build-dispatch-call 3735}# + #{pvars 3881}# + #{fender 3869}# + #{y 3896}# + #{r 3867}# + #{mod 3871}#) + (#{build-data 329}# #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 3735}# + #{pvars 3881}# + #{exp 3870}# + #{y 3896}# + #{r 3867}# + #{mod 3871}#) + (#{gen-syntax-case 3739}# + #{x 3864}# + #{keys 3865}# + #{clauses 3866}# + #{r 3867}# + #{mod 3871}#))))) + (list (if (eq? #{p 3880}# 'any) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'list) - (list #{x 3855}#)) - (#{build-application 302}# + (#{build-primref 327}# #f 'list) + (list #{x 3864}#)) + (#{build-application 303}# #f - (#{build-primref 326}# + (#{build-primref 327}# #f '$sc-dispatch) - (list #{x 3855}# - (#{build-data 328}# + (list #{x 3864}# + (#{build-data 329}# #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 3880}#)))))))))))))) + (#{gen-syntax-case 3739}# + (lambda (#{x 3910}# + #{keys 3911}# + #{clauses 3912}# + #{r 3913}# + #{mod 3914}#) + (if (null? #{clauses 3912}#) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'syntax-violation) - (list (#{build-data 328}# #f #f) - (#{build-data 328}# + (#{build-primref 327}# #f 'syntax-violation) + (list (#{build-data 329}# #f #f) + (#{build-data 329}# #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 3910}#)) + (let ((#{tmp 3924}# (car #{clauses 3912}#))) + (let ((#{tmp 3925}# + ($sc-dispatch #{tmp 3924}# '(any any)))) + (if #{tmp 3925}# (@apply - (lambda (#{pat 3919}# #{exp 3920}#) - (if (if (#{id? 376}# #{pat 3919}#) + (lambda (#{pat 3928}# #{exp 3929}#) + (if (if (#{id? 377}# #{pat 3928}#) (and-map - (lambda (#{x 3923}#) - (not (#{free-id=? 432}# - #{pat 3919}# - #{x 3923}#))) + (lambda (#{x 3932}#) + (not (#{free-id=? 433}# + #{pat 3928}# + #{x 3932}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -12435,21 +10727,21 @@ (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" - "i3727" - "i3725" - "i3723")) + ("i3738" + "i3736" + "i3734" + "i3732")) #(ribcage (lambda-var-list gen-var @@ -12723,57 +11015,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -12782,117 +11075,116 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{keys 3902}#)) + #{keys 3911}#)) #f) - (if (#{free-id=? 432}# + (if (#{free-id=? 433}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -13166,57 +11458,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -13225,90 +11518,89 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) '#(syntax-object _ @@ -13316,23 +11608,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -13606,57 +11898,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "i466" + "i464" + "i462" + "i460" + "i458" + "i456" + "i454" + "i452" + "i450" + "i448" + "i446" + "i444" + "i442" + "i440" + "i438" + "i436" + "i434" + "i432" + "i430" + "i428" + "i426" + "i424" + "i422" + "i420" + "i418" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -13665,652 +11958,651 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) - (#{chi 456}# - #{exp 3920}# - #{r 3904}# + (#{chi 457}# + #{exp 3929}# + #{r 3913}# '(()) - #{mod 3905}#) + #{mod 3914}#) (begin - (let ((#{labels 3928}# - (list (#{gen-label 389}#))) - (#{var 3929}# - (#{gen-var 484}# #{pat 3919}#))) - (#{build-application 302}# + (let ((#{labels 3937}# + (list (#{gen-label 390}#))) + (#{var 3938}# + (#{gen-var 485}# #{pat 3928}#))) + (#{build-application 303}# #f - (#{build-simple-lambda 320}# + (#{build-simple-lambda 321}# #f - (list (syntax->datum #{pat 3919}#)) + (list (syntax->datum #{pat 3928}#)) #f - (list #{var 3929}#) + (list #{var 3938}#) '() - (#{chi 456}# - #{exp 3920}# - (#{extend-env 364}# - #{labels 3928}# + (#{chi 457}# + #{exp 3929}# + (#{extend-env 365}# + #{labels 3937}# (list (cons 'syntax - (cons #{var 3929}# + (cons #{var 3938}# 0))) - #{r 3904}#) - (#{make-binding-wrap 420}# - (list #{pat 3919}#) - #{labels 3928}# + #{r 3913}#) + (#{make-binding-wrap 421}# + (list #{pat 3928}#) + #{labels 3937}# '(())) - #{mod 3905}#)) - (list #{x 3901}#))))) - (#{gen-clause 3728}# - #{x 3901}# - #{keys 3902}# - (cdr #{clauses 3903}#) - #{r 3904}# - #{pat 3919}# + #{mod 3914}#)) + (list #{x 3910}#))))) + (#{gen-clause 3737}# + #{x 3910}# + #{keys 3911}# + (cdr #{clauses 3912}#) + #{r 3913}# + #{pat 3928}# #t - #{exp 3920}# - #{mod 3905}#))) - #{tmp 3916}#) - (let ((#{tmp 3935}# - ($sc-dispatch #{tmp 3915}# '(any any any)))) - (if #{tmp 3935}# + #{exp 3929}# + #{mod 3914}#))) + #{tmp 3925}#) + (let ((#{tmp 3944}# + ($sc-dispatch #{tmp 3924}# '(any any any)))) + (if #{tmp 3944}# (@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 3948}# + #{fender 3949}# + #{exp 3950}#) + (#{gen-clause 3737}# + #{x 3910}# + #{keys 3911}# + (cdr #{clauses 3912}#) + #{r 3913}# + #{pat 3948}# + #{fender 3949}# + #{exp 3950}# + #{mod 3914}#)) + #{tmp 3944}#) + (let ((#{_ 3952}# #{tmp 3924}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 3903}#)))))))))))) + (car #{clauses 3912}#)))))))))))) (begin - (lambda (#{e 3944}# - #{r 3945}# - #{w 3946}# - #{s 3947}# - #{mod 3948}#) + (lambda (#{e 3953}# + #{r 3954}# + #{w 3955}# + #{s 3956}# + #{mod 3957}#) (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 3964}# + (#{source-wrap 445}# + #{e 3953}# + #{w 3955}# + #{s 3956}# + #{mod 3957}#))) + (let ((#{tmp 3965}# #{e 3964}#)) + (let ((#{tmp 3966}# ($sc-dispatch - #{tmp 3956}# + #{tmp 3965}# '(_ any each-any . each-any)))) - (if #{tmp 3957}# + (if #{tmp 3966}# (@apply - (lambda (#{val 3961}# #{key 3962}# #{m 3963}#) + (lambda (#{val 3970}# #{key 3971}# #{m 3972}#) (if (and-map - (lambda (#{x 3964}#) - (if (#{id? 376}# #{x 3964}#) - (not (#{ellipsis? 472}# #{x 3964}#)) + (lambda (#{x 3973}#) + (if (#{id? 377}# #{x 3973}#) + (not (#{ellipsis? 473}# #{x 3973}#)) #f)) - #{key 3962}#) + #{key 3971}#) (begin - (let ((#{x 3970}# (#{gen-var 484}# 'tmp))) - (#{build-application 302}# - #{s 3947}# - (#{build-simple-lambda 320}# + (let ((#{x 3979}# (#{gen-var 485}# 'tmp))) + (#{build-application 303}# + #{s 3956}# + (#{build-simple-lambda 321}# #f (list 'tmp) #f - (list #{x 3970}#) + (list #{x 3979}#) '() - (#{gen-syntax-case 3730}# - (#{build-lexical-reference 308}# + (#{gen-syntax-case 3739}# + (#{build-lexical-reference 309}# 'value #f 'tmp - #{x 3970}#) - #{key 3962}# - #{m 3963}# - #{r 3945}# - #{mod 3948}#)) - (list (#{chi 456}# - #{val 3961}# - #{r 3945}# + #{x 3979}#) + #{key 3971}# + #{m 3972}# + #{r 3954}# + #{mod 3957}#)) + (list (#{chi 457}# + #{val 3970}# + #{r 3954}# '(()) - #{mod 3948}#))))) + #{mod 3957}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e 3955}#))) - #{tmp 3957}#) + #{e 3964}#))) + #{tmp 3966}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3956}#)))))))))) + #{tmp 3965}#)))))))))) (set! macroexpand (lambda* - (#{x 3976}# + (#{x 3985}# #:optional - (#{m 3978}# 'e) - (#{esew 3980}# '(eval))) - (#{chi-top-sequence 448}# - (list #{x 3976}#) + (#{m 3987}# 'e) + (#{esew 3989}# '(eval))) + (#{chi-top-sequence 449}# + (list #{x 3985}#) '() '((top)) #f - #{m 3978}# - #{esew 3980}# + #{m 3987}# + #{esew 3989}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (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}#)))) - (set! syntax->datum - (lambda (#{x 3990}#) - (#{strip 482}# #{x 3990}# '(())))) - (set! syntax-source (lambda (#{x 3993}#) - (#{source-annotation 357}# #{x 3993}#))) + (#{nonsymbol-id? 375}# #{x 3993}#))) + (set! datum->syntax + (lambda (#{id 3995}# #{datum 3996}#) + (#{make-syntax-object 341}# + #{datum 3996}# + (#{syntax-object-wrap 347}# #{id 3995}#) + (#{syntax-object-module 349}# #{id 3995}#)))) + (set! syntax->datum + (lambda (#{x 3999}#) + (#{strip 483}# #{x 3999}# '(())))) + (set! syntax-source + (lambda (#{x 4002}#) + (#{source-annotation 358}# #{x 4002}#))) (set! generate-temporaries - (lambda (#{ls 3995}#) + (lambda (#{ls 4004}#) (begin (begin - (let ((#{x 3999}# #{ls 3995}#)) - (if (not (list? #{x 3999}#)) + (let ((#{x 4008}# #{ls 4004}#)) + (if (not (list? #{x 4008}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x 3999}#)))) - (map (lambda (#{x 4000}#) - (#{wrap 442}# (gensym) '((top)) #f)) - #{ls 3995}#)))) + #{x 4008}#)))) + (map (lambda (#{x 4009}#) + (#{wrap 443}# (gensym) '((top)) #f)) + #{ls 4004}#)))) (set! free-identifier=? - (lambda (#{x 4004}# #{y 4005}#) + (lambda (#{x 4013}# #{y 4014}#) (begin (begin - (let ((#{x 4010}# #{x 4004}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4010}#)) + (let ((#{x 4019}# #{x 4013}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4019}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 4010}#)))) + #{x 4019}#)))) (begin - (let ((#{x 4013}# #{y 4005}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4013}#)) + (let ((#{x 4022}# #{y 4014}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4022}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 4013}#)))) - (#{free-id=? 432}# #{x 4004}# #{y 4005}#)))) + #{x 4022}#)))) + (#{free-id=? 433}# #{x 4013}# #{y 4014}#)))) (set! bound-identifier=? - (lambda (#{x 4014}# #{y 4015}#) + (lambda (#{x 4023}# #{y 4024}#) (begin (begin - (let ((#{x 4020}# #{x 4014}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4020}#)) + (let ((#{x 4029}# #{x 4023}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4029}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 4020}#)))) + #{x 4029}#)))) (begin - (let ((#{x 4023}# #{y 4015}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4023}#)) + (let ((#{x 4032}# #{y 4024}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4032}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 4023}#)))) - (#{bound-id=? 434}# #{x 4014}# #{y 4015}#)))) + #{x 4032}#)))) + (#{bound-id=? 435}# #{x 4023}# #{y 4024}#)))) (set! syntax-violation (lambda* - (#{who 4024}# - #{message 4025}# - #{form 4026}# + (#{who 4033}# + #{message 4034}# + #{form 4035}# #:optional - (#{subform 4030}# #f)) + (#{subform 4039}# #f)) (begin (begin - (let ((#{x 4034}# #{who 4024}#)) - (if (not (let ((#{x 4035}# #{x 4034}#)) + (let ((#{x 4043}# #{who 4033}#)) + (if (not (let ((#{x 4044}# #{x 4043}#)) (begin - (let ((#{t 4039}# (not #{x 4035}#))) - (if #{t 4039}# - #{t 4039}# + (let ((#{t 4048}# (not #{x 4044}#))) + (if #{t 4048}# + #{t 4048}# (begin - (let ((#{t 4042}# (string? #{x 4035}#))) - (if #{t 4042}# - #{t 4042}# - (symbol? #{x 4035}#))))))))) + (let ((#{t 4051}# (string? #{x 4044}#))) + (if #{t 4051}# + #{t 4051}# + (symbol? #{x 4044}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x 4034}#)))) + #{x 4043}#)))) (begin - (let ((#{x 4046}# #{message 4025}#)) - (if (not (string? #{x 4046}#)) + (let ((#{x 4055}# #{message 4034}#)) + (if (not (string? #{x 4055}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x 4046}#)))) + #{x 4055}#)))) (throw 'syntax-error - #{who 4024}# - #{message 4025}# - (#{source-annotation 357}# + #{who 4033}# + #{message 4034}# + (#{source-annotation 358}# (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 4058}# #{form 4035}#)) + (if #{t 4058}# #{t 4058}# #{subform 4039}#)))) + (#{strip 483}# #{form 4035}# '(())) + (if #{subform 4039}# + (#{strip 483}# #{subform 4039}# '(())) #f))))) (letrec* - ((#{match-each 4056}# - (lambda (#{e 4069}# #{p 4070}# #{w 4071}# #{mod 4072}#) - (if (pair? #{e 4069}#) + ((#{match-each 4065}# + (lambda (#{e 4078}# #{p 4079}# #{w 4080}# #{mod 4081}#) + (if (pair? #{e 4078}#) (begin - (let ((#{first 4080}# - (#{match 4068}# - (car #{e 4069}#) - #{p 4070}# - #{w 4071}# + (let ((#{first 4089}# + (#{match 4077}# + (car #{e 4078}#) + #{p 4079}# + #{w 4080}# '() - #{mod 4072}#))) - (if #{first 4080}# + #{mod 4081}#))) + (if #{first 4089}# (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 4093}# + (#{match-each 4065}# + (cdr #{e 4078}#) + #{p 4079}# + #{w 4080}# + #{mod 4081}#))) + (if #{rest 4093}# + (cons #{first 4089}# #{rest 4093}#) #f))) #f))) - (if (null? #{e 4069}#) + (if (null? #{e 4078}#) '() - (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? 343}# #{e 4078}#) + (#{match-each 4065}# + (#{syntax-object-expression 345}# #{e 4078}#) + #{p 4079}# + (#{join-wraps 425}# + #{w 4080}# + (#{syntax-object-wrap 347}# #{e 4078}#)) + (#{syntax-object-module 349}# #{e 4078}#)) #f))))) - (#{match-each+ 4058}# - (lambda (#{e 4092}# - #{x-pat 4093}# - #{y-pat 4094}# - #{z-pat 4095}# - #{w 4096}# - #{r 4097}# - #{mod 4098}#) + (#{match-each+ 4067}# + (lambda (#{e 4101}# + #{x-pat 4102}# + #{y-pat 4103}# + #{z-pat 4104}# + #{w 4105}# + #{r 4106}# + #{mod 4107}#) (letrec* - ((#{f 4109}# - (lambda (#{e 4110}# #{w 4111}#) - (if (pair? #{e 4110}#) + ((#{f 4118}# + (lambda (#{e 4119}# #{w 4120}#) + (if (pair? #{e 4119}#) (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 4118}# (cdr #{e 4119}#) #{w 4120}#)) + (lambda (#{xr* 4123}# #{y-pat 4124}# #{r 4125}#) + (if #{r 4125}# + (if (null? #{y-pat 4124}#) (begin - (let ((#{xr 4121}# - (#{match 4068}# - (car #{e 4110}#) - #{x-pat 4093}# - #{w 4111}# + (let ((#{xr 4130}# + (#{match 4077}# + (car #{e 4119}#) + #{x-pat 4102}# + #{w 4120}# '() - #{mod 4098}#))) - (if #{xr 4121}# + #{mod 4107}#))) + (if #{xr 4130}# (values - (cons #{xr 4121}# #{xr* 4114}#) - #{y-pat 4115}# - #{r 4116}#) + (cons #{xr 4130}# #{xr* 4123}#) + #{y-pat 4124}# + #{r 4125}#) (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 4124}#) + (#{match 4077}# + (car #{e 4119}#) + (car #{y-pat 4124}#) + #{w 4120}# + #{r 4125}# + #{mod 4107}#))) (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? 343}# #{e 4119}#) + (#{f 4118}# + (#{syntax-object-expression 345}# #{e 4119}#) + (#{join-wraps 425}# #{w 4120}# #{e 4119}#)) (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 4103}# + (#{match 4077}# + #{e 4119}# + #{z-pat 4104}# + #{w 4120}# + #{r 4106}# + #{mod 4107}#))))))) + (begin (#{f 4118}# #{e 4101}# #{w 4105}#))))) + (#{match-each-any 4069}# + (lambda (#{e 4134}# #{w 4135}# #{mod 4136}#) + (if (pair? #{e 4134}#) (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 4143}# + (#{match-each-any 4069}# + (cdr #{e 4134}#) + #{w 4135}# + #{mod 4136}#))) + (if #{l 4143}# + (cons (#{wrap 443}# + (car #{e 4134}#) + #{w 4135}# + #{mod 4136}#) + #{l 4143}#) #f))) - (if (null? #{e 4125}#) + (if (null? #{e 4134}#) '() - (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? 343}# #{e 4134}#) + (#{match-each-any 4069}# + (#{syntax-object-expression 345}# #{e 4134}#) + (#{join-wraps 425}# + #{w 4135}# + (#{syntax-object-wrap 347}# #{e 4134}#)) + #{mod 4136}#) #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 4071}# + (lambda (#{p 4151}# #{r 4152}#) + (if (null? #{p 4151}#) + #{r 4152}# + (if (eq? #{p 4151}# '_) + #{r 4152}# + (if (eq? #{p 4151}# 'any) + (cons '() #{r 4152}#) + (if (pair? #{p 4151}#) + (#{match-empty 4071}# + (car #{p 4151}#) + (#{match-empty 4071}# + (cdr #{p 4151}#) + #{r 4152}#)) + (if (eq? #{p 4151}# 'each-any) + (cons '() #{r 4152}#) (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 4168}# + (vector-ref #{p 4151}# 0))) + (if (eqv? #{atom-key 4168}# 'each) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + #{r 4152}#) + (if (eqv? #{atom-key 4168}# 'each+) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + (#{match-empty 4071}# + (reverse (vector-ref #{p 4151}# 2)) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 3) + #{r 4152}#))) + (if (if (eqv? #{atom-key 4168}# '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 4168}# 'atom)) + #{r 4152}# + (if (eqv? #{atom-key 4168}# 'vector) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + #{r 4152}#)))))))))))))) + (#{combine 4073}# + (lambda (#{r* 4173}# #{r 4174}#) + (if (null? (car #{r* 4173}#)) + #{r 4174}# + (cons (map car #{r* 4173}#) + (#{combine 4073}# + (map cdr #{r* 4173}#) + #{r 4174}#))))) + (#{match* 4075}# + (lambda (#{e 4177}# + #{p 4178}# + #{w 4179}# + #{r 4180}# + #{mod 4181}#) + (if (null? #{p 4178}#) + (if (null? #{e 4177}#) #{r 4180}# #f) + (if (pair? #{p 4178}#) + (if (pair? #{e 4177}#) + (#{match 4077}# + (car #{e 4177}#) + (car #{p 4178}#) + #{w 4179}# + (#{match 4077}# + (cdr #{e 4177}#) + (cdr #{p 4178}#) + #{w 4179}# + #{r 4180}# + #{mod 4181}#) + #{mod 4181}#) #f) - (if (eq? #{p 4169}# 'each-any) + (if (eq? #{p 4178}# '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 4198}# + (#{match-each-any 4069}# + #{e 4177}# + #{w 4179}# + #{mod 4181}#))) + (if #{l 4198}# (cons #{l 4198}# #{r 4180}#) #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 4204}# (vector-ref #{p 4178}# 0))) + (if (eqv? #{atom-key 4204}# 'each) + (if (null? #{e 4177}#) + (#{match-empty 4071}# + (vector-ref #{p 4178}# 1) + #{r 4180}#) (begin - (let ((#{l 4198}# - (#{match-each 4056}# - #{e 4168}# - (vector-ref #{p 4169}# 1) - #{w 4170}# - #{mod 4172}#))) - (if #{l 4198}# + (let ((#{l 4207}# + (#{match-each 4065}# + #{e 4177}# + (vector-ref #{p 4178}# 1) + #{w 4179}# + #{mod 4181}#))) + (if #{l 4207}# (letrec* - ((#{collect 4203}# - (lambda (#{l 4204}#) - (if (null? (car #{l 4204}#)) - #{r 4171}# - (cons (map car #{l 4204}#) - (#{collect 4203}# + ((#{collect 4212}# + (lambda (#{l 4213}#) + (if (null? (car #{l 4213}#)) + #{r 4180}# + (cons (map car #{l 4213}#) + (#{collect 4212}# (map cdr - #{l 4204}#))))))) - (begin (#{collect 4203}# #{l 4198}#))) + #{l 4213}#))))))) + (begin (#{collect 4212}# #{l 4207}#))) #f)))) - (if (eqv? #{atom-key 4195}# 'each+) + (if (eqv? #{atom-key 4204}# '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+ 4067}# + #{e 4177}# + (vector-ref #{p 4178}# 1) + (vector-ref #{p 4178}# 2) + (vector-ref #{p 4178}# 3) + #{w 4179}# + #{r 4180}# + #{mod 4181}#)) + (lambda (#{xr* 4215}# + #{y-pat 4216}# + #{r 4217}#) + (if #{r 4217}# + (if (null? #{y-pat 4216}#) + (if (null? #{xr* 4215}#) + (#{match-empty 4071}# + (vector-ref #{p 4178}# 1) + #{r 4217}#) + (#{combine 4073}# + #{xr* 4215}# + #{r 4217}#)) #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 4204}# 'free-id) + (if (#{id? 377}# #{e 4177}#) + (if (#{free-id=? 433}# + (#{wrap 443}# + #{e 4177}# + #{w 4179}# + #{mod 4181}#) + (vector-ref #{p 4178}# 1)) + #{r 4180}# #f) #f) - (if (eqv? #{atom-key 4195}# 'atom) + (if (eqv? #{atom-key 4204}# 'atom) (if (equal? - (vector-ref #{p 4169}# 1) - (#{strip 482}# #{e 4168}# #{w 4170}#)) - #{r 4171}# + (vector-ref #{p 4178}# 1) + (#{strip 483}# #{e 4177}# #{w 4179}#)) + #{r 4180}# #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 4204}# 'vector) + (if (vector? #{e 4177}#) + (#{match 4077}# + (vector->list #{e 4177}#) + (vector-ref #{p 4178}# 1) + #{w 4179}# + #{r 4180}# + #{mod 4181}#) #f))))))))))))) - (#{match 4068}# - (lambda (#{e 4225}# - #{p 4226}# - #{w 4227}# - #{r 4228}# - #{mod 4229}#) - (if (not #{r 4228}#) + (#{match 4077}# + (lambda (#{e 4234}# + #{p 4235}# + #{w 4236}# + #{r 4237}# + #{mod 4238}#) + (if (not #{r 4237}#) #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 4235}# '_) + #{r 4237}# + (if (eq? #{p 4235}# 'any) + (cons (#{wrap 443}# #{e 4234}# #{w 4236}# #{mod 4238}#) + #{r 4237}#) + (if (#{syntax-object? 343}# #{e 4234}#) + (#{match* 4075}# + (#{syntax-object-expression 345}# #{e 4234}#) + #{p 4235}# + (#{join-wraps 425}# + #{w 4236}# + (#{syntax-object-wrap 347}# #{e 4234}#)) + #{r 4237}# + (#{syntax-object-module 349}# #{e 4234}#)) + (#{match* 4075}# + #{e 4234}# + #{p 4235}# + #{w 4236}# + #{r 4237}# + #{mod 4238}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e 4244}# #{p 4245}#) - (if (eq? #{p 4245}# 'any) - (list #{e 4244}#) - (if (eq? #{p 4245}# '_) + (lambda (#{e 4253}# #{p 4254}#) + (if (eq? #{p 4254}# 'any) + (list #{e 4253}#) + (if (eq? #{p 4254}# '_) '() - (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? 343}# #{e 4253}#) + (#{match* 4075}# + (#{syntax-object-expression 345}# #{e 4253}#) + #{p 4254}# + (#{syntax-object-wrap 347}# #{e 4253}#) '() - (#{syntax-object-module 348}# #{e 4244}#)) - (#{match* 4066}# - #{e 4244}# - #{p 4245}# + (#{syntax-object-module 349}# #{e 4253}#)) + (#{match* 4075}# + #{e 4253}# + #{p 4254}# '(()) '() #f))))))))))))) @@ -14319,82 +12611,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 4256}#) - (let ((#{tmp 4258}# #{x 4256}#)) - (let ((#{tmp 4259}# + (lambda (#{x 4265}#) + (let ((#{tmp 4267}# #{x 4265}#)) + (let ((#{tmp 4268}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ () any . each-any)))) - (if #{tmp 4259}# + (if #{tmp 4268}# (@apply - (lambda (#{e1 4262}# #{e2 4263}#) + (lambda (#{e1 4271}# #{e2 4272}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4260" "i4261")) + #("i4269" "i4270")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - (cons '() (cons #{e1 4262}# #{e2 4263}#)))) - #{tmp 4259}#) - (let ((#{tmp 4265}# + (cons '() (cons #{e1 4271}# #{e2 4272}#)))) + #{tmp 4268}#) + (let ((#{tmp 4274}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ ((any any)) any . each-any)))) - (if #{tmp 4265}# + (if #{tmp 4274}# (@apply - (lambda (#{out 4270}# - #{in 4271}# - #{e1 4272}# - #{e2 4273}#) + (lambda (#{out 4279}# + #{in 4280}# + #{e1 4281}# + #{e2 4282}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) + #("i4275" "i4276" "i4277" "i4278")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - #{in 4271}# + #{in 4280}# '() - (list #{out 4270}# + (list #{out 4279}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) + #("i4275" "i4276" "i4277" "i4278")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) (cons '() - (cons #{e1 4272}# #{e2 4273}#)))))) - #{tmp 4265}#) - (let ((#{tmp 4275}# + (cons #{e1 4281}# #{e2 4282}#)))))) + #{tmp 4274}#) + (let ((#{tmp 4284}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 4275}# + (if #{tmp 4284}# (@apply - (lambda (#{out 4280}# - #{in 4281}# - #{e1 4282}# - #{e2 4283}#) + (lambda (#{out 4289}# + #{in 4290}# + #{e1 4291}# + #{e2 4292}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" "i4277" "i4278" "i4279")) + #("i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) (cons '#(syntax-object list @@ -14402,63 +12694,63 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" "i4277" "i4278" "i4279")) + #("i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - #{in 4281}#) + #{in 4290}#) '() - (list #{out 4280}# + (list #{out 4289}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" - "i4277" - "i4278" - "i4279")) + #("i4285" + "i4286" + "i4287" + "i4288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4257"))) + #("i4266"))) (hygiene guile)) (cons '() - (cons #{e1 4282}# - #{e2 4283}#)))))) - #{tmp 4275}#) + (cons #{e1 4291}# + #{e2 4292}#)))))) + #{tmp 4284}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4258}#))))))))))) + #{tmp 4267}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 4287}#) - (let ((#{tmp 4289}# #{x 4287}#)) - (let ((#{tmp 4290}# + (lambda (#{x 4296}#) + (let ((#{tmp 4298}# #{x 4296}#)) + (let ((#{tmp 4299}# ($sc-dispatch - #{tmp 4289}# + #{tmp 4298}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 4290}# + (if #{tmp 4299}# (@apply - (lambda (#{k 4295}# - #{keyword 4296}# - #{pattern 4297}# - #{template 4298}#) + (lambda (#{k 4304}# + #{keyword 4305}# + #{pattern 4306}# + #{template 4307}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) '(#(syntax-object x @@ -14466,9 +12758,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (vector '(#(syntax-object @@ -14477,9 +12769,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) . #(syntax-object @@ -14488,9 +12780,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14498,20 +12790,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - #{pattern 4297}#)) + #{pattern 4306}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) (cons '#(syntax-object x @@ -14519,13 +12811,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - (cons #{k 4295}# - (map (lambda (#{tmp 4302}# - #{tmp 4301}#) + (cons #{k 4304}# + (map (lambda (#{tmp 4311}# + #{tmp 4310}#) (list (cons '#(syntax-object dummy ((top) @@ -14538,10 +12830,10 @@ (top) (top) (top)) - #("i4291" - "i4292" - "i4293" - "i4294")) + #("i4300" + "i4301" + "i4302" + "i4303")) #(ribcage () () @@ -14549,9 +12841,9 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4301}#) + #{tmp 4310}#) (list '#(syntax-object syntax ((top) @@ -14564,10 +12856,10 @@ (top) (top) (top)) - #("i4291" - "i4292" - "i4293" - "i4294")) + #("i4300" + "i4301" + "i4302" + "i4303")) #(ribcage () () @@ -14575,41 +12867,41 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4302}#))) - #{template 4298}# - #{pattern 4297}#)))))) - #{tmp 4290}#) - (let ((#{tmp 4303}# + #{tmp 4311}#))) + #{template 4307}# + #{pattern 4306}#)))))) + #{tmp 4299}#) + (let ((#{tmp 4312}# ($sc-dispatch - #{tmp 4289}# + #{tmp 4298}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 4303}# + (if (if #{tmp 4312}# (@apply - (lambda (#{k 4309}# - #{docstring 4310}# - #{keyword 4311}# - #{pattern 4312}# - #{template 4313}#) - (string? (syntax->datum #{docstring 4310}#))) - #{tmp 4303}#) + (lambda (#{k 4318}# + #{docstring 4319}# + #{keyword 4320}# + #{pattern 4321}# + #{template 4322}#) + (string? (syntax->datum #{docstring 4319}#))) + #{tmp 4312}#) #f) (@apply - (lambda (#{k 4319}# - #{docstring 4320}# - #{keyword 4321}# - #{pattern 4322}# - #{template 4323}#) + (lambda (#{k 4328}# + #{docstring 4329}# + #{keyword 4330}# + #{pattern 4331}# + #{template 4332}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) '(#(syntax-object x @@ -14617,11 +12909,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) - #{docstring 4320}# + #{docstring 4329}# (vector '(#(syntax-object macro-type @@ -14629,9 +12921,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) . #(syntax-object @@ -14640,9 +12932,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14650,28 +12942,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - #{pattern 4322}#)) + #{pattern 4331}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) (cons '#(syntax-object x @@ -14683,17 +12975,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - (cons #{k 4319}# - (map (lambda (#{tmp 4327}# - #{tmp 4326}#) + (cons #{k 4328}# + (map (lambda (#{tmp 4336}# + #{tmp 4335}#) (list (cons '#(syntax-object dummy ((top) @@ -14708,11 +13000,11 @@ (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () @@ -14720,10 +13012,10 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4326}#) + #{tmp 4335}#) (list '#(syntax-object syntax ((top) @@ -14738,11 +13030,11 @@ (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () @@ -14750,48 +13042,48 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4327}#))) - #{template 4323}# - #{pattern 4322}#)))))) - #{tmp 4303}#) + #{tmp 4336}#))) + #{template 4332}# + #{pattern 4331}#)))))) + #{tmp 4312}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4289}#))))))))) + #{tmp 4298}#))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 4328}#) - (let ((#{tmp 4330}# #{x 4328}#)) - (let ((#{tmp 4331}# + (lambda (#{x 4337}#) + (let ((#{tmp 4339}# #{x 4337}#)) + (let ((#{tmp 4340}# ($sc-dispatch - #{tmp 4330}# + #{tmp 4339}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 4331}# + (if (if #{tmp 4340}# (@apply - (lambda (#{let* 4337}# - #{x 4338}# - #{v 4339}# - #{e1 4340}# - #{e2 4341}#) - (and-map identifier? #{x 4338}#)) - #{tmp 4331}#) + (lambda (#{let* 4346}# + #{x 4347}# + #{v 4348}# + #{e1 4349}# + #{e2 4350}#) + (and-map identifier? #{x 4347}#)) + #{tmp 4340}#) #f) (@apply - (lambda (#{let* 4348}# - #{x 4349}# - #{v 4350}# - #{e1 4351}# - #{e2 4352}#) + (lambda (#{let* 4357}# + #{x 4358}# + #{v 4359}# + #{e1 4360}# + #{e2 4361}#) (letrec* - ((#{f 4355}# - (lambda (#{bindings 4356}#) - (if (null? #{bindings 4356}#) + ((#{f 4364}# + (lambda (#{bindings 4365}#) + (if (null? #{bindings 4365}#) (cons '#(syntax-object let ((top) @@ -14799,27 +13091,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4353" "i4354")) + #("i4362" "i4363")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4343" - "i4344" - "i4345" - "i4346" - "i4347")) + #("i4352" + "i4353" + "i4354" + "i4355" + "i4356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4329"))) + #(ribcage #(x) #((top)) #("i4338"))) (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 4360}# #{e2 4361}#))) + (let ((#{tmp 4370}# + (list (#{f 4364}# (cdr #{bindings 4365}#)) + (car #{bindings 4365}#)))) + (let ((#{tmp 4371}# + ($sc-dispatch #{tmp 4370}# '(any any)))) + (if #{tmp 4371}# (@apply - (lambda (#{body 4365}# #{binding 4366}#) + (lambda (#{body 4374}# #{binding 4375}#) (list '#(syntax-object let ((top) @@ -14827,96 +13119,96 @@ #(ribcage #(body binding) #((top) (top)) - #("i4363" "i4364")) + #("i4372" "i4373")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i4353" "i4354")) + #("i4362" "i4363")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4343" - "i4344" - "i4345" - "i4346" - "i4347")) + #("i4352" + "i4353" + "i4354" + "i4355" + "i4356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4329"))) + #("i4338"))) (hygiene guile)) - (list #{binding 4366}#) - #{body 4365}#)) - #{tmp 4362}#) + (list #{binding 4375}#) + #{body 4374}#)) + #{tmp 4371}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4361}#)))))))) + #{tmp 4370}#)))))))) (begin - (#{f 4355}# (map list #{x 4349}# #{v 4350}#))))) - #{tmp 4331}#) + (#{f 4364}# (map list #{x 4358}# #{v 4359}#))))) + #{tmp 4340}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4330}#))))))) + #{tmp 4339}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 4367}#) - (let ((#{tmp 4369}# #{orig-x 4367}#)) - (let ((#{tmp 4370}# + (lambda (#{orig-x 4376}#) + (let ((#{tmp 4378}# #{orig-x 4376}#)) + (let ((#{tmp 4379}# ($sc-dispatch - #{tmp 4369}# + #{tmp 4378}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 4370}# + (if #{tmp 4379}# (@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 4386}# + #{init 4387}# + #{step 4388}# + #{e0 4389}# + #{e1 4390}# + #{c 4391}#) + (let ((#{tmp 4393}# + (map (lambda (#{v 4414}# #{s 4415}#) + (let ((#{tmp 4418}# #{s 4415}#)) + (let ((#{tmp 4419}# + ($sc-dispatch #{tmp 4418}# '()))) + (if #{tmp 4419}# (@apply - (lambda () #{v 4405}#) - #{tmp 4410}#) - (let ((#{tmp 4411}# + (lambda () #{v 4414}#) + #{tmp 4419}#) + (let ((#{tmp 4420}# ($sc-dispatch - #{tmp 4409}# + #{tmp 4418}# '(any)))) - (if #{tmp 4411}# + (if #{tmp 4420}# (@apply - (lambda (#{e 4413}#) #{e 4413}#) - #{tmp 4411}#) - (let ((#{_ 4415}# #{tmp 4409}#)) + (lambda (#{e 4422}#) #{e 4422}#) + #{tmp 4420}#) + (let ((#{_ 4424}# #{tmp 4418}#)) (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 4376}# + #{s 4415}#)))))))) + #{var 4386}# + #{step 4388}#))) + (let ((#{tmp 4394}# + ($sc-dispatch #{tmp 4393}# 'each-any))) + (if #{tmp 4394}# (@apply - (lambda (#{step 4387}#) - (let ((#{tmp 4388}# #{e1 4381}#)) - (let ((#{tmp 4389}# - ($sc-dispatch #{tmp 4388}# '()))) - (if #{tmp 4389}# + (lambda (#{step 4396}#) + (let ((#{tmp 4397}# #{e1 4390}#)) + (let ((#{tmp 4398}# + ($sc-dispatch #{tmp 4397}# '()))) + (if #{tmp 4398}# (@apply (lambda () (list '#(syntax-object @@ -14926,7 +13218,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14935,17 +13227,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) '#(syntax-object doloop @@ -14954,7 +13246,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14963,19 +13255,19 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - (map list #{var 4377}# #{init 4378}#) + (map list #{var 4386}# #{init 4387}#) (list '#(syntax-object if ((top) @@ -14983,7 +13275,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14992,17 +13284,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (list '#(syntax-object not @@ -15011,7 +13303,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15025,19 +13317,19 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{e0 4380}#) + #{e0 4389}#) (cons '#(syntax-object begin ((top) @@ -15045,7 +13337,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15059,20 +13351,20 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (append - #{c 4382}# + #{c 4391}# (list (cons '#(syntax-object doloop ((top) @@ -15083,7 +13375,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15097,12 +13389,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15110,30 +13402,30 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{step 4387}#))))))) - #{tmp 4389}#) - (let ((#{tmp 4394}# + #{step 4396}#))))))) + #{tmp 4398}#) + (let ((#{tmp 4403}# ($sc-dispatch - #{tmp 4388}# + #{tmp 4397}# '(any . each-any)))) - (if #{tmp 4394}# + (if #{tmp 4403}# (@apply - (lambda (#{e1 4397}# #{e2 4398}#) + (lambda (#{e1 4406}# #{e2 4407}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15142,17 +13434,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) '#(syntax-object doloop @@ -15160,12 +13452,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15174,33 +13466,33 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (map list - #{var 4377}# - #{init 4378}#) + #{var 4386}# + #{init 4387}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15214,27 +13506,27 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{e0 4380}# + #{e0 4389}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15242,7 +13534,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15256,12 +13548,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15269,18 +13561,18 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - (cons #{e1 4397}# - #{e2 4398}#)) + (cons #{e1 4406}# + #{e2 4407}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15288,7 +13580,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15302,12 +13594,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15315,10 +13607,10 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (append - #{c 4382}# + #{c 4391}# (list (cons '#(syntax-object doloop ((top) @@ -15327,8 +13619,8 @@ e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15336,7 +13628,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15350,12 +13642,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15363,37 +13655,37 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{step 4387}#))))))) - #{tmp 4394}#) + #{step 4396}#))))))) + #{tmp 4403}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4388}#))))))) - #{tmp 4385}#) + #{tmp 4397}#))))))) + #{tmp 4394}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4384}#))))) - #{tmp 4370}#) + #{tmp 4393}#))))) + #{tmp 4379}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4369}#))))))) + #{tmp 4378}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 4419}# - (lambda (#{p 4432}# #{lev 4433}#) - (let ((#{tmp 4436}# #{p 4432}#)) - (let ((#{tmp 4437}# + ((#{quasi 4428}# + (lambda (#{p 4441}# #{lev 4442}#) + (let ((#{tmp 4445}# #{p 4441}#)) + (let ((#{tmp 4446}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '(#(free-id #(syntax-object unquote @@ -15402,7 +13694,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15411,28 +13703,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) any)))) - (if #{tmp 4437}# + (if #{tmp 4446}# (@apply - (lambda (#{p 4439}#) - (if (= #{lev 4433}# 0) + (lambda (#{p 4448}#) + (if (= #{lev 4442}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15441,25 +13733,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{p 4439}#) - (#{quasicons 4423}# + #{p 4448}#) + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15468,23 +13760,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15493,21 +13785,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - (list #{p 4439}#) - (#{1-}# #{lev 4433}#))))) - #{tmp 4437}#) - (let ((#{tmp 4440}# + (#{quasi 4428}# + (list #{p 4448}#) + (#{1-}# #{lev 4442}#))))) + #{tmp 4446}#) + (let ((#{tmp 4449}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '(#(free-id #(syntax-object quasiquote @@ -15516,7 +13808,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15525,28 +13817,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) any)))) - (if #{tmp 4440}# + (if #{tmp 4449}# (@apply - (lambda (#{p 4442}#) - (#{quasicons 4423}# + (lambda (#{p 4451}#) + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4450")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15555,23 +13847,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4450")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15580,27 +13872,27 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (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 4428}# + (list #{p 4451}#) + (#{1+}# #{lev 4442}#)))) + #{tmp 4449}#) + (let ((#{tmp 4452}# + ($sc-dispatch #{tmp 4445}# '(any . any)))) + (if #{tmp 4452}# (@apply - (lambda (#{p 4446}# #{q 4447}#) - (let ((#{tmp 4448}# #{p 4446}#)) - (let ((#{tmp 4449}# + (lambda (#{p 4455}# #{q 4456}#) + (let ((#{tmp 4457}# #{p 4455}#)) + (let ((#{tmp 4458}# ($sc-dispatch - #{tmp 4448}# + #{tmp 4457}# '(#(free-id #(syntax-object unquote @@ -15608,12 +13900,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15628,40 +13920,40 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4449}# + (if #{tmp 4458}# (@apply - (lambda (#{p 4451}#) - (if (= #{lev 4433}# 0) - (#{quasilist* 4427}# - (map (lambda (#{tmp 4452}#) + (lambda (#{p 4460}#) + (if (= #{lev 4442}# 0) + (#{quasilist* 4436}# + (map (lambda (#{tmp 4461}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" - "i4445")) + #("i4453" + "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" - "i4435")) + #("i4443" + "i4444")) #(ribcage (emit quasivector quasilist* @@ -15676,37 +13968,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4452}#)) - #{p 4451}#) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4461}#)) + #{p 4460}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15721,13 +14013,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote @@ -15735,16 +14027,16 @@ #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15759,24 +14051,24 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4451}# - (#{1-}# #{lev 4433}#))) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)))) - #{tmp 4449}#) - (let ((#{tmp 4454}# + (#{quasi 4428}# + #{p 4460}# + (#{1-}# #{lev 4442}#))) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)))) + #{tmp 4458}#) + (let ((#{tmp 4463}# ($sc-dispatch - #{tmp 4448}# + #{tmp 4457}# '(#(free-id #(syntax-object unquote-splicing @@ -15784,12 +14076,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15804,35 +14096,35 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4454}# + (if #{tmp 4463}# (@apply - (lambda (#{p 4456}#) - (if (= #{lev 4433}# 0) - (#{quasiappend 4425}# - (map (lambda (#{tmp 4457}#) + (lambda (#{p 4465}#) + (if (= #{lev 4442}# 0) + (#{quasiappend 4434}# + (map (lambda (#{tmp 4466}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" - "i4445")) + #("i4453" + "i4454")) #(ribcage () () @@ -15841,8 +14133,8 @@ #(p lev) #((top) (top)) - #("i4434" - "i4435")) + #("i4443" + "i4444")) #(ribcage (emit quasivector quasilist* @@ -15857,37 +14149,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4457}#)) - #{p 4456}#) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4466}#)) + #{p 4465}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15902,13 +14194,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -15916,16 +14208,16 @@ #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15940,50 +14232,50 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (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 4428}# + #{p 4465}# + (#{1-}# #{lev 4442}#))) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)))) + #{tmp 4463}#) + (let ((#{_ 4469}# #{tmp 4457}#)) + (#{quasicons 4432}# + (#{quasi 4428}# + #{p 4455}# + #{lev 4442}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#))))))))) + #{tmp 4452}#) + (let ((#{tmp 4470}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '#(vector each-any)))) - (if #{tmp 4461}# + (if #{tmp 4470}# (@apply - (lambda (#{x 4463}#) - (#{quasivector 4429}# - (#{vquasi 4421}# #{x 4463}# #{lev 4433}#))) - #{tmp 4461}#) - (let ((#{p 4466}# #{tmp 4436}#)) + (lambda (#{x 4472}#) + (#{quasivector 4438}# + (#{vquasi 4430}# #{x 4472}# #{lev 4442}#))) + #{tmp 4470}#) + (let ((#{p 4475}# #{tmp 4445}#)) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4465")) + #(ribcage #(p) #((top)) #("i4474")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15998,27 +14290,27 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (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 4475}#))))))))))))) + (#{vquasi 4430}# + (lambda (#{p 4476}# #{lev 4477}#) + (let ((#{tmp 4480}# #{p 4476}#)) + (let ((#{tmp 4481}# + ($sc-dispatch #{tmp 4480}# '(any . any)))) + (if #{tmp 4481}# (@apply - (lambda (#{p 4475}# #{q 4476}#) - (let ((#{tmp 4477}# #{p 4475}#)) - (let ((#{tmp 4478}# + (lambda (#{p 4484}# #{q 4485}#) + (let ((#{tmp 4486}# #{p 4484}#)) + (let ((#{tmp 4487}# ($sc-dispatch - #{tmp 4477}# + #{tmp 4486}# '(#(free-id #(syntax-object unquote @@ -16026,12 +14318,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16046,38 +14338,38 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4478}# + (if #{tmp 4487}# (@apply - (lambda (#{p 4480}#) - (if (= #{lev 4468}# 0) - (#{quasilist* 4427}# - (map (lambda (#{tmp 4481}#) + (lambda (#{p 4489}#) + (if (= #{lev 4477}# 0) + (#{quasilist* 4436}# + (map (lambda (#{tmp 4490}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4479")) + #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16092,32 +14384,32 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4481}#)) - #{p 4480}#) - (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4490}#)) + #{p 4489}#) + (#{vquasi 4430}# #{q 4485}# #{lev 4477}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4479")) + #(ribcage #(p) #((top)) #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16132,27 +14424,27 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4479")) + #(ribcage #(p) #((top)) #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16167,22 +14459,22 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4480}# - (#{1-}# #{lev 4468}#))) - (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)))) - #{tmp 4478}#) - (let ((#{tmp 4483}# + (#{quasi 4428}# + #{p 4489}# + (#{1-}# #{lev 4477}#))) + (#{vquasi 4430}# #{q 4485}# #{lev 4477}#)))) + #{tmp 4487}#) + (let ((#{tmp 4492}# ($sc-dispatch - #{tmp 4477}# + #{tmp 4486}# '(#(free-id #(syntax-object unquote-splicing @@ -16190,12 +14482,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16210,38 +14502,38 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4483}# + (if #{tmp 4492}# (@apply - (lambda (#{p 4485}#) - (if (= #{lev 4468}# 0) - (#{quasiappend 4425}# - (map (lambda (#{tmp 4486}#) + (lambda (#{p 4494}#) + (if (= #{lev 4477}# 0) + (#{quasiappend 4434}# + (map (lambda (#{tmp 4495}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16256,37 +14548,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4486}#)) - #{p 4485}#) - (#{vquasi 4421}# - #{q 4476}# - #{lev 4468}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4495}#)) + #{p 4494}#) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16301,13 +14593,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -16315,16 +14607,16 @@ #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16339,30 +14631,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (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 4428}# + #{p 4494}# + (#{1-}# #{lev 4477}#))) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#)))) + #{tmp 4492}#) + (let ((#{_ 4498}# #{tmp 4486}#)) + (#{quasicons 4432}# + (#{quasi 4428}# #{p 4484}# #{lev 4477}#) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#))))))))) + #{tmp 4481}#) + (let ((#{tmp 4499}# ($sc-dispatch #{tmp 4480}# '()))) + (if #{tmp 4499}# (@apply (lambda () '(#(syntax-object @@ -16372,7 +14664,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16381,66 +14673,66 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) ())) - #{tmp 4490}#) + #{tmp 4499}#) (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 4480}#)))))))) + (#{quasicons 4432}# + (lambda (#{x 4500}# #{y 4501}#) + (let ((#{tmp 4505}# (list #{x 4500}# #{y 4501}#))) + (let ((#{tmp 4506}# + ($sc-dispatch #{tmp 4505}# '(any any)))) + (if #{tmp 4506}# (@apply - (lambda (#{x 4500}# #{y 4501}#) - (let ((#{tmp 4502}# #{y 4501}#)) - (let ((#{tmp 4503}# + (lambda (#{x 4509}# #{y 4510}#) + (let ((#{tmp 4511}# #{y 4510}#)) + (let ((#{tmp 4512}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "quote") any)))) - (if #{tmp 4503}# + (if #{tmp 4512}# (@apply - (lambda (#{dy 4505}#) - (let ((#{tmp 4506}# #{x 4500}#)) - (let ((#{tmp 4507}# + (lambda (#{dy 4514}#) + (let ((#{tmp 4515}# #{x 4509}#)) + (let ((#{tmp 4516}# ($sc-dispatch - #{tmp 4506}# + #{tmp 4515}# '(#(atom "quote") any)))) - (if #{tmp 4507}# + (if #{tmp 4516}# (@apply - (lambda (#{dx 4509}#) + (lambda (#{dx 4518}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i4508")) + #("i4517")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16455,40 +14747,40 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{dx 4509}# #{dy 4505}#))) - #{tmp 4507}#) - (let ((#{_ 4511}# #{tmp 4506}#)) - (if (null? #{dy 4505}#) + (cons #{dx 4518}# #{dy 4514}#))) + #{tmp 4516}#) + (let ((#{_ 4520}# #{tmp 4515}#)) + (if (null? #{dy 4514}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i4510")) + #("i4519")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16503,37 +14795,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}#) + #{x 4509}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4510")) + #("i4519")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16548,42 +14840,42 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}# - #{y 4501}#))))))) - #{tmp 4503}#) - (let ((#{tmp 4512}# + #{x 4509}# + #{y 4510}#))))))) + #{tmp 4512}#) + (let ((#{tmp 4521}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "list") . any)))) - (if #{tmp 4512}# + (if #{tmp 4521}# (@apply - (lambda (#{stuff 4514}#) + (lambda (#{stuff 4523}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i4513")) + #("i4522")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16598,41 +14890,41 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{x 4500}# #{stuff 4514}#))) - #{tmp 4512}#) - (let ((#{tmp 4515}# + (cons #{x 4509}# #{stuff 4523}#))) + #{tmp 4521}#) + (let ((#{tmp 4524}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "list*") . any)))) - (if #{tmp 4515}# + (if #{tmp 4524}# (@apply - (lambda (#{stuff 4517}#) + (lambda (#{stuff 4526}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i4516")) + #("i4525")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16647,35 +14939,35 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{x 4500}# #{stuff 4517}#))) - #{tmp 4515}#) - (let ((#{_ 4519}# #{tmp 4502}#)) + (cons #{x 4509}# #{stuff 4526}#))) + #{tmp 4524}#) + (let ((#{_ 4528}# #{tmp 4511}#)) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4518")) + #("i4527")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16690,30 +14982,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}# - #{y 4501}#)))))))))) - #{tmp 4497}#) + #{x 4509}# + #{y 4510}#)))))))))) + #{tmp 4506}#) (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 4505}#)))))) + (#{quasiappend 4434}# + (lambda (#{x 4529}# #{y 4530}#) + (let ((#{tmp 4533}# #{y 4530}#)) + (let ((#{tmp 4534}# + ($sc-dispatch #{tmp 4533}# '(#(atom "quote") ())))) + (if #{tmp 4534}# (@apply (lambda () - (if (null? #{x 4520}#) + (if (null? #{x 4529}#) '(#(syntax-object "quote" ((top) @@ -16721,7 +15013,7 @@ #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16730,23 +15022,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (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 4529}#)) + (car #{x 4529}#) + (let ((#{tmp 4541}# #{x 4529}#)) + (let ((#{tmp 4542}# + ($sc-dispatch #{tmp 4541}# 'each-any))) + (if #{tmp 4542}# (@apply - (lambda (#{p 4535}#) + (lambda (#{p 4544}#) (cons '#(syntax-object "append" ((top) @@ -16754,12 +15046,12 @@ #(ribcage #(p) #((top)) - #("i4534")) + #("i4543")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16774,30 +15066,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{p 4535}#)) - #{tmp 4533}#) + #{p 4544}#)) + #{tmp 4542}#) (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 4541}#))))))) + #{tmp 4534}#) + (let ((#{_ 4547}# #{tmp 4533}#)) + (if (null? #{x 4529}#) + #{y 4530}# + (let ((#{tmp 4552}# (list #{x 4529}# #{y 4530}#))) + (let ((#{tmp 4553}# + ($sc-dispatch #{tmp 4552}# '(each-any any)))) + (if #{tmp 4553}# (@apply - (lambda (#{p 4547}# #{y 4548}#) + (lambda (#{p 4556}# #{y 4557}#) (cons '#(syntax-object "append" ((top) @@ -16805,13 +15097,13 @@ #(ribcage #(p y) #((top) (top)) - #("i4545" "i4546")) - #(ribcage #(_) #((top)) #("i4537")) + #("i4554" "i4555")) + #(ribcage #(_) #((top)) #("i4546")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16826,47 +15118,47 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (append #{p 4547}# (list #{y 4548}#)))) - #{tmp 4544}#) + (append #{p 4556}# (list #{y 4557}#)))) + #{tmp 4553}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4543}#))))))))))) - (#{quasilist* 4427}# - (lambda (#{x 4550}# #{y 4551}#) + #{tmp 4552}#))))))))))) + (#{quasilist* 4436}# + (lambda (#{x 4559}# #{y 4560}#) (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 4565}# + (lambda (#{x 4566}#) + (if (null? #{x 4566}#) + #{y 4560}# + (#{quasicons 4432}# + (car #{x 4566}#) + (#{f 4565}# (cdr #{x 4566}#))))))) + (begin (#{f 4565}# #{x 4559}#))))) + (#{quasivector 4438}# + (lambda (#{x 4567}#) + (let ((#{tmp 4569}# #{x 4567}#)) + (let ((#{tmp 4570}# ($sc-dispatch - #{tmp 4560}# + #{tmp 4569}# '(#(atom "quote") each-any)))) - (if #{tmp 4561}# + (if #{tmp 4570}# (@apply - (lambda (#{x 4563}#) + (lambda (#{x 4572}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(x) #((top)) #("i4562")) + #(ribcage #(x) #((top)) #("i4571")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4559")) + #(ribcage #(x) #((top)) #("i4568")) #(ribcage (emit quasivector quasilist* @@ -16875,53 +15167,53 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (list->vector #{x 4563}#))) - #{tmp 4561}#) - (let ((#{_ 4566}# #{tmp 4560}#)) + (list->vector #{x 4572}#))) + #{tmp 4570}#) + (let ((#{_ 4575}# #{tmp 4569}#)) (letrec* - ((#{f 4570}# - (lambda (#{y 4571}# #{k 4572}#) - (let ((#{tmp 4583}# #{y 4571}#)) - (let ((#{tmp 4584}# + ((#{f 4579}# + (lambda (#{y 4580}# #{k 4581}#) + (let ((#{tmp 4592}# #{y 4580}#)) + (let ((#{tmp 4593}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "quote") each-any)))) - (if #{tmp 4584}# + (if #{tmp 4593}# (@apply - (lambda (#{y 4586}#) - (#{k 4572}# - (map (lambda (#{tmp 4587}#) + (lambda (#{y 4595}#) + (#{k 4581}# + (map (lambda (#{tmp 4596}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i4585")) + #("i4594")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4567" - "i4568" - "i4569")) + #("i4576" + "i4577" + "i4578")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -16936,75 +15228,75 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4587}#)) - #{y 4586}#))) - #{tmp 4584}#) - (let ((#{tmp 4588}# + #{tmp 4596}#)) + #{y 4595}#))) + #{tmp 4593}#) + (let ((#{tmp 4597}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "list") . each-any)))) - (if #{tmp 4588}# + (if #{tmp 4597}# (@apply - (lambda (#{y 4590}#) - (#{k 4572}# #{y 4590}#)) - #{tmp 4588}#) - (let ((#{tmp 4592}# + (lambda (#{y 4599}#) + (#{k 4581}# #{y 4599}#)) + #{tmp 4597}#) + (let ((#{tmp 4601}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4592}# + (if #{tmp 4601}# (@apply - (lambda (#{y 4595}# #{z 4596}#) - (#{f 4570}# - #{z 4596}# - (lambda (#{ls 4597}#) - (#{k 4572}# + (lambda (#{y 4604}# #{z 4605}#) + (#{f 4579}# + #{z 4605}# + (lambda (#{ls 4606}#) + (#{k 4581}# (append - #{y 4595}# - #{ls 4597}#))))) - #{tmp 4592}#) - (let ((#{else 4601}# #{tmp 4583}#)) - (let ((#{tmp 4605}# #{x 4558}#)) - (let ((#{ g4602 4607}# - #{tmp 4605}#)) + #{y 4604}# + #{ls 4606}#))))) + #{tmp 4601}#) + (let ((#{else 4610}# #{tmp 4592}#)) + (let ((#{tmp 4614}# #{x 4567}#)) + (let ((#{ g4611 4616}# + #{tmp 4614}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4602}#) - #((m4603 top)) - #("i4606")) + #(#{ g4611}#) + #((m4612 top)) + #("i4615")) #(ribcage #(else) #((top)) - #("i4600")) + #("i4609")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4567" - "i4568" - "i4569")) + #("i4576" + "i4577" + "i4578")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -17019,49 +15311,49 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4602 4607}#)))))))))))))) + #{ g4611 4616}#)))))))))))))) (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 4579}# + #{x 4567}# + (lambda (#{ls 4582}#) + (let ((#{tmp 4587}# #{ls 4582}#)) + (let ((#{tmp 4588}# + ($sc-dispatch #{tmp 4587}# 'each-any))) + (if #{tmp 4588}# (@apply - (lambda (#{ g4575 4581}#) + (lambda (#{ g4584 4590}#) (cons '#(syntax-object "vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4575}#) - #((m4576 top)) - #("i4580")) + #(#{ g4584}#) + #((m4585 top)) + #("i4589")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) - #("i4574")) + #("i4583")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -17076,36 +15368,36 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4575 4581}#)) - #{tmp 4579}#) + #{ g4584 4590}#)) + #{tmp 4588}#) (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 4587}#)))))))))))))) + (#{emit 4440}# + (lambda (#{x 4617}#) + (let ((#{tmp 4619}# #{x 4617}#)) + (let ((#{tmp 4620}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "quote") any)))) - (if #{tmp 4611}# + (if #{tmp 4620}# (@apply - (lambda (#{x 4613}#) + (lambda (#{x 4622}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4612")) + #(ribcage #(x) #((top)) #("i4621")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4609")) + #(ribcage #(x) #((top)) #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17114,46 +15406,46 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4613}#)) - #{tmp 4611}#) - (let ((#{tmp 4614}# + #{x 4622}#)) + #{tmp 4620}#) + (let ((#{tmp 4623}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list") . each-any)))) - (if #{tmp 4614}# + (if #{tmp 4623}# (@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 4625}#) + (let ((#{tmp 4629}# (map #{emit 4440}# #{x 4625}#))) + (let ((#{tmp 4630}# + ($sc-dispatch #{tmp 4629}# 'each-any))) + (if #{tmp 4630}# (@apply - (lambda (#{ g4617 4623}#) + (lambda (#{ g4626 4632}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g4617}#) - #((m4618 top)) - #("i4622")) + #(#{ g4626}#) + #((m4627 top)) + #("i4631")) #(ribcage #(x) #((top)) - #("i4615")) + #("i4624")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17168,70 +15460,70 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4617 4623}#)) - #{tmp 4621}#) + #{ g4626 4632}#)) + #{tmp 4630}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4620}#))))) - #{tmp 4614}#) - (let ((#{tmp 4626}# + #{tmp 4629}#))))) + #{tmp 4623}#) + (let ((#{tmp 4635}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4626}# + (if #{tmp 4635}# (@apply - (lambda (#{x 4629}# #{y 4630}#) + (lambda (#{x 4638}# #{y 4639}#) (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 4642}# + (lambda (#{x* 4643}#) + (if (null? #{x* 4643}#) + (#{emit 4440}# #{y 4639}#) + (let ((#{tmp 4649}# + (list (#{emit 4440}# + (car #{x* 4643}#)) + (#{f 4642}# + (cdr #{x* 4643}#))))) + (let ((#{tmp 4650}# ($sc-dispatch - #{tmp 4640}# + #{tmp 4649}# '(any any)))) - (if #{tmp 4641}# + (if #{tmp 4650}# (@apply - (lambda (#{ g4637 4644}# - #{ g4636 4645}#) + (lambda (#{ g4646 4653}# + #{ g4645 4654}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g4637}# - #{ g4636}#) - #((m4638 top) - (m4638 top)) - #("i4642" "i4643")) + #(#{ g4646}# + #{ g4645}#) + #((m4647 top) + (m4647 top)) + #("i4651" "i4652")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i4631" "i4632")) + #("i4640" "i4641")) #(ribcage #(x y) #((top) (top)) - #("i4627" "i4628")) + #("i4636" "i4637")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17246,56 +15538,56 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4637 4644}# - #{ g4636 4645}#)) - #{tmp 4641}#) + #{ g4646 4653}# + #{ g4645 4654}#)) + #{tmp 4650}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4640}#)))))))) - (begin (#{f 4633}# #{x 4629}#)))) - #{tmp 4626}#) - (let ((#{tmp 4646}# + #{tmp 4649}#)))))))) + (begin (#{f 4642}# #{x 4638}#)))) + #{tmp 4635}#) + (let ((#{tmp 4655}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "append") . each-any)))) - (if #{tmp 4646}# + (if #{tmp 4655}# (@apply - (lambda (#{x 4648}#) - (let ((#{tmp 4652}# - (map #{emit 4431}# #{x 4648}#))) - (let ((#{tmp 4653}# + (lambda (#{x 4657}#) + (let ((#{tmp 4661}# + (map #{emit 4440}# #{x 4657}#))) + (let ((#{tmp 4662}# ($sc-dispatch - #{tmp 4652}# + #{tmp 4661}# 'each-any))) - (if #{tmp 4653}# + (if #{tmp 4662}# (@apply - (lambda (#{ g4649 4655}#) + (lambda (#{ g4658 4664}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g4649}#) - #((m4650 top)) - #("i4654")) + #(#{ g4658}#) + #((m4659 top)) + #("i4663")) #(ribcage #(x) #((top)) - #("i4647")) + #("i4656")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17310,54 +15602,54 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4649 4655}#)) - #{tmp 4653}#) + #{ g4658 4664}#)) + #{tmp 4662}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4652}#))))) - #{tmp 4646}#) - (let ((#{tmp 4658}# + #{tmp 4661}#))))) + #{tmp 4655}#) + (let ((#{tmp 4667}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "vector") . each-any)))) - (if #{tmp 4658}# + (if #{tmp 4667}# (@apply - (lambda (#{x 4660}#) - (let ((#{tmp 4664}# - (map #{emit 4431}# #{x 4660}#))) - (let ((#{tmp 4665}# + (lambda (#{x 4669}#) + (let ((#{tmp 4673}# + (map #{emit 4440}# #{x 4669}#))) + (let ((#{tmp 4674}# ($sc-dispatch - #{tmp 4664}# + #{tmp 4673}# 'each-any))) - (if #{tmp 4665}# + (if #{tmp 4674}# (@apply - (lambda (#{ g4661 4667}#) + (lambda (#{ g4670 4676}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4661}#) - #((m4662 top)) - #("i4666")) + #(#{ g4670}#) + #((m4671 top)) + #("i4675")) #(ribcage #(x) #((top)) - #("i4659")) + #("i4668")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17372,49 +15664,49 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4661 4667}#)) - #{tmp 4665}#) + #{ g4670 4676}#)) + #{tmp 4674}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4664}#))))) - #{tmp 4658}#) - (let ((#{tmp 4670}# + #{tmp 4673}#))))) + #{tmp 4667}#) + (let ((#{tmp 4679}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list->vector") any)))) - (if #{tmp 4670}# + (if #{tmp 4679}# (@apply - (lambda (#{x 4672}#) - (let ((#{tmp 4676}# - (#{emit 4431}# #{x 4672}#))) - (let ((#{ g4673 4678}# - #{tmp 4676}#)) + (lambda (#{x 4681}#) + (let ((#{tmp 4685}# + (#{emit 4440}# #{x 4681}#))) + (let ((#{ g4682 4687}# + #{tmp 4685}#)) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4673}#) - #((m4674 top)) - #("i4677")) + #(#{ g4682}#) + #((m4683 top)) + #("i4686")) #(ribcage #(x) #((top)) - #("i4671")) + #("i4680")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17429,83 +15721,83 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4673 4678}#)))) - #{tmp 4670}#) - (let ((#{tmp 4679}# + #{ g4682 4687}#)))) + #{tmp 4679}#) + (let ((#{tmp 4688}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "value") any)))) - (if #{tmp 4679}# + (if #{tmp 4688}# (@apply - (lambda (#{x 4681}#) #{x 4681}#) - #{tmp 4679}#) + (lambda (#{x 4690}#) #{x 4690}#) + #{tmp 4688}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4610}#))))))))))))))))))) + #{tmp 4619}#))))))))))))))))))) (begin - (lambda (#{x 4682}#) - (let ((#{tmp 4684}# #{x 4682}#)) - (let ((#{tmp 4685}# - ($sc-dispatch #{tmp 4684}# '(_ any)))) - (if #{tmp 4685}# + (lambda (#{x 4691}#) + (let ((#{tmp 4693}# #{x 4691}#)) + (let ((#{tmp 4694}# + ($sc-dispatch #{tmp 4693}# '(_ any)))) + (if #{tmp 4694}# (@apply - (lambda (#{e 4687}#) - (#{emit 4431}# (#{quasi 4419}# #{e 4687}# 0))) - #{tmp 4685}#) + (lambda (#{e 4696}#) + (#{emit 4440}# (#{quasi 4428}# #{e 4696}# 0))) + #{tmp 4694}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4684}#))))))))) + #{tmp 4693}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 4688}#) + (lambda (#{x 4697}#) (letrec* - ((#{read-file 4691}# - (lambda (#{fn 4692}# #{k 4693}#) + ((#{read-file 4700}# + (lambda (#{fn 4701}# #{k 4702}#) (begin - (let ((#{p 4697}# (open-input-file #{fn 4692}#))) + (let ((#{p 4706}# (open-input-file #{fn 4701}#))) (letrec* - ((#{f 4701}# - (lambda (#{x 4702}# #{result 4703}#) - (if (eof-object? #{x 4702}#) + ((#{f 4710}# + (lambda (#{x 4711}# #{result 4712}#) + (if (eof-object? #{x 4711}#) (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 4706}#) + (reverse #{result 4712}#)) + (#{f 4710}# + (read #{p 4706}#) + (cons (datum->syntax #{k 4702}# #{x 4711}#) + #{result 4712}#)))))) + (begin (#{f 4710}# (read #{p 4706}#) '())))))))) (begin - (let ((#{tmp 4704}# #{x 4688}#)) - (let ((#{tmp 4705}# - ($sc-dispatch #{tmp 4704}# '(any any)))) - (if #{tmp 4705}# + (let ((#{tmp 4713}# #{x 4697}#)) + (let ((#{tmp 4714}# + ($sc-dispatch #{tmp 4713}# '(any any)))) + (if #{tmp 4714}# (@apply - (lambda (#{k 4708}# #{filename 4709}#) + (lambda (#{k 4717}# #{filename 4718}#) (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 4720}# (syntax->datum #{filename 4718}#))) + (let ((#{tmp 4722}# + (#{read-file 4700}# + #{fn 4720}# + #{filename 4718}#))) + (let ((#{tmp 4723}# + ($sc-dispatch #{tmp 4722}# 'each-any))) + (if #{tmp 4723}# (@apply - (lambda (#{exp 4716}#) + (lambda (#{exp 4725}#) (cons '#(syntax-object begin ((top) @@ -17513,129 +15805,129 @@ #(ribcage #(exp) #((top)) - #("i4715")) + #("i4724")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4710")) + #("i4719")) #(ribcage #(k filename) #((top) (top)) - #("i4706" "i4707")) + #("i4715" "i4716")) #(ribcage (read-file) ((top)) - ("i4690")) + ("i4699")) #(ribcage #(x) #((top)) - #("i4689"))) + #("i4698"))) (hygiene guile)) - #{exp 4716}#)) - #{tmp 4714}#) + #{exp 4725}#)) + #{tmp 4723}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4713}#))))))) - #{tmp 4705}#) + #{tmp 4722}#))))))) + #{tmp 4714}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4704}#))))))))) + #{tmp 4713}#))))))))) (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 4727}#) + (let ((#{tmp 4729}# #{x 4727}#)) + (let ((#{tmp 4730}# + ($sc-dispatch #{tmp 4729}# '(any any)))) + (if #{tmp 4730}# (@apply - (lambda (#{k 4724}# #{filename 4725}#) + (lambda (#{k 4733}# #{filename 4734}#) (begin - (let ((#{fn 4727}# (syntax->datum #{filename 4725}#))) - (let ((#{tmp 4729}# + (let ((#{fn 4736}# (syntax->datum #{filename 4734}#))) + (let ((#{tmp 4738}# (datum->syntax - #{filename 4725}# + #{filename 4734}# (begin - (let ((#{t 4734}# - (%search-load-path #{fn 4727}#))) - (if #{t 4734}# - #{t 4734}# + (let ((#{t 4743}# + (%search-load-path #{fn 4736}#))) + (if #{t 4743}# + #{t 4743}# (syntax-violation 'include-from-path "file not found in path" - #{x 4718}# - #{filename 4725}#))))))) - (let ((#{fn 4731}# #{tmp 4729}#)) + #{x 4727}# + #{filename 4734}#))))))) + (let ((#{fn 4740}# #{tmp 4738}#)) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4730")) + #(ribcage #(fn) #((top)) #("i4739")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4726")) + #(ribcage #(fn) #((top)) #("i4735")) #(ribcage #(k filename) #((top) (top)) - #("i4722" "i4723")) + #("i4731" "i4732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4719"))) + #(ribcage #(x) #((top)) #("i4728"))) (hygiene guile)) - #{fn 4731}#)))))) - #{tmp 4721}#) + #{fn 4740}#)))))) + #{tmp 4730}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4720}#))))))) + #{tmp 4729}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 4736}#) + (lambda (#{x 4745}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 4736}#)))) + #{x 4745}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 4738}#) + (lambda (#{x 4747}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 4738}#)))) + #{x 4747}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 4740}#) - (let ((#{tmp 4742}# #{x 4740}#)) - (let ((#{tmp 4743}# + (lambda (#{x 4749}#) + (let ((#{tmp 4751}# #{x 4749}#)) + (let ((#{tmp 4752}# ($sc-dispatch - #{tmp 4742}# + #{tmp 4751}# '(_ any any . each-any)))) - (if #{tmp 4743}# + (if #{tmp 4752}# (@apply - (lambda (#{e 4747}# #{m1 4748}# #{m2 4749}#) - (let ((#{tmp 4751}# + (lambda (#{e 4756}# #{m1 4757}# #{m2 4758}#) + (let ((#{tmp 4760}# (letrec* - ((#{f 4757}# - (lambda (#{clause 4758}# #{clauses 4759}#) - (if (null? #{clauses 4759}#) - (let ((#{tmp 4761}# #{clause 4758}#)) - (let ((#{tmp 4762}# + ((#{f 4766}# + (lambda (#{clause 4767}# #{clauses 4768}#) + (if (null? #{clauses 4768}#) + (let ((#{tmp 4770}# #{clause 4767}#)) + (let ((#{tmp 4771}# ($sc-dispatch - #{tmp 4761}# + #{tmp 4770}# '(#(free-id #(syntax-object else @@ -17644,92 +15936,92 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile))) any . each-any)))) - (if #{tmp 4762}# + (if #{tmp 4771}# (@apply - (lambda (#{e1 4765}# #{e2 4766}#) + (lambda (#{e1 4774}# #{e2 4775}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4763" "i4764")) + #("i4772" "i4773")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4765}# - #{e2 4766}#))) - #{tmp 4762}#) - (let ((#{tmp 4768}# + (cons #{e1 4774}# + #{e2 4775}#))) + #{tmp 4771}#) + (let ((#{tmp 4777}# ($sc-dispatch - #{tmp 4761}# + #{tmp 4770}# '(each-any any . each-any)))) - (if #{tmp 4768}# + (if #{tmp 4777}# (@apply - (lambda (#{k 4772}# - #{e1 4773}# - #{e2 4774}#) + (lambda (#{k 4781}# + #{e1 4782}# + #{e2 4783}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object memv @@ -17739,9 +16031,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17753,17 +16045,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17771,7 +16063,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) '#(syntax-object t @@ -17781,9 +16073,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17795,17 +16087,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17813,7 +16105,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object quote @@ -17825,9 +16117,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17839,9 +16131,9 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 @@ -17849,9 +16141,9 @@ #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17859,10 +16151,10 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - #{k 4772}#)) + #{k 4781}#)) (cons '#(syntax-object begin ((top) @@ -17871,9 +16163,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17885,17 +16177,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17903,64 +16195,64 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4773}# - #{e2 4774}#)))) - #{tmp 4768}#) - (let ((#{_ 4778}# #{tmp 4761}#)) + (cons #{e1 4782}# + #{e2 4783}#)))) + #{tmp 4777}#) + (let ((#{_ 4787}# #{tmp 4770}#)) (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 4749}# + #{clause 4767}#))))))) + (let ((#{tmp 4789}# + (#{f 4766}# + (car #{clauses 4768}#) + (cdr #{clauses 4768}#)))) + (let ((#{rest 4791}# #{tmp 4789}#)) + (let ((#{tmp 4792}# #{clause 4767}#)) + (let ((#{tmp 4793}# ($sc-dispatch - #{tmp 4783}# + #{tmp 4792}# '(each-any any . each-any)))) - (if #{tmp 4784}# + (if #{tmp 4793}# (@apply - (lambda (#{k 4788}# - #{e1 4789}# - #{e2 4790}#) + (lambda (#{k 4797}# + #{e1 4798}# + #{e2 4799}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object memv @@ -17970,9 +16262,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -17980,7 +16272,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -17992,17 +16284,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18010,7 +16302,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) '#(syntax-object t @@ -18020,9 +16312,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18030,7 +16322,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18042,17 +16334,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18060,7 +16352,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object quote @@ -18072,9 +16364,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18082,7 +16374,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18094,9 +16386,9 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 @@ -18104,9 +16396,9 @@ #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18114,10 +16406,10 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - #{k 4788}#)) + #{k 4797}#)) (cons '#(syntax-object begin ((top) @@ -18126,9 +16418,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18136,7 +16428,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18148,17 +16440,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18166,31 +16458,31 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4789}# - #{e2 4790}#)) - #{rest 4782}#)) - #{tmp 4784}#) - (let ((#{_ 4794}# #{tmp 4783}#)) + (cons #{e1 4798}# + #{e2 4799}#)) + #{rest 4791}#)) + #{tmp 4793}#) + (let ((#{_ 4803}# #{tmp 4792}#)) (syntax-violation 'case "bad clause" - #{x 4740}# - #{clause 4758}#))))))))))) - (begin (#{f 4757}# #{m1 4748}# #{m2 4749}#))))) - (let ((#{body 4753}# #{tmp 4751}#)) + #{x 4749}# + #{clause 4767}#))))))))))) + (begin (#{f 4766}# #{m1 4757}# #{m2 4758}#))))) + (let ((#{body 4762}# #{tmp 4760}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i4752")) + #(ribcage #(body) #((top)) #("i4761")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" "i4745" "i4746")) + #("i4753" "i4754" "i4755")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4741"))) + #(ribcage #(x) #((top)) #("i4750"))) (hygiene guile)) (list (list '#(syntax-object t @@ -18199,176 +16491,176 @@ #(ribcage #(body) #((top)) - #("i4752")) + #("i4761")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" "i4745" "i4746")) + #("i4753" "i4754" "i4755")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4741"))) + #(ribcage #(x) #((top)) #("i4750"))) (hygiene guile)) - #{e 4747}#)) - #{body 4753}#)))) - #{tmp 4743}#) + #{e 4756}#)) + #{body 4762}#)))) + #{tmp 4752}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4742}#))))))) + #{tmp 4751}#))))))) (define make-variable-transformer - (lambda (#{proc 4795}#) - (if (procedure? #{proc 4795}#) + (lambda (#{proc 4804}#) + (if (procedure? #{proc 4804}#) (begin (letrec* - ((#{trans 4798}# - (lambda (#{x 4799}#) (#{proc 4795}# #{x 4799}#)))) + ((#{trans 4807}# + (lambda (#{x 4808}#) (#{proc 4804}# #{x 4808}#)))) (begin (set-procedure-property! - #{trans 4798}# + #{trans 4807}# 'variable-transformer #t) - #{trans 4798}#))) + #{trans 4807}#))) (error "variable transformer not a procedure" - #{proc 4795}#)))) + #{proc 4804}#)))) (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 4810}#) + (let ((#{tmp 4812}# #{x 4810}#)) + (let ((#{tmp 4813}# + ($sc-dispatch #{tmp 4812}# '(_ any)))) + (if #{tmp 4813}# (@apply - (lambda (#{e 4806}#) + (lambda (#{e 4815}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{e 4806}#)) + #{e 4815}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - (cons #{e 4806}# + (cons #{e 4815}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i4805")) + #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18376,55 +16668,55 @@ #(ribcage #(e) #((top)) - #("i4805")) + #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile))))))))) - #{tmp 4804}#) - (let ((#{tmp 4807}# + #{tmp 4813}#) + (let ((#{tmp 4816}# ($sc-dispatch - #{tmp 4803}# + #{tmp 4812}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 4807}# + (if (if #{tmp 4816}# (@apply - (lambda (#{id 4813}# - #{exp1 4814}# - #{var 4815}# - #{val 4816}# - #{exp2 4817}#) - (if (identifier? #{id 4813}#) - (identifier? #{var 4815}#) + (lambda (#{id 4822}# + #{exp1 4823}# + #{var 4824}# + #{val 4825}# + #{exp2 4826}#) + (if (identifier? #{id 4822}#) + (identifier? #{var 4824}#) #f)) - #{tmp 4807}#) + #{tmp 4816}#) #f) (@apply - (lambda (#{id 4825}# - #{exp1 4826}# - #{var 4827}# - #{val 4828}# - #{exp2 4829}#) + (lambda (#{id 4834}# + #{exp1 4835}# + #{var 4836}# + #{val 4837}# + #{exp2 4838}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" "i4821" "i4822" "i4823" "i4824")) + #("i4829" "i4830" "i4831" "i4832" "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) (list '#(syntax-object lambda @@ -18432,13 +16724,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object x @@ -18446,13 +16738,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -18460,13 +16752,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) . #(syntax-object @@ -18475,13 +16767,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -18489,13 +16781,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '#(syntax-object x @@ -18503,13 +16795,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object set! @@ -18517,13 +16809,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -18535,19 +16827,19 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{var 4827}# - #{val 4828}#) + #{var 4836}# + #{val 4837}#) (list '#(syntax-object syntax ((top) @@ -18558,19 +16850,19 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{exp2 4829}#)) - (list (cons #{id 4825}# + #{exp2 4838}#)) + (list (cons #{id 4834}# '(#(syntax-object x ((top) @@ -18585,16 +16877,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18610,16 +16902,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -18631,18 +16923,18 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - (cons #{exp1 4826}# + (cons #{exp1 4835}# '(#(syntax-object x ((top) @@ -18657,11 +16949,11 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () @@ -18669,7 +16961,7 @@ #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18685,11 +16977,11 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () @@ -18697,10 +16989,10 @@ #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)))))) - (list #{id 4825}# + (list #{id 4834}# (list '#(syntax-object identifier? ((top) @@ -18711,16 +17003,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) (list '#(syntax-object syntax @@ -18736,18 +17028,18 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{id 4825}#)) + #{id 4834}#)) (list '#(syntax-object syntax ((top) @@ -18758,69 +17050,69 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{exp1 4826}#)))))) - #{tmp 4807}#) + #{exp1 4835}#)))))) + #{tmp 4816}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4803}#))))))))) + #{tmp 4812}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 4830}#) - (let ((#{tmp 4832}# #{x 4830}#)) - (let ((#{tmp 4833}# + (lambda (#{x 4839}#) + (let ((#{tmp 4841}# #{x 4839}#)) + (let ((#{tmp 4842}# ($sc-dispatch - #{tmp 4832}# + #{tmp 4841}# '(_ (any . any) any . each-any)))) - (if #{tmp 4833}# + (if #{tmp 4842}# (@apply - (lambda (#{id 4838}# - #{args 4839}# - #{b0 4840}# - #{b1 4841}#) + (lambda (#{id 4847}# + #{args 4848}# + #{b0 4849}# + #{b1 4850}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4834" "i4835" "i4836" "i4837")) + #("i4843" "i4844" "i4845" "i4846")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)) - #{id 4838}# + #{id 4847}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4834" "i4835" "i4836" "i4837")) + #("i4843" "i4844" "i4845" "i4846")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (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 4848}# + (cons #{b0 4849}# #{b1 4850}#))))) + #{tmp 4842}#) + (let ((#{tmp 4852}# + ($sc-dispatch #{tmp 4841}# '(_ any any)))) + (if (if #{tmp 4852}# (@apply - (lambda (#{id 4846}# #{val 4847}#) + (lambda (#{id 4855}# #{val 4856}#) (identifier? '#(syntax-object x @@ -18828,29 +17120,29 @@ #(ribcage #(id val) #((top) (top)) - #("i4844" "i4845")) + #("i4853" "i4854")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)))) - #{tmp 4843}#) + #{tmp 4852}#) #f) (@apply - (lambda (#{id 4850}# #{val 4851}#) + (lambda (#{id 4859}# #{val 4860}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i4848" "i4849")) + #("i4857" "i4858")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)) - #{id 4850}# - #{val 4851}#)) - #{tmp 4843}#) + #{id 4859}# + #{val 4860}#)) + #{tmp 4852}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4832}#))))))))) + #{tmp 4841}#))))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 8232ad9f2..14b89f9a6 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -821,9 +821,35 @@ (define free-id=? (lambda (i j) - (and (eq? (id-sym-name i) (id-sym-name j)) ; accelerator - (eq? (id-var-name i empty-wrap) (id-var-name j empty-wrap))))) - + (let ((ni (id-var-name i empty-wrap)) + (nj (id-var-name j empty-wrap))) + (define (id-module-binding id) + (let ((mod (and (syntax-object? id) (syntax-object-module id)))) + (module-variable + (if mod + ;; The normal case. + (resolve-module (cdr mod)) + ;; Either modules have not been booted, or we have a + ;; raw symbol coming in, which is possible. + (current-module)) + (id-sym-name id)))) + (if (eq? ni (id-sym-name i)) + ;; `i' is not lexically bound. Assert that `j' is free, + ;; and if so, compare their bindings, that they are either + ;; bound to the same variable, or both unbound and have + ;; the same name. + (and (eq? nj (id-sym-name j)) + (let ((bi (id-module-binding i))) + (if bi + (eq? bi (id-module-binding j)) + (and (not (id-module-binding j)) + (eq? ni nj)))) + (eq? (id-module-binding i) (id-module-binding j))) + ;; Otherwise `i' is bound, so check that `j' is bound, and + ;; bound to the same thing. + (and (eq? ni nj) + (not (eq? nj (id-sym-name j)))))))) + ;; bound-id=? may be passed unwrapped (or partially wrapped) ids as ;; long as the missing portion of the wrap is common to both of the ids ;; since (bound-id=? x y) iff (bound-id=? (wrap x w) (wrap y w))